10:56 AM  24-MAY-2001
AUM v 01.1 Patch 4, 2001 Education Topics.  Restore 5 routines and DO ^AUM1104 (Patch AUT*98.1*7 is required).
A9AUM4
A9AUM4 ; IHS/RPMSDBA/GTH - STANDARD TABLE UPDATES, EDUCATION TOPICS 2001, RPI ; [ 05/24/2001  10:55 AM ]
 ;;01.1;TABLE MAINTENANCE;**4**;DEC 6,2000
 ;
 D START^AUM1104
DEL ;EP - Delete routines.
 Q:'$L($G(^%ZOSF("DEL")))
 NEW X
 I $$RSEL^ZIBRSEL("AUM1104*") D D
 I $$RSEL^ZIBRSEL("A9AUM*")
 KILL ^TMP("ZIBRSEL",$J,"A9AUM4") ; Don't delete the current routine.
 D D
 Q
 ;
D ;
 S X=""
 F  S X=$O(^TMP("ZIBRSEL",$J,X)) Q:X=""  X ^%ZOSF("DEL") I '$D(ZTQUEUED) W !,X,$E("...........",1,11-$L(X)),"<poof'd>"
 KILL ^TMP("ZIBRSEL",$J)
 Q
 ;

AUM1104
AUM1104 ; IHS/RPMSDBA/GTH - STANDARD TABLE UPDATES, EDUCATION TOPICS 2001 ; [ 05/24/2001  10:55 AM ]
 ;;01.1;TABLE MAINTENANCE;**4**;DEC 6,2000
 ;
 I '$$P7 D HELP("P7"),VP Q
 I '$G(DUZ) W !,"DUZ UNDEFINED OR ZERO.",! Q
 D HOME^%ZIS,DT^DICRW,VP,HELP("INTRO")
 S (DIR(0),DIR("B"))="Y"
 S DIR("A")="Do you want to queue the update to TaskMan"
 S DIR("??")="^D HELP^AUM1104(""Q2"")"
 D ^DIR
 KILL DIR
 I $D(DIRUT) D HELP("Q2") Q
 G START:'Y
QUE ;
 S %DT="AERSX",%DT("A")="Requested Start Time: ",%DT("B")="T@2015",%DT(0)="NOW"
 D ^%DT
 I Y<1 W !,"QUEUE INFORMATION MISSING - NOT QUEUED" D HELP("Q2") G AUM1104
 S X=+Y
 D H^%DTC
 S ZTDTH=%H_","_%T
 S ZTRTN="START^AUM1104",ZTIO="",ZTDESC=$P($P($T(+1),";",2)," ",4,99)
 D ^%ZTLOAD,HOME^%ZIS
 I $D(ZTSK) W !!,"QUEUED TO TASK ",ZTSK,!!,"A mail message with the results will be sent to your MailMan 'IN' basket.",!
 E  W !!,*7,"QUEUE UNSUCCESSFUL.  RESTART UTILITY."
 Q
 ;
START ;EP - From Taskman
 ;
 NEW XMSUB,XMDUZ,XMTEXT,XMY
 KILL ^TMP("AUM1104",$J)
 D START^AUM11041
 S XMSUB=$P($P($T(+1),";",2)," ",4,99),XMDUZ=$S($G(DUZ):DUZ,1:.5),XMTEXT="^TMP(""AUM1104"",$J,",XMY(1)="",XMY(DUZ)=""
 D ^XMD
 KILL ^TMP("AUM1104",$J)
 I $D(ZTQUEUED) S ZTREQ="@" Q
 W !!,"The results are in your MailMan 'IN' basket.",!
 I $$DIR^XBDIR("Y","Want me to delete the routines in this patch","Y") G DEL^A9AUM4
 Q
 ;
P7() ;EP - Determine if the new EDUCATION TOPICS dd is installed.
 ;; Sorry.....you don't have the new EDUCATION TOPICS dd installed.
 ;;  
 ;; Please install patch "AUT*98.1*7", and re-run this one:
 ;;
 ;;###
 ;
 NEW DIC,X
 S DIC="^XPD(9.7,",X="AUT*98.1*7"
 D ^DIC
 Q Y>0
 ;
INTRO ;
 ;;This updates standard tables according to the additions to the
 ;;EDUCATION TOPICS file specified by the committee for Patient
 ;;Education Protocols (PEP), as directed by the Chair's note to the
 ;;RPMS DBA, dated Friday, May 18, 2001 11:59 AM, which included the
 ;;2001 patient education protocols and codes.
 ;; 
 ;;There are 327 additions to EDUCATION TOPICS, and one modification
 ;;to a mnemonic.
 ;;  
 ;;A standard message will be produced by this update, listing the
 ;;additions to the EDUCATION TOPICS standard table.
 ;;  
 ;;The Sixth Edition (June 2000) of the IHS Patient and Family
 ;;Education Protocols and Codes can be found at:
 ;;http://http://www.ihs.gov/medicalprograms/healthcare/clinicalguidelines/ProvPtEd.asp
 ;;  
 ;;Discussion of the protocols can be joined on the Clinical PSG
 ;;discussion board at:
 ;;http://www.forum.ihs.gov/~cpsg
 ;;
 ;;###
 ;
