GMRCSLMU.m

GMRCSLMU ;SLC/DCM - Utilities for displaying consults in List manager ;4/30/98  10:04

 ;;3.0;CONSULT/REQUEST TRACKING;**4**;DEC 27,1997

 ;;

TIU(GMRCPTR,LINECT,LOCAL) ; Enter here to get status info in consult unreleeased by TIU

 S DVLL=80-$L($G(LOCAL(GMRCPTR,.01,"E")))\2-2,^TMP("GMRCR",$J,"DT",LINECT,0)=$E(GMRCDVDL,1,DVLL)_$G(LOCAL(GMRCPTR,.01,"E"))_$E(GMRCDVDL,1,DVLL),LINECT=LINECT+1,^TMP("GMRCR",$J,"DT",LINECT,0)="" K DVLL

 S ^TMP("GMRCR",$J,"DT",LINECT,0)="Source Information",LINECT=LINECT+1,^TMP("GMRCR",$J,"DT",LINECT,0)="",LINECT=LINECT+1

 S ^TMP("GMRCR",$J,"DT",LINECT,0)="Document Status: "_LOCAL(GMRCPTR,.05,"E"),LINECT=LINECT+1

 S ^TMP("GMRCR",$J,"DT",LINECT,0)="  Entry Date: "_$E($P($G(LOCAL(GMRCPTR,1201,"E")),":",1,2)_TAB,1,30)_"Author: "_$E(LOCAL(GMRCPTR,1202,"E"),1,30),LINECT=LINECT+1

 S ^TMP("GMRCR",$J,"DT",LINECT,0)="  Expected Signer: "_$E(LOCAL(GMRCPTR,1204,"E")_TAB,1,22)_$E(TAB,1,5)_"Expected Cosigner: "_$S($L($G(LOCAL(GMRCPTR,1302,"E"))):LOCAL(GMRCPTR,1302,"E"),1:"None"),LINECT=LINECT+1

 S ^TMP("GMRCR",$J,"DT",LINECT,0)="  Entered By: "_$E(LOCAL(GMRCPTR,1302,"E")_TAB,1,30)_"  TIU Document #: "_GMRCPTR,LINECT=LINECT+1

 S ^TMP("GMRCR",$J,"DT",LINECT,0)="     Urgency: "_$S($L($G(LOCAL(GMRCPTR,.09,"E"))):LOCAL(GMRCPTR,.09,"E"),1:"None"),LINECT=LINECT+1

 S ^TMP("GMRCR",$J,"DT",LINECT,0)="",LINECT=LINECT+1

 S ^TMP("GMRCR",$J,"DT",LINECT,0)="You may not VIEW this "_$S($L($G(LOCAL(GMRCPTR,.05,"E"))):LOCAL(GMRCPTR,.05,"E")_" ",1:"UNSIGNED ")_$G(LOCAL(GMRCPTR,.01,"E"))_" consult.",LINECT=LINECT+1

 S ^TMP("GMRCR",$J,"RES",GMRCPTR,"TEXT",LINECT,0)="",LINECT=LINECT+1

 Q

GMRCSLMU  ;SLC/DCM - Utilities for displaying consults in List manager ;4/30/98  10:04

 +1       ;;3.0;CONSULT/REQUEST TRACKING;**4**;DEC 27,1997

 +2       ;;

TIU(GMRCPTR,LINECT,LOCAL) ; Enter here to get status info in consult unreleeased by TIU

 +1        SET DVLL=80-$LENGTH($GET(LOCAL(GMRCPTR,.01,"E")))\2-2

           SET ^TMP("GMRCR",$JOB,"DT",LINECT,0)=$EXTRACT(GMRCDVDL,1,DVLL)_$GET(LOCAL(GMRCPTR,.01,"E"))_$EXTRACT(GMRCDVDL,1,DVLL)

           SET LINECT=LINECT+1

           SET ^TMP("GMRCR",$JOB,"DT",LINECT,0)=""

           KILL DVLL

 +2        SET ^TMP("GMRCR",$JOB,"DT",LINECT,0)="Source Information"

           SET LINECT=LINECT+1

           SET ^TMP("GMRCR",$JOB,"DT",LINECT,0)=""

           SET LINECT=LINECT+1

 +3        SET ^TMP("GMRCR",$JOB,"DT",LINECT,0)="Document Status: "_LOCAL(GMRCPTR,.05,"E")

           SET LINECT=LINECT+1

 +4        SET ^TMP("GMRCR",$JOB,"DT",LINECT,0)="  Entry Date: "_$EXTRACT($PIECE($GET(LOCAL(GMRCPTR,1201,"E")),":",1,2)_TAB,1,30)_"Author: "_$EXTRACT(LOCAL(GMRCPTR,1202,"E"),1,30)

           SET LINECT=LINECT+1

 +5        SET ^TMP("GMRCR",$JOB,"DT",LINECT,0)="  Expected Signer: "_$EXTRACT(LOCAL(GMRCPTR,1204,"E")_TAB,1,22)_$EXTRACT(TAB,1,5)_"Expected Cosigner: "_$SELECT($LENGTH($GET(LOCAL(GMRCPTR,1302,"E"))):LOCAL(GMRCPTR,1302,"E"),1:"None")

           SET LINECT=LINECT+1

 +6        SET ^TMP("GMRCR",$JOB,"DT",LINECT,0)="  Entered By: "_$EXTRACT(LOCAL(GMRCPTR,1302,"E")_TAB,1,30)_"  TIU Document #: "_GMRCPTR

           SET LINECT=LINECT+1

 +7        SET ^TMP("GMRCR",$JOB,"DT",LINECT,0)="     Urgency: "_$SELECT($LENGTH($GET(LOCAL(GMRCPTR,.09,"E"))):LOCAL(GMRCPTR,.09,"E"),1:"None")

           SET LINECT=LINECT+1

 +8        SET ^TMP("GMRCR",$JOB,"DT",LINECT,0)=""

           SET LINECT=LINECT+1

 +9        SET ^TMP("GMRCR",$JOB,"DT",LINECT,0)="You may not VIEW this "_$SELECT($LENGTH($GET(LOCAL(GMRCPTR,.05,"E"))):LOCAL(GMRCPTR,.05,"E")_" ",1:"UNSIGNED ")_$GET(LOCAL(GMRCPTR,.01,"E"))_" consult."

           SET LINECT=LINECT+1

 +10       SET ^TMP("GMRCR",$JOB,"RES",GMRCPTR,"TEXT",LINECT,0)=""

           SET LINECT=LINECT+1

 +11       QUIT