|
Last change
on this file since 672 was 628, checked in by George Lilly, 16 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
