| 1 | PSGVWP ;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
|
|---|
| 9 | ENQ ;
|
|---|
| 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 | ;
|
|---|
| 14 | DONE ;
|
|---|
| 15 | K AND,AT,DOB,HDT,LN2,MF,ON,PG,PN,POP,PSGVWA,PX,RCT,RF,SLS,SSN,UD,WD,WDP,WT Q
|
|---|
