- 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 Jan 18, 2025@03:24:40 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