APSQAC01.m

APSQAC01 ;IHS/ITSC/POC/ENM - PRE INIT TO DELETE APSP APSP CONTROL (9009033) AND [ 08/29/2003  3:07 PM ]

 ;;6.0;IHS PHARMACY MODIFICATIONS;**4**;AUG 29, 2003

 ;PRESCRIPTION (52) DATA DICTIONARIES!!

 Q

DEL ;DELETE THE DDS!

 F DIU=9009033,52 D

 .S DIU(0)=""

 .D EN^DIU2

 .K DIU

 Q

 ;

ADD ;ADD OPTIONS

 N OPTION

 F OPTION="APSQ AAC IMPORT","APSQ AAC ERRORS","APSQ AAC NO AAC" D

 .S X=$$ADD^XPDMENU("PSO MAINTENANCE",OPTION,$S(OPTION["IMPORT":"AAC",OPTION["ERRORS":"ERR",OPTION["NO AAC":"NONE",1:""))

 .D:'X BMES^XPDUTL("OPTION "_OPTION_" WAS NOT ADDED TO THE PSO MAINTENANCE MENU-GOT A PROBLEM!")

 .Q

ENMEP ;EP

 ;STUFF APSA AWP/PMI STATUS OPTION

 D ^APSPOSTB

 Q

APSQAC01  ;IHS/ITSC/POC/ENM - PRE INIT TO DELETE APSP APSP CONTROL (9009033) AND [ 08/29/2003  3:07 PM ]

 +1       ;;6.0;IHS PHARMACY MODIFICATIONS;**4**;AUG 29, 2003

 +2       ;PRESCRIPTION (52) DATA DICTIONARIES!!

 +3        QUIT 

DEL       ;DELETE THE DDS!

 +1        FOR DIU=9009033,52

               Begin DoDot:1

 +2                SET DIU(0)=""

 +3                DO EN^DIU2

 +4                KILL DIU

               End DoDot:1

 +5        QUIT 

 +6       ;

ADD       ;ADD OPTIONS

 +1        NEW OPTION

 +2        FOR OPTION="APSQ AAC IMPORT","APSQ AAC ERRORS","APSQ AAC NO AAC"

               Begin DoDot:1

 +3                SET X=$$ADD^XPDMENU("PSO MAINTENANCE",OPTION,$SELECT(OPTION["IMPORT":"AAC",OPTION["ERRORS":"ERR",OPTION["NO AAC":"NONE",1:""))

 +4                IF 'X

                       DO BMES^XPDUTL("OPTION "_OPTION_" WAS NOT ADDED TO THE PSO MAINTENANCE MENU-GOT A PROBLEM!")

 +5                QUIT 

               End DoDot:1

ENMEP     ;EP

 +1       ;STUFF APSA AWP/PMI STATUS OPTION

 +2        DO ^APSPOSTB

 +3        QUIT