- 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 Feb 18, 2025@23:13:29 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