PSOERX1.m

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**;DEC 1997;Build 261

 ;

EN(PSOIEN) ; -- main entry point for PSO ERX HOLDING QUEUE

 S ERXIEN=PSOIEN D EN^VALM("PSO ERX HQ DISPLAY")

 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 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 ---PSOERX1   1012     printed  Apr 09, 2024@21:32:03                                                                                                                                                                                                     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**;DEC 1997;Build 261

 +2       ;

EN(PSOIEN) ; -- main entry point for PSO ERX HOLDING QUEUE

 +1        SET ERXIEN=PSOIEN

           DO EN^VALM("PSO ERX HQ DISPLAY")

 +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 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