| [613] | 1 | GMRCSL ;SLC/DLT - Active Consults by Service ;5/20/98 14:20
|
|---|
| 2 | ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
|
|---|
| 3 | 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
|
|---|
| 4 | S DIS(0)="I ""5689""[$P(^GMR(123,D0,0),U,12)"
|
|---|
| 5 | S DIC=123,BY="[GMRC CONSULTS LIST]",DHD="[GMRC CONSULTS LIST HEADER]",FLDS="[GMRC CONSULTS LIST]",L=0 D EN1^DIP
|
|---|
| 6 | END K DIC,BY,DHD,FLDS,FR,TO,DIS,L Q
|
|---|
| 7 | DT ;FORMAT DATE AND PRINT
|
|---|
| 8 | S GMRCX=X N X S X=$P(GMRCX,U,7) D REGDTM^GMRCU W ?26," "_X K X
|
|---|
| 9 | S GMRCPAT=$P(GMRCX,U,2)
|
|---|
| 10 | K GMRCX Q
|
|---|
| 11 | PAT ;Get VA("BID")
|
|---|
| 12 | S DFN=GMRCPAT D DEM^VADPT W ?45,$E(VADM(1),1,15),?62,VA("BID")_" " K VA,VAERR,VADM,DFN,GMRCPAT
|
|---|
| 13 | Q
|
|---|
| 14 | Q
|
|---|
