PSO700PI ;ALB/ASF - eRx 700 POST INSTALL; 10/01/2022 11:24Am
;;7.0;OUTPATIENT PHARMACY;**700**;DEC 1997;Build 261
;
PRE ; Pre-Install Entry point
;
S DIK="^ORD(101,"
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS QUEUE HIDDEN ACTIONS MENU",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT QUEUE HIDDEN ACTIONS MENU",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL PATIENTS QUEUE HIDDEN ACTIONS MENU",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS RXCHANGEREQUEST ONLY",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS RXCHANGERESPONSE ONLY",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS RXFILL ONLY",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS RXRENAWLRESPONSE ONLY",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS RXRENEWALREQUEST ONLY",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS INBOUND ERROR ONLY",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS NEWRX ONLY",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS OUTBOUND ERROR ONLY",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS CANCELRX ONLY",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS CANCELRXRESPONSE ONLY",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS ALL MESSAGE TYPES",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS SHOW/HIDE DETAILS",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX PATIENT VALIDATION MENU",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX HIDDEN ACTIONS",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX PROVIDER VALIDATION MENU",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL PATIENTS CHANGE LOOK BACK DAYS",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL PATIENTS CHANGE VIEW",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL PATIENTS GROUP BY CS",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL PATIENTS NEXT PATIENT",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL PATIENTS QUEUE HIDDEN ACTIONS MENU",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL PATIENTS QUEUE MENU",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL PATIENTS REFRESH LIST",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL PATIENTS REMOVE FILTERS",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL PATIENTS RX VIEW SWITCH",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL PATIENTS SEARCH QUEUE",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL PATIENTS SELECT",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL PATIENTS SORT BY DOB",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL PATIENTS SORT BY ELAPSED DAYS",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL PATIENTS SORT BY PATIENT NAME",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS CHANGE LOOK BACK DAYS",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS CHANGE VIEW",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS GROUP BY CS",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS PATIENT CENTRIC VIEW SWITCH",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS QUEUE HIDDEN ACTIONS MENU",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS QUEUE MENU",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS REFRESH LIST",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS REMOVE FILTERS",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS SEARCH QUEUE",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS SELECT",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS SORT BY DRUG NAME",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS SORT BY PATIENT DOB",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS SORT BY PATIENT NAME",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS SORT BY PROVIDER NAME",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS SORT BY RECEIVED DATE",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS SORT BY STATUS",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX HISTORY LOG MENU",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX PATIENT VALIDATION MENU",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT BATCH HOLD",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT BATCH UNHOLD",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT CHANGE LOOK BACK DAYS",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT CHANGE VIEW",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT GROUP BY CS",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT MATCH PATIENT",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT NEXT PATIENT",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT QUEUE HIDDEN ACTIONS MENU",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT QUEUE MENU",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT SELECT",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT SHOW/HIDE DETAILS",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT SORT BY ALL MATCHES",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT SORT BY DRUG MATCH",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT SORT BY DRUG NAME",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT SORT BY ERX ID",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT SORT BY PATIENT MATCH",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT SORT BY PROVIDER MATCH",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT SORT BY PROVIDER NAME",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT SORT BY RECEIVED DATE",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT SORT BY STATUS",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT VALIDATE PATIENT",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE RXRENEWAL REQUEST",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT INCLUDE ALL STATUSES",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT JUMP TO BACKDOOR",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ENTER PROGRESS NOTES",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT SHOW/HIDE SIG",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT VERIFY PATIENT",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX VIEW HISTORY LOG",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX DRUG VALIDATION HIDDEN MENU",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX PATIENT ALLERGIES VIEW",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX PATIENT VALIDATION HIDDEN MENU",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX PATIENT ALLERGIES MENU",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX PATIENT ALLERGIES VISTA PATIENT",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX ALL RXS CHANGE LOOKBACK DAYS",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX SINGLE PATIENT REFRESH",0)) I DA D ^DIK
S DA=$O(^ORD(101,"B","PSO ERX UN-PROCESS",0)) I DA D ^DIK
Q
;
EN ; Entry Point
N DIC,DIK,DR,X,Y,BRIEF
D BMES^XPDUTL("Starting post-install for PSO*7*700")
;
I '$D(^PS(52.35,1)) D
. S ^PS(52.35,1,0)="ERX HOLDING QUEUE PREFERENCES"
. S ^PS(52.35,"B","ERX HOLDING QUEUE PREFERENCES",1)=""
. S $P(^PS(52.35,0),"^",3,4)="1^1"
;
S DIC="^PS(52.45,",DIC(0)=""
; New Hold codes
S X="HAL",BRIEF="NO PATIENT ALLERGY ASSESSMENT",TYPE="ERX" D ADD
S X="HEL",BRIEF="PATIENT ELIGIBILITY ISSUE",TYPE="ERX" D ADD
S X="HUR",BRIEF="UN-REMOVED",TYPE="ERX" D ADD
;
; Building "APATVPAT" x-reference
I '$D(^PS(52.49,"APATVPAT")) D
. S DIK="^PS(52.49,",DIK(1)=".04^APATVPAT" D ENALL^DIK
;
; Building "APRVVPRV" x-reference
I '$D(^PS(52.49,"APRVVPRV")) D
. S DIK="^PS(52.49,",DIK(1)="2.1^APRVVPRV" D ENALL^DIK
;
; Building "AVPAT" x-reference
I '$D(^PS(52.49,"AVPAT")) D
. S DIK="^PS(52.49,",DIK(1)=".05^AVPAT" D ENALL^DIK
;
; Building "AVPRV" x-reference
I '$D(^PS(52.49,"AVPRV")) D
. S DIK="^PS(52.49,",DIK(1)="2.3^AVPRV" D ENALL^DIK
;
; Building "ADRGVRX" x-reference
K ^PS(52.49,"ADRGVRX")
I '$D(^PS(52.49,"ADRGVRX")) D
. S DIK="^PS(52.49,",DIK(1)=".13^ADRGVRX" D ENALL^DIK
;
; Building "AMSGDTSTS" x-reference
I '$D(^PS(52.49,"AMSGDTSTS")) D
. S DIK="^PS(52.49,",DIK(1)=".03^AMSGDTSTS" D ENALL^DIK
;
D BMES^XPDUTL("Post-install for PSO*7*700 completed successfully")
Q
;
ADD ;add entry
I $D(^PS(52.45,"B",X)) Q
S DIC("DR")=".02///"_BRIEF_";.03///"_TYPE
D FILE^DICN
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSO700PI 8270 printed Apr 09, 2024@21:29:45 Page 2
PSO700PI ;ALB/ASF - eRx 700 POST INSTALL; 10/01/2022 11:24Am
+1 ;;7.0;OUTPATIENT PHARMACY;**700**;DEC 1997;Build 261
+2 ;
PRE ; Pre-Install Entry point
+1 ;
+2 SET DIK="^ORD(101,"
+3 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS QUEUE HIDDEN ACTIONS MENU",0))
IF DA
DO ^DIK
+4 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT QUEUE HIDDEN ACTIONS MENU",0))
IF DA
DO ^DIK
+5 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL PATIENTS QUEUE HIDDEN ACTIONS MENU",0))
IF DA
DO ^DIK
+6 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS RXCHANGEREQUEST ONLY",0))
IF DA
DO ^DIK
+7 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS RXCHANGERESPONSE ONLY",0))
IF DA
DO ^DIK
+8 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS RXFILL ONLY",0))
IF DA
DO ^DIK
+9 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS RXRENAWLRESPONSE ONLY",0))
IF DA
DO ^DIK
+10 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS RXRENEWALREQUEST ONLY",0))
IF DA
DO ^DIK
+11 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS INBOUND ERROR ONLY",0))
IF DA
DO ^DIK
+12 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS NEWRX ONLY",0))
IF DA
DO ^DIK
+13 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS OUTBOUND ERROR ONLY",0))
IF DA
DO ^DIK
+14 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS CANCELRX ONLY",0))
IF DA
DO ^DIK
+15 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS CANCELRXRESPONSE ONLY",0))
IF DA
DO ^DIK
+16 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS ALL MESSAGE TYPES",0))
IF DA
DO ^DIK
+17 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS SHOW/HIDE DETAILS",0))
IF DA
DO ^DIK
+18 SET DA=$ORDER(^ORD(101,"B","PSO ERX PATIENT VALIDATION MENU",0))
IF DA
DO ^DIK
+19 SET DA=$ORDER(^ORD(101,"B","PSO ERX HIDDEN ACTIONS",0))
IF DA
DO ^DIK
+20 SET DA=$ORDER(^ORD(101,"B","PSO ERX PROVIDER VALIDATION MENU",0))
IF DA
DO ^DIK
+21 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL PATIENTS CHANGE LOOK BACK DAYS",0))
IF DA
DO ^DIK
+22 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL PATIENTS CHANGE VIEW",0))
IF DA
DO ^DIK
+23 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL PATIENTS GROUP BY CS",0))
IF DA
DO ^DIK
+24 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL PATIENTS NEXT PATIENT",0))
IF DA
DO ^DIK
+25 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL PATIENTS QUEUE HIDDEN ACTIONS MENU",0))
IF DA
DO ^DIK
+26 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL PATIENTS QUEUE MENU",0))
IF DA
DO ^DIK
+27 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL PATIENTS REFRESH LIST",0))
IF DA
DO ^DIK
+28 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL PATIENTS REMOVE FILTERS",0))
IF DA
DO ^DIK
+29 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL PATIENTS RX VIEW SWITCH",0))
IF DA
DO ^DIK
+30 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL PATIENTS SEARCH QUEUE",0))
IF DA
DO ^DIK
+31 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL PATIENTS SELECT",0))
IF DA
DO ^DIK
+32 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL PATIENTS SORT BY DOB",0))
IF DA
DO ^DIK
+33 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL PATIENTS SORT BY ELAPSED DAYS",0))
IF DA
DO ^DIK
+34 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL PATIENTS SORT BY PATIENT NAME",0))
IF DA
DO ^DIK
+35 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS CHANGE LOOK BACK DAYS",0))
IF DA
DO ^DIK
+36 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS CHANGE VIEW",0))
IF DA
DO ^DIK
+37 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS GROUP BY CS",0))
IF DA
DO ^DIK
+38 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS PATIENT CENTRIC VIEW SWITCH",0))
IF DA
DO ^DIK
+39 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS QUEUE HIDDEN ACTIONS MENU",0))
IF DA
DO ^DIK
+40 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS QUEUE MENU",0))
IF DA
DO ^DIK
+41 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS REFRESH LIST",0))
IF DA
DO ^DIK
+42 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS REMOVE FILTERS",0))
IF DA
DO ^DIK
+43 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS SEARCH QUEUE",0))
IF DA
DO ^DIK
+44 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS SELECT",0))
IF DA
DO ^DIK
+45 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS SORT BY DRUG NAME",0))
IF DA
DO ^DIK
+46 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS SORT BY PATIENT DOB",0))
IF DA
DO ^DIK
+47 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS SORT BY PATIENT NAME",0))
IF DA
DO ^DIK
+48 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS SORT BY PROVIDER NAME",0))
IF DA
DO ^DIK
+49 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS SORT BY RECEIVED DATE",0))
IF DA
DO ^DIK
+50 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS SORT BY STATUS",0))
IF DA
DO ^DIK
+51 SET DA=$ORDER(^ORD(101,"B","PSO ERX HISTORY LOG MENU",0))
IF DA
DO ^DIK
+52 SET DA=$ORDER(^ORD(101,"B","PSO ERX PATIENT VALIDATION MENU",0))
IF DA
DO ^DIK
+53 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT BATCH HOLD",0))
IF DA
DO ^DIK
+54 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT BATCH UNHOLD",0))
IF DA
DO ^DIK
+55 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT CHANGE LOOK BACK DAYS",0))
IF DA
DO ^DIK
+56 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT CHANGE VIEW",0))
IF DA
DO ^DIK
+57 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT GROUP BY CS",0))
IF DA
DO ^DIK
+58 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT MATCH PATIENT",0))
IF DA
DO ^DIK
+59 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT NEXT PATIENT",0))
IF DA
DO ^DIK
+60 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT QUEUE HIDDEN ACTIONS MENU",0))
IF DA
DO ^DIK
+61 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT QUEUE MENU",0))
IF DA
DO ^DIK
+62 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT SELECT",0))
IF DA
DO ^DIK
+63 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT SHOW/HIDE DETAILS",0))
IF DA
DO ^DIK
+64 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT SORT BY ALL MATCHES",0))
IF DA
DO ^DIK
+65 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT SORT BY DRUG MATCH",0))
IF DA
DO ^DIK
+66 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT SORT BY DRUG NAME",0))
IF DA
DO ^DIK
+67 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT SORT BY ERX ID",0))
IF DA
DO ^DIK
+68 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT SORT BY PATIENT MATCH",0))
IF DA
DO ^DIK
+69 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT SORT BY PROVIDER MATCH",0))
IF DA
DO ^DIK
+70 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT SORT BY PROVIDER NAME",0))
IF DA
DO ^DIK
+71 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT SORT BY RECEIVED DATE",0))
IF DA
DO ^DIK
+72 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT SORT BY STATUS",0))
IF DA
DO ^DIK
+73 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT VALIDATE PATIENT",0))
IF DA
DO ^DIK
+74 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE RXRENEWAL REQUEST",0))
IF DA
DO ^DIK
+75 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT INCLUDE ALL STATUSES",0))
IF DA
DO ^DIK
+76 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT JUMP TO BACKDOOR",0))
IF DA
DO ^DIK
+77 SET DA=$ORDER(^ORD(101,"B","PSO ERX ENTER PROGRESS NOTES",0))
IF DA
DO ^DIK
+78 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT SHOW/HIDE SIG",0))
IF DA
DO ^DIK
+79 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT VERIFY PATIENT",0))
IF DA
DO ^DIK
+80 SET DA=$ORDER(^ORD(101,"B","PSO ERX VIEW HISTORY LOG",0))
IF DA
DO ^DIK
+81 SET DA=$ORDER(^ORD(101,"B","PSO ERX DRUG VALIDATION HIDDEN MENU",0))
IF DA
DO ^DIK
+82 SET DA=$ORDER(^ORD(101,"B","PSO ERX PATIENT ALLERGIES VIEW",0))
IF DA
DO ^DIK
+83 SET DA=$ORDER(^ORD(101,"B","PSO ERX PATIENT VALIDATION HIDDEN MENU",0))
IF DA
DO ^DIK
+84 SET DA=$ORDER(^ORD(101,"B","PSO ERX PATIENT ALLERGIES MENU",0))
IF DA
DO ^DIK
+85 SET DA=$ORDER(^ORD(101,"B","PSO ERX PATIENT ALLERGIES VISTA PATIENT",0))
IF DA
DO ^DIK
+86 SET DA=$ORDER(^ORD(101,"B","PSO ERX ALL RXS CHANGE LOOKBACK DAYS",0))
IF DA
DO ^DIK
+87 SET DA=$ORDER(^ORD(101,"B","PSO ERX SINGLE PATIENT REFRESH",0))
IF DA
DO ^DIK
+88 SET DA=$ORDER(^ORD(101,"B","PSO ERX UN-PROCESS",0))
IF DA
DO ^DIK
+89 QUIT
+90 ;
EN ; Entry Point
+1 NEW DIC,DIK,DR,X,Y,BRIEF
+2 DO BMES^XPDUTL("Starting post-install for PSO*7*700")
+3 ;
+4 IF '$DATA(^PS(52.35,1))
Begin DoDot:1
+5 SET ^PS(52.35,1,0)="ERX HOLDING QUEUE PREFERENCES"
+6 SET ^PS(52.35,"B","ERX HOLDING QUEUE PREFERENCES",1)=""
+7 SET $PIECE(^PS(52.35,0),"^",3,4)="1^1"
End DoDot:1
+8 ;
+9 SET DIC="^PS(52.45,"
SET DIC(0)=""
+10 ; New Hold codes
+11 SET X="HAL"
SET BRIEF="NO PATIENT ALLERGY ASSESSMENT"
SET TYPE="ERX"
DO ADD
+12 SET X="HEL"
SET BRIEF="PATIENT ELIGIBILITY ISSUE"
SET TYPE="ERX"
DO ADD
+13 SET X="HUR"
SET BRIEF="UN-REMOVED"
SET TYPE="ERX"
DO ADD
+14 ;
+15 ; Building "APATVPAT" x-reference
+16 IF '$DATA(^PS(52.49,"APATVPAT"))
Begin DoDot:1
+17 SET DIK="^PS(52.49,"
SET DIK(1)=".04^APATVPAT"
DO ENALL^DIK
End DoDot:1
+18 ;
+19 ; Building "APRVVPRV" x-reference
+20 IF '$DATA(^PS(52.49,"APRVVPRV"))
Begin DoDot:1
+21 SET DIK="^PS(52.49,"
SET DIK(1)="2.1^APRVVPRV"
DO ENALL^DIK
End DoDot:1
+22 ;
+23 ; Building "AVPAT" x-reference
+24 IF '$DATA(^PS(52.49,"AVPAT"))
Begin DoDot:1
+25 SET DIK="^PS(52.49,"
SET DIK(1)=".05^AVPAT"
DO ENALL^DIK
End DoDot:1
+26 ;
+27 ; Building "AVPRV" x-reference
+28 IF '$DATA(^PS(52.49,"AVPRV"))
Begin DoDot:1
+29 SET DIK="^PS(52.49,"
SET DIK(1)="2.3^AVPRV"
DO ENALL^DIK
End DoDot:1
+30 ;
+31 ; Building "ADRGVRX" x-reference
+32 KILL ^PS(52.49,"ADRGVRX")
+33 IF '$DATA(^PS(52.49,"ADRGVRX"))
Begin DoDot:1
+34 SET DIK="^PS(52.49,"
SET DIK(1)=".13^ADRGVRX"
DO ENALL^DIK
End DoDot:1
+35 ;
+36 ; Building "AMSGDTSTS" x-reference
+37 IF '$DATA(^PS(52.49,"AMSGDTSTS"))
Begin DoDot:1
+38 SET DIK="^PS(52.49,"
SET DIK(1)=".03^AMSGDTSTS"
DO ENALL^DIK
End DoDot:1
+39 ;
+40 DO BMES^XPDUTL("Post-install for PSO*7*700 completed successfully")
+41 QUIT
+42 ;
ADD ;add entry
+1 IF $DATA(^PS(52.45,"B",X))
QUIT
+2 SET DIC("DR")=".02///"_BRIEF_";.03///"_TYPE
+3 DO FILE^DICN
+4 QUIT