GMRCPX ;SLC/DCM - Select a new pharmacy patient for list manager consult tracking display ;5/20/98 14:20
;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
EN ; -- main entry point for GMRC PHARMACY SELECT PATIENT
K GMRCQUT
D ^GMRCSSP I $D(GMRCQUT) Q
D AD^GMRCSLM1
D INIT,HDR
Q
;
HDR ; -- header code
D HDR^GMRCSLM
Q
;
INIT ; -- init variables and list array
D INIT^GMRCPZ
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
K GMRCWRD,GMRCWT,GMRCA,GMRCSNM,GMRCSSS,GMRCTX,GMRCQUIT,GMRCSTCK
Q
;
EXPND ; -- expand code
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCPX 592 printed Nov 22, 2024@16:57:09 Page 2
GMRCPX ;SLC/DCM - Select a new pharmacy patient for list manager consult tracking display ;5/20/98 14:20
+1 ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
EN ; -- main entry point for GMRC PHARMACY SELECT PATIENT
+1 KILL GMRCQUT
+2 DO ^GMRCSSP
IF $DATA(GMRCQUT)
QUIT
+3 DO AD^GMRCSLM1
+4 DO INIT
DO HDR
+5 QUIT
+6 ;
HDR ; -- header code
+1 DO HDR^GMRCSLM
+2 QUIT
+3 ;
INIT ; -- init variables and list array
+1 DO INIT^GMRCPZ
+2 QUIT
+3 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 KILL GMRCWRD,GMRCWT,GMRCA,GMRCSNM,GMRCSSS,GMRCTX,GMRCQUIT,GMRCSTCK
+2 QUIT
+3 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
