Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
868 bytes
|
Line | |
---|
1 | GMRCSSP ;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
|
---|
3 | EN ;;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
|
---|
11 | QUIT ;;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.