Q2 ;
 ;;Answer "Y" if you want to queue this standard table update to TaskMan.
 ;;Answer "N" if you want to run this update interactively.
 ;;
 ;;If you run interactively, results will be displayed on your screen,
 ;;as well as in the mail message sent to you and user 1.  If you queue
 ;;to TaskMan, please read the mail message for results of this update.
 ;;###
 ;
HELP(L) ;EP - Display text at label L.
 W !
 F %=1:1 W !?4,$P($T(@L+%),";",3) Q:$P($T(@L+%+1),";",3)="###"
 Q
 ;
VP ;
 W !?4,"****    AUM Version ",$P($T(+2),";",3)," Patch ",$P($P($T(+2),";",5),"*",3),?65,"****"
 W !?4,"****   ",$P($P($T(+1),";",2),"-",2),?65,"****"
 Q
 ;
GREET ;;EP - To add to mail message.
 ;;  
 ;;Greetings.
 ;;  
 ;;Standard tables on your RPMS system have been updated.
 ;;  
 ;; ( Just a reminder....
 ;;   Data auditing of these AUM updates began with Patch 2.
 ;;   If you retrieve the audits from the AUDIT file, it "appears"
 ;;   like whomever ran this update modified the data. )
 ;;  
 ;;You are receiving this message because of the particular RPMS
 ;;security keys that you hold.  This is for your information, only.
 ;;You need do nothing in response to this message.
 ;;  
 ;;Requests for modifications or additions to RPMS standard tables,
 ;;whether they are or are not reflected in the IHS Standard Code
 ;;Book (SCB), can be submitted to your Area Information System
 ;;Coordinator (ISC).
 ;;  
 ;;Questions about this patch, which is a product of the RPMS DBA,
 ;;can be directed to the DIR/RPMS Support Center, at
 ;;505-248-4371, or via e-mail to "hqwhd@mail.ihs.gov".  Please
 ;;refer to patch "AUM*1.1*4".
 ;;  
 ;;###;NOTE: This line indicates the end of text in this message.
 ;

AUM11041
AUM11041 ; IHS/RPMSDBA/GTH - STANDARD TABLE UPDATES, EDUCATION TOPICS 2001 ; [ 05/24/2001  10:55 AM ]
 ;;01.1;TABLE MAINTENANCE;**4**;DEC 6,2000
 ;
 Q
 ;
START ;EP
 ;
 I '$$P7^AUM1104 D  Q  ; This is only for patch 4, Ed Topics 2001.
 . NEW X
 . F %=1:1 S X=$P($T(P7+%^AUM1104),";",3) Q:X="###"  D RSLT(X)
 . D RSLT(" "),RSLT(" AUM v 1.1 Patch 7.")
 .Q
 ;
 NEW A,C,DIC,DIE,DINUM,DLAYGO,DR,E,L,M,N,O,P,R,S,T
 ;
 D RSLT($J("",5)_$P($T(UPDATE^AUM1104A),";",3))
 F %=1:1 D RSLT($P($T(GREET+%^AUM1104),";",3)) Q:$P($T(GREET+%+1^AUM1104),";",3)="###"
 F %=1:1 D RSLT($P($T(INTRO+%^AUM1104),";",3)) Q:$P($T(INTRO+%+1^AUM1104),";",3)="###"
 D AUDS,DASH,EDTADD,DASH,EDTMOD,DASH,AUDR
 Q
 ;
 ; -----------------------------------------------------
ADDOK D RSLT($J("",5)_"Added : "_L)
 Q
ADDFAIL D RSLT($J("",5)_$$M(0)_"ADD FAILED => "_L)
 Q
DASH D RSLT(""),RSLT($$REPEAT^XLFSTR("-",$S($G(IOM):IOM-10,1:70))),RSLT("")
 Q
DIE NEW A,C,E,L,M,N,O,P,R,S,T
 LOCK +(@(DIE_DA_")")):10 E  D RSLT($J("",5)_$$M(0)_"Entry '"_DIE_DA_"' IS LOCKED.  NOTIFY PROGRAMMER.") S Y=1 Q
 D ^DIE LOCK -(@(DIE_DA_")")) KILL DA,DIE,DR
 Q
E(L) Q $P($P($T(@L^AUM1104A),";",3),":",1)
FILE NEW A,C,E,L,M,N,O,P,R,S,T K DD,DO S DIC(0)="L" D FILE^DICN KILL DIC
 Q
