source: WorldVistAEHR/trunk/r/CONSULT_REQUEST_TRACKING-GMRC-GMRS-GMRT/GMRCSLMU.m@ 699

Last change on this file since 699 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1GMRCSLMU ;SLC/DCM - Utilities for displaying consults in List manager ;4/30/98 10:04
2 ;;3.0;CONSULT/REQUEST TRACKING;**4**;DEC 27,1997
3 ;;
4TIU(GMRCPTR,LINECT,LOCAL) ; Enter here to get status info in consult unreleeased by TIU
5 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
6 S ^TMP("GMRCR",$J,"DT",LINECT,0)="Source Information",LINECT=LINECT+1,^TMP("GMRCR",$J,"DT",LINECT,0)="",LINECT=LINECT+1
7 S ^TMP("GMRCR",$J,"DT",LINECT,0)="Document Status: "_LOCAL(GMRCPTR,.05,"E"),LINECT=LINECT+1
8 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
9 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
10 S ^TMP("GMRCR",$J,"DT",LINECT,0)=" Entered By: "_$E(LOCAL(GMRCPTR,1302,"E")_TAB,1,30)_" TIU Document #: "_GMRCPTR,LINECT=LINECT+1
11 S ^TMP("GMRCR",$J,"DT",LINECT,0)=" Urgency: "_$S($L($G(LOCAL(GMRCPTR,.09,"E"))):LOCAL(GMRCPTR,.09,"E"),1:"None"),LINECT=LINECT+1
12 S ^TMP("GMRCR",$J,"DT",LINECT,0)="",LINECT=LINECT+1
13 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
14 S ^TMP("GMRCR",$J,"RES",GMRCPTR,"TEXT",LINECT,0)="",LINECT=LINECT+1
15 Q
Note: See TracBrowser for help on using the repository browser.