3:56 PM  11-MAY-99
AUM v 99.1 Patch 5.  Patient Education Protocols.  Restore 5 routines and DO ^AUM9105.
A9AUM5
A9AUM5 ; IHS/ASDST/GTH - STANDARD TABLE UPDATES, PT EDUC PROTOCOLS, RPI ; [ 05/11/1999   3:55 PM ]
 ;;99.1;TABLE MAINTENANCE;**5**;NOV 6,1998
 ;
 D START^AUM9105
INTERACT ;EP - Delete routines from interactive call.
 Q:'$L($G(^%ZOSF("DEL")))
 NEW AUM,X
 F AUM=1:1 S X=$P($T(DEL+AUM),";",3) Q:X=""  X ^%ZOSF("DEL") I '$D(ZTQUEUED) W !,X,$E("...........",1,11-$L(X)),"<poof'd>"
 Q
 ;
DEL ;     
 ;;A9AUM4
 ;;AUM9105
 ;;AUM91051
 ;;AUM9105A
 ;;AUM9105M

AUM9105
AUM9105 ; IHS/ASDST/GTH - STANDARD TABLE UPDATES, PT EDUC PROTOCOLS ; [ 05/11/1999   3:55 PM ]
 ;;99.1;TABLE MAINTENANCE;**5**;NOV 6,1998
 ;
 I '$G(DUZ) W !,"DUZ UNDEFINED OR ZERO.",! Q
 D HOME^%ZIS,DT^DICRW,HELP("INTRO")
 S (DIR(0),DIR("B"))="Y"
 S DIR("A")="Do you want to queue the update to TaskMan"
 S DIR("??")="^D HELP^AUM9105(""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 AUM9105
 S X=+Y
 D H^%DTC
 S ZTDTH=%H_","_%T
 S ZTRTN="START^AUM9105",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("AUM9105",$J)
 D START^AUM91051
 S XMSUB=$P($P($T(+1),";",2)," ",4,99),XMDUZ=$S($G(DUZ):DUZ,1:.5),XMTEXT="^TMP(""AUM9105"",$J,",XMY(1)="",XMY(DUZ)=""
 D ^XMD
 KILL ^TMP("AUM9105",$J)
 I $D(ZTQUEUED) S ZTREQ="@" Q
 W !!,"The results are in your MailMan 'IN' basket.",!
 I $L($T(DIR^XBDIR)),$$DIR^XBDIR("Y","Want me to delete the routines in this patch","Y") G INTERACT^A9AUM5
 Q
 ;
INTRO ;
 ;;This updates standard tables according to the additions to the
 ;;EDUCATION TOPICS file specified by the committee for Patient
 ;;Education protocols. Please see the notes file for further
 ;;documentation.
 ;; 
 ;;A standard message will be produced by this update, listing the
 ;;additions to the EDUCATION TOPICS standard table.
 ;;
 ;;###
 ;
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
 ;

AUM91051
AUM91051 ; IHS/ASDST/GTH - STANDARD TABLE UPDATES, PT EDUC PROTOCOLS ; [ 05/11/1999   3:55 PM ]
 ;;99.1;TABLE MAINTENANCE;**5**;NOV 6,1998
 ;
 Q
 ;
START ;EP
 ;
 NEW A,C,DIC,DIE,DLAYGO,DR,E,L,M,N,O,P,R,S,T
 ;
 S E(0)="ERROR : ",E(1)="NOT ADDED : "
 D RSLT($J("",5)_$P($T(UPDATE^AUM9105A),";",3))
 D DASH,EDTADD,DASH
 Q
 ;
 ; -----------------------------------------------------
 ;