M(%) Q $S(%=0:"ERROR : ",%=1:"NOT ADDED : ",1:"")
MODOK D RSLT($J("",5)_"Changed : "_L)
 Q
RSLT(%) S ^(0)=$G(^TMP("AUM1104",$J,0))+1,^(^(0))=% W:'$D(ZTQUEUED) !,%
 Q
 ;
 ; -----------------------------------------------------
 ; Data auditing at the file level is indicated by a lower case "a"
 ; in the 2nd piece of the 0th node of the global.
 ; Data auditing at the field level is indicated by a lower case "a"
 ; in the 2nd piece of the 0th node of the field definition in ^DD(.
AUDS ; Save current settings, and SET data auditing 'on'.
 S ^XTMP("AUM11041",0)=$$FMADD^XLFDT(DT,56)_"^"_DT_"^"_"AUM11041 STANDARD TABLE UPDATES"
 NEW G,P
 F %=1:1 S G=$P($T(AUD+%),";",3) Q:G="END"  D
 . S P=$P(@(G_"0)"),"^",2)
 . I '$D(^XTMP("AUM11041",G)) S ^XTMP("AUM11041",G)=P
 . S:'(P["a") $P(@(G_"0)"),"^",2)=P_"a"
 . Q:'(G["^DD(")
 . I '$D(^XTMP("AUM11041",G,"AUDIT")) S ^XTMP("AUM11041",G,"AUDIT")=$G(@(G_"""AUDIT"")"))
 . S (@(G_"""AUDIT"")"))="y"
 .Q
 Q
 ;
AUDR ; Restore the file data audit values to their original values.
 NEW G,P
 F %=1:1 S G=$P($T(AUD+%),";",3) Q:G="END"  D
 . S $P(@(G_"0)"),"^",2)=^XTMP("AUM11041",G)
 . Q:'(G["^DD(")
 . S (@(G_"""AUDIT"")"))=^XTMP("AUM11041",G,"AUDIT")
 . K:@(G_"""AUDIT"")")="" @(G_"""AUDIT"")")
 .Q
 Q
 ;
AUD ; These are files/fields to be audited for this patch, only.
 ;;^AUTTAREA(
 ;;^AUTTSU(
 ;;^AUTTCTY(
 ;;^AUTTLOC(
 ;;^DIC(4,
 ;;^AUTTCOM(
 ;;^AUTTEXAM(
 ;;^AUTTEDT(
 ;;^DIC(7,
 ;;^DD(9999999.09,.01,
 ;;^DD(9999999.09,1,
 ;;^DD(9999999.21,.01,
 ;;^DD(9999999.21,.02,
 ;;^DD(9999999.21,.03,
 ;;^DD(9999999.21,.04,
 ;;^DD(9999999.22,.01,
 ;;^DD(9999999.22,.02,
 ;;^DD(9999999.22,.03,
 ;;^DD(9999999.22,.04,
 ;;^DD(9999999.23,.01,
 ;;^DD(9999999.23,.02,
 ;;^DD(9999999.23,.03,
 ;;^DD(9999999.23,.04,
 ;;^DD(9999999.23,.06,
 ;;^DD(9999999.06,.01,
 ;;^DD(9999999.06,.04,
 ;;^DD(9999999.06,.05,
 ;;^DD(9999999.06,.07,
 ;;^DD(9999999.06,.31,
 ;;^DD(4,.01,
 ;;^DD(9999999.05,.01,
 ;;^DD(9999999.05,.02,
 ;;^DD(9999999.05,.03,
 ;;^DD(9999999.05,.05,
 ;;^DD(9999999.05,.06,
 ;;^DD(9999999.05,.07,
 ;;^DD(9999999.15,.01,
 ;;^DD(9999999.15,.02,
 ;;^DD(9999999.15,.11,
 ;;^DD(7,.01,
 ;;^DD(7,1,
 ;;^DD(7,9999999.01,
 ;;END
 ;
 ; -----------------------------------------------------
 ;
EDTADD ;
 D RSLT($$E("EDTADD"))
 D RSLT($J("",13)_"NAME"_$J("",28)_"MNEMONIC")
 D RSLT($J("",13)_$$REPEAT^XLFSTR("-",30)_"  --------")
 F T=1:1 S L=$T(EDTADD+T^AUM1104A) Q:$P(L,";",3)="END"  D ADDEDT
 KILL DLAYGO
 Q
 ;
ADDEDT ;
 S L=$P(L,";;",2),N=$P(L,U),O=$P(L,U,2),L=$E(N_$J("",30),1,30)_"  "_O
 I $D(^AUTTEDT("B",N)) D RSLT($$M(1)_"TOPIC EXISTS => "_N) Q
 I $D(^AUTTEDT("C",O)) D RSLT($$M(1)_"MNEMONIC EXISTS => "_O_" for "_N) Q
 S DLAYGO=9999999.09,DIC="^AUTTEDT(",X=N,DIC("DR")="1///"_O
 D FILE,ADDFAIL:Y<0,ADDOK:Y>0
 Q
 ;
 ; -----------------------------------------------------
 ;
EDTMOD ;
 D RSLT($$E("EDTMOD"))
 D RSLT($J("",13)_"NAME"_$J("",28)_"MNEMONIC")
 D RSLT($J("",13)_"----"_$J("",28)_"--------")
 F T=1:2 S L=$T(EDTMOD+T^AUM1104A) Q:$P(L,";",3)="END"  S L("TO")=$T(EDTMOD+T+1^AUM1104A) D
 . S N=$P(L,U,2)
 . I '$D(^AUTTEDT("B",N)) S L=";;"_$P(L("TO"),U,2,99) D ADDEDT Q
 . S DA=$O(^AUTTEDT("B",N,0))
 . S L=L("TO"),N=$P(L,U,2),O=$P(L,U,3),L=$E(N,1,25)_$J("",30-$L(N))_"  "_$E(O,1,25)
 . S DIE="^AUTTEDT(",DR=".01///"_N_";1///"_O
 . D DIE
 . I $D(Y) D RSLT($J("",5)_$$M(0)_"EDIT EDUCATION TOPICS FAILED => "_L) Q
 . D MODOK
 .Q
 KILL DLAYGO
 Q
 ;
 ; -----------------------------------------------------
 ;

AUM1104A
AUM1104A ; IHS/RPMSDBA/GTH - STANDARD TABLE UPDATES, EDUCATION TOPICS 2001 ; [ 05/24/2001  10:55 AM ]
 ;;01.1;TABLE MAINTENANCE;**4**;DEC 6,2000
 ;
UPDATE ;;PATIENT EDUCATION TOPICS 2001
 ;
EDTADD ; EDUCATION TOPICS ADDITIONS, FROM THE PEP COMMITTEE : NAME^MNEMONIC
 ;;ABP-COMPLICATIONS^ABP-C
 ;;ABP-DISEASE PROCESS^ABP-DP
 ;;ABP-FOLLOW-UP^ABP-FU
 ;;ABP-PATIENT INFORMATION LITERATURE^ABP-L
 ;;ABP-MEDICATION^ABP-M
 ;;ABP-NUTRITION^ABP-N
 ;;ABP-PAIN MANAGEMENT^ABP-PM
 ;;ABP-TESTS^ABP-TE
 ;;ABP-TREATMENT^ABP-TX
 ;;AL-DISEASE PROCESS^AL-DP
 ;;AL-FOLLOW-UP^AL-FU
 ;;AL-PATIENT INFORMATION LITERATURE^AL-L
 ;;AL-LIFESTYLE ADAPTIONS^AL-LA
 ;;AL-MEDICATION^AL-M
 ;;AL-NUTRITION^AL-N
 ;;AL-TESTS^AL-TE
 ;;ANS-COMPLICATIONS^ANS-C
 ;;ANS-EQUIPMENT^ANS-EQ
 ;;ANS-PAIN MANAGEMENT^ANS-PM
 ;;ACC-COMPLICATIONS^ACC-C
 ;;ACC-DISEASE PROCESS^ACC-DP
 ;;ACC-FOLLOW-UP^ACC-FU
 ;;ACC-HOME MANAGEMENT^ACC-HM
 ;;ACC-PATIENT INFORMATION LITERATURE^ACC-L
 ;;ACC-LIFESTYLE ADAPTIONS^ACC-LA
 ;;ACC-MEDICATION^ACC-M
 ;;ACC-NUTRITION^ACC-N
 ;;ACC-SAFETY AND INJURY PREVENTION^ACC-S
 ;;ACC-TESTS^ACC-TE
 ;;ASM-COMPLICATIONS^ASM-C
 ;;ASM-DISEASE PROCESS^ASM-DP
 ;;ASM-EQUIPMENT^ASM-EQ
 ;;ASM-EXERCISE^ASM-EX
 ;;ASM-FOLLOW-UP^ASM-FU
 ;;ASM-HOME MANAGEMENT^ASM-HM
 ;;ASM-PATIENT INFORMATION LITERATURE^ASM-L
 ;;ASM-LIFESTYLE ADAPTIONS^ASM-LA
 ;;ASM-MEDICATION^ASM-M
 ;;ASM-METERED DOSE INHALER^ASM-MDI
 ;;ASM-NEBULIZER^ASM-NEB
 ;;ASM-PEAK FLOW METER^ASM-PF
 ;;ASM-SPACERS^ASM-SPA
 ;;ASM-TOBACCO^ASM-TO
 ;;ADD-DISEASE PROCESS^ADD-DP
 ;;ADD-FOLLOW-UP^ADD-FU
 ;;ADD-GROWTH AND DEVELOPMENT^ADD-GD
 ;;ADD-PATIENT INFORMATION LITERATURE^ADD-L
 ;;ADD-LIFESTYLE ADAPTIONS^ADD-LA
 ;;ADD-MEDICATION^ADD-M
 ;;ADD-NUTRITION^ADD-N
 ;;ADD-TESTS^ADD-TE
 ;;ADD-TREATMENT^ADD-TX
 ;;ATO-COMPLICATIONS^ATO-C
 ;;ATO-DISEASE PROCESS^ATO-DP
 ;;ATO-FOLLOW-UP^ATO-FU
 ;;ATO-PATIENT INFORMATION LITERATURE^ATO-L
 ;;ATO-LIFESTYLE ADAPTIONS^ATO-LA
 ;;ATO-MEDICATION^ATO-M
 ;;ATO-NUTRITION^ATO-N
 ;;ATO-TESTS^ATO-TE
 ;;ATO-TREATMENT^ATO-TX
 ;;BT-NUTRITION^BT-N
 ;;BT-PAIN MANAGEMENT^BT-PM
 ;;BT-PROCEDURES^BT-PRO
 ;;BT-TESTS^BT-TE
 ;;BT-TREATMENT^BT-TX
 ;;BL-COMPLICATIONS^BL-C
 ;;BL-FOLLOW-UP^BL-FU
 ;;BL-PATIENT INFORMATION LITERATURE^BL-L
 ;;BL-SAFETY AND INJURY PREVENTION^BL-S
 ;;BL-TREATMENT^BL-TX
 ;;BF-EQUIPMENT^BF-EQ
 ;;CA-ANATOMY AND PHYSIOLOGY^CA-AP
 ;;CA-COMPLICATIONS^CA-C
 ;;CA-DISEASE PROCESS^CA-DP
 ;;CA-EQUIPMENT^CA-EQ
 ;;CA-FOLLOW-UP^CA-FU
 ;;CA-HOME MANAGEMENT^CA-HM
 ;;CA-PATIENT INFORMATION LITERATURE^CA-L
 ;;CA-LIFESTYLE ADAPTIONS^CA-LA
 ;;CA-MEDICATION^CA-M
 ;;CA-NUTRITION^CA-N
 ;;CA-PREVENTION^CA-P
 ;;CA-PAIN MANAGEMENT^CA-PM
 ;;CA-REFERRAL PROCESS^CA-REF
 ;;CA-TESTS^CA-TE
 ;;CA-TREATMENT^CA-TX
 ;;CVA-COMPLICATIONS^CVA-C
 ;;CVA-EQUIPMENT^CVA-EQ
 ;;CVA-HOME MANAGEMENT^CVA-HM
 ;;CVA-PREVENTION^CVA-P
 ;;CVA-SAFETY AND INJURY PREVENTION^CVA-S
 ;;CD-HOME MANAGEMENT^CD-HM
 ;;CHS-SEXUALITY^CHS-SX
 ;;CHA-GROWTH AND DEVELOPMENT^CHA-GD
 ;;CPM-DISEASE PROCESS^CPM-DP
 ;;CPM-EXERCISE^CPM-EX
 ;;CPM-FOLLOW-UP^CPM-FU
 ;;CPM-PATIENT INFORMATION LITERATURE^CPM-L
 ;;CPM-LIFESTYLE ADAPTATIONS^CPM-LA
 ;;CPM-MEDICATION^CPM-M
 ;;CPM-SAFETY AND INJURY PREVENTION^CPM-S
 ;;CDC-HOME MANAGEMENT^CDC-HM
 ;;CDC-NUTRITION^CDC-N
 ;;CDC-PAIN MANAGEMENT^CDC-PM
 ;;CHF-COMPLICATIONS^CHF-C
 ;;CHF-EXERCISE^CHF-EX
 ;;CHF-HOME MANAGEMENT^CHF-HM
 ;;CAD-COMPLICATIONS^CAD-C
 ;;CAD-EXERCISE^CAD-EX
 ;;CAD-PREVENTION^CAD-P
 ;;CAD-PAIN MANAGEMENT^CAD-PM
 ;;CRN-COMPLICATIONS^CRN-C
 ;;CRN-DISEASE PROCESS^CRN-DP
 ;;CRN-FOLLOW-UP^CRN-FU
 ;;CRN-PATIENT INFORMATION LITERATURE^CRN-L
 ;;CRN-MEDICATIONS^CRN-M
 ;;CRN-NUTRITION^CRN-N
 ;;CRN-PREVENTION^CRN-P
 ;;CRN-PAIN MANAGEMENT^CRN-PM
 ;;CRN-TESTS^CRN-TE
 ;;CRN-TREATMENTS^CRN-TX
 ;;DC-ANATOMY AND PHYSIOLOGY^DC-AP
 ;;DC-COMPLICATIONS^DC-C
 ;;DC-NUTRITION^DC-N
 ;;DC-PAIN MANAGEMENT^DC-PM
 ;;DC-TESTS^DC-TE
 ;;DEP-DISEASE PROCESS^DEP-DP
 ;;DEP-EXERCISE^DEP-EX
 ;;DEP-FOLLOW-UP^DEP-FU
 ;;DEP-PATIENT INFORMATION LITERATURE^DEP-L
 ;;DEP-MEDICATIONS^DEP-M
 ;;DEP-PSYCHOTHERAPY^DEP-PSY
 ;;DEP-WELLNESS^DEP-WL
 ;;DM-EQUIPMENT^DM-EQ
 ;;DM-PAIN MANAGEMENT^DM-PM
 ;;DIA-ANATOMY AND PHYSIOLOGY^DIA-AP
 ;;DIA-COMPLICATIONS^DIA-C
 ;;DIA-DISEASE PROCESS^DIA-DP
 ;;DIA-EQUIPMENT^DIA-EQ
 ;;DIA-FOLLOW-UP^DIA-FU
 ;;DIA-PATIENT INFORMATION LITERATURE^DIA-L
 ;;DIA-MEDICATIONS^DIA-M
 ;;DIA-NUTRITION^DIA-N
 ;;DIV-COMPLICATIONS^DIV-C
 ;;DIV-DISEASE PROCESS^DIV-DP
 ;;DIV-FOLLOW-UP^DIV-FU
 ;;DIV-PATIENT INFORMATION LITERATURE^DIV-L
 ;;DIV-MEDICATIONS^DIV-M
 ;;DIV-NUTRITION^DIV-N
 ;;DIV-PREVENTION^DIV-P
 ;;DIV-PAIN MANAGEMENT^DIV-PM
 ;;DIV-TESTS^DIV-TE
 ;;DIV-TREATMENT^DIV-TX
 ;;DV-PSYCHOTHERAPY^DV-PSY
 ;;DYS-EQUIPMENT^DYS-EQ
 ;;DYS-MEDICATIONS^DYS-M
 ;;ECC-COMPLICATIONS^ECC-C
 ;;ECC-DISEASE PROCESS^ECC-DP
 ;;ECC-FOLLOW-UP^ECC-FU
 ;;ECC-GROWTH AND DEVELOPMENT^ECC-GD
 ;;ECC-PATIENT INFORMATION LITERATURE^ECC-L
 ;;ECC-LIFESTYLE ADAPTIONS^ECC-LA
 ;;ECC-NUTRITION^ECC-N
 ;;ECC-PREVENTION^ECC-P
 ;;ECC-PAIN MANAGEMENT^ECC-PM
 ;;ECC-PROCEDURES^ECC-PRO
 ;;ECC-TESTS^ECC-TE
 ;;ECC-TREATMENT^ECC-TX
 ;;EOL-EQUIPMENT^EOL-EQ
 ;;EOL-PAIN MANAGEMENT^EOL-PM
 ;;EYE-ANATOMY AND PHYSIOLOGY^EYE-AP
 ;;EYE-HOME MANAGEMENT^EYE-HM
 ;;EYE-LIFESTYLE ADAPTIONS^EYE-LA
 ;;EYE-MEDICATION^EYE-M
 ;;EYE-PREVENTION^EYE-P
 ;;EYE-PAIN MANAGEMENT^EYE-PM
 ;;EYE-TESTS^EYE-TE
 ;;GIB-COMPLICATIONS^GIB-C
 ;;GIB-DISEASE PROCESS^GIB-DP
 ;;GIB-FOLLOW-UP^GIB-FU
 ;;GIB-PATIENT INFORMATION LITERATURE^GIB-L
 ;;GIB-MEDICATIONS^GIB-M
 ;;GIB-NUTRITION^GIB-N
 ;;GIB-PREVENTION^GIB-P
 ;;GIB-TESTS^GIB-TE
 ;;GIB-TREATMENT^GIB-TX
 ;;GE-HOME MANAGEMENT^GE-HM
 ;;GE-PAIN MANAGEMENT^GE-PM
 ;;GER-MEDICATIONS^GER-M
 ;;GER-NUTRITION^GER-N
 ;;GER-PAIN MANAGEMENT^GER-PM
 ;;GER-TESTS^GER-TE
 ;;HL-EQUIPMENT^HL-EQ
 ;;HIV-COMPLICATIONS^HIV-C
 ;;HIV-HOME MANAGEMENT^HIV-HM
 ;;HIV-HYGIENE^HIV-HY
 ;;HIV-LIFESTYLE ADAPTIONS^HIV-LA
 ;;HIV-MEDICATIONS^HIV-M
 ;;HIV-NUTRITION^HIV-N
 ;;HIV-SAFETY AND INJURY PREVENTION^HIV-S
 ;;HTN-EQUIPMENT^HTN-EQ
 ;;HTH-ANATOMY AND PHYSIOLOGY^HTH-AP
 ;;HTH-COMPLICATIONS^HTH-C
 ;;HTH-DISEASE PROCESS^HTH-DP
 ;;HTH-FOLLOW-UP^HTH-FU
 ;;HTH-PATIENT INFORMATION LITERATURE^HTH-L
 ;;HTH-MEDICATIONS^HTH-M
 ;;HTH-NUTRITION^HTH-N
 ;;HTH-TESTS^HTH-TE
 ;;HTH-TREATMENT^HTH-TX
 ;;LTH-ANATOMY AND PHYSIOLOGY^LTH-AP
 ;;LTH-COMPLICATIONS^LTH-C
 ;;LTH-DISEASE PROCESS^LTH-DP
 ;;LTH-EXERCISE^LTH-EX
 ;;LTH-FOLLOW-UP^LTH-FU
 ;;LTH-PATIENT INFORMATION LITERATURE^LTH-L
 ;;LTH-LIFESTYLE ADAPTIONS^LTH-LA
 ;;LTH-MEDICATIONS^LTH-M
 ;;LTH-NUTRITION^LTH-N
 ;;LTH-TESTS^LTH-TE
 ;;IM-COMPLICATIONS^IM-C
 ;;IGT-COMPLICATION^IGT-C
 ;;IGT-DISEASE PROCESS^IGT-DP
 ;;IGT-EXERCISE^IGT-EX
 ;;IGT-FOLLOW-UP^IGT-FU
 ;;IGT-PATIENT INFORMATION LITERATURE^IGT-L
 ;;IGT-LIFESTYLE ADAPTATIONS^IGT-LA
 ;;IGT-NUTRITION^IGT-N
 ;;IGT-PREVENTION^IGT-P
 ;;IGT-TESTS^IGT-TE
 ;;INJ-CAST CARE^INJ-CC
 ;;INJ-EQUIPMENT^INJ-EQ
 ;;INJ-EXERCISE^INJ-EX
 ;;INJ-HOME MANAGEMENT^INJ-HM
 ;;INJ-PAIN MANAGEMENT^INJ-PM
 ;;KD-DISEASE PROCESS^KD-DP
 ;;KD-HOME MANAGEMENT^KD-HM
 ;;KD-LIFESTYLE ADAPTIONS^KD-LA
 ;;KD-TESTS^KD-TE
 ;;MH-BREAST EXAM^MH-BE
 ;;NF-COMPLICATIONS^NF-C
 ;;NF-DISEASE PROCESS^NF-DP
 ;;NF-FOLLOW-UP^NF-FU
 ;;NF-PATIENT INFORMATION LITERATURE^NF-L
 ;;NF-MEDICATIONS^NF-M
 ;;NF-PREVENTION^NF-P
 ;;NF-TESTS^NF-TE
 ;;ND-EQUIPMENT^ND-EQ
 ;;ND-PAIN MANAGEMENT^ND-PM
 ;;OBS-MEDICATIONS^OBS-M
 ;;ODM-MEDICATIONS^ODM-M
 ;;ODM-PAIN MANAGEMENT^ODM-PM
 ;;OS-HOME MANAGEMENT^OS-HM
 ;;OS-PAIN MANAGEMENT^OS-PM
 ;;OM-PREVENTION^OM-P
 ;;OM-PAIN MANAGEMENT^OM-PM
 ;;PC-PAIN MANAGEMENT^PC-PM
 ;;PD-ANATOMY AND PHYSIOLOGY^PD-AP
 ;;PD-COMPLICATIONS^PD-C
 ;;PD-MEDICATIONS^PD-M
 ;;PD-NUTRITION^PD-N
 ;;PD-PAIN MANAGEMENT^PD-PM
 ;;PD-TESTS^PD-TE
 ;;PVD-COMPLICATIONS^PVD-C
 ;;PVD-HOME MANAGEMENT^PVD-HM
 ;;PVD-PREVENTION^PVD-P
 ;;PVD-PAIN MANAGEMENT^PVD-PM
 ;;PT-EQUIPMENT^PT-EQ
 ;;PT-NUTRITION^PT-N
 ;;PMN-COMPLICATIONS^PMN-C
 ;;PMN-DISEASE PROCESS^PMN-DP
 ;;PMN-EXERCISE^PMN-EX
 ;;PMN-FOLLOW-UP^PMN-FU
 ;;PMN-INCENTIVE SPIROMETRY^PMN-IS
 ;;PMN-PATIENT INFORMATION LITERATURE^PMN-L
 ;;PMN-MEDICATIONS^PMN-M
 ;;PMN-NUTRITION^PMN-N
 ;;PMN-PREVENTION^PMN-P
 ;;PMN-PAIN MANAGEMENT^PMN-PM
 ;;PMN-TESTS^PMN-TE
 ;;PMN-TREATMENT^PMN-TX
 ;;POI-FOLLOW-UP^POI-FU
 ;;POI-INFORMATION^POI-I
 ;;POI-PATIENT INFORMATION LITERATURE^POI-L
 ;;POI-PREVENTION^POI-P
 ;;POI-TESTS^POI-TE
 ;;POI-TREATMENT^POI-TX
 ;;PP-MEDICATIONS^PP-M
 ;;PP-PAIN MANAGEMENT^PP-PM
 ;;PN-CHEMICAL DEPENDENCY^PN-CD
 ;;PN-PAIN MANAGEMENT^PN-PM
 ;;PL-PAIN MANAGEMENT^PL-PM
 ;;RST-EQUIPMENT^RST-EQ
 ;;RST-PATIENT INFORMATION LITERATURE^RST-L
 ;;RST-SAFETY AND INJURY PREVENTION^RST-S
 ;;STD-COMPLICATIONS^STD-C
 ;;STD-MEDICATIONS^STD-M
 ;;ST-COMPLICATIONS^ST-C
 ;;ST-DISEASE PROCESS^ST-DP
 ;;ST-FOLLOW-UP^ST-FU
 ;;ST-PATIENT INFORMATION LITERATURE^ST-L
 ;;ST-MEDICATIONS^ST-M
 ;;ST-PREVENTION^ST-P
 ;;ST-PAIN MANAGEMENT^ST-PM
 ;;ST-TESTS^ST-TE
 ;;SPE-COMPLICATIONS^SPE-C
 ;;SPE-PAIN MANAGEMENT^SPE-PM
 ;;UC-COMPLICATIONS^UC-C
 ;;UC-DISEASE PROCESS^UC-DP
 ;;UC-FOLLOW-UP^UC-FU
 ;;UC-PATIENT INFORMATION LITERATURE^UC-L
 ;;UC-MEDICATION^UC-M
 ;;UC-NUTRITION^UC-N
 ;;UC-PREVENTION^UC-P
 ;;UC-PAIN MANAGEMENT^UC-PM
 ;;UC-TESTS^UC-TE
 ;;UC-TREATMENT^UC-TX
 ;;URI-DISEASE PROCESS^URI-DP
 ;;URI-FOLLOW-UP^URI-FU
 ;;URI-HOME MANAGEMENT^URI-HM
 ;;URI-PATIENT INFORMATION LITERATURE^URI-L
 ;;URI-MEDICATION^URI-M
 ;;URI-PREVENTION^URI-P
 ;;UTI-PAIN MANAGEMENT^UTI-PM
 ;;WH-NUTRITION^WH-N
 ;;WH-TESTS^WH-TE
 ;;END
 ;
EDTMOD ;;EDUCATION TOPICS CHANGES, FROM THE PEP COMMITTEE: NAME^MNEMONIC
 ;;FROM^EOL-PSYCHOTHERAPY^EOL-PS
 ;;TO  ^EOL-PSYCHOTHERAPY^EOL-PSY
 ;;END
 ;
PRINT ;
 NEW C
 S C=0
 F %=1:1 S X=$P($T(EDTADD+%),";",3) Q:X="END"  W !,$P(X,"^",2),?10,$P(X,"^",1) S C=C+1
 W !!,C," topics."
 Q
 ;

AUM1104M
AUM1104M ; IHS/RPMSDBA/GTH -  BACKGROUND VALUES FOR STANDARD TABLE UPDATES, EDUCATION TOPICS 2001 ; [ 05/24/2001  10:55 AM ]
 ;;01.1;TABLE MAINTENANCE;**4**;DEC 6,2000
 ;
VAL(X,%,Y) ;EP - return background info.
 I X["AREA" Q $T(@%)
 S Y=0
 I X["SU" D  Q Y
 . NEW C,T
 . F C=1:1 S T=$P($T(SU+C),";",3) Q:T="END"  I $P(T,U,1,2)=($E(%,1,2)_U_$E(%,3,4)) S Y=1_";;"_T Q
 .Q
 I '(X["CTY") Q 0
 NEW C,T
 F C=1:1 S T=$P($T(COUNTY+C),";",3) Q:T="END"  I $P(T,U,1,2)=($E(%,1,2)_U_$E(%,3,4)) S Y=1_";;"_T Q
 Q Y
 ;
AREA ; CODE^NAME^PREFIX/REGION^CAN PREFIX
 ;;END
 ;
SU ; AREA^SU^NAME
 ;;END
 ;
COUNTY ; STATE^COUNTY^NAME
 ;;END
 ;