GMRCSL.m

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

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