|
Last change
on this file since 949 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
1.0 KB
|
| Rev | Line | |
|---|
| [613] | 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.
