Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSGVWP

PSGVWP.m

Go to the documentation of this file.
  1. PSGVWP ;BIR/CML3-PRINT EXPANDED VIEW ;24 JAN 94 / 11:16 AM
  1. ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
  1. S PSGVWA="",AT="N" I PSGORD'["N" F R !!,"Show SHORT, LONG, or NO activity log? N// ",AT:DTIME D ALC^PSGVW0 Q:Q
  1. G:AT="^" DONE S:AT'="N" PSGVWA=AT
  1. 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
  1. K PSGION I $D(IO("Q")) K ZTSAVE S PSGTIR="ENQ^PSGVWP",ZTDESC="UD EXPANDED VIEW"
  1. F X="PSGP","PSGP(0)","PSGORD","PSJPAD","PSJPAGE","PSJPTD","PSJPDD","PSJPDOB","PSJPWDN","PSJPWD","PSJPRB","PSJPDX","PSGVWA","PSJPPID","PSJPWT","PSJPHT","PSJPSEX" S ZTSAVE(X)=""
  1. I D ENTSK^PSGTI G DONE
  1. ENQ ;
  1. D NOW^%DTC S PSGDT=%,HDT=$$ENDTC^PSGMI(PSGDT),$P(LN2,"-",81)="",PSGOH=""
  1. U IO D GET^PSGO,EN2^PSGVW I PSGVWA]"" S AT=PSGVWA D ENA^PSGVW0
  1. W:(IO'=IO(0)!(IOST'["C-"))&($Y) @IOF D ^%ZISC
  1. ;
  1. DONE ;
  1. K AND,AT,DOB,HDT,LN2,MF,ON,PG,PN,POP,PSGVWA,PX,RCT,RF,SLS,SSN,UD,WD,WDP,WT Q