PSO630PI.m

PSO630PI ;BIRM/SJA - PSO*7*630 Post-install routine ;1/19/21  16:19

 ;;7.0;OUTPATIENT PHARMACY;**630**;DEC 1997;Build 26

 ;

 ;1) Adding the PRE09 Data Element for Provider DETOX Number to ASAP

 ;   (American Society for Automation in Pharmacy) standard version 4.2

 ;2) Updating the OE/RR NOTIFICATIONS File 100.9 for 75 and 76

 ;3) Adding a standard menu with five items

 ;

POST ;

 N V,S,D,E,L

 S V="VER",S="SEG",D="DAT",E="DES",L="VAL",U="^"

 S ^PS(58.4,1,V,7,S,4,D,0)="^58.400111I^3^3"

 S ^PS(58.4,1,V,7,S,4,D,3,0)="PRE09^Provider DETOX Number^AN^9^9^O"

 S ^PS(58.4,1,V,7,S,4,D,3,E,0)="^58.4001111^3^3^3210111^^"

 S ^PS(58.4,1,V,7,S,4,D,3,E,1,0)="Provider's DETOX NUMBER is transmitted to the state when the NDC# for the "

 S ^PS(58.4,1,V,7,S,4,D,3,E,2,0)="prescribed drug contains Buprenorphine and is NOT represented by a "

 S ^PS(58.4,1,V,7,S,4,D,3,E,3,0)="product listed in the PSS BUPRENORPHINE PAIN VAPRODS parameter."

 S ^PS(58.4,1,V,7,S,4,D,3,L,0)="^58.410111^1^1^3210108^^"

 S ^PS(58.4,1,V,7,S,4,D,3,L,1,0)="$$PRE09^PSOASAP0()"

 S ^PS(58.4,1,V,7,S,4,D,"B","PRE09",3)=""

 ;

 ;Update OE/RR NOTIFICATIONS File 100.9

 S $P(^ORD(100.9,75,0),U,1)="PIV Certificate Revoked"

 S $P(^ORD(100.9,75,0),U,3)="Rx NOT processed: PIV Card Certificate Revoked"

 S $P(^ORD(100.9,76,0),U,1)="PIV Certificate Expired"

 S $P(^ORD(100.9,76,0),U,3)="Rx processed: PIV Card Cert Expired - NO ACTION REQ"

 ;

 D MENU

 Q

 ;

MENU ;

 N MENU,OPTION,CHECK,CHOICE,SYN,ORD,TYPE,OFF,UPDATE

 S TYPE="MENUADD" F OFF=1:1 S CHOICE=$P($T(@TYPE+OFF),";;",2) Q:CHOICE="DONE"  D

 . S OPTION=$P(CHOICE,"^"),MENU=$P(CHOICE,"^",2),SYN=$P(CHOICE,"^",3),ORD=$P(CHOICE,"^",4)

 . S CHECK=$$ADD^XPDMENU(MENU,OPTION,SYN,ORD)

 . D BMES^XPDUTL(">>> "_OPTION_" Option"_$S('CHECK:" created",1:" added to "_MENU)_" <<<")

 S OPTION=$$LKOPT^XPDMENU("PSO MBM-VPS PHARMACY MENU") Q:'+OPTION

 S UPDATE(19,OPTION_",",1)="MbM-VPS Pharmacy Users Menu"

 D FILE^DIE("","UPDATE")

 D BMES^XPDUTL("MbM-VPS Pharmacy Menu Options added")

 Q

 ;

MENUADD ; Menu items to be added

 ;;PSO MBM-VPS PHARMACY MENU^^VPS^

 ;;PSO LMOE FINISH^PSO MBM-VPS PHARMACY MENU^C^1

 ;;PSO LM BACKDOOR ORDERS^PSO MBM-VPS PHARMACY MENU^P^2

 ;;PSO VIEW^PSO MBM-VPS PHARMACY MENU^V^3

 ;;PSS LOOK^PSO MBM-VPS PHARMACY MENU^L^4

 ;;PSO MBM-VPS PRODUCTIVITY RPT^PSO MBM-VPS PHARMACY MENU^R^5

 ;;DONE

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSO630PI   2362     printed  Apr 09, 2024@21:27:21                                                                                                                                                                                                    Page 2

PSO630PI  ;BIRM/SJA - PSO*7*630 Post-install routine ;1/19/21  16:19

 +1       ;;7.0;OUTPATIENT PHARMACY;**630**;DEC 1997;Build 26

 +2       ;

 +3       ;1) Adding the PRE09 Data Element for Provider DETOX Number to ASAP

 +4       ;   (American Society for Automation in Pharmacy) standard version 4.2

 +5       ;2) Updating the OE/RR NOTIFICATIONS File 100.9 for 75 and 76

 +6       ;3) Adding a standard menu with five items

 +7       ;

