source: WorldVistAEHR/trunk/r/CONSULT_REQUEST_TRACKING-GMRC-GMRS-GMRT/GMRCSSP.m@ 1141

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

initial load of WorldVistAEHR

File size: 868 bytes
Line 
1GMRCSSP ;SLC/DCM - List Manager Format Routine To Collect Pharmacy TPN Consults that are Not Completed Or Have Been Discontinued ;5/20/98 14:21
2 ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
3EN ;;Main entry point for List Manager Interface
4 K GMRCQUT S GMRCDFNS=$S('$D(DFN):0,1:DFN),GMRCFL=1
5 D SP^GMRCSLM I $S($D(GMRCQUT):1,'$D(DFN):1,1:0) D QUIT S GMRCQUT=1 Q
6 K ^TMP("GMRCS",$J)
7 S GMRCSSNM="PHARMACY SERVICE",GMRCSVCN=$O(^GMR(123.5,"B",GMRCSSNM,0)) I GMRCSVCN="" S GMRCQUT=1 S GMRCMSG="Pharmacy Service Does Not Exist In The Consults Service File!" D EXAC^GMRCADC(GMRCMSG),QUIT Q
8 S ^TMP("GMRCS",$J,GMRCSVCN)=GMRCSSNM
9 D ^GMRCSPD I $D(GMRCQUT) D QUIT Q ;Get date ranges
10 D AD^GMRCSLM1
11QUIT ;;Kill off variables and quit
12 I $D(GMRCTM),$D(GMRCBM),$D(IOSTBM) S IOTM=GMRCTM,IOBM=GMRCBM K GMRCTM,GMRCBM
13 K DFN1,GMRCDFNS,GMRCMSG,ORIFN,DFNS,GMRCFL,GMRCS1,GMRCS2
14 Q
Note: See TracBrowser for help on using the repository browser.