ADGUTIL.m

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

ADGUTIL   ; IHS/ADC/PDW/ENM - IHS ADT UTILITIES ; [ 03/25/1999  11:48 AM ]

 +1       ;;5.0;ADMISSION/DISCHARGE/TRANSFER;;MAR 25, 1999

 +2       ;

TIME      ;ENTRY POINT to print time only

 +1        NEW X

 +2        SET X=$EXTRACT($$HTFM^XLFDT($HOROLOG),1,12)

 +3        WRITE $PIECE($$FMTE^XLFDT(X,"2P")," ",2,3)

 +4        QUIT 

 +5       ;

CONF(X)   ;EP; prints confidential message

 +1        WRITE !?X,"*****Confidential Patient Data Covered by Privacy Act*****"

 +2        QUIT 

 +3       ;

KILL      ;EP;entry point to kill all ADT variables except package-wide ones

 +1       ;kill Fileman variables

 +2        KILL DIC,DIR,DA,DICRS,DIDEL,DIE,DIEL,DIEZ,DIFLD,DIG,DIH,DIK,DINUM

 +3        KILL DIOT,DIP,DIR,DIROUT,DIRUT,DIS,DIS1,DIS2,DIV,DIWF,DIXX,DL

 +4        KILL DLAYGO,DIB,DLOUT,DN,DNM,DO,DOW,DP,DQ,DR,DR1,DRENT

 +5        KILL DSC,DU,DV,DW,DWLW,DZ

 +6       ;all but U

           KILL %,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

 +7       ;

 +8       ;kill non-namespaced variables used by VA ADT routines

 +9        KILL DFN1,AD,ADMD,LL,MSG,MSG1,PTF,TDD

 +10      ;

 +11      ;kill system-wide variables

 +12       KILL DFN,SSN,AGE,DOB,SEX

 +13      ;

 +14      ;kill variables used by ^AUDICLK

 +15       KILL G,GL,LKDATA,LKPRINT,PCC

 +16      ;

 +17      ;kill variables used by taskman

 +18       IF $GET(ZTSK)]""

               KILL ^%ZTSK(ZTSK),ZTSK

 +19      ;

 +20      ;kill namespaced variables

 +21       KILL DG0,DG1,DG1DAY,DG2,DG3,DG3T,DG4,DG5,DG55,DGA,DGA1,DGAA,DGAACT

 +22       KILL DGAB,DGAB1,DGAB9,DGABL,DGACNT,DGAD,DGADCNT,DGADCT,DGADM,DGADMT

 +23       KILL DGADP,DGADT,DGADWK,DGAGE,DGAL,DGALP,DGALT,DGALTT,DGANCT,DGAPRV

 +24       KILL DGAS,DGAT,DGAU,DGAV,DGAVP,DGAVT,DGAX,DGB,DGBA,DGBB,DGBDT,DGBED

 +25       KILL DGC,DGC1,DGC2,DGC2P,DGCAN,DGCCNT,DGCCT,DGCCTT,DGCD,DGCHART,DGCHT

 +26       KILL DGCHTX,DGCITY,DGCMT,DGCN,DGCNT,DGCOM,DGCOPY,DGCOT,DGCOTT,DGCOUNT

 +27       KILL DGCP,DGCT,DGCTT,DGCURA,DGD,DGDATE,DGDAY,DGDAYCT,DGDD,DGDDCT

 +28       KILL DGDE,DGDEL,DGDEWA,DGDFN,DGDFN1,DGDFN2,DGDFNX,DGDIAG,DGDIF,DGDIF1

 +29       KILL DGDIF2,DGDIR,DGDIS,DGDIV,DGDNCT,DGDOM,DGDR,DGDS,DGDSA,DGDSC,DGDSCH

 +30       KILL DGDSD,DGDSN,DGDSP,DGDST,DGDSTR,DGDSX,DGDT,DGDT1,DGDTLIN,DGDTP

 +31       KILL DGDTS,DGDTT,DGDUZ,DGDVP,DGDVT,DGDX,DGEC,DGEDT,DGEND,DGER,DGERR

 +32       KILL DGERRT,DGEX,DGF,DGFA,DGFA9,DGFAC,DGFC,DGFLG,DGFOR,DGFORM,DGFR,DGFS

 +33       KILL DGFU,DGFUN,DGFW,DGG,DGGRP,DGHEM,DGHNYT,DGHR,DGHRCN,DGHSP,DGI

 +34       KILL DGI1,DGI2,DGICU,DGIDX,DGII,DGIMM,DGIMN,DGINJ,DGINP,DGINPCT

 +35       KILL DGINT,DGJ,DGK,DGL,DGLIN,DGLIN1,DGLIN2,DGLINE,DGLINE2,DGLL

 +36       KILL DGLOS,DGLOS1,DGLOS2,DGLST,DGLSTA,DGM,DGMAX,DGMCD,DGMCR

 +37       KILL DGMGR,DGMIN,DGMON,DGMON2,DGMOVE,DGN,DGN1,DGN2,DGNAM,DGNAME

 +38       KILL DGNB,DGNCNT,DGNDAY,DGNEW,DGNEWB,DGNEWCT,DGNEWX,DGNHCU,DGNM,DGNOK

 +39       KILL DGNOW,DGNS,DGNT,DGNT1,DGNTS,DGNUM,DGNWD,DGO,DGO1,DGO2,DGOBS

 +40       KILL DGOCNT,DGOLD,DGOP,DGOPR,DGOPD,DGOTS,DGOWD,DGP,DGPAGE,DGPB,DGPCCT

 +41       KILL DGPD,DGPG,DGPM,DGPOS,DGPOV,DGPPR,DGPR,DGPRC,DGPRO,DGPROC,DGPROV

 +42       KILL DGPRV,DGPRVN,DGPSTR,DGPT,DGPV,DGPVCT,DGR,DGRAL,DGRANGE,DGRDT

 +43       KILL DGRE,DGREC,DGREH,DGREL,DGRM,DGRMX,DGRPRNT,DGRR,DGS,DGS1,DGSDT

 +44       KILL DGSER,DGSFX,DGSICT,DGSITE,DGSMD,DGSMR,DGSRT,DGSRV,DGSRVL

 +45       KILL DGSRVN,DGST,DGSTAT,DGSTOP,DGSTR,DGSTR1,DGSTR11,DGSTR2,DGSTRDA

 +46       KILL DGSTRING,DGSTRT,DGSUB,DGSUM,DGSUMPG,DGSV,DGSVL,DGT,DGT1,DGT2

 +47       KILL DGT3,DGTA,DGTADM,DGTCNT,DGTD,DGTDSC,DGTDT,DGTEMP,DGTI,DGTIM,DGTIME

 +48       KILL DGTL,DGTM,DGTOTL

 +49       KILL DGTNX,DGTO,DGTOT,DGTP,DGTPR,DGTR,DGTRN,DGTSCT,DGTST,DGTT,DGTTR,DGTW

 +50       KILL DGTX,DGTY,DGTYP,DGU,DGUNES,DGV,DGVH,DGVLG,DGVST,DGVSTR,DGW

 +51       KILL DGWARD,DGWCNT,DGWD,DGWDFN,DGWON,DGWN,DGWRD,DGWST,DGWTCT,DGWW,DGWW1

 +52       KILL DGX,DGX0,DGX1,DGX2,DGXREF,DGXX,DGY,DGY1

 +53       KILL DGZ,DGZ1,DGZADMT,DGZAGE,DGZBDT,DGZCK,DGZDATE,DGZDAY,DGZDDT

 +54       KILL DGZDGSTR,DGZDSD,DGZDT,DGZEDT,DGZETOT,DGZF,DGZFLG,DGZIDFN,DGZN,DGZNAME

 +55       KILL DGZNFORM,DGZNHSP,DGZPCA,DGZPCC,DGZPCCX,DGZPCD,DGZPGM,DGZRM

 +56       KILL DGZSRT,DGZTOT,DGZVDFN,DGZVDT,DGZZ

 +57      ;

 +58       QUIT