source: WorldVistAEHR/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSGVWP.m@ 1297

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

initial load of WorldVistAEHR

File size: 1003 bytes
RevLine 
[613]1PSGVWP ;BIR/CML3-PRINT EXPANDED VIEW ;24 JAN 94 / 11:16 AM
2 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
3 S PSGVWA="",AT="N" I PSGORD'["N" F R !!,"Show SHORT, LONG, or NO activity log? N// ",AT:DTIME D ALC^PSGVW0 Q:Q
4 G:AT="^" DONE S:AT'="N" PSGVWA=AT
5 K IO("Q"),%ZIS,IOP S PSGION=ION,%ZIS="Q",%ZIS("B")="",%ZIS("A")="Print on DEVICE: " W ! D ^%ZIS I POP S IOP=PSGION D ^%ZIS K IOP,PSGION W !," No device selected. Option terminated." G DONE
6 K PSGION I $D(IO("Q")) K ZTSAVE S PSGTIR="ENQ^PSGVWP",ZTDESC="UD EXPANDED VIEW"
7 F X="PSGP","PSGP(0)","PSGORD","PSJPAD","PSJPAGE","PSJPTD","PSJPDD","PSJPDOB","PSJPWDN","PSJPWD","PSJPRB","PSJPDX","PSGVWA","PSJPPID","PSJPWT","PSJPHT","PSJPSEX" S ZTSAVE(X)=""
8 I D ENTSK^PSGTI G DONE
9ENQ ;
10 D NOW^%DTC S PSGDT=%,HDT=$$ENDTC^PSGMI(PSGDT),$P(LN2,"-",81)="",PSGOH=""
11 U IO D GET^PSGO,EN2^PSGVW I PSGVWA]"" S AT=PSGVWA D ENA^PSGVW0
12 W:(IO'=IO(0)!(IOST'["C-"))&($Y) @IOF D ^%ZISC
13 ;
14DONE ;
15 K AND,AT,DOB,HDT,LN2,MF,ON,PG,PN,POP,PSGVWA,PX,RCT,RF,SLS,SSN,UD,WD,WDP,WT Q
Note: See TracBrowser for help on using the repository browser.