GMRCSL ;SLC/DLT - Active Consults by Service ;5/20/98 14:20
;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
S U="^",DIC="^GMR(123.5,",DIC(0)="AEMQF",DIC("A")="Select Service/Specialty: " D ^DIC K DIC G:Y=-1 END S FR=$P(Y,"^",2)_",?",TO=FR
S DIS(0)="I ""5689""[$P(^GMR(123,D0,0),U,12)"
S DIC=123,BY="[GMRC CONSULTS LIST]",DHD="[GMRC CONSULTS LIST HEADER]",FLDS="[GMRC CONSULTS LIST]",L=0 D EN1^DIP
END K DIC,BY,DHD,FLDS,FR,TO,DIS,L Q
DT ;FORMAT DATE AND PRINT
S GMRCX=X N X S X=$P(GMRCX,U,7) D REGDTM^GMRCU W ?26," "_X K X
S GMRCPAT=$P(GMRCX,U,2)
K GMRCX Q
PAT ;Get VA("BID")
S DFN=GMRCPAT D DEM^VADPT W ?45,$E(VADM(1),1,15),?62,VA("BID")_" " K VA,VAERR,VADM,DFN,GMRCPAT
Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCSL 701 printed Dec 13, 2024@01:47:07 Page 2
GMRCSL ;SLC/DLT - Active Consults by Service ;5/20/98 14:20
+1 ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
+2 SET U="^"
SET DIC="^GMR(123.5,"
SET DIC(0)="AEMQF"
SET DIC("A")="Select Service/Specialty: "
DO ^DIC
KILL DIC
if Y=-1
GOTO END
SET FR=$PIECE(Y,"^",2)_",?"
SET TO=FR
+3 SET DIS(0)="I ""5689""[$P(^GMR(123,D0,0),U,12)"
+4 SET DIC=123
SET BY="[GMRC CONSULTS LIST]"
SET DHD="[GMRC CONSULTS LIST HEADER]"
SET FLDS="[GMRC CONSULTS LIST]"
SET L=0
DO EN1^DIP
END KILL DIC,BY,DHD,FLDS,FR,TO,DIS,L
QUIT
DT ;FORMAT DATE AND PRINT
+1 SET GMRCX=X
NEW X
SET X=$PIECE(GMRCX,U,7)
DO REGDTM^GMRCU
WRITE ?26," "_X
KILL X
+2 SET GMRCPAT=$PIECE(GMRCX,U,2)
+3 KILL GMRCX
QUIT
PAT ;Get VA("BID")
+1 SET DFN=GMRCPAT
DO DEM^VADPT
WRITE ?45,$EXTRACT(VADM(1),1,15),?62,VA("BID")_" "
KILL VA,VAERR,VADM,DFN,GMRCPAT
+2 QUIT
+3 QUIT
