©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
ADGUTIL ; IHS/ADC/PDW/ENM - IHS ADT UTILITIES ; [ 03/25/1999 11:48 AM ]
;;5.0;ADMISSION/DISCHARGE/TRANSFER;;MAR 25, 1999
;
TIME ;ENTRY POINT to print time only
N X
S X=$E($$HTFM^XLFDT($H),1,12)
W $P($$FMTE^XLFDT(X,"2P")," ",2,3)
Q
;
CONF(X) ;EP; prints confidential message
W !?X,"*****Confidential Patient Data Covered by Privacy Act*****"
Q
;
KILL ;EP;entry point to kill all ADT variables except package-wide ones
;kill Fileman variables
K DIC,DIR,DA,DICRS,DIDEL,DIE,DIEL,DIEZ,DIFLD,DIG,DIH,DIK,DINUM
K DIOT,DIP,DIR,DIROUT,DIRUT,DIS,DIS1,DIS2,DIV,DIWF,DIXX,DL
K DLAYGO,DIB,DLOUT,DN,DNM,DO,DOW,DP,DQ,DR,DR1,DRENT
K DSC,DU,DV,DW,DWLW,DZ
K %,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,V,W,X,Y,Z ;all but U
;
;kill non-namespaced variables used by VA ADT routines
K DFN1,AD,ADMD,LL,MSG,MSG1,PTF,TDD
;
;kill system-wide variables
K DFN,SSN,AGE,DOB,SEX
;
;kill variables used by ^AUDICLK
K G,GL,LKDATA,LKPRINT,PCC
;
;kill variables used by taskman
K:$G(ZTSK)]"" ^%ZTSK(ZTSK),ZTSK
;
;kill namespaced variables
K DG0,DG1,DG1DAY,DG2,DG3,DG3T,DG4,DG5,DG55,DGA,DGA1,DGAA,DGAACT
K DGAB,DGAB1,DGAB9,DGABL,DGACNT,DGAD,DGADCNT,DGADCT,DGADM,DGADMT
K DGADP,DGADT,DGADWK,DGAGE,DGAL,DGALP,DGALT,DGALTT,DGANCT,DGAPRV
K DGAS,DGAT,DGAU,DGAV,DGAVP,DGAVT,DGAX,DGB,DGBA,DGBB,DGBDT,DGBED
K DGC,DGC1,DGC2,DGC2P,DGCAN,DGCCNT,DGCCT,DGCCTT,DGCD,DGCHART,DGCHT
K DGCHTX,DGCITY,DGCMT,DGCN,DGCNT,DGCOM,DGCOPY,DGCOT,DGCOTT,DGCOUNT
K DGCP,DGCT,DGCTT,DGCURA,DGD,DGDATE,DGDAY,DGDAYCT,DGDD,DGDDCT
K DGDE,DGDEL,DGDEWA,DGDFN,DGDFN1,DGDFN2,DGDFNX,DGDIAG,DGDIF,DGDIF1
K DGDIF2,DGDIR,DGDIS,DGDIV,DGDNCT,DGDOM,DGDR,DGDS,DGDSA,DGDSC,DGDSCH
K DGDSD,DGDSN,DGDSP,DGDST,DGDSTR,DGDSX,DGDT,DGDT1,DGDTLIN,DGDTP
K DGDTS,DGDTT,DGDUZ,DGDVP,DGDVT,DGDX,DGEC,DGEDT,DGEND,DGER,DGERR
K DGERRT,DGEX,DGF,DGFA,DGFA9,DGFAC,DGFC,DGFLG,DGFOR,DGFORM,DGFR,DGFS
K DGFU,DGFUN,DGFW,DGG,DGGRP,DGHEM,DGHNYT,DGHR,DGHRCN,DGHSP,DGI
K DGI1,DGI2,DGICU,DGIDX,DGII,DGIMM,DGIMN,DGINJ,DGINP,DGINPCT
K DGINT,DGJ,DGK,DGL,DGLIN,DGLIN1,DGLIN2,DGLINE,DGLINE2,DGLL
K DGLOS,DGLOS1,DGLOS2,DGLST,DGLSTA,DGM,DGMAX,DGMCD,DGMCR
K DGMGR,DGMIN,DGMON,DGMON2,DGMOVE,DGN,DGN1,DGN2,DGNAM,DGNAME
K DGNB,DGNCNT,DGNDAY,DGNEW,DGNEWB,DGNEWCT,DGNEWX,DGNHCU,DGNM,DGNOK
K DGNOW,DGNS,DGNT,DGNT1,DGNTS,DGNUM,DGNWD,DGO,DGO1,DGO2,DGOBS
K DGOCNT,DGOLD,DGOP,DGOPR,DGOPD,DGOTS,DGOWD,DGP,DGPAGE,DGPB,DGPCCT
K DGPD,DGPG,DGPM,DGPOS,DGPOV,DGPPR,DGPR,DGPRC,DGPRO,DGPROC,DGPROV
K DGPRV,DGPRVN,DGPSTR,DGPT,DGPV,DGPVCT,DGR,DGRAL,DGRANGE,DGRDT
K DGRE,DGREC,DGREH,DGREL,DGRM,DGRMX,DGRPRNT,DGRR,DGS,DGS1,DGSDT
K DGSER,DGSFX,DGSICT,DGSITE,DGSMD,DGSMR,DGSRT,DGSRV,DGSRVL
K DGSRVN,DGST,DGSTAT,DGSTOP,DGSTR,DGSTR1,DGSTR11,DGSTR2,DGSTRDA
K DGSTRING,DGSTRT,DGSUB,DGSUM,DGSUMPG,DGSV,DGSVL,DGT,DGT1,DGT2
K DGT3,DGTA,DGTADM,DGTCNT,DGTD,DGTDSC,DGTDT,DGTEMP,DGTI,DGTIM,DGTIME
K DGTL,DGTM,DGTOTL
K DGTNX,DGTO,DGTOT,DGTP,DGTPR,DGTR,DGTRN,DGTSCT,DGTST,DGTT,DGTTR,DGTW
K DGTX,DGTY,DGTYP,DGU,DGUNES,DGV,DGVH,DGVLG,DGVST,DGVSTR,DGW
K DGWARD,DGWCNT,DGWD,DGWDFN,DGWON,DGWN,DGWRD,DGWST,DGWTCT,DGWW,DGWW1
K DGX,DGX0,DGX1,DGX2,DGXREF,DGXX,DGY,DGY1
K DGZ,DGZ1,DGZADMT,DGZAGE,DGZBDT,DGZCK,DGZDATE,DGZDAY,DGZDDT
K DGZDGSTR,DGZDSD,DGZDT,DGZEDT,DGZETOT,DGZF,DGZFLG,DGZIDFN,DGZN,DGZNAME
K DGZNFORM,DGZNHSP,DGZPCA,DGZPCC,DGZPCCX,DGZPCD,DGZPGM,DGZRM
K DGZSRT,DGZTOT,DGZVDFN,DGZVDT,DGZZ
;
Q