PSOERX1 ;ALB/BWF - eRx Utilities/RPC's ;Aug 14, 2020@12:43:34
;;7.0;OUTPATIENT PHARMACY;**467,520,527,508,551,581,635,617,700,746**;DEC 1997;Build 106
;
EN(PSOIEN) ; -- main entry point for PSO ERX HOLDING QUEUE
D EN^PSOERSE1(PSOIEN)
Q
;
HDR ; -- header code
S VALMHDR(1)="eRx Patient: "_$$GET1^DIQ(52.49,PSOIEN,.04,"E")
S VALMHDR(2)="eRx Reference #: "_$$GET1^DIQ(52.49,PSOIEN,.01,"E")
I $$GET1^DIQ(52.49,PSOIEN,10.5,"I")=2 D
. S VALMHDR(2)=VALMHDR(2)_" "_IORVON_"ERX HAS DO NOT FILL INDICATOR PER PROVIDER"_IORVOFF
S VALMHDR(3)=$$BHW^PSOERXIU(PSOIEN)
I $G(VALMBCK)="R" K @VALMAR S VALMBCK="" D INIT
Q
;
INIT ;
Q:'$G(PSOIEN)
; - Resetting list to NORMAL video attributes
D RESET^PSOERUT0()
D INIT^PSOERX1G
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
K @VALMAR
; PSO*7*527 - set VALMBCK and PSOREFSH to force refresh when returning to list view
S VALMBCK="R",PSOREFSH=1
Q
;
EXPND ; -- expand code
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOERX1 994 printed Dec 13, 2024@02:28:10 Page 2
PSOERX1 ;ALB/BWF - eRx Utilities/RPC's ;Aug 14, 2020@12:43:34
+1 ;;7.0;OUTPATIENT PHARMACY;**467,520,527,508,551,581,635,617,700,746**;DEC 1997;Build 106
+2 ;
EN(PSOIEN) ; -- main entry point for PSO ERX HOLDING QUEUE
+1 DO EN^PSOERSE1(PSOIEN)
+2 QUIT
+3 ;
HDR ; -- header code
+1 SET VALMHDR(1)="eRx Patient: "_$$GET1^DIQ(52.49,PSOIEN,.04,"E")
+2 SET VALMHDR(2)="eRx Reference #: "_$$GET1^DIQ(52.49,PSOIEN,.01,"E")
+3 IF $$GET1^DIQ(52.49,PSOIEN,10.5,"I")=2
Begin DoDot:1
+4 SET VALMHDR(2)=VALMHDR(2)_" "_IORVON_"ERX HAS DO NOT FILL INDICATOR PER PROVIDER"_IORVOFF
End DoDot:1
+5 SET VALMHDR(3)=$$BHW^PSOERXIU(PSOIEN)
+6 IF $GET(VALMBCK)="R"
KILL @VALMAR
SET VALMBCK=""
DO INIT
+7 QUIT
+8 ;
INIT ;
+1 if '$GET(PSOIEN)
QUIT
+2 ; - Resetting list to NORMAL video attributes
+3 DO RESET^PSOERUT0()
+4 DO INIT^PSOERX1G
+5 QUIT
+6 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 KILL @VALMAR
+2 ; PSO*7*527 - set VALMBCK and PSOREFSH to force refresh when returning to list view
+3 SET VALMBCK="R"
SET PSOREFSH=1
+4 QUIT
+5 ;
EXPND ; -- expand code
+1 QUIT
