source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOVWI.m@ 1267

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

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1PSOVWI ;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 ;--------------------------------------------------------------
10START ;
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
16END D EOJ ; Clean up variables
17 Q
18 ;---------------------------------------------------------------
19SELECT ; 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
26DISP ; 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
30EOJ ; Clean up variables
31 K PSOVWI,X,Y,DIC,DTOUT,DUOUT
32 Q
Note: See TracBrowser for help on using the repository browser.