Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.0 KB
|
Line | |
---|
1 | PSOVWI ;IHS/DSD/JCM - DISPLAY ENTRIES IN FILES IN A CAPTIONED FORMAT ; 07/20/92 14:38
|
---|
2 | ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
|
---|
3 | ;
|
---|
4 | ; This routine will display entries in certain files
|
---|
5 | ; in a captioned format. It calls EN^DIQ
|
---|
6 | ;
|
---|
7 | ; Input Variables: PSOVWI("DIC") The global root for DIC
|
---|
8 | ; External Calls: ^DIC,EN^DIQ
|
---|
9 | ;--------------------------------------------------------------
|
---|
10 | START ;
|
---|
11 | K PSOVWI("DA'S")
|
---|
12 | D SELECT ; Select Entries To View
|
---|
13 | G:'$D(PSOVWI("DA'S")) END
|
---|
14 | D DISP ; Display enties
|
---|
15 | G START
|
---|
16 | END D EOJ ; Clean up variables
|
---|
17 | Q
|
---|
18 | ;---------------------------------------------------------------
|
---|
19 | SELECT ; Select Entries to View
|
---|
20 | S DIC=PSOVWI("DIC")
|
---|
21 | S DIC(0)="AEQM"
|
---|
22 | D ^DIC K DIC,DR
|
---|
23 | I Y>0 S PSOVWI("DA'S",+Y)="",DIC("A")="ANOTHER ONE: " G SELECT
|
---|
24 | K:$D(DTOUT)!($D(DUOUT)) PSOVWI("DA'S")
|
---|
25 | Q
|
---|
26 | DISP ; Calls EN^DIQ to display entries in captioned form
|
---|
27 | ;
|
---|
28 | F PSOVWI("DA")=0:0 S DIC=PSOVWI("DIC"),PSOVWI("DA")=$O(PSOVWI("DA'S",PSOVWI("DA"))) Q:'PSOVWI("DA") S DA=PSOVWI("DA") D EN^DIQ K DIC,DR,DA
|
---|
29 | Q
|
---|
30 | EOJ ; Clean up variables
|
---|
31 | K PSOVWI,X,Y,DIC,DTOUT,DUOUT
|
---|
32 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.