APSEPOST.m

APSEPOST ; IHS/DSD/ENM - ADD PMI OPTIONS TO PSO MENU'S ;  [ 06/11/2001  1:29 PM ]

 ;;6.1;IHS PHARMACY MODIFICATIONS;**1**;04/11/01

EP ;

 W !!,"Now, I'm going to add the following menu options to the 'PSO RX'",!,"Menu Option",!,?10,"PRINT DRUG MEDICATION SHEET (APSE PMI DRUG)"

 W !,?10,"PRINT PATIENT MEDICATION SHEET (APSP PMI PATIENT)",!,"........One moment please!",!! H 3

 S M1="PSO RX"

 ;APSP PATIENT INSTRUCTIONS

 S DIC("P")=$P(^DD(19,10,0),"^",2) ;GET MENU SUB FILE NBR

 S DA=$O(^DIC(19,"B","APSE PMI DRUG",0)) ;item rec nbr

 S DIC("DR")="2///DPMI" ;synonym

 S DA(1)=$O(^DIC(19,"B","PSO RX",0)) ;main option nbr

 D PT1

 ;APSP INFORMATION MENU

 S DIC("P")=$P(^DD(19,10,0),"^",2) ;GET MENU SUB FILE NBR

 S DA=$O(^DIC(19,"B","APSP PMI PATIENT",0)) ;item rec nbr

 S DIC("DR")="2///PMI" ;synonym

 S DA(1)=$O(^DIC(19,"B","PSO RX",0)) ;main option nbr

 D PT1

 W !!,"OK, I'm done!",!!

 Q

PT1 S APSPN=$P(^DIC(19,DA,0),"^",1) ;name of item option

 I 'DA(1) W !!,*7,*7,"*** The "_APSPN_" option has not been added to vthe"_M1_" menu",!,"    because the "_M1_" menu does not exist on your system. Install"

 I  W !,"    the "_M1_" menu then rerun this routine again." G EX

 S THERE=$O(^DIC(19,DA(1),10,"B",DA,0))

 I THERE W !,*7,*7,"The "_APSPN_" option has already been added to the "_M1_" menu.",!! G EX

 S X=DA,DIC="^DIC(19,"_DA(1)_",10,",DIC(0)="LMZ" K DD,DO D FILE^DICN K DIC

 W !,APSPN_" Option added to "_M1_" menu!"

EX K DA,THERE,X,Y,APSPN Q

 Q

APSEPOST  ; IHS/DSD/ENM - ADD PMI OPTIONS TO PSO MENU'S ;  [ 06/11/2001  1:29 PM ]

 +1       ;;6.1;IHS PHARMACY MODIFICATIONS;**1**;04/11/01

EP        ;

 +1        WRITE !!,"Now, I'm going to add the following menu options to the 'PSO RX'",!,"Menu Option",!,?10,"PRINT DRUG MEDICATION SHEET (APSE PMI DRUG)"

 +2        WRITE !,?10,"PRINT PATIENT MEDICATION SHEET (APSP PMI PATIENT)",!,"........One moment please!",!!

           HANG 3

 +3        SET M1="PSO RX"

 +4       ;APSP PATIENT INSTRUCTIONS

 +5       ;GET MENU SUB FILE NBR

           SET DIC("P")=$PIECE(^DD(19,10,0),"^",2)

 +6       ;item rec nbr

           SET DA=$ORDER(^DIC(19,"B","APSE PMI DRUG",0))

 +7       ;synonym

           SET DIC("DR")="2///DPMI"

 +8       ;main option nbr

           SET DA(1)=$ORDER(^DIC(19,"B","PSO RX",0))

 +9        DO PT1

 +10      ;APSP INFORMATION MENU

 +11      ;GET MENU SUB FILE NBR

           SET DIC("P")=$PIECE(^DD(19,10,0),"^",2)

 +12      ;item rec nbr

           SET DA=$ORDER(^DIC(19,"B","APSP PMI PATIENT",0))

 +13      ;synonym

           SET DIC("DR")="2///PMI"

 +14      ;main option nbr

           SET DA(1)=$ORDER(^DIC(19,"B","PSO RX",0))

 +15       DO PT1

 +16       WRITE !!,"OK, I'm done!",!!

 +17       QUIT 

PT1       ;name of item option

           SET APSPN=$PIECE(^DIC(19,DA,0),"^",1)

 +1        IF 'DA(1)

               WRITE !!,*7,*7,"*** The "_APSPN_" option has not been added to vthe"_M1_" menu",!,"    because the "_M1_" menu does not exist on your system. Install"

 +2       IF $TEST

               WRITE !,"    the "_M1_" menu then rerun this routine again."

               GOTO EX

 +3        SET THERE=$ORDER(^DIC(19,DA(1),10,"B",DA,0))

 +4        IF THERE

               WRITE !,*7,*7,"The "_APSPN_" option has already been added to the "_M1_" menu.",!!

               GOTO EX

 +5        SET X=DA

           SET DIC="^DIC(19,"_DA(1)_",10,"

           SET DIC(0)="LMZ"

           KILL DD,DO

           DO FILE^DICN

           KILL DIC

 +6        WRITE !,APSPN_" Option added to "_M1_" menu!"

EX         KILL DA,THERE,X,Y,APSPN

           QUIT 

 +1        QUIT