POST      ;

 +1        NEW V,S,D,E,L

 +2        SET V="VER"

           SET S="SEG"

           SET D="DAT"

           SET E="DES"

           SET L="VAL"

           SET U="^"

 +3        SET ^PS(58.4,1,V,7,S,4,D,0)="^58.400111I^3^3"

 +4        SET ^PS(58.4,1,V,7,S,4,D,3,0)="PRE09^Provider DETOX Number^AN^9^9^O"

 +5        SET ^PS(58.4,1,V,7,S,4,D,3,E,0)="^58.4001111^3^3^3210111^^"

 +6        SET ^PS(58.4,1,V,7,S,4,D,3,E,1,0)="Provider's DETOX NUMBER is transmitted to the state when the NDC# for the "

 +7        SET ^PS(58.4,1,V,7,S,4,D,3,E,2,0)="prescribed drug contains Buprenorphine and is NOT represented by a "

 +8        SET ^PS(58.4,1,V,7,S,4,D,3,E,3,0)="product listed in the PSS BUPRENORPHINE PAIN VAPRODS parameter."

 +9        SET ^PS(58.4,1,V,7,S,4,D,3,L,0)="^58.410111^1^1^3210108^^"

 +10       SET ^PS(58.4,1,V,7,S,4,D,3,L,1,0)="$$PRE09^PSOASAP0()"

 +11       SET ^PS(58.4,1,V,7,S,4,D,"B","PRE09",3)=""

 +12      ;

 +13      ;Update OE/RR NOTIFICATIONS File 100.9

 +14       SET $PIECE(^ORD(100.9,75,0),U,1)="PIV Certificate Revoked"

 +15       SET $PIECE(^ORD(100.9,75,0),U,3)="Rx NOT processed: PIV Card Certificate Revoked"

 +16       SET $PIECE(^ORD(100.9,76,0),U,1)="PIV Certificate Expired"

 +17       SET $PIECE(^ORD(100.9,76,0),U,3)="Rx processed: PIV Card Cert Expired - NO ACTION REQ"

 +18      ;

 +19       DO MENU

 +20       QUIT 

 +21      ;

MENU      ;

 +1        NEW MENU,OPTION,CHECK,CHOICE,SYN,ORD,TYPE,OFF,UPDATE

 +2        SET TYPE="MENUADD"

           FOR OFF=1:1

               SET CHOICE=$PIECE($TEXT(@TYPE+OFF),";;",2)

               if CHOICE="DONE"

                   QUIT 

               Begin DoDot:1

 +3                SET OPTION=$PIECE(CHOICE,"^")

                   SET MENU=$PIECE(CHOICE,"^",2)

                   SET SYN=$PIECE(CHOICE,"^",3)

                   SET ORD=$PIECE(CHOICE,"^",4)

 +4                SET CHECK=$$ADD^XPDMENU(MENU,OPTION,SYN,ORD)

 +5                DO BMES^XPDUTL(">>> "_OPTION_" Option"_$SELECT('CHECK:" created",1:" added to "_MENU)_" <<<")

               End DoDot:1

 +6        SET OPTION=$$LKOPT^XPDMENU("PSO MBM-VPS PHARMACY MENU")

           if '+OPTION

               QUIT 

 +7        SET UPDATE(19,OPTION_",",1)="MbM-VPS Pharmacy Users Menu"

 +8        DO FILE^DIE("","UPDATE")

 +9        DO BMES^XPDUTL("MbM-VPS Pharmacy Menu Options added")

 +10       QUIT 

 +11      ;

MENUADD   ; Menu items to be added

 +1       ;;PSO MBM-VPS PHARMACY MENU^^VPS^

 +2       ;;PSO LMOE FINISH^PSO MBM-VPS PHARMACY MENU^C^1

 +3       ;;PSO LM BACKDOOR ORDERS^PSO MBM-VPS PHARMACY MENU^P^2

 +4       ;;PSO VIEW^PSO MBM-VPS PHARMACY MENU^V^3

 +5       ;;PSS LOOK^PSO MBM-VPS PHARMACY MENU^L^4

 +6       ;;PSO MBM-VPS PRODUCTIVITY RPT^PSO MBM-VPS PHARMACY MENU^R^5

 +7       ;;DONE