ADDOK D RSLT($J("",5)_"Added : "_L) Q
ADDFAIL D RSLT($J("",5)_E(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)_E(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^AUM9105A),";",3),":",1)
IEN(X,%,Y) ;
 S Y=$O(@(X_"""C"",%,0)"))
 I 'Y S Y=$$VAL^AUM9105M(X,%) I Y NEW Z S Z=E D  S:Y<0 Y="" S E=Z
 . NEW A,C,L,M,N,O,P,R,S,V,%
 . S L=Y
 . I X["AREA" NEW X D RSLT("(Add Missing Area)") D ADDAREA D RSLT("(END Add Missing Area)") Q
 . I X["SU" NEW X D RSLT("(Add Missing SU)") D ADDSU D RSLT("(END Add Missing SU)") Q
 . I X["CTY" NEW X D RSLT("(Add Missing County)") D ADDCNTY D RSLT("(END Add Missing County)") Q
 .Q
 D:'Y RSLT($J("",5)_E(0)_$P(@(X_"0)"),U)_" DOES NOT EXIST => "_%)
 Q +Y
DIK NEW A,C,E,L,M,N,O,P,R,S,T D ^DIK KILL DIK Q
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
MODOK D RSLT($J("",5)_"Changed : "_L) Q
RSLT(%) S ^(0)=$G(^TMP("AUM9105",$J,0))+1,^(^(0))=% W:'$D(ZTQUEUED) !,% Q
ZEROTH(A,B,C,D,E,F,G,H,I,J,K) ; Return 0th node.  A is file #, rest fields.
 I '$G(A) Q -1
 I '$G(B) Q -1
 F %=67:1:75 Q:'$G(@($C(%)))  S A=+$P(^DD(A,B,0),U,2),B=@($C(%))
 I 'A!('B) Q -1
 I '$D(^DD(A,B,0)) Q -1
 Q U_$P(^DD(A,B,0),U,2)
 ;
 ; -----------------------------------------------------
 ;
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^AUM9105A) 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(E(1)_"TOPIC EXISTS => "_N) Q
 I $D(^AUTTEDT("C",O)) D RSLT(E(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
 ;

AUM9105A
AUM9105A ; IHS/ASDST/GTH - STANDARD TABLE UPDATES, PT EDUC PROTOCOLS ; [ 05/11/1999   3:55 PM ]
 ;;99.1;TABLE MAINTENANCE;**5**;NOV 6,1998
 ;
UPDATE ;;ADDITIONAL PATIENT EDUCATION PROTOCOLS - NOVEMBER 1998
 ;
EDTADD ; EDUCATION TOPICS : NAME^MNEMONIC
 ;;BF-ANATOMY AND PHYSIOLOGY^BF-AP
 ;;BF-BENEFITS OF BREAST-FEEDING^BF-BB
 ;;BF-BREAST CARE^BF-BC
 ;;BF-BREAST-FEEDING POSITIONS^BF-BP
 ;;BF-COLLECTION AND STORAGE^BF-CS
 ;;BF-FOLLOW-UP^BF-FU
 ;;BF-HUNGER CUES^BF-HC
 ;;BF-LATCH-ON^BF-ON
 ;;BF-LIFESTYLE ADAPTATION^BF-LA
 ;;BF-MILK INTAKE^BF-MK
 ;;BF-PATIENT LITERATURE^BF-L
 ;;BH-DISEASE PROCESS^BH-DP
 ;;BH-FOLLOW-UP^BH-FU
 ;;BH-MEDICATIONS^BH-M
 ;;BH-PATIENT LITERATURE^BH-L
 ;;BH-PSYCHOTHERAPY^BH-PSY
 ;;BH-WELLNESS^BH-WL
 ;;BT-COMPLICATIONS^BT-C
 ;;BT-DISEASE PROCESS^BT-DP
 ;;BT-FOLLOW-UP^BT-FU
 ;;BT-GROWTH AND DEVELOPMENT^BT-GD
 ;;BT-LIFESTYLE ADAPTATION^BT-LA
 ;;BT-PATIENT LITERATURE^BT-L
 ;;BT-PREVENTION^BT-P
 ;;CAD-DISEASE PROCESS^CAD-DP
 ;;CAD-FOLLOW-UP^CAD-FU
 ;;CAD-LIFESTYLE ADAPTATION^CAD-LA
 ;;CAD-MEDICATIONS^CAD-M
 ;;CAD-NUTRITION^CAD-N
 ;;CAD-PATIENT LITERATURE^CAD-L
 ;;CAD-TESTS^CAD-TE
 ;;CAD-TREATMENT^CAD-TX
 ;;CDC-DISEASE PROCESS^CDC-DP
 ;;CDC-FOLLOW-UP^CDC-FU
 ;;CDC-PATIENT LITERATURE^CDC-L
 ;;CDC-PREVENTION^CDC-P
 ;;CD-COMPLICATIONS^CD-C
 ;;CD-DIET^CD-DT
 ;;CD-DISEASE PROCESS^CD-DP
 ;;CD-EXERCISE^CD-EX
 ;;CD-FOLLOW-UP^CD-FU
 ;;CD-LIFESTYLE ADAPTATION^CD-LA
 ;;CD-MEDICATIONS^CD-M
 ;;CD-NUTRITION^CD-N
 ;;CD-PATIENT LITERATURE^CD-L
 ;;CD-PREVENTION^CD-P
 ;;CHA-FOLLOW-UP^CHA-FU
 ;;CHA-NUTRITION^CHA-N
 ;;CHA-PARENTING^CHA-PA
 ;;CHA-PATIENT LITERATURE^CHA-L
 ;;CHA-SAFETY & INJURY PREVENTION^CHA-S
 ;;CHA-SEXUALITY^CHA-SX
 ;;CHA-WELLNESS^CHA-WL
 ;;CHF-DISEASE PROCESS^CHF-DP
 ;;CHF-FOLLOW-UP^CHF-FU
 ;;CHF-LIFESTYLE ADAPTATION^CHF-LA
 ;;CHF-MEDICATIONS^CHF-M
 ;;CHF-NUTRITION^CHF-N
 ;;CHF-PATIENT LITERATURE^CHF-L
 ;;CHI-DIET^CHI-DT
 ;;CHI-FOLLOW-UP^CHI-FU
 ;;CHI-GROWTH AND DEVELOPMENT^CHI-GD
 ;;CHI-NUTRITION^CHI-N
 ;;CHI-PARENTING^CHI-PA
 ;;CHI-PATIENT LITERATURE^CHI-L
 ;;CHI-SAFETY & INJURY PREVENTION^CHI-S
 ;;CHI-SLEEPING^CHI-SP
 ;;CHN-DIET^CHN-DT
 ;;CHN-FOLLOW-UP^CHN-FU
 ;;CHN-GROWTH AND DEVELOPMENT^CHN-GD
 ;;CHN-INFORMATION^CHN-I
 ;;CHN-NUTRITION^CHN-N
 ;;CHN-PARENTING^CHN-PA
 ;;CHN-PATIENT LITERATURE^CHN-L
 ;;CHN-SAFETY & INJURY PREVENTION^CHN-S
 ;;CHP-FOLLOW-UP^CHP-FU
 ;;CHP-GROWTH AND DEVELOPMENT^CHP-GD
 ;;CHP-NUTRITION^CHP-N
 ;;CHP-PARENTING^CHP-PA
 ;;CHP-PATIENT LITERATURE^CHP-L
 ;;CHP-SAFETY & INJURY PREVENTION^CHP-S
 ;;CHS-DIET^CHS-DT
 ;;CHS-FOLLOW-UP^CHS-FU
 ;;CHS-GROWTH AND DEVELOPMENT^CHS-GD
 ;;CHS-NUTRITION^CHS-N
 ;;CHS-PARENTING^CHS-PA
 ;;CHS-PATIENT LITERATURE^CHS-L
 ;;CHS-SAFETY & INJURY PREVENTION^CHS-S
 ;;CHT-DIET^CHT-DT
 ;;CHT-FOLLOW-UP^CHT-FU
 ;;CHT-GROWTH AND DEVELOPMENT^CHT-GD
 ;;CHT-NUTRITION^CHT-N
 ;;CHT-PARENTING^CHT-PA
 ;;CHT-PATIENT LITERATURE^CHT-L
 ;;CHT-SAFETY & INJURY PREVENTION^CHT-S
 ;;CVA-DISEASE PROCESS^CVA-DP
 ;;CVA-FOLLOW-UP^CVA-FU
 ;;CVA-LIFESTYLE ADAPTATION^CVA-LA
 ;;CVA-MEDICATIONS^CVA-M
 ;;CVA-NUTRITION^CVA-N
 ;;CVA-PATIENT LITERATURE^CVA-L
 ;;CVA-TESTS^CVA-TE
 ;;CVA-TREATMENT^CVA-TX
 ;;DM-COMPLICATIONS^DM-C
 ;;DM-DISEASE PROCESS^DM-DP
 ;;DM-EXERCISE^DM-EX
 ;;DM-FOLLOW-UP^DM-FU
 ;;DM-FOOT CARE^DM-FTC
 ;;DM-HOME MANAGEMENT^DM-HM
 ;;DM-INFORMATIN^DM-I
 ;;DM-KIDNEY DISEASE^DM-KID
 ;;DM-LIFESTYLE ADAPTATIONS^DM-LA
 ;;DM-MEDICATIONS^DM-M
 ;;DM-NUTRITION^DM-N
 ;;DM-PATIENT LITERATURE^DM-L
 ;;DM-PREVENTION^DM-P
 ;;DP-FOLLOW-UP^DP-FU
 ;;DP-INFORMATION^DP-I
 ;;DP-PATIENT LITERATURE^DP-L
 ;;DV-DISEASE PROCESS^DV-DP
 ;;DV-FOLLOW-UP^DV-FU
 ;;DV-PATIENT LITERATURE^DV-L
 ;;DV-PREVENTION^DV-P
 ;;DV-SAFETY & INJURY PREVENTION^DV-S
 ;;DV-TREATMENT^DV-TX
 ;;DYS-COMPLICATIONS^DYS-C
 ;;DYS-DISEASE PROCESS^DYS-DP
 ;;DYS-FOLLOW-UP^DYS-FU
 ;;DYS-PATIENT LITERATURE^DYS-L
 ;;DYS-TESTS^DYS-TE
 ;;DYS-TREATMENT^DYS-TX
 ;;FP-ANATOMY AND PHYSIOLOGY^FP-AP
 ;;FP-DEPO MEDROXYPROGESTERONE IJ^FP-DPO
 ;;FP-DIAPHRAGM^FP-DIA
 ;;FP-FOAM AND CONDOMS^FP-FC
 ;;FP-FOLLOW-UP^FP-FU
 ;;FP-IMPLANT CONTRACEPTION^FP-IC
 ;;FP-INTRAUTERINE DEVICE^FP-IUD
 ;;FP-METHODS^FP-MT
 ;;FP-NUTRITION^FP-N
 ;;FP-ORAL CONTRACEPTIVES^FP-OC
 ;;FP-PATIENT LITERATURE^FP-L
 ;;FP-STERILIZATION^FP-ST
 ;;GER-DISEASE PROCESS^GER-DP
 ;;GER-FOLLOW-UP^GER-FU
 ;;GER-LIFESTYLE ADAPTATION^GER-LA
 ;;GER-PATIENT LITERATURE^GER-L
 ;;GER-TREATMENT^GER-TX
 ;;GL-DISEASE PROCESS^GL-DP
 ;;GL-FOLLOW-UP^GL-FU
 ;;GL-LASER THERAPY^GL-LT
 ;;GL-MEDICATIONS^GL-M
 ;;GL-PATIENT LITERATURE^GL-L
 ;;HTN-COMPLICATIONS^HTN-C
 ;;HTN-DIET^HTN-DT
 ;;HTN-DISEASE PROCESS^HTN-DP
 ;;HTN-EXERCISE^HTN-EX
 ;;HTN-FOLLOW-UP^HTN-FU
 ;;HTN-LIFESTYLE ADAPTATIONS^HTN-LA
 ;;HTN-MEDICATIONS^HTN-M
 ;;HTN-NUTRITION^HTN-N
 ;;HTN-PATIENT LITERATURE^HTN-L
 ;;IM-DEFICIENCY^IM-DEF
 ;;IM-FOLLOW-UP^IM-FU
 ;;IM-INFORMATION^IM-I
 ;;IM-PATIENT LITERATURE^IM-L
 ;;IM-PREVENTION^IM-P
 ;;IM-SCHEDULE^IM-SCH
 ;;INJ-FOLLOW-UP^INJ-FU
 ;;INJ-INFORMATION^INJ-I
 ;;INJ-PATIENT LITERATURE^INJ-L
 ;;INJ-PREVENTION^INJ-P
 ;;LIP-COMPLICATIONS^LIP-C
 ;;LIP-DISEASE PROCESS^LIP-DP
 ;;LIP-FOLLOW-UP^LIP-FU
 ;;LIP-LIFESTYLE ADAPTATION^LIP-LA
 ;;LIP-MEDICATIONS^LIP-M
 ;;LIP-NUTRITION^LIP-N
 ;;LIP-PATIENT LITERATURE^LIP-L
 ;;M-DRUG INTERACTION^M-DI
 ;;M-FOLLOW-UP^M-FU
 ;;M-INFORMATION^M-I
 ;;M-MEDICATION DISPENSE TO PROXY^M-PRX
 ;;M-PATIENT LITERATURE^M-L
 ;;MH-FOLLOW-UP^MH-FU
 ;;MH-HYGIENE^MH-HY
 ;;MH-PATIENT LITERATURE^MH-L
 ;;MH-PROSTATE HEALTH^MH-PRS
 ;;MH-REPRODUCTIVE SYSTEM^MH-RS
 ;;MH-TESTICULAR SELF-EXAM^MH-TSE
 ;;ND-DIET^ND-DT
 ;;ND-DISEASE PROCESS^ND-DP
 ;;ND-EXERCISE^ND-EX
 ;;ND-FOLLOW-UP^ND-FU
 ;;ND-LIFESTYLE ADAPTATION^ND-LA
 ;;ND-MEDICATION^ND-M
 ;;ND-NUTRITION^ND-N
 ;;ND-PATIENT LITERATURE^ND-L
 ;;ND-SAFETY & INJURY PREVENTION^ND-S
 ;;OBS-COMPLICATIONS^OBS-C
 ;;OBS-DIET^OBS-DT
 ;;OBS-DISEASE PROCESS^OBS-DP
 ;;OBS-EXERCISE^OBS-EX
 ;;OBS-FOLLOW-UP^OBS-FU
 ;;OBS-LIFESTYLE ADAPTATIONS^OBS-LA
 ;;OBS-NUTRITION^OBS-N
 ;;OBS-PATIENT LITERATURE^OBS-L
 ;;OBS-PREVENTION^OBS-P
 ;;OC-COMPLICATIONS^OC-C
 ;;OC-DISEASE PROCESS^OC-DP
 ;;OC-FOLLOW-UP^OC-FU
 ;;OC-PATIENT LITERATURE^OC-L
 ;;OC-TREATMENT^OC-TX
 ;;ODM-COMPLICATIONS^ODM-C
 ;;ODM-DISEASE PROCESS^ODM-DP
 ;;ODM-FOLLOW-UP^ODM-FU
 ;;ODM-LASER THERAPY^ODM-LT
 ;;ODM-LIFESTYLE ADAPTATION^ODM-LA
 ;;ODM-PATIENT LITERATURE^ODM-L
 ;;OM-COMPLICATIONS^OM-C
 ;;OM-DISEASE PROCESS^OM-DP
 ;;OM-FOLLOW-UP^OM-FU
 ;;OM-LIFESTYLE ADAPTATIONS^OM-LA
 ;;OM-MEDICATIONS^OM-M
 ;;OM-PATIENT LITERATURE^OM-L
 ;;OM-PRESSURE EQUALIZATION TUBES^OM-PET
 ;;PL-COMPLICATIONS^PL-C
 ;;PL-DIET^PL-DT
 ;;PL-DISEASE PROCESS^PL-DP
 ;;PL-EXERCISE^PL-EX
 ;;PL-FOLLOW-UP^PL-FU
 ;;PL-HOME MANAGEMENT^PL-HM
 ;;PL-LIFESTYLE ADAPTATION^PL-LA
 ;;PL-MEDICATIONS^PL-M
 ;;PL-METERED DOSE INHALER^PL-MDI
 ;;PL-NEBULIZER^PL-NEB
 ;;PL-NUTRITION^PL-N
 ;;PL-OXYGEN THERAPY^PL-O2
 ;;PL-PATIENT LITERATURE^PL-L
 ;;PL-PEAK FLOW METER^PL-PF
 ;;PL-SPACERS^PL-SPA
 ;;PL-SMOKING (TOBACCO)^PL-TO
 ;;PN-FIRST TRIMESTER^PN-1T
 ;;PN-FOLLOW-UP^PN-FU
 ;;PN-GESTATIONAL DIABETES^PN-GDM
 ;;PN-NUTRITION^PN-N
 ;;PN-PATIENT LITERATURE^PN-L
 ;;PN-POSTPARTUM^PN-PP
 ;;PN-PREGNANCY INDUCED HYPERTEN.^PN-PIH
 ;;PN-SECOND TRIMESTER^PN-2T
 ;;PN-THIRD TRIMESTER^PN-3T
 ;;PP-COMPLICATIONS^PP-C
 ;;PP-FOLLOW-UP^PP-FU
 ;;PP-INFORMATION^PP-I
 ;;PP-KEGEL EXERCISES^PP-KE
 ;;PP-PATIENT LITERATURE^PP-L
 ;;PVD-DISEASE PROCESS^PVD-DP
 ;;PVD-FOLLOW-UP^PVD-FU
 ;;PVD-LIFESTYLE ADAPTATION^PVD-LA
 ;;PVD-MEDICATIONS^PVD-M
 ;;PVD-NUTRITION^PVD-N
 ;;PVD-PATIENT LITERATURE^PVD-L
 ;;PVD-TESTS^PVD-TE
 ;;PVD-TREATMENT^PVD-TX
 ;;RD-COMPLICATIONS^RD-C
 ;;RD-DIET^RD-DT
 ;;RD-DISEASE PROCESS^RD-DP
 ;;RD-EXERCISE^RD-EX
 ;;RD-FOLLOW-UP^RD-FU
 ;;RD-LIFESTYLE ADAPTATION^RD-LA
 ;;RD-MEDICATIONS^RD-M
 ;;RD-NUTRITION^RD-N
 ;;RD-PAIN MANAGEMENT^RD-PM
 ;;RD-PATIENT LITERATURE^RD-L
 ;;SPE-FOLLOW-UP^SPE-FU
 ;;SPE-PATIENT LITERATURE^SPE-L
 ;;SPE-POSTOPERATIVE^SPE-PO
 ;;SPE-PREOPERATIVE^SPE-PR
 ;;STD-FOLLOW-UP^STD-FU
 ;;STD-INFORMATION^STD-I
 ;;STD-PATIENT LITERATURE^STD-L
 ;;STD-PREVENTION^STD-P
 ;;STD-TESTING^STD-T
 ;;STD-TREATMENT^STD-TX
 ;;TB-DIRECTLY OBSERVED THERAPY^TB-DOT
 ;;TB-DISEASE PROCESS^TB-DP
 ;;TB-FOLLOW-UP^TB-FU
 ;;TB-MEDICATIONS^TB-M
 ;;TB-PATIENT LITERATURE^TB-L
 ;;TB-PREVENTION^TB-P
 ;;TB-SCREENING SKIN TESTS^TB-PPD
 ;;TO-COMPLICATIONS^TO-C
 ;;TO-DISEASE PROCESS^TO-DP
 ;;TO-EXERCISE^TO-EX
 ;;TO-FOLLOW-UP^TO-FU
 ;;TO-LIFESTYLE ADAPTATION^TO-LA
 ;;TO-MEDICATIONS^TO-M
 ;;TO-PATIENT LITERATURE^TO-L
 ;;TO-QUIT^TO-QT
 ;;WH-BREAST EXAM^WH-BE
 ;;WH-FOLLOW-UP^WH-FU
 ;;WH-HYGIENE^WH-HY
 ;;WH-KEGEL EXERCISE^WH-KE
 ;;WH-MENOPAUSE^WH-MP
 ;;WH-MENSES^WH-MS
 ;;WH-OSTEOPOROSIS^WH-OS
 ;;WH-PAP SMEAR^WH-PAP
 ;;WH-PATIENT LITERATURE^WH-L
 ;;WH-PRE-MENSTRUAL SYNDROME^WH-PMS
 ;;WH-PROCEDURES^WH-PRO
 ;;WH-REPRODUCTIVE SYSTEM^WH-RS
 ;;WH-SEXUALLY TRANS. DISEASES^WH-STD
 ;;WL-DIET^WL-DT
 ;;WL-EXERCISE^WL-EX
 ;;WL-FOLLOW-UP^WL-FU
 ;;WL-HYGIENE^WL-HY
 ;;WL-LIFESTYLE ADAPTATION^WL-LA
 ;;WL-NUTRITION^WL-N
 ;;WL-PATIENT LITERATURE^WL-L
 ;;WL-SAFETY & INJURY PREVENTION^WL-S
 ;;WL-SCREENING^WL-SCR
 ;;WL-SEXUALITY^WL-SX
 ;;END
 ;
PRINT ;
 F %=1:1 S X=$P($T(EDTADD+%),";",3) Q:X="END"  W !,$P(X,"^",2),?10,$P(X,"^",1)
 Q
 ;

AUM9105M
AUM9105M ; IHS/ASDST/GTH -  BACKGROUND VALUES FOR STANDARD TABLE UPDATES, PT EDUC PROTOCOLS ; [ 05/11/1999   3:55 PM ]
 ;;99.1;TABLE MAINTENANCE;**5**;NOV 6,1998
 ;
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
 ;