Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Global: ^DPT

Package: Registration

Global: ^DPT


Information

FileMan FileNo FileMan Filename Package
2 VA PATIENT Registration

Description

Directly Accessed By Routines, Total: 5046

Package Total Routines
IHS GPRA Information System 689 BGP0C1    BGP0C11    BGP0C12    BGP0C2    BGP0C2X    BGP0C3    BGP0C3X    BGP0C4
BGP0CP    BGP0CPU    BGP0D1    BGP0D10    BGP0D21    BGP0D22    BGP0D23    BGP0D24
BGP0D26    BGP0D3    BGP0D36    BGP0D42    BGP0D55    BGP0D6    BGP0D7    BGP0D731
BGP0D74    BGP0D75    BGP0D8    BGP0D84    BGP0D9    BGP0DCHW    BGP0DCI    BGP0DCLD
BGP0DCLP    BGP0DEMO    BGP0DNE    BGP0DPA    BGP0DPA1    BGP0DPA2    BGP0DPA9    BGP0DPAP
BGP0DPAW    BGP0DPE1    BGP0DPE2    BGP0DPEE    BGP0DPEL    BGP0DS    BGP0EL3    BGP0ELS
BGP0ELSL    BGP0EOS    BGP0EOUT    BGP0EUTL    BGP0GUA    BGP0HES    BGP0HESL    BGP0HUTL
BGP0NPLD    BGP0NPLP    BGP0PDLS    BGP0PUTL    BGP0UTL    BGP0UTL1    BGP1C1    BGP1C11
BGP1C12    BGP1C2    BGP1C2X    BGP1C3    BGP1C3X    BGP1C4    BGP1CP    BGP1CPU
BGP1D1    BGP1D10    BGP1D21    BGP1D211    BGP1D22    BGP1D23    BGP1D24    BGP1D26
BGP1D3    BGP1D36    BGP1D42    BGP1D55    BGP1D6    BGP1D7    BGP1D731    BGP1D74
BGP1D75    BGP1D8    BGP1D84    BGP1D9    BGP1DCHW    BGP1DCI    BGP1DCLD    BGP1DCLP
BGP1DEMO    BGP1DNE    BGP1DPA    BGP1DPA1    BGP1DPA2    BGP1DPA9    BGP1DPAP    BGP1DPAW
BGP1DPE1    BGP1DPE2    BGP1DPEE    BGP1DPEL    BGP1DS    BGP1EL3    BGP1ELS    BGP1ELSL
BGP1EOS    BGP1EOUT    BGP1EUTL    BGP1GUA    BGP1HES    BGP1HESL    BGP1HUTL    BGP1NPLD
BGP1NPLP    BGP1PDLS    BGP1PUTL    BGP1UTL    BGP1UTL1    BGP2C1    BGP2C11    BGP2C12
BGP2C2    BGP2C2X    BGP2C3    BGP2C3X    BGP2C4    BGP2CP    BGP2CPU    BGP2D1
BGP2D10    BGP2D21    BGP2D211    BGP2D22    BGP2D23    BGP2D231    BGP2D24    BGP2D3
BGP2D36    BGP2D42    BGP2D55    BGP2D6    BGP2D7    BGP2D731    BGP2D74    BGP2D75
BGP2D8    BGP2D84    BGP2D9    BGP2DCHW    BGP2DCI    BGP2DCLD    BGP2DCLP    BGP2DEMO
BGP2DNE    BGP2DPA    BGP2DPA1    BGP2DPA2    BGP2DPA9    BGP2DPAP    BGP2DPAW    BGP2DPE1
BGP2DPE2    BGP2DPEE    BGP2DPEL    BGP2DS    BGP2EL3    BGP2ELS    BGP2ELSL    BGP2EOS
BGP2EOUT    BGP2EUTL    BGP2GUA    BGP2HES    BGP2HESL    BGP2HUTL    BGP2NPLD    BGP2NPLP
BGP2PDLS    BGP2PUTL    BGP2UTL    BGP2UTL1    BGP3C1    BGP3C11    BGP3C12    BGP3C2
BGP3C2X    BGP3C3    BGP3C3X    BGP3C4    BGP3CP    BGP3CPU    BGP3D1    BGP3D10
BGP3D21    BGP3D211    BGP3D22    BGP3D23    BGP3D231    BGP3D24    BGP3D3    BGP3D36
BGP3D42    BGP3D55    BGP3D6    BGP3D7    BGP3D731    BGP3D74    BGP3D75    BGP3D8
BGP3D84    BGP3D9    BGP3DCI    BGP3DCLD    BGP3DCLP    BGP3DEMO    BGP3DNE    BGP3DPA
BGP3DPA1    BGP3DPA2    BGP3DPA9    BGP3DPAP    BGP3DPAW    BGP3DPE1    BGP3DPE2    BGP3DPEE
BGP3DPEL    BGP3DS    BGP3EL3    BGP3ELS    BGP3ELSL    BGP3EUTL    BGP3GUA    BGP3NPLD
BGP3NPLP    BGP3PDLS    BGP3PUTL    BGP3UTL    BGP3UTL1    BGP4D1    BGP4D10    BGP4D21
BGP4D211    BGP4D22    BGP4D23    BGP4D231    BGP4D24    BGP4D3    BGP4D36    BGP4D39
BGP4D42    BGP4D55    BGP4D6    BGP4D7    BGP4D731    BGP4D74    BGP4D75    BGP4D8
BGP4D84    BGP4D9    BGP4DCI    BGP4DCLD    BGP4DCLP    BGP4DEMO    BGP4DPA    BGP4DPA1
BGP4DPA2    BGP4DPA9    BGP4DPAP    BGP4DPAW    BGP4DPE1    BGP4DPE2    BGP4DPEE    BGP4DPEL
BGP4DS    BGP4EL3    BGP4ELS    BGP4ELSL    BGP4EUTL    BGP4GUA    BGP4HES    BGP4HESL
BGP4HUTL    BGP4NPLD    BGP4NPLP    BGP4PDLS    BGP4PUTL    BGP4UTL    BGP4UTL1    BGP5C1
BGP5C12    BGP5C2    BGP5C3    BGP5D1    BGP5D10    BGP5D21    BGP5D211    BGP5D22
BGP5D23    BGP5D231    BGP5D24    BGP5D3    BGP5D36    BGP5D39    BGP5D42    BGP5D55
BGP5D6    BGP5D7    BGP5D731    BGP5D74    BGP5D75    BGP5D8    BGP5D84    BGP5D9
BGP5DCI    BGP5DCLD    BGP5DCLP    BGP5DEMO    BGP5DPA    BGP5DPA1    BGP5DPA2    BGP5DPAP
BGP5DPAW    BGP5DPE1    BGP5DPE2    BGP5DPEE    BGP5DPEL    BGP5DS    BGP5EL3    BGP5ELS
BGP5ELSL    BGP5EUTL    BGP5GUA    BGP5HES    BGP5HESL    BGP5HUTL    BGP5NPLD    BGP5NPLP
BGP5PDLS    BGP5PUTL    BGP5UTL    BGP5UTL1    BGP6C1    BGP6C12    BGP6C2    BGP6C3
BGP6D1    BGP6D10    BGP6D21    BGP6D211    BGP6D22    BGP6D23    BGP6D231    BGP6D3
BGP6D36    BGP6D39    BGP6D3C    BGP6D42    BGP6D55    BGP6D6    BGP6D7    BGP6D731
BGP6D74    BGP6D75    BGP6D8    BGP6D84    BGP6D9    BGP6DCHW    BGP6DCI    BGP6DCLD
BGP6DCLP    BGP6DEMO    BGP6DPA    BGP6DPA1    BGP6DPA2    BGP6DPAP    BGP6DPAW    BGP6DPE1
BGP6DPE2    BGP6DPEE    BGP6DPEL    BGP6DS    BGP6EL3    BGP6ELS    BGP6ELSL    BGP6EUTL
BGP6GUA    BGP6HES    BGP6HESL    BGP6HUTL    BGP6NPLD    BGP6NPLP    BGP6PDLS    BGP6PUTL
BGP6UTL    BGP6UTL1    BGP7C1    BGP7C12    BGP7C2    BGP7C3    BGP7D1    BGP7D10
BGP7D21    BGP7D211    BGP7D22    BGP7D23    BGP7D231    BGP7D24A    BGP7D3    BGP7D36
BGP7D39    BGP7D3C    BGP7D55    BGP7D6    BGP7D7    BGP7D731    BGP7D74    BGP7D75
BGP7D8    BGP7D84    BGP7D9    BGP7DCHW    BGP7DCI    BGP7DCLD    BGP7DCLP    BGP7DEMO
BGP7DNE    BGP7DNE0    BGP7DNE1    BGP7DNE8    BGP7DNE9    BGP7DPA    BGP7DPA1    BGP7DPA2
BGP7DPAP    BGP7DPAW    BGP7DPE1    BGP7DPE2    BGP7DPEE    BGP7DPEL    BGP7DS    BGP7EL3
BGP7ELS    BGP7ELSL    BGP7EUTL    BGP7GUA    BGP7HES    BGP7HESL    BGP7HUTL    BGP7NPLD
BGP7NPLP    BGP7PDLS    BGP7PUTL    BGP7UTL    BGP7UTL1    BGP8C1    BGP8C12    BGP8C2
BGP8C2X    BGP8C3    BGP8C3X    BGP8C4    BGP8CP    BGP8CPU    BGP8D1    BGP8D10
BGP8D21    BGP8D211    BGP8D22    BGP8D23    BGP8D24A    BGP8D3    BGP8D36    BGP8D39
BGP8D3C    BGP8D55    BGP8D6    BGP8D7    BGP8D715    BGP8D731    BGP8D74    BGP8D75
BGP8D8    BGP8D84    BGP8D9    BGP8DCHW    BGP8DCI    BGP8DCLD    BGP8DCLP    BGP8DEMO
BGP8DNE    BGP8DNE1    BGP8DPA    BGP8DPA1    BGP8DPA2    BGP8DPA9    BGP8DPAP    BGP8DPAW
BGP8DPE1    BGP8DPE2    BGP8DPEE    BGP8DPEL    BGP8DS    BGP8EL3    BGP8ELS    BGP8ELSL
BGP8EOS    BGP8EOUT    BGP8EUTL    BGP8GUA    BGP8HES    BGP8HESL    BGP8HUTL    BGP8NPLD
BGP8NPLP    BGP8PC1    BGP8PC14    BGP8PC16    BGP8PC8    BGP8PC9    BGP8PCUT    BGP8PDLS
BGP8PUTL    BGP8UTL    BGP8UTL1    BGP9C1    BGP9C11    BGP9C12    BGP9C2    BGP9C2X
BGP9C3    BGP9C3X    BGP9C4    BGP9CP    BGP9CPU    BGP9D1    BGP9D10    BGP9D21
BGP9D22    BGP9D23    BGP9D24    BGP9D3    BGP9D42    BGP9D6    BGP9D7    BGP9D731
BGP9D74    BGP9D75    BGP9D8    BGP9D84    BGP9D9    BGP9DCHW    BGP9DCI    BGP9DCLD
BGP9DCLP    BGP9DEMO    BGP9DNE    BGP9DPA    BGP9DPA1    BGP9DPA2    BGP9DPA9    BGP9DPAP
BGP9DPAW    BGP9DPE1    BGP9DPE2    BGP9DPEE    BGP9DPEL    BGP9DS    BGP9EL3    BGP9ELS
BGP9ELSL    BGP9EOS    BGP9EOUT    BGP9EUTL    BGP9GUA    BGP9HES    BGP9HESL    BGP9HUTL
BGP9NPLD    BGP9NPLP    BGP9PDLS    BGP9PUTL    BGP9UTL    BGP9UTL1    BGPD1    BGPD12
BGPD13    BGPD14    BGPD1B    BGPD2    BGPD22    BGPD23    BGPD24    BGPD29
BGPD3    BGPD30    BGPD31    BGPD4    BGPD5    BGPD6    BGPD7    BGPD8
BGPDA    BGPDB    BGPDC    BGPDD    BGPDS    BGPGP    BGPMUA01    BGPMUA02
BGPMUA03    BGPMUA04    BGPMUA05    BGPMUAD1    BGPMUAD2    BGPMUAD3    BGPMUAD4    BGPMUAD5
BGPMUAD6    BGPMUAD7    BGPMUAD8    BGPMUAP1    BGPMUAP2    BGPMUAP3    BGPMUAP4    BGPMUAP5
BGPMUAP6    BGPMUAP7    BGPMUAP8    BGPMUAP9    BGPMUBD1    BGPMUBD2    BGPMUBP1    BGPMUBP2
BGPMUCD1    BGPMUCP1    BGPMUD03    BGPMUDD5    BGPMUDD6    BGPMUDD7    BGPMUDP5    BGPMUDP6
BGPMUDP7    BGPMUEPD    BGPMUFD1    BGPMUFD5    BGPMUFD6    BGPMUFD7    BGPMUFD8    BGPMUFD9
BGPMUFP1    BGPMUFP4    BGPMUFP5    BGPMUFP6    BGPMUFP7    BGPMUFP8    BGPMUFP9    BGPMUGD1
BGPMUGD2    BGPMUGD3    BGPMUGD4    BGPMUGD5    BGPMUGD6    BGPMUGD7    BGPMUGD8    BGPMUGD9
BGPMUGP1    BGPMUGP2    BGPMUGP3    BGPMUGP4    BGPMUGP5    BGPMUGP6    BGPMUGP7    BGPMUGP8
BGPMUGP9    BGPMUHD8    BGPMUHP1    BGPMUUT2    BGPMUUT5    BGPMUUTL    BGPMUW01    BGPMUWD1
BGPMUWP1    
Registration 555 DG10    DG1010P6    DG1010P7    DG311PIR    DG3PR0    DG3PR1    DG3PR2    DG53293A
DG53293B    DG53294A    DG53334A    DG53334B    DG53591A    DG53P641    DG648PST    DGAGE
DGENCDA    DGENLUP    DGENPT    DGENUPA    DGHTHL7    DGMTCOR    DGMTDEL    DGPFAA2
DGPFHLL1    DGPMTSI1    DGPMVODS    DGPREP2    DGPTCR    DGPTFM7    DGPTXX1    DGPTXX8
DGROHLR1    DGRP7CC    DGRPDD1    DGRPECE    DGRPX711    DGRRLU    DGRRPSXX    DGRUUTL1
DGV53PT2    DGX5F1    DGYSPOST    VAFCMGB3    VAFHDD    VAFHLZRD    VAUQWK    ^DG(405.4
DG53351    DG53355A    DG53358    DG53358M    DG53358N    DG53426    DG53426M    DG53426N
DG53461    DG53461U    DG53514    DG53558M    DG53591B    DG53618    DG53632P    DG53672C
DG53P600    DG53P604    DG53P733    DG53S451    DGADDUTL    DGCLAPI1    DGCRNS    DGDIS1
DGEEREIM    DGEN    DGENCDA1    DGENCDA2    DGENCLN1    DGENELA1    DGENL    DGENLCD
DGENPTA1    DGFFPLM1    DGHELP    DGHNYXFR    DGHTENR    DGMSTL1    DGMTA    DGMTCOU1
DGMTDD    DGMTDD1    DGMTDD3    DGMTDELS    DGMTE    DGMTOFA    DGMTOPYT    DGMTR
DGMTR1    DGMTREQB    DGMTU    DGMTU4    DGMTXM    DGODMT    DGOERNOT    DGOIL
DGOIL1    DGOINPT1    DGOPATM    DGOVBC    DGPASS    DGPATV    DGPFHLS    DGPFUT2
DGPHIST    DGPHSTAT    DGPLBL    DGPMDD    DGPMDDCN    DGPMDDLD    DGPMGLP    DGPMOBS
DGPMRB    DGPMTSI    DGPMTSO1    DGPMTSO2    DGPMV    DGPMV0    DGPMV10    DGPMVPU
DGPMX1    DGPMXA    DGPMXAS    DGPREP0    DGPSEU2    DGPTC1    DGPTDRG    DGPTFJC
DGPTFM71    DGPTFTR    DGPTFTR3    DGPTLMU1    DGPTLMU4    DGPTODI2    DGPTODI3    DGPTOLC1
DGPTOLC2    DGPTTS    DGPTUTL    DGPTX110    DGPTX111    DGPTX112    DGPTX113    DGPTX114
DGPTX115    DGQEDEMO    DGQEHLS    DGQEMA    DGQEMP    DGQESC5    DGQEUT1    DGQEUT2
DGQEUT3    DGQPT    DGREG    DGREG0    DGREGAED    DGREGE    DGREGFAC    DGROHLS
DGRP    DGRP1    DGRP11    DGRP2    DGRP3    DGRP4    DGRP5    DGRP6
DGRP6EF    DGRP7    DGRPC    DGRPCADD    DGRPCP1    DGRPCTRG    DGRPD    DGRPE
DGRPE1    DGRPE4    DGRPLE    DGRPMS    DGRPP    DGRPTI    DGRPTL    DGRPTL2
DGRPTP    DGRPTU    DGRPTX    DGRPTX22    DGRPTX23    DGRPTX24    DGRPTX25    DGRPTX26
DGRPTX27    DGRPTX28    DGRPTX29    DGRPTX3    DGRPTX30    DGRPTX31    DGRPTX34    DGRPTX35
DGRPTX36    DGRPTX37    DGRPTX38    DGRPTX39    DGRPTX9    DGRPU    DGRPV    DGRPX710
DGRPX712    DGRPX73    DGRPX74    DGRPX75    DGRPX76    DGRPX77    DGRRLU0    DGRRLU1
DGRRLU1A    DGRRLU2    DGRRLU6    DGRRLUA    DGRRPSEE    DGRUGBGJ    DGRUGS    DGRUGSA
DGSCHAD3    DGSEC    DGSEC1    DGSEC2    DGSEC3    DGSEC4    DGVPTDV1    DGWAIT
DGWPT    DGYPREG1    DGYPREG5    DGYPSDE2    DPTDPO    DPTDZALP    DPTDZDCH    DPTDZFCH
DPTDZFIX    DPTLK    DPTLK3    VADPT60    VADPT62    VAFCA04    VAFCDD01    VAFCEHU1
VAFCEHU2    VAFCHIS    VAFCMG01    VAFCMS01    VAFCMSG0    VAFCMSG1    VAFCMSG3    VAFCPDAT
VAFCPDT2    VAFCQRY1    VAFCQRY3    VAFCQRY4    VAFCRPC    VAFCTFU2    VAFHAPV1    VAFHCA08
VAFHCOPT    VAFHLZE1    VAFHLZEL    VAFHLZEM    VAFHLZSN    VAFHLZSP    VAFHPIVT    ^DPT
DG1010P1    DG1010P5    DG1010PX    DG53342P    DG53372A    DG53528P    DG53B563    DG53P593
DG53P597    DGCOL    DGCV1    DGDEP    DGDIS    DGENDD    DGENOEIF    DGISORPT
DGMSRPT1    DGMTO1    DGMTOREQ    DGMTSC    DGODNP1    DGPMRBA1    DGPMVBUL    DGPMVBUR
DGPSEUDO    DGPTF099    DGPTFMO    DGPTFVC    DGPTMSG    DGPTOM2    DGPTSUDO    DGQEHL70
DGQEHL73    DGQEMA1    DGQERPC    DGREGAZL    DGROUT2    DGRPEIS    DGRPTX1    DGRPTX2
DGRPTX4    DGRPTX44    DGRPTX5    DGRPTX6    DGRPTX7    DGRPTX8    DGRUDD01    DGVPTIB1
DGVPTIB3    DGVPTIB5    DGWPT1    DGYZODS    DPTDZPO    DPTLK1    DPTLK2    DPTLK5
DPTLK6    VADPT4    VADPT5    VAFCAUD    VAFCLAU    VAFCMS03    VAFCMSG    VAFCTFMF
VAFHLPD1    VAFHLZCT    VAFHUTL    ^DGPM    DG1010P2    DG53602S    DG53735P    DG53P621
DG712PST    DGA4001    DGA4004    DGENCDRP    DGLOCK1    DGLOCK2    DGLOCK3    DGMTHL
DGPTF1    DGPTF2    DGPTFD    DGPTFREL    DGREGTE2    DGREGTED    DGROHLR    DGROUT
DGRP6CL    DGRPTX10    DGRPTX11    DGRPTX14    DGRPTX17    DGRRPSGT    DGRUGC    DGRUGV
DGVPTIB6    DGYPREG    VADPT0    VADPT1    VADPT3    VADPT6    VAFHUTL2    ^DIC(42
DG53285    DG53672R    DGBLRV    DGCV    DGCVRPT    DGMTOHD    DGNTAPI1    DGOVBC1
DGOVBC2    DGPFDD    DGPMEVT    DGPMGLG1    DGPTF    DGPTFDEL    DGPTFVC1    DGQEREQ
DGRPCE    DGRPCF    DGRPCK    DGRPEIS1    DGRPEIS2    DGRPEIS3    DGRPTX18    DGRPTX19
DGRRPSD2    DGRRPSD3    DGRRPSKN    DGRUGIX    DGUTL    DPTDUP    DPTDZCH    VADPT30
^DGS(43.5    DG1010P    DG1010P3    DG1010P4    DG1010S1    DG1010S2    DG53208P    DG53213P
DG53244U    DG53244V    DG53401P    DG53500    DG53591M    DG53658    DG53659    DG53665O
DG53807P    DG53829P    DG53P543    DG53P622    DG53P624    DG53P629    DG702PST    DGDDC
DGDEATH    DGDEP1    DGDEPE    DGDISS    DGDIST    DGEN408    DGENA    DGENA1
DGENA3    DGENA5    DGENA6    DGENELA    DGENELA2    DGENL2    DGENLEH    DGENPTA
DGENSEC    DGENUPL2    DGENUPL9    DGFFP01    DGFFP02    DGFFP03    DGFFP04    DGFFPLM
DGLOCK    DGMSTAPI    DGMSTR1    DGMSTR4    DGMTU23    DGOINS1    DGOREL1    DGPMOLD1
DGPMUTL    DGPMV33    DGPREBJ1    DGPTAEE    DGPTAPA1    DGPTAPSL    DGPTOTRL    DGPTRPO
DGPTTS1    DGPTUTL1    DGPTX1    DGPTX11    DGPTX13    DGPTX14    DGPTX15    DGPTX18
DGPTX19    DGPTX51    DGPWB    DGPZ07P    DGQEMPS    DGQPTQ1    DGQPTQ2    DGQPTQ5
DGREG00    DGREGDD1    DGREGDEL    DGREGG    DGROHLU    DGRP10    DGRP13    DGRP14
DGRP6CL1    DGRP6CL2    DGRPC1    DGRPC2    DGRPC3    DGRPCE1    DGRPD1    DGRPDB
DGRPDT    DGRPTL1    DGRPTL3    DGRPTP1    DGRPTP2    DGRPTX40    DGRPTX41    DGRPTX43
DGRPU1    DGRPX7    DGRPXC    DGRPXR    DGRSTBAD    DGRUGBJ    DGRUGPI    DGRUGPP1
DGRUGV16    DGSCHAD    DGSRVICE    DGUTL3    DGVPTIB2    DGYMF31A    DPTDCAN    DPTDN
DPTDZPRE    DPTNAME    VADPT    VAFCCOPT    VAFCEHLM    VAFCPID    VAFCPTAD    VAFCPTED
VAFCPV1    VAFCRAU    VAFHCPV    VAFHLPI1    VAFHLPID    VAFHLZGD    VAFHLZIE    VAFHLZMH
VAFHLZPD    VAFHLZTA    VAFMON    
IHS Uniform Data System 432 BUD0RP6B    BUD0RP6C    BUD0RP6D    BUD0RP6I    BUD0RP6P    BUD0RP7    BUD0RP7A    BUD0RP7B
BUD0RP7C    BUD0RP7I    BUD0RP7J    BUD0RP7K    BUD0RP7L    BUD0RP7M    BUD0RP7S    BUD0RP7T
BUD0RPL1    BUD0RPL2    BUD0RPL3    BUD0RPL4    BUD0RPTC    BUD0RPTL    BUD0UTL1    BUD0UTL2
BUD1DU    BUD1RP6B    BUD1RP6C    BUD1RP6D    BUD1RP6F    BUD1RP6G    BUD1RP6I    BUD1RP6P
BUD1RP6S    BUD1RP6T    BUD1RP6U    BUD1RP6V    BUD1RP7    BUD1RP7A    BUD1RP7B    BUD1RP7C
BUD1RP7I    BUD1RP7J    BUD1RP7K    BUD1RP7L    BUD1RP7M    BUD1RP7S    BUD1RP7T    BUD1RPC2
BUD1RPL1    BUD1RPL2    BUD1RPL3    BUD1RPL4    BUD1RPL5    BUD1RPTC    BUD1RPTL    BUD1UTL1
BUD1UTL2    BUD2DU    BUD2RP6B    BUD2RP6C    BUD2RP6D    BUD2RP6F    BUD2RP6G    BUD2RP6I
BUD2RP6J    BUD2RP6K    BUD2RP6L    BUD2RP6M    BUD2RP6N    BUD2RP6O    BUD2RP6P    BUD2RP6S
BUD2RP6T    BUD2RP6U    BUD2RP6V    BUD2RP7    BUD2RP7A    BUD2RP7B    BUD2RP7C    BUD2RP7I
BUD2RP7J    BUD2RP7K    BUD2RP7L    BUD2RP7M    BUD2RP7S    BUD2RP7T    BUD2RPC2    BUD2RPC3
BUD2RPL1    BUD2RPL2    BUD2RPL3    BUD2RPL4    BUD2RPL5    BUD2RPTC    BUD2RPTL    BUD2UTL1
BUD2UTL2    BUD4RPL1    BUD4RPL2    BUD4RPTC    BUD4RPTL    BUD5RPL1    BUD5RPL2    BUD5RPTC
BUD5RPTL    BUD6RPL1    BUD6RPL2    BUD6RPTC    BUD6RPTL    BUD7RPL1    BUD7RPL2    BUD7RPL3
BUD7RPTC    BUD7RPTL    BUD8RP6B    BUD8RP6C    BUD8RP6D    BUD8RP6I    BUD8RP6P    BUD8RP7
BUD8RP7A    BUD8RP7B    BUD8RP7C    BUD8RP7I    BUD8RP7J    BUD8RP7K    BUD8RP7L    BUD8RP7M
BUD8RP7S    BUD8RP7T    BUD8RPL1    BUD8RPL2    BUD8RPL3    BUD8RPL4    BUD8RPTC    BUD8RPTL
BUD8UTL1    BUD9RP6B    BUD9RP6C    BUD9RP6D    BUD9RP6I    BUD9RP6P    BUD9RP7    BUD9RP7A
BUD9RP7B    BUD9RP7C    BUD9RP7I    BUD9RP7J    BUD9RP7K    BUD9RP7L    BUD9RP7M    BUD9RP7S
BUD9RP7T    BUD9RPL1    BUD9RPL2    BUD9RPL3    BUD9RPL4    BUD9RPTC    BUD9RPTL    BUD9UTL1
BUD9UTL2    BUDADU    BUDARP6B    BUDARP6C    BUDARP6D    BUDARP6F    BUDARP6G    BUDARP6I
BUDARP6J    BUDARP6K    BUDARP6L    BUDARP6M    BUDARP6N    BUDARP6O    BUDARP6P    BUDARP6S
BUDARP6T    BUDARP6U    BUDARP6V    BUDARP7    BUDARP7A    BUDARP7B    BUDARP7C    BUDARP7I
BUDARP7J    BUDARP7K    BUDARP7L    BUDARP7M    BUDARP7S    BUDARP7T    BUDARPC2    BUDARPC3
BUDARPL1    BUDARPL2    BUDARPL3    BUDARPL4    BUDARPL5    BUDARPTC    BUDARPTL    BUDAUTL1
BUDAUTL2    BUDBDU    BUDBRP6A    BUDBRP6B    BUDBRP6C    BUDBRP6D    BUDBRP6F    BUDBRP6G
BUDBRP6I    BUDBRP6J    BUDBRP6K    BUDBRP6L    BUDBRP6M    BUDBRP6N    BUDBRP6O    BUDBRP6P
BUDBRP6Q    BUDBRP6S    BUDBRP6T    BUDBRP6U    BUDBRP6V    BUDBRP7    BUDBRP7A    BUDBRP7B
BUDBRP7C    BUDBRP7I    BUDBRP7J    BUDBRP7K    BUDBRP7L    BUDBRP7M    BUDBRP7S    BUDBRP7T
BUDBRPC2    BUDBRPC3    BUDBRPL1    BUDBRPL2    BUDBRPL3    BUDBRPL4    BUDBRPL5    BUDBRPTC
BUDBRPTL    BUDBUTL1    BUDBUTL2    BUDCDU    BUDCRP61    BUDCRP6A    BUDCRP6B    BUDCRP6C
BUDCRP6D    BUDCRP6F    BUDCRP6G    BUDCRP6H    BUDCRP6I    BUDCRP6J    BUDCRP6K    BUDCRP6L
BUDCRP6M    BUDCRP6N    BUDCRP6O    BUDCRP6P    BUDCRP6Q    BUDCRP6R    BUDCRP6S    BUDCRP6T
BUDCRP6U    BUDCRP6V    BUDCRP6W    BUDCRP7    BUDCRP7A    BUDCRP7B    BUDCRP7C    BUDCRP7I
BUDCRP7J    BUDCRP7K    BUDCRP7L    BUDCRP7M    BUDCRP7S    BUDCRP7T    BUDCRP7U    BUDCRPC2
BUDCRPC3    BUDCRPL1    BUDCRPL2    BUDCRPL3    BUDCRPL4    BUDCRPL5    BUDCRPTC    BUDCRPTL
BUDCUTL1    BUDCUTL2    BUDDDU    BUDDRP61    BUDDRP6A    BUDDRP6B    BUDDRP6C    BUDDRP6D
BUDDRP6F    BUDDRP6G    BUDDRP6I    BUDDRP6J    BUDDRP6K    BUDDRP6L    BUDDRP6M    BUDDRP6N
BUDDRP6O    BUDDRP6P    BUDDRP6Q    BUDDRP6R    BUDDRP6S    BUDDRP6T    BUDDRP6U    BUDDRP6V
BUDDRP6W    BUDDRP7    BUDDRP7A    BUDDRP7B    BUDDRP7C    BUDDRP7I    BUDDRP7J    BUDDRP7K
BUDDRP7L    BUDDRP7M    BUDDRP7S    BUDDRP7T    BUDDRP7U    BUDDRPC2    BUDDRPC3    BUDDRPL1
BUDDRPL2    BUDDRPL3    BUDDRPL4    BUDDRPL5    BUDDRPTC    BUDDRPTL    BUDDUTL1    BUDDUTL2
BUDEDU    BUDERP61    BUDERP6A    BUDERP6B    BUDERP6C    BUDERP6D    BUDERP6F    BUDERP6G
BUDERP6I    BUDERP6J    BUDERP6K    BUDERP6L    BUDERP6M    BUDERP6N    BUDERP6O    BUDERP6P
BUDERP6Q    BUDERP6R    BUDERP6S    BUDERP6T    BUDERP6U    BUDERP6V    BUDERP6W    BUDERP7
BUDERP7A    BUDERP7B    BUDERP7C    BUDERP7I    BUDERP7J    BUDERP7K    BUDERP7L    BUDERP7M
BUDERP7S    BUDERP7T    BUDERP7U    BUDERPC2    BUDERPC3    BUDERPL1    BUDERPL2    BUDERPL3
BUDERPL4    BUDERPL5    BUDERPTC    BUDERPTL    BUDEUTL1    BUDEUTL2    BUDHDU    BUDHRP61
BUDHRP6A    BUDHRP6B    BUDHRP6C    BUDHRP6D    BUDHRP6F    BUDHRP6G    BUDHRP6I    BUDHRP6J
BUDHRP6K    BUDHRP6L    BUDHRP6M    BUDHRP6N    BUDHRP6O    BUDHRP6P    BUDHRP6Q    BUDHRP6R
BUDHRP6S    BUDHRP6T    BUDHRP6U    BUDHRP6V    BUDHRP6W    BUDHRP7    BUDHRP7A    BUDHRP7B
BUDHRP7C    BUDHRP7I    BUDHRP7J    BUDHRP7K    BUDHRP7L    BUDHRP7M    BUDHRP7S    BUDHRP7T
BUDHRP7U    BUDHRPC2    BUDHRPC3    BUDHRPL1    BUDHRPL2    BUDHRPL3    BUDHRPL4    BUDHRPL5
BUDHRPTC    BUDHRPTL    BUDHUTL1    BUDHUTL2    BUDRPTC    BUDRPTL    BUDRPTL1    BUDRPTL2
Diabetes Registry 264 BDMAPIU    BDMD010    BDMD013    BDMD015    BDMD018    BDMD01G    BDMD01P    BDMD110
BDMD113    BDMD115    BDMD118    BDMD11G    BDMD11P    BDMD204    BDMD205    BDMD207
BDMD208    BDMD214    BDMD215    BDMD217    BDMD218    BDMD312    BDMD313    BDMD314
BDMD315    BDMD318    BDMD410    BDMD413    BDMD415    BDMD418    BDMD41G    BDMD41P
BDMD513    BDMD514    BDMD515    BDMD518    BDMD51G    BDMD613    BDMD615    BDMD618
BDMD61G    BDMD713    BDMD715    BDMD718    BDMD71G    BDMD71P    BDMD810    BDMD813
BDMD815    BDMD818    BDMD81G    BDMD81P    BDMD910    BDMD913    BDMD915    BDMD918
BDMD91G    BDMD91P    BDMD994    BDMD997    BDMD998    BDMDA10    BDMDA11    BDMDA12
BDMDA13    BDMDA15    BDMDA18    BDMDA1G    BDMDA1P    BDMDB10    BDMDB11    BDMDB12
BDMDB13    BDMDB15    BDMDB18    BDMDB1G    BDMDB1P    BDMDC10    BDMDC11    BDMDC12
BDMDC13    BDMDC15    BDMDC18    BDMDC1G    BDMDC1P    BDMDD1    BDMDD10    BDMDD11
BDMDD12    BDMDD13    BDMDD15    BDMDD18    BDMDD1B    BDMDD1G    BDMDD1P    BDMDE1
BDMDE10    BDMDE11    BDMDE12    BDMDE13    BDMDE15    BDMDE18    BDMDE1B    BDMDE1G
BDMDE1P    BDMDF1    BDMDF10    BDMDF11    BDMDF12    BDMDF13    BDMDF15    BDMDF18
BDMDF1B    BDMDF1D    BDMDF1G    BDMDF1J    BDMDF1P    BDMDF1V    BDMDG1    BDMDG10
BDMDG11    BDMDG12    BDMDG13    BDMDG15    BDMDG18    BDMDG1B    BDMDG1D    BDMDG1G
BDMDG1J    BDMDG1P    BDMDG1V    BDMDG1Y    BDMDM5    BDMDMAP    BDMDMAS    BDMDMSM
BDMDR1    BDMDR2    BDMDR3    BDMDR31    BDMDR4    BDMDR6    BDMFLOW    BDMGU
BDMGUA    BDMGUB    BDMLET    BDMLPM    BDMP010    BDMP011    BDMP012    BDMP013
BDMP014    BDMP018    BDMP01P    BDMP110    BDMP111    BDMP112    BDMP113    BDMP114
BDMP118    BDMP11P    BDMP410    BDMP411    BDMP412    BDMP413    BDMP414    BDMP418
BDMP41P    BDMP510    BDMP511    BDMP512    BDMP513    BDMP514    BDMP518    BDMP610
BDMP611    BDMP612    BDMP613    BDMP614    BDMP618    BDMP710    BDMP711    BDMP712
BDMP713    BDMP714    BDMP718    BDMP71P    BDMP810    BDMP811    BDMP812    BDMP813
BDMP814    BDMP818    BDMP81P    BDMP910    BDMP911    BDMP912    BDMP913    BDMP914
BDMP918    BDMP91P    BDMPA10    BDMPA11    BDMPA12    BDMPA13    BDMPA14    BDMPA18
BDMPA1P    BDMPB10    BDMPB11    BDMPB12    BDMPB13    BDMPB14    BDMPB18    BDMPB1P
BDMPC10    BDMPC11    BDMPC12    BDMPC13    BDMPC14    BDMPC18    BDMPC1P    BDMPD1
BDMPD10    BDMPD11    BDMPD14    BDMPD18    BDMPD1P    BDMPE1    BDMPE10    BDMPE11
BDMPE14    BDMPE18    BDMPE1P    BDMPF1    BDMPF10    BDMPF11    BDMPF14    BDMPF18
BDMPF1P    BDMPG1    BDMPG10    BDMPG11    BDMPG14    BDMPG18    BDMPG1P    BDMPL
BDMPROB    BDMRML    BDMS9B1    BDMS9B3    BDMS9B5    BDMS9B7    BDMS9D1    BDMSELFM
BDMSMU2    BDMUTL    BDMVRL    BDMVRL2    BDMVRL4    BDMVRL43    BDMVRL5    BDMVRL6
Scheduling 254 CLINIC STOP CODE    PATIENT    SCAPMC10    SCAPMC11    SCAPMC18    SCAPMC2    SCAPMC20    SCAPMC21
SCAPMC22    SCAPMC23    SCAPMC25    SCAPMC26    SCAPMC28    SCAPMC29    SCAPMC3    SCAPMC6
SCAPMC7    SCAPMCA    SCCVCST2    SCCVCST4    SCCVEAE    SCCVEAE1    SCCVEAP    SCCVEAP1
SCCVEAP3    SCCVEDI    SCCVEDI1    SCCVEDI3    SCCVLOG1    SCCVU    SCDXFU02    SCDXMSG2
SCDXPOV    SCDXPRN2    SCDXSUP    SCDXSUP1    SCDXUTL0    SCDXUTL2    SCDXUTL4    SCENI0
SCENIA0    SCENIA2    SCMCBK1    SCMCBK6    SCMCBK7    SCMCCON    SCMCCV    SCMCCV2
SCMCEV2    SCMCEV3    SCMCHLR    SCMCHLR2    SCMCHLR3    SCMCHLR9    SCMCMU3    SCMCPM
SCMCQK1    SCMCQK2    SCMCTMM    SCMCTMU    SCMCTPM    SCMCTPU3    SCMCTSK2    SCMCTSK3
SCMCU1    SCMRTMM    SCMRTPM    SCMSPX1    SCMSPX2    SCMSVUT0    SCMSVUT1    SCMSVUT3
SCRPEC    SCRPEC2    SCRPI01    SCRPMPSP    SCRPMTA    SCRPO    SCRPO2    SCRPPAT2
SCRPTA2    SCRPTP    SCRPTP3    SCRPU3    SCRPV1A    SCRPV1B    SCRPW1    SCRPW11
SCRPW18    SCRPW24    SCRPW25    SCRPW26    SCRPW27    SCRPW28    SCRPW3    SCRPW41
SCRPW43    SCRPW47    SCRPW51    SCRPW54    SCRPW61    SCRPW63    SCRPW72    SCRPW75
SCRPW78    SD APPT STATUS    SD53103A    SD53227P    SD53430P    SD5360PT    SD53P389    SD53P487
SDACS0    SDAL0    SDAM1    SDAM10    SDAM2    SDAM3    SDAMA200    SDAMA300
SDAMA302    SDAMA303    SDAMA305    SDAMA308    SDAMBAE2    SDAMBMR    SDAMC    SDAMEP
SDAMEP1    SDAMEP2    SDAMEP3    SDAMEVT    SDAMEVT3    SDAMEX    SDAMEX1    SDAMN
SDAMOC    SDAMODO2    SDAMODO3    SDAMOLP    SDAMOS    SDAMOW1    SDAMOWB    SDAMOWP
SDAMQ3    SDAMQ5    SDAMU    SDAMVSC    SDAMWI    SDAMWI1    SDAPI    SDAPIAE0
SDAPIAP    SDAPP    SDASO    SDAUT2    SDC    SDC0    SDC1    SDC3
SDCAN    SDCCP    SDCD    SDCI    SDCIAL    SDCLAS    SDCLAS0    SDCLAV0
SDCLK    SDCNL    SDCNP    SDCNP0    SDCNP1    SDCNP1A    SDCNP2    SDCNSLT
SDCO    SDCO1    SDCO22    SDCO23    SDCO7    SDCOAM    SDCOU    SDCWL2
SDCWL3    SDDPA    SDDSO    SDF    SDF1    SDHPIB    SDL1    SDLT
SDM    SDM1    SDM1A    SDM1T    SDM1T1    SDM1T11    SDM2    SDM2A
SDM3    SDM4    SDMEAN    SDMHAD    SDMHAD1    SDMHNS1    SDMM1    SDMULT
SDMULT1    SDN    SDN0    SDN1    SDN2    SDNDIS    SDNOS0    SDNP
SDOEDX    SDOEOE    SDOPC0    SDPBE    SDPBP    SDPCE    SDPCE2    SDPFSS
SDPHARM    SDPHARM1    SDPMUT1    SDPP    SDPPAPP1    SDPPAT1    SDPPDIS1    SDPPENR1
SDPPRT    SDQVAL    SDREV    SDRFC    SDROUT0    SDROUT1    SDROUT2    SDRPA05
SDRPA08    SDST    SDSTAT    SDUTL1    SDUTL3    SDVSIT    SDVSIT0    SDVSIT2
SDWLSC    SDYCENR    ^SDV    SDWARD    SDWLRP3    SDYRENR    
Patient Care Component Reports 190 APCL2A3    APCL8A1    APCLACC2    APCLACG1    APCLACGM    APCLADA1    APCLADX1    APCLAL1
APCLAL1P    APCLAL2    APCLAL2P    APCLAL31    APCLAL3P    APCLAL4P    APCLAL5    APCLAL5P
APCLAPI7    APCLAUD1    APCLAUD2    APCLBIN1    APCLBP1    APCLBRH1    APCLBRH2    APCLBV1
APCLBV2    APCLCAR1    APCLCART    APCLCH11    APCLCH21    APCLCP81    APCLCPT1    APCLCZP1
APCLD204    APCLD205    APCLD207    APCLD208    APCLD214    APCLD215    APCLD217    APCLD218
APCLD312    APCLD313    APCLD314    APCLD315    APCLD318    APCLD513    APCLD514    APCLD515
APCLD518    APCLD51G    APCLD613    APCLD615    APCLD618    APCLD61G    APCLD713    APCLD715
APCLD718    APCLD71G    APCLD71P    APCLD810    APCLD813    APCLD815    APCLD818    APCLD81G
APCLD81P    APCLD994    APCLD997    APCLD998    APCLDE1    APCLDE1P    APCLDE2    APCLDE2P
APCLDE31    APCLDE3P    APCLDE4P    APCLDE5    APCLDE5P    APCLDEMO    APCLDM5    APCLDMAP
APCLDMAS    APCLDMSM    APCLDOD1    APCLDOD2    APCLDP1P    APCLDR1    APCLDR2    APCLDR3
APCLDR31    APCLDV1P    APCLDV2P    APCLDV31    APCLDV3P    APCLDV4P    APCLDV5P    APCLEL1
APCLEL2    APCLEL4    APCLEM1    APCLEM2    APCLER1P    APCLER2P    APCLGVP    APCLHCT2
APCLHDD    APCLHH1    APCLIPC2    APCLLT    APCLM1    APCLM2    APCLNJ11    APCLNJ21
APCLOP1    APCLOR1    APCLOS2    APCLOS21    APCLP510    APCLP511    APCLP512    APCLP513
APCLP514    APCLP518    APCLP610    APCLP611    APCLP612    APCLP613    APCLP614    APCLP618
APCLP710    APCLP711    APCLP712    APCLP713    APCLP714    APCLP718    APCLP71P    APCLP810
APCLP811    APCLP812    APCLP813    APCLP814    APCLP818    APCLP81P    APCLPCT2    APCLPDBL
APCLPDEM    APCLPLCV    APCLPP21    APCLPRPM    APCLPS1    APCLPYR2    APCLPYR3    APCLPYR4
APCLPYR5    APCLRADP    APCLREDU    APCLREF1    APCLRIN    APCLRPL1    APCLRT1P    APCLRX91
APCLSIL1    APCLSIL2    APCLSIL3    APCLSILI    APCLSILR    APCLSILU    APCLSMU    APCLSMU2
APCLSMUN    APCLT1    APCLTAX    APCLTONI    APCLUPST    APCLUTL    APCLV1    APCLV2
APCLVDR    APCLVL1    APCLVLU    APCLVLU1    APCLW11    APCLW21    APCLW61    APCLW6P
APCLYV11    APCLYV12    APCLYV21    APCLYV22    APCLYV31    APCLYV52    
Integrated Billing 170 CD STATUS CONDITIONS    CD STATUS DIAGNOSES    CONFIDENTIAL ADDRESS CATEGORY    DISPOSITION LOG-IN DATE/TIME    ENROLLMENT DATA    ETHNICITY INFORMATION    IB20PT1    IB20PT6
IB20PT82    IB20PT83    IB20PT84    IB20PT86    IB20PT87    IB20PT88    IB20PT89    IB20PT8B
IBAUTL    IBCA    IBCB    IBCF    IBCF1    IBCF2    IBCF31    IBCF4
IBCNADD    IBCNS    IBCNSBL    IBCNSBL1    IBCNSC3    IBCNSM4    IBCNSP02    IBCNSP1
IBCNSP2    IBCNSP3    IBCONS1    IBCSC1    IBCSC2    IBCSC6    IBCSCE    IBCU
IBCU64    IBCU82    IBERS1    IBERS2    IBOBCC    IBOBL    IBOEMP2    IBOMTC1
IBOTR2    IBOUNP2    IBOUNP3    IBOUNP5    IBOUNP6    IBOVOP1    IBPUDEL    IBRFN2
IBTODD    IBTODD1    IBTOTR    IBTOUA    IBTRC4    IBTRD    IBTRE    IBTRKR31
IBTRKR41    IBTRV    IBTRV2    IBTUTL1    IBXSC112    IBXSC14    IBXSC16    IBXSC21
^DGCR(399    IBXSC11    IBXSC12    IBXSC17    ^IBT(356.9    IBXSC18    IBXSC19    ^IBT(356.1
^IBT(356.93    ARCHIVED DATA    CD STATUS PROCEDURES    ENROLLMENT CLINIC    IB20PT8A    IBAPDX    IBARXEPL    IBCBB
IBCBULL    IBCF10    IBCNS1    IBCNS2    IBCNSA    IBCNSM    IBCNSOK    IBCNSOK1
IBCNSP    IBCOPV    IBCSCE1    IBECEAU    IBNEXTAPPT    IBOAMS    IBOBCR6    IBOCHK
IBOMBL    IBOSTUS1    IBOVOP    IBRCON1    IBTOAT2    IBTOBI    IBTOBI2    IBTOPW
IBTOSA    IBTRC2    IBTRC3    IBTRCD0    IBTRE2    IBTRPR0    IBTRPR01    IBXSC22
INSURANCE TYPE    PATIENT ELIGIBILITIES    ^IBE(351    APPOINTMENT    CD HISTORY DATE    CD REASON    IB20PT81    IBAMTC1
IBAMTEDU    IBAMTS2    IBAUTL5    IBCD2    IBCD3    IBCD4    IBCFP    IBCNSEVT
IBCNSM1    IBCNSM2    IBCNSM3    IBCNSM31    IBCNSM5    IBCONS2    IBCOPV2    IBCSCU
IBCU3    IBCU5    IBCVA0    IBEFUNC    IBOEMP1    IBTOUR2    IBTOUR4    IBTRE20
IBTRED    IBTRED01    IBXBCR2    IBXSC110    IBXSC111    IBXSC113    IBXSC114    IBXSC116
OCCURRENCE CODE    PH DATE/TIME UPDATED    SERVICE [OEF OR OIF]    ^IBA(355.7    ^IBT(356    ^IBT(356.2    IBXSC115    ^IBT(356.91
^IBT(356.94    RACE INFORMATION    
IHS Patient Registration 158 AG0    AG1    AG2    AG2A    AG3A    AG3RDP    AG4    AG5
AG6    AG6P17B    AG71A    AG71A1    AG71A11    AG71A2    AG71A3    AG71A4
AG71A5    AG71A9    AG8A    AG8B    AGACAL    AGACT    AGADDINF    AGADDR1
AGAGEB    AGAGERP1    AGALPHA    AGALPHA1    AGAPIPAT    AGAPIS    AGBADATA    AGBIC1A
AGBIC1B    AGBIC2    AGBIC2P    AGBICEDZ    AGBLDS    AGCARD    AGCHART    AGCHLB
AGCMATCH    AGCO    AGDATCK    AGDELHRN    AGDELPAT    AGDOB    AGED    AGED1
AGED10A    AGED10B    AGED11B    AGED13    AGED2    AGED42    AGED4A1    AGED4A2
AGED4PD    AGED51    AGED62    AGED6PD    AGED7B    AGED8    AGEDBEG    AGEDCHEK
AGEDERR    AGEDERR1    AGEDERR2    AGEDGUAR    AGEDIT    AGEDMCD    AGEDMCD1    AGEDNAME
AGEDPRV    AGEDPRV1    AGEDPRVB    AGEDPRVI    AGEDPRVP    AGEDPRVU    AGEL    AGEL0A
AGEL1    AGEL5    AGELA    AGELA1    AGELE2X2    AGELPHCK    AGELUP6    AGELUPR
AGELUPUT    AGERRAUD    AGEVLM    AGFACE    AGFACE1    AGFACE7    AGHL7    AGHOME
AGINS    AGINSUPD    AGIVDRIV    AGKPAT    AGLSSN    AGLSSN2    AGMAN    AGMANERS
AGMCDP    AGMCDPC    AGMCDPCM    AGMCDPN    AGMCRP    AGMCRP2    AGMCRP3    AGMCRP4
AGMCRP5    AGMCRP6    AGMSPFRM    AGMSPINT    AGNDX1    AGNDX3    AGNDX4    AGNDXP
AGOV64    AGPHADDR    AGREPRT1    AGREPRT2    AGRPTEMP    AGRPTPDP    AGRPTPRV    AGRPTVET
AGRSSN1    AGSAMPG    AGSCANP    AGSS1    AGSSLBAT    AGSSLPRT    AGSSPRT    AGSSPSDO
AGSSRA    AGSSRD    AGSSRN    AGSSRP    AGSSRR    AGSSRV    AGSSRX    AGTEMPP
AGTMPP    AGTRBL    AGTX0    AGTX1    AGTX2    AGTX3    AGTX5    AGTXALL
AGTXERP    AGTXPER    AGTXPERK    AGUND18    AGUTILS    AGVALID    
Mental Health Social Services 146 AMHBPL    AMHBPL1    AMHBPL2    AMHBS    AMHDMHPL    AMHDPEE    AMHDPP    AMHEGR
AMHEGS    AMHEHR    AMHEXCP    AMHEXD2    AMHEYCP    AMHGAFS    AMHGBDSP    AMHGOM
AMHGP    AMHGRAP    AMHLCD    AMHLE    AMHLE2    AMHLE3    AMHLEDV    AMHLEFP1
AMHLEFP2    AMHLEFPP    AMHLEGP1    AMHLEI    AMHLEI3    AMHLEIV    AMHLEIV3    AMHLEL
AMHLELV    AMHLEMD    AMHLEP1    AMHLEP2    AMHLESA2    AMHLESAN    AMHLESEA    AMHLESED
AMHLESEP    AMHLESEX    AMHLESF    AMHLESHF    AMHLESM    AMHLETN    AMHLETP    AMHLETP1
AMHLETP3    AMHLETPP    AMHLETPU    AMHLETR    AMHLETR1    AMHLETR2    AMHLETR3    AMHNAVRP
AMHPCCL    AMHPCCL1    AMHPHQM    AMHPHQO    AMHPL    AMHPL1    AMHPL2    AMHPROB
AMHPST    AMHPVDSG    AMHRAGS    AMHRAS1    AMHRAS1P    AMHRAS2    AMHRAS2P    AMHRAS31
AMHRAS3P    AMHRAS4P    AMHRAS5    AMHRAS5P    AMHRBV1    AMHRBV2    AMHRC1    AMHRC1P
AMHRC3    AMHRC4    AMHRC5    AMHRDE1    AMHRDE1P    AMHRDE2    AMHRDE2P    AMHRDE31
AMHRDE3P    AMHRDE4P    AMHRDE5    AMHRDE5P    AMHRDV1P    AMHRDV2P    AMHRDV31    AMHRDV3P
AMHRDV4P    AMHRDV5P    AMHRE1    AMHRE2    AMHRGADM    AMHRGADO    AMHRL1    AMHRLKUP
AMHRLP3    AMHRLU    AMHRLU1    AMHRLU2    AMHRNOAT    AMHRNS    AMHRNSIG    AMHRNSM
AMHRP1    AMHRP4    AMHRP4P    AMHRP7    AMHRP8    AMHRP8P    AMHRP9    AMHRP9P
AMHRPEC    AMHRPPD    AMHRPS1    AMHRPSI    AMHRPSU1    AMHRPTST    AMHRSB1    AMHRSB1P
AMHRSB2    AMHRSR1P    AMHRSR2P    AMHRSR31    AMHRSR3P    AMHRSR4P    AMHRSR5P    AMHRSU5
AMHSFR    AMHUTIL    AMHUTIL1    AMHUTIL3    AMHVD    AMHVDISP    AMHVDL    AMHVDSG
AMHVDSG1    AMHVRL    
Outpatient Pharmacy 128 PSOADDR    PSOARCCO    PSOARCCV    PSOB    PSOBAIR2    PSOBAIRP    PSOBING1    PSOCPB
PSOCPBK1    PSOCPBK2    PSOCPBK4    PSOCPE    PSOCPIB3    PSOEXRST    PSOHLDS1    PSOP
PSOPOLY    PSOSUCLE    ^PSRX    PSOLBL    PSOLBL2    PSOORUT2    PSOP288R    PSORX1
PSORXCLE    PSORXVW    PSOSUDP1    PSOTPRX1    PSOTRLBL    PSOVRPT    ^PS(52.41    PSO283PI
PSO293PI    PSO327PI    PSO55FX2    PSOBGMG1    PSOBINGO    PSOCIDC1    PSOCIDC2    PSOCIDC3
PSOCIDC7    PSOCIDC9    PSOCSTM    PSODPT    PSOHLSG    PSOLAB    PSOLBLS    PSONEW2
PSOORFIN    PSOPOS10    PSOPOS13    PSOPRF    PSORXLAB    PSOSUDPR    ^PS(52.5    PSOCSTD
PSOPOST    PSOQ0236    PSORELD1    PSOSURST    PSOTEXP1    PSOTPINA    PSOUTL    ^PSOARC
PSO52EX    PSOARCLT    PSOARCTG    PSOATRF1    PSOAUTOC    PSOBAI    PSOBBC    PSOBGMG3
PSOCAN1    PSOCLOLS    PSOCLUTL    PSOCPBAK    PSODACT    PSODEM    PSODGDG1    PSODGDG2
PSOEXBCH    PSOHLDC    PSOHLDI1    PSOHLDS    PSOHLEXC    PSOHLSG1    PSOHLSG2    PSOLLL5
PSOLLLI    PSOLMPAT    PSONRXN    PSOORDER    PSOORFI2    PSOORFI3    PSOORFI5    PSOORFI6
PSOP1    PSOP2    PSOPAT    PSOPI136    PSOPOST5    PSOPOST7    PSOPOST8    PSOPRFSS
PSOPST68    PSOPTPST    PSOQMCAL    PSORDS    PSORELDT    PSORESK    PSORXDL    PSORXEDT
PSORXPR    PSORXRP2    PSORXRPT    PSOSUBCH    PSOSUCH1    PSOSUCHG    PSOSULBL    PSOSULOG
PSOTALK    PSOTPHL2    PSOVDF1    ^PS(52.11    PSOSUPAT    PSOTALK2    PSOTPCAN    PSOVER
Patient Care Component 125 APCD3MF    APCD3MG    APCDACP1    APCDALD    APCDALGP    APCDALGQ    APCDALGR    APCDALV1
APCDALV2    APCDBMSR    APCDCAF    APCDCAF2    APCDCAFA    APCDCAFC    APCDCAFJ    APCDCAFS
APCDCHKP    APCDCHP1    APCDDLAB    APCDDPAP    APCDDVD1    APCDDVL1    APCDDVL2    APCDDVL3
APCDDVL4    APCDDVL5    APCDDVW    APCDEATC    APCDECC    APCDEDTC    APCDEFG    APCDEFU
APCDEGP3    APCDEH    APCDEH1    APCDEHS    APCDEHTC    APCDEL    APCDEL1    APCDEMDI
APCDEREG    APCDESF1    APCDETP    APCDETP1    APCDEWHA    APCDEWHO    APCDFH    APCDFH1
APCDFUNC    APCDHIST    APCDLESF    APCDLIM    APCDLINK    APCDPE1    APCDPG    APCDPG1
APCDPG2    APCDPL    APCDPL1    APCDPL2    APCDR001    APCDRDEM    APCDRF    APCDRLR
APCDSFR    APCDSKL    APCDTWC    APCDTWC1    APCDTWC2    APCDUTL    APCDVDSB    APCDVDSG
APCDVLK    APCDVLST    APCHAAP    APCHAAP1    APCHAAP2    APCHMT1    APCHPMH1    APCHPMH2
APCHPRE1    APCHPST1    APCHPST2    APCHPWH1    APCHPWH6    APCHPWH8    APCHPWH9    APCHPWHT
APCHS0    APCHS1    APCHS11    APCHS11C    APCHS12    APCHS1A    APCHS1B    APCHS1C
APCHS2    APCHS2A1    APCHS2A3    APCHS2D    APCHS2J    APCHS3E    APCHS6B    APCHS71
APCHS72    APCHS8    APCHS85    APCHS9B1    APCHS9B4    APCHS9B5    APCHS9B7    APCHS9D1
APCHS9M1    APCHS9M2    APCHS9M3    APCHS9M4    APCHS9M5    APCHSACG    APCHSAST    APCHSBRW
APCHSM04    APCHSM05    APCHSM06    APCHSMU    APCHSMU2    
Third Party Billing 104 ABMDACK    ABMDAST    ABMDAST1    ABMDAST4    ABMDBADD    ABMDBDIC    ABMDBLK    ABMDCCL
ABMDCCL1    ABMDCCL2    ABMDE1    ABMDE1X    ABMDE2X2    ABMDE2X3    ABMDE2X4    ABMDE31
ABMDEADD    ABMDECHK    ABMDEDIC    ABMDEMRG    ABMDESEL    ABMDEVAR    ABMDF1    ABMDF12A
ABMDF14C    ABMDF18A    ABMDF24    ABMDF25A    ABMDF26A    ABMDF27C    ABMDF29A    ABMDF29B
ABMDF2A    ABMDF34A    ABMDF34B    ABMDF35C    ABMDF4A    ABMDICST    ABMDIPS    ABMDLBL1
ABMDLCK    ABMDPAY    ABMDRAL    ABMDRAL2    ABMDRAPP    ABMDRBR    ABMDRCO1    ABMDRCO2
ABMDREL1    ABMDREL2    ABMDREMP    ABMDRHD    ABMDRPCC    ABMDRPR    ABMDRPR1    ABMDRPR2
ABMDRPT    ABMDRPT2    ABMDRSEL    ABMDRSU1    ABMDRTX1    ABMDRTX2    ABMDRUN1    ABMDRUN2
ABMDRXC    ABMDRXC1    ABMDRXC2    ABMDTMS    ABMDTX0    ABMDTX3    ABMDUTL    ABMDVCK0
ABME520    ABME520A    ABME5DMG    ABME5N3    ABME5N4    ABME8DMG    ABME8N3    ABME8N4
ABMEBDSP    ABMECDSP    ABMEH20    ABMELGCK    ABMER20    ABMER20A    ABMERINS    ABMKIDS
ABMM2ELG    ABMM2P11    ABMM2PH3    ABMMUEL1    ABMMUFC6    ABMPTPOP    ABMPTSMT    ABMRMCRD
ABMRSPI1    ABMRVTPB    ABMUCASH    ABMURHD    ABMUTLN    ABMUVBCH    ABMZBDIC    ABMZIPS
Dietetics 98 FH55PST    FHASE    FHASE1A    FHASE2    FHASE3    FHASM1    FHASM2A    FHASM4
FHASM7    FHASMR1    FHASMR2    FHASN    FHASN4    FHASN5    FHASN6    FHASP
FHASXR    FHASXR1    FHBIR    FHCTF1    FHCTF3    FHCTF5    FHDCR1    FHDCR11
FHDCR1A    FHDCR1D    FHDMP    FHDPA    FHMASE    FHMASE1A    FHMMBRPT    FHMMNADM
FHMMNREP    FHMNADM    FHMNBRPT    FHMNINQ    FHMNREP    FHMTK1    FHMTK11    FHMTK1A
FHMTK5    FHMTK6    FHMTKO    FHNO2    FHNO31    FHNO5    FHNO7    FHNO8
FHNU8    FHOMDMP    FHOMDPA    FHOMIP    FHOMTK1    FHOMUPD    FHOMUTL    FHORC
FHORC1    FHORC2    FHORC3    FHORD10    FHORD11    FHORD13    FHORD41    FHORD5
FHORD6    FHORD7    FHORD81    FHORD82    FHORDR    FHORE21    FHORT3    FHORT5A
FHORX1    FHORX1A    FHORX1B    FHORX2    FHPATM    FHPRC10    FHPST2    FHSEL1
FHSP1    FHSPED    FHWADM    FHWDIS    FHWGMR    FHWOR    FHWOR2    FHWOR3
FHWOR4    FHWOR5    FHWOR61    FHWOR7    FHWOR71    FHWOR8    FHWORA    FHWORR
FHWTRN    FHXDB2    
Order Entry Results Reporting 87 OCXOHL7    OCXOLOG    OCXOTIME    OCXOZ02    OCXOZ03    OCXOZ04    OCXOZ05    OCXOZ07
OCXOZ0B    OCXOZ0E    OCXOZ0F    OR3C100    OR3CONV    OR3CONV1    ORB31    ORB3SPEC
ORB3TIM2    ORB3USER    ORCACT0    ORCB    ORCD    ORCDFH    ORCHART    ORCHTAB2
ORCMENU    ORCSAVE1    ORCSEND    ORCXPND1    ORDV02    ORDV02A    ORELR2    OREVNT
OREVNTX1    ORKUTL    ORLA1    ORLP    ORLP2    ORLPR0    ORLPSRA    ORM
ORMBLD    ORMBLDRA    ORMEVNT    ORMEVNT1    ORMTIM02    ORPRPM1    ORPRS08    ORQ10
ORQPT    ORQPTQ1    ORQPTQ11    ORQPTQ2    ORQPTQ3    ORQPTQ5    ORQQVI2    ORQQXQA
ORQRY    ORQRY01    ORRHCQ    ORRHCU    ORS100A    ORSNAST1    ORSNAST2    ORUTL
ORWCSP    ORWCV    ORWDPS    ORWDPS2    ORWDPS3    ORWDX    ORWDX1    ORWDXA
ORWDXM1    ORWIB    ORWLR1    ORWOR    ORWORB    ORWORR    ORWPCE    ORWPT
ORWPT1    ORWPT16    ORWRPL    ORWRPP    ORY141ED    ORY299    ORY94A    
IHS Changes To ADT 82 ADGAD1    ADGAD2    ADGAD3    ADGAD6    ADGADSP2    ADGADSP6    ADGBULL1    ADGCEN30
ADGCP    ADGCRB0    ADGCRB1    ADGCRB3    ADGCRBL1    ADGDMM    ADGDODC    ADGDSA
ADGDSAU    ADGDSEP    ADGDSIP    ADGDSN    ADGDSQA    ADGEVNT    ADGFTRP1    ADGICAL
ADGICAL1    ADGICAL2    ADGICAL3    ADGICPQ    ADGICUT    ADGING21    ADGINPL    ADGIP0
ADGLADC    ADGLADP    ADGLDCC    ADGLDCP    ADGLOC1    ADGOASP    ADGPCAC1    ADGPI
ADGPMV10    ADGPTLC    ADGPTLC1    ADGRALC    ADGRALP    ADGRPD    ADGSIL    ADGSIL1
ADGSRVL    ADGT03    ADGT51    ADGT53    ADGT55    ADGVHF    ADGWMM1    ADGWMM2
BDGAD1    BDGAD2    BDGAD3    BDGAD4    BDGAPI    BDGAPI2    BDGDSA    BDGF1
BDGF2    BDGICR4    BDGILD63    BDGIPL1    BDGIPL2    BDGIPL31    BDGIPL4    BDGIPL5
BDGIPL6    BDGIPL7    BDGIPL8    BDGIPL9    BDGLOC1    BDGOPL    BDGPCCL    BDGPOST2
BDGPV    BDGSD1    
Contract Health Management Information System 81 ACHS    ACHS3PP2    ACHS3PP4    ACHS3PPB    ACHS3PPP    ACHSA1    ACHSA5    ACHSADTR
ACHSBMC    ACHSC6C    ACHSC6D    ACHSC6P    ACHSCHF    ACHSDADP    ACHSDAR1    ACHSDAR4
ACHSDARR    ACHSDF    ACHSDFDP    ACHSDFI    ACHSDFL    ACHSDFL1    ACHSDFLK    ACHSDLK
ACHSDN    ACHSDNA    ACHSDND    ACHSDNDP    ACHSDNI    ACHSDNL2    ACHSDNL4    ACHSDNRC
ACHSDNU1    ACHSDSF    ACHSDST    ACHSDSTE    ACHSEDOC    ACHSEOBA    ACHSEOBE    ACHSEPAT
ACHSFIM    ACHSHLG    ACHSIC3    ACHSMD0    ACHSMD2    ACHSMD2D    ACHSMERG    ACHSOCVD
ACHSODP1    ACHSPAC    ACHSPAM    ACHSPAP2    ACHSPDC    ACHSPDC1    ACHSRDOS    ACHSRELG
ACHSRPFU    ACHSRPI    ACHSRPI1    ACHSRPU    ACHSSIG1    ACHSSIG2    ACHSSIGA    ACHSTX3
ACHSTX33    ACHSTX5    ACHSTX55    ACHSTX6    ACHSTX66    ACHSTX7    ACHSTX77    ACHSTX7A
ACHSTXUT    ACHSUDF    ACHSVDC    ACHSVDF    ACHSVUR    ACHSVUR2    ACHSVURT    ACHSWFRS
DENIAL NUMBER    
Lab Service 64 LR317    LR7OSAP2    LR7OSBB1    LR7OSOS    LR7OSUM    LRAC4    LRAC9    LRACF
LRACSUM    LRACSUM6    LRAIRNUM    LRAPBR    LRAPBR4    LRAPDPT    LRAPPOW    LRAPS3
LRAPSNMD    LRBEBA3    LRBEPEND    LRBLJRB    LRBLPAB    LRBLPD1    LRCAPBV    LRCAPDSS
LRCAPES1    LRDPAREX    LREPI2    LREPIRS1    LREPIRS3    LRGEN    LRHY0    LRHY01
LRHY4X    LRHYAFT    LRHYB    LRHYBC1    LRHYF2    LRHYF4    LRHYPL    LRHYT1
LRMISTF1    LRMITRZ1    LRMITSPE    LROR9    LRORD1GU    LROS    LRPHSET1    LRPHSET2
LRPXAPIU    LRPXCHK    LRRP    LRRP4    LRSETUP    LRSORA3    LRSORB    LRSORD1
LRUBL    LRUDPT    LRUET    LRUMDP    LRVRPOC    LRWLST1    LRXDRPT    LRXSAVE
IHS Changes To Scheduling 61 ASDAIU    ASDAL    ASDAMB    ASDCLAV    ASDCR    ASDF    ASDI    ASDM
ASDMERG    ASDN1    ASDOI    ASDREG    ASDROUT0    ASDROUT2    ASDUT    ASDV
ASDWL    BSDAIU    BSDAL0    BSDAL2    BSDAM    BSDAM10    BSDAMEP    BSDAMEPW
BSDAMR2    BSDAMR3    BSDAMR4    BSDAPI    BSDAPI2    BSDAPI3    BSDAPI5    BSDAPL
BSDAPP    BSDC    BSDCF    BSDCHKI1    BSDCHKIN    BSDCLAV    BSDDAM    BSDDPA
BSDLT    BSDMERG    BSDMMU    BSDN1    BSDNS2    BSDP14PS    BSDROUT    BSDROUT0
BSDROUT1    BSDROUT2    BSDSCRPC    BSDTLBP    BSDU2    BSDV    BSDWKR1    BSDWKR2
BSDWKR3    BSDWKR6    BSDWKR7    BSDWKR8    BSDWLE2    
iCare 59 BQI1POJB    BQI2POS1    BQIAGE    BQICAEXP    BQICAPT    BQICAVAL    BQICMPAT    BQICMUT2
BQIDCABK    BQIDCAH    BQIDCAH5    BQIDCAPC    BQIDCAPH    BQIDCERA    BQIDCEUA    BQIDCHSA
BQIDCMCM    BQIDCMDP    BQIDCMPR    BQIDCMSP    BQIDCMYC    BQIGPRA4    BQIGPRA6    BQIIPCCP
BQIIPCCT    BQIIPEMP    BQIIPPRG    BQIIPPT    BQIIPTST    BQINIGH1    BQINIGH4    BQINIGHT
BQIPLADR    BQIPLPP    BQIPTDDG    BQIPTDMG    BQIPTFHH    BQIPTLKP    BQIPTMRG    BQIPTPR
BQIPTRPU    BQIPTUPD    BQIRFCRQ    BQIRGDMS    BQIRMDR    BQIRMDR1    BQIRMIZ    BQITASK
BQITASK1    BQITASK2    BQITASK3    BQITBMI    BQITD13    BQITRCMD    BQIUL2    BQIUL4
BQIULPT    BQIVFTRL    BQIWHPRF    
Referred Care Information System 56 BMCADD    BMCADD1    BMCADDFY    BMCAL1    BMCALERT    BMCALT    BMCAPI    BMCCLOS1
BMCFAHC1    BMCFAHC2    BMCFAHC3    BMCFUNC    BMCFUNC1    BMCLKID    BMCLKID1    BMCLKID2
BMCMINI    BMCOUTR1    BMCOUTRP    BMCRCRV1    BMCRCRVP    BMCRD    BMCREF    BMCRL1
BMCRLU1    BMCRPC3    BMCRR10P    BMCRR13P    BMCRR141    BMCRR14P    BMCRR171    BMCRR181
BMCRR18P    BMCRR191    BMCRR19P    BMCRR1P    BMCRR201    BMCRR20P    BMCRR21    BMCRR221
BMCRR22P    BMCRR2P    BMCRR31    BMCRR3P    BMCRR51    BMCRR5P    BMCRR71    BMCRR7P
BMCRR7P2    BMCRR81    BMCRR8P    BMCRR9P    BMCRRNDA    BMCRRSP1    BMCRRSPP    BMCSMHS
Radiology Nuclear Medicine 53 RABTCH    RABTCH1    RABUL    RABUL1    RABUL2    RABUL3    RACMP2    RACNLU
RACTEX1    RADEM    RADEM2    RADLQ1    RADLY1    RADPA    RAESO    RAFLH
RAHLEXF    RAHLQ    RAJAC    RALIST    RAO7PC4    RAO7UTL    RAORD    RAORD1
RAORD2    RAORD5    RAORD7A    RAORD8    RAORDC1    RAORDP    RAORR1    RAORR3
RAOUT    RAPCE2    RAPRINT    RAPRINT1    RAPROS    RAPTLU    RART1    RARTR
RARTRPV    RARTST    RARTST2    RARTST2A    RARTVER2    RAUTL0    ^RARPT    RARTUVR3
RARTVER    RASTEXT    ^RADPT    RAUTL10    RAUTL11    
Surgery 53 SR62UTL    SRBLOOD    SRHLORU    SRHLQRY    SRHLVQRY    SROA30    SROACMP1    SROACRC
SROAL1    SROAL2    SROALET    SROAMIS    SROAPCA3    SROAPRT6    SROASS    SROASSE
SROATCM1    SROAUTL2    SROCL1    SROERR    SROERR1    SROERR2    SROESX    SROESXA
SROESXP    SRONON    SRONPEN    SROPAC0    SROREQ1    SROREQ2    SROREQ3    SROREQ4
SROSCH    SROTRPT0    SROWL    SROWRQ1    SRSCD    SRSCDS    SRSCDS1    SRSCDW
SRSCDW1    SRSCHAP    SRSCHD    SRSCHD1    SRSCHDC    SRSCONR    SRSMREQ    SRSRBS
SRSRBS1    SRSRBW    SRSRBW1    SRSWL3    SRSWREQ    
Inpatient Medications 49 PSGAP0    PSGBRJ    PSGCAP0    PSGDS0    PSGEUD    PSGEUDP    PSGFILED    PSGPER0
PSGPER2    PSGPLDP0    PSGPLR0    PSGPLRP    PSGPLUP0    PSGPLXR    PSGPOR    PSGPR
PSGTAP0    PSGTAP1    PSGVBWP    PSGVBWU    PSGVW    PSIVDCR    PSIVDCR2    PSIVOPT
PSIVORC    PSIVORFB    PSIVORV1    PSIVRD    PSIVRNL    PSIVST2    PSIVSTAT    PSIVWL
PSIVWL1    PSJ005    PSJ0186    PSJADT0    PSJADT2    PSJBCMA4    PSJDPT    PSJHL2
PSJHL4    PSJHL4A    PSJHLERR    PSJLOI    PSJOE    PSJOEA    PSJOREN    PSJPR
PSJR0103    
IHS Changes To Lab 48 BLR2SORD    BLRAG01    BLRAG02    BLRAG03    BLRAG04    BLRAG05C    BLRAG09A    BLRAG09B
BLRAGUT    BLRAGUT1    BLRCHGPL    BLRDPT0    BLRDPT1    BLRDPT3    BLRDPT30    BLRDPT4
BLRDPT5    BLRDPT6    BLRDPT60    BLRDPT62    BLRESRCD    BLREXEC2    BLREXEC3    BLREXECU
BLRLINK1    BLRLUAC8    BLRMERG    BLRMERG2    BLRMERGT    BLRMIEHR    BLRMIRPT    BLRORD1
BLRREFLA    BLRRLEVT    BLRRLFX1    BLRRLHL    BLRRLHL2    BLRSGNSD    BLRSGNSY    BLRSHDRC
BLRSHPL2    BLRSHPM    BLRSHPML    BLRSHPMQ    BLRSNOMU    BLRTNORD    BLRTNRES    BLRUTIL3
PCC New Encounter Form 43 VENPCC    VENPCC10    VENPCC1A    VENPCC1B    VENPCC1C    VENPCC1D    VENPCC1E    VENPCC1F
VENPCC1G    VENPCC1H    VENPCC1M    VENPCC1N    VENPCC2    VENPCC2A    VENPCC3    VENPCCA
VENPCCAM    VENPCCC    VENPCCD    VENPCCF    VENPCCG1    VENPCCK    VENPCCKD    VENPCCKG
VENPCCKT    VENPCCKX    VENPCCME    VENPCCMF    VENPCCP2    VENPCCQ    VENPCCQ1    VENPCCQ2
VENPCCQA    VENPCCQB    VENPCCQC    VENPCCQD    VENPCCS1    VENPCCS2    VENPCCS3    VENPCCU
VENPCCUR    VENPCCW    VENPCCYR    
Medicine 33 MCAR7A    MCARAM0    MCARAM5    MCARAM6    MCARAMLC    MCARED    MCAROE1    MCAROGR
MCARORA    MCARORB    MCAROS0    MCARP    MCARPACE    MCESEDT    MCOBC1    MCOBE1
MCOBEP    MCOBGA    MCOBGC    MCOBGN    MCOBH1    MCOBK    MCOBPA    MCOBPE
MCOBPFT    MCOBPG    MCOBPS    MCOBPV    MCOBRH    MCOBT    MCPFTP    MCRH1
MCRPEC    
Text Integration Utility 33 TIU144    TIUADD    TIUALRT    TIUCNSLT    TIULA2    TIULAB    TIULC1    TIULIP
TIULMED    TIULV    TIUMOVE    TIUPNAPI    TIUPNCV    TIUPNCV8    TIUPNCVU    TIUPREL
TIUPRPN3    TIUPRPN4    TIUPRPN5    TIUPRPN7    TIUPS155    TIUR    TIURB2    TIUROR
TIURPN    TIUSRVL    TIUSRVL1    TIUSRVLC    TIUSRVLO    TIUSRVLV    TIUSRVP1    TIUSRVR
TIUVSIT    
IHS RPMS CHR System 32 BCHABC1    BCHDL1    BCHDLA1    BCHDLN1    BCHEGP1    BCHEGR    BCHEXCP    BCHHL7F
BCHHS    BCHRC11    BCHRC2    BCHRC51    BCHRC6    BCHRC8    BCHRC9    BCHRCH1
BCHRL1    BCHRLU    BCHRLU1    BCHRP1    BCHRP21    BCHRP31    BCHRP4    BCHRPT4
BCHRU11    BCHUARL    BCHUFP    BCHVD    ^BCHR    BCHUEDT    BCHULKUP    BCHVDO
Pharmacy Point of Sale 30 ABSP5E1    ABSPDE1    ABSPOS28    ABSPOS6C    ABSPOS6E    ABSPOS6M    ABSPOS6N    ABSPOSB8
ABSPOSBM    ABSPOSCB    ABSPOSCC    ABSPOSCH    ABSPOSE1    ABSPOSE2    ABSPOSFA    ABSPOSFB
ABSPOSFC    ABSPOSI1    ABSPOSIF    ABSPOSIV    ABSPOSMC    ABSPOSN2    ABSPOSN3    ABSPOSN5
ABSPOSPE    ABSPOSR5    ABSPOSR7    ABSPOSRU    ABSPOSRZ    ABSPOSUA    
IHS Changes To Pharmacy 29 APSAPPIP    APSDALVN    APSDALVR    APSEPPIP    APSPCO    APSPCP1    APSPCP2    APSPDRP2
APSPDSC    APSPESAL    APSPLBL2    APSPMED    APSPMED2    APSPORXE    APSPORXF    APSPPCC
APSPPT    APSPSLBL    APSPSOB    APSPT16    APSPT17    APSPVST1    APSQCK    APSQCK1
APSQFAS    APSQLAB    APSQPINS    APSQSIGN    ^APSPQA(32.4    
IHS Accounts Receivable 27 BARBAD1    BARBAD2    BARBAD4    BARBL    BARDMLP    BARDMLPR    BARDMRE    BARDMRQ
BARDMRQN    BARDUTL    BARFPST3    BARPNP2    BARPNP4    BARPPY01    BARPPY1A    BARPST2
BARPST4    BARPUC2    BARPUC4    BARPUTL    BARRAOI    BARRERL2    BARRHD    BARUP
ITEM(S)    ^BARAC(2906    ^BARBL(2906    
Clinical Reminders 26 PXRMDLR    PXRMDRSG    PXRMETT    PXRMEUT    PXRMG2E1    PXRMG2E2    PXRMGECJ    PXRMGECQ
PXRMGECR    PXRMGECS    PXRMGECT    PXRMGECV    PXRMGECW    PXRMLPHS    PXRMLPP    PXRMOBJ
PXRMPDEM    PXRMPDR    PXRMPINF    PXRMPLST    PXRMRULE    PXRMXDT1    PXRMXSE1    PXRMXSL1
PXRMXSL2    PXRMXX2    
Alcohol Chemical Dependency 25 ACDAGRG    ACDAUTO1    ACDCSD    ACDDEGP    ACDDEM    ACDFLAT2    ACDFUL2    ACDPCCLS
ACDPCS1M    ACDPDIF    ACDPFACE    ACDPID    ACDPPFIX    ACDPSOT    ACDPVDSP    ACDPVH1M
ACDPVHST    ACDREG    ACDRL1    ACDRLU    ACDRLU1    ACDVFIX    ACDVID    ACDWCINV
ACDWVIS    
IHS Mods To Text Integration Utilities 25 BTIUDOC    BTIUDSC    BTIUICL    BTIULMED    BTIULO    BTIULO10    BTIULO11    BTIULO13
BTIULO2    BTIULO6    BTIULO7    BTIULO7A    BTIUMED2    BTIUMED3    BTIUMED4    BTIUMED5
BTIUMED6    BTIUMED8    BTIUMED9    BTIUPCC3    BTIUPCC6    BTIURPT1    BTIURPT2    BTIURPT3
BTIURPT4    
PCE Patient Care Encounter 25 PXBAPI    PXBAPI1    PXBAPI2    PXBAPI21    PXBAPI22    PXCAERR    PXCAVST    PXCE
PXCEAE    PXCEHLOC    PXCEPAT    PXCESDAM    PXQMAIN2    PXRRPAPI    PXRRPASA    PXRRPCE2
PXRRPCE3    PXRRPCE4    PXRRPCR2    PXRRWLSA    PXUTL1    PXUTLSCC    PXXDPT    VSITASK
VSITDEF    
Automated Information Collection System 24 IBDF18C    IBDF18E0    IBDF1B1    IBDF1B1A    IBDF1B2    IBDF1B3    IBDF2F1    IBDFDE
IBDFDE1    IBDFDE5    IBDFDE6    IBDFDE7    IBDFDE8    IBDFDEA    IBDFFRFT    IBDFFT
IBDFFT1    IBDFFT3    IBDFN    IBDFOSG1    IBDFRPC2    IBDFRPC3    IBDFSS    IBDX96
Health Summary Components 24 BHSAAP1    BHSAAP2    BHSACG    BHSAST    BHSBDEM    BHSDEM    BHSDEN0    BHSDM1
BHSDM4    BHSDM5    BHSDM7    BHSDMPRE    BHSENCS    BHSENCW    BHSFAM1    BHSMEA
BHSMEDG    BHSMEDSF    BHSMU    BHSPMH1    BHSPMH2    BHSPMH3    BHSPSO7A    BHSWH
Local Area Programs 22 AZAMED    AZAMED1    AZAMED15    AZAMED16    AZAMED4    AZAMMED    AZANED    AZANED1
AZANED15    AZANED16    AZAXCADU    AZAXDPM1    AZAXDPM2    AZAXHRN    AZAXHRNC    AZHDPATC
AZHRDEM1    AZHRDEMO    AZHZCL    AZHZCLAG    AZHZCLV    AZQ2RXP1    
Patient Registration GUI 22 AGGAGE    AGGCMTCH    AGGFMTRG    AGGLOCK    AGGMCTRG    AGGPOLCY    AGGPTDMG    AGGPTLKP
AGGPTNAM    AGGPTPVI    AGGPTSSN    AGGPTUPD    AGGRFCRQ    AGGRPRT1    AGGRPRT2    AGGRPTDP
AGGUL1    AGGUPMCD    AGGUPMCR    AGGWDISP    AGGWTRIG    AGGWVAL    
Clinical Scheduling for Windows 21 BSDX02    BSDX07    BSDX08    BSDX09    BSDX25    BSDX25A    BSDX27    BSDX28
BSDX34    BSDX36    BSDX37    BSDX38    BSDX40    BSDX41    BSDX41A    BSDX41E
BSDX41H    BSDX41I    BSDX41M    BSDX41N    BSDX42    
Adverse Reaction Tracking 20 GMRACMR4    GMRADGMV    GMRADSP5    GMRAEF    GMRAFDA1    GMRAFDA3    GMRAFN1    GMRAFN2
GMRAIAD1    GMRAIAL1    GMRALAB0    GMRAMCB1    GMRAPAT    GMRAPNA    GMRAPST1    GMRAROBS
GMRAU85    GMRAVAM0    GMRAVFY    ^GMR(120.85    
Health Summary 20 GMTS    GMTSADH    GMTSDCB    GMTSDEM    GMTSDEMP    GMTSDGCH    GMTSDGD    GMTSDVR
GMTSGAF    GMTSLREM    GMTSLROE    GMTSLRSC    GMTSLRTE    GMTSPDX    GMTSPL    GMTSPSO
GMTSPSO7    GMTSPSZO    GMTSSOWZ    GMTSU2    
IHS Dental System 19 ADEAPC    ADEAPC1    ADEATT4    ADEGRL2    ADEGRL3    ADEGRL6    ADEKNT    ADEKNT1
ADEMBD    ADEMNG    ADEMNG1    ADEPDFR    ADEPDIN    ADEPLBL    ADEPME    ADEPQA1C
ADERVW0    ADEXER1    ADEXSU1    
Controlled Substances 18 PSDDSOR2    PSDDWK1    PSDESTP    PSDFT    PSDFT1    PSDGSH2    PSDLBLB    PSDLBLP
PSDNMWE    PSDNSCG    PSDNSCL    PSDORN1    PSDORN2    PSDORN3    PSDORNV    PSDPGS1
PSDRFM    PSDRPGS2    
Patient Care Component Table Maintiance 18 APCM11E1    APCM11E2    APCM11NP    APCM13E1    APCM13E2    APCM13NP    APCM14E1    APCM14E2
APCM14NP    APCM24E1    APCM24E2    APCM24NP    APCM25E1    APCM25E2    APCM25NP    APCM2AE1
APCM2AE2    APCM2ANP    
Emergency Room 17 AMER0    AMER1    AMER1A    AMER2    AMER2A    AMER4    AMERAGED    AMERBIN
AMERBSD    AMERBSDU    AMERCLP    AMEREDAU    AMEREDPC    AMEREDTA    AMERLKP    AMERP
AMERVSIT    
IHS Electronic Health Record 17 BEHODC8    BEHODCP    BEHODCS    BEHOENCX    BEHOLRCV    BEHOPTC1    BEHOPTCX    BEHOPTP1
BEHOPTP3    BEHOPTPC    BEHOPTPL    BEHORMCV    BEHORXRT    BEHOVM2    BEHOVM4    BEHOXQ
BEHUPCCK    
Quality Assurance 17 AQACDCS    AQALDG4    AQALDG51    AQALNK    AQALNKER    AQAOCID    AQAOENTQ    AQAOPC22
AQAOPC42    AQAOPC71    AQAOPR22    AQAOPR3    AQAOREV1    AQAOT68    AQAOT69    AQAOVAL
AQAQPR11    
Asthma Tracking System 16 BATAAP    BATAF    BATBLG    BATLOP    BATLRP1    BATREG    BATRP11    BATRPT0
BATRPT1    BATRPT2    BATRPT3    BATRPT4    BATRPT5    BATRPT6    BATSUM    BATVSUM
Automated Lab Instruments 16 LA7CHDR    LA7CQRY1    LA7DVC    LA7DVM    LA7MUNK1    LA7MUPID    LA7QRY2    LA7SBCR1
LA7UTIL    LA7VCIN2    LA7VIN2    LA7VLIN2    LA7VPID    LA7VQIN2    LA7VRIN2    LAMIVTKD
IHS Generic Interface System 16 INHBLD    INHMS1    INHQRIN    INHUTC51    IS00001A    IS00011    IS00014    IS00015
IS00015A    IS00019    IS00019A    IS00020    IS00028    IS00029    IS00029A    IS00030
IHS Patient 16 AUPNCIXL    AUPNELIG    AUPNLK    AUPNLK1    AUPNLK2    AUPNLK3    AUPNLKB    AUPNLKD
AUPNLKID    AUPNPAT    AUPNPAT2    ^AUPNPROB    AUPNLKUT    AUPNPAT3    AUPNPAT4    AUPNPCT
PCC Medical Query 14 AMQQ    AMQQAPT    AMQQATR    AMQQATR1    AMQQCMPS    AMQQDO    AMQQF0    AMQQF1
AMQQQ    AMQQQ2    AMQQRMA1    AMQQRMFF    AMQQRML    AMQQUTIL    
Women's Health 14 BWCVD    BWGETALL    BWGRVL1    BWGRVLU    BWGRVLU1    BWMDE    BWMDE2    BWMDET
BWMDET1    BWMDEX    BWMDEX2    ^BWP    BWUINC    BWUTL1    
Consult Request Tracking 13 GMRCALRT    GMRCAR    GMRCEDIT    GMRCHL7    GMRCONS1    GMRCP50    GMRCP5D    GMRCPSL2
GMRCPZ    GMRCQCST    GMRCSLM1    GMRCSTL2    GMRCSTU    
Barcode Medication Administration 12 PSBCSUTL    PSBIHS1    PSBMD    PSBML    PSBMLLKU    PSBO    PSBOML    PSBOMM
PSBOMV    PSBOPE    PSBOWA    PSBVAR    
Data Warehouse Export System 12 BDW1BLR    BDW1VBL2    BDWA1    BDWBHL    BDWCVAR    BDWDWPX    BDWPRADD    BDWRDR
BDWRDR2    BDWRDR21    BDWREDO    BDWUTIL1    
Patient Chart 12 BPC7OGU    BPCAPPT    BPCDBS1    BPCIMDSP    BPCLALL1    BPCLIPL    BPCLRML    BPCPC1
BPCPRBC    BPCRC3    BPCRC8    BPCRXSET    
Toolkit 12 XDR2NULL    XDRDPICK    XDRDSHOW    XDRDVAL2    XDRLRFIX    XDRMERG0    XDRMERG2    XDRPTCAN
XDRPTN    XDRPTSSN    XDRRMRG1    XT73P44    
Case Management System 11 ACMADDR    ACMGTP    ACMLCMS    ACMLPAT    ACMPPDTX    ACMRAGE    ACMRDEM    ACMRFM
ACMRL1    ACMRLU    ACMRLU1    
IHS Immunizations Interface 11 BYIMIMM    BYIMIMM1    BYIMIMM2    BYIMIMM3    BYIMIMM4    BYIMIMM5    BYIMIMM6    BYIMMU2
BYIMRT    BYIMSEG1    BYIMSEGS    
Phoenix Devel Center 11 AZX2RXP1    AZXAADD    AZXAFMTS    AZXALKI1    AZXAPTR    AZXAPTRG    AZXARD    AZXAREF
AZXBV1    AZXBV2    AZXRVP3    
GUI Objects 10 BGOBMSR    BGOPROB    BGOPROB1    BGOREL    BGOREP    BGOREP1    BGOTRG    BGOUTL
BGOVIMM2    BGOVPOV    
Patient Registration MPI 10 AGMP72P3    AGMPCHK    AGMPHLEU    AGMPHLU    AGMPHLU1    AGMPHMFN    AGMPIACK    AGMPIHL1
AGMPIHLO    AGMPIPID    
IHS Designated Provider 9 BDPADD    BDPAPI    BDPDEL    BDPDPEE    BDPIQ    BDPLMDSP    BDPLMUPD    BDPMOD
BDPNODP    
Incomplete Records Tracking 9 DGJBGJ    DGJOPRT1    DGJOTP1    DGJPDEF1    DGJPDEF2    DGJTEE    DGJTEE1    DGJTVW1
DGJTVW3    
M Transfer 9 BMXADOF2    BMXADOI    BMXADOV1    BMXADOV2    BMXRPC10    BMXRPC4    BMXRPC6    BMXUTL1
BMXUTL2    
Nursing Acuity 9 ANSEAD3    ANSEAV1    ANSQ    ANSQPAA    ANSQPAS    ANSQPP1    ANSQPS    ANSQRP
ANSUPT    
Third Party Tracking 9 ABPVCK1    ABPVDG03    ABPVEEC0    ABPVEEC2    ABPVOP03    ABPVPCC3    ABPVRX03    ABPVTX0
ABPVTX2    
Electronic Dental Record 8 BADEEVNT    BADEHL1    BADEHL3    BADEHLZ    BADEMRG    BADEMRG1    BADEPROV    BADEUTIL
IHS Support HL7 Interfaces 8 BHLBCH2    BHLBPS1    BHLJVN1    BHLOBX3M    BHLP03I    BHLPIDI    BHLQU    BHLU
IHS HIV Management System 7 BKMPLKP    BKMQSSR    BKMRMWH    BKMVA2    BKMVSSR    BKMVSUP1    BKMVSUP3    
IHS Release Of Information 7 BRNADD    BRNFMTS    BRNLKI1    BRNPTR    BRNRD    BRNREF    BRNRU11    
Immunization Tracking 7 BIAPCHS    BIHS    BILETPR    BILETPR1    BILETPR4    BIUTL1    BIUTL11    
Patient Care Component Data Transmission 7 APCPAH    APCPDR21    APCPHOP    APCPREX    APCPRPS1    APCPSR1    APCPUTIL    
Patient Care Component Surveillance 7 APCSCERT    APCSHLOC    APCSSIL1    APCSSIL2    APCSSILI    APCSSILU    APCSSLAB    
Pharmacy Benefits Management 7 PSUAA1    PSUDEM1    PSUDEM2    PSUDEM7    PSULR2    PSULRHL1    PSUVIT1    
Tracking Procedure Workflow 7 BTPWPEVO    BTPWPEVT    BTPWPFND    BTPWPLN1    BTPWPSNP    BTPWRLAB    BTPWRRAD    
Aberdeen GPRA Report 6 CIMGAGP1    CIMGAGP2    CIMGAGP3    CIMGAGP4    CIMGAGPR    CIMGAGPS    
IHS Omnicell Pyxis Interface 6 BOPBAT    BOPCP    BOPEXCP    BOPRNEW1    BOPROC    BOPUVER    
Beneficiary Travel 5 DGBT1    DGBT2    DGBTE1    DGBTOA2    DGBTOA6    
General Medical Record - Vitals 5 GMRVPCE1    GMVGETD    GMVRPCP    GMVUTL7    GMVVDEF1    
IHS Mods To Radiology Nuclear Medicine 5 BRAPREG    BRARPT1    BRARPT3    BRARPT5    BRAWH    
IHS Patient Merge 5 BPMKIDS    BPMRP1    BPMXFIX    BPMXFX1    BPMXLR    
Phoenix 5 BZXBPN    BZXBPNA    BZXFIXAD    BZXLRSER    BZXMIHDR    
IHS Mods To Patient Care Encounter 4 BPXRMPCC    BPXRMSEO    BPXRMTP    BPXRMWH    
Nursing Service 4 NURAPB    NURAPI    NURSCPLU    NURSUT1    
Portland Private Insurance package 4 AZP3APC    AZP3RP    AZP3RX    AZP3UTL    
Problem List 4 GMPLRPTS    GMPLUTL    GMPLUTL2    GMPLX1    
Utilities 4 AUFLST    AUPATDIC    AUPATLK    AUPATLKI    
CMOP 3 PSXBLD    PSXMSGS    PSXSRST    
Care Management 3 ORRCLPT    ORRCOR    ORRCTSK    
IHS Medicaid Eligibility Download 3 BME834    BMEMED    BMEMED4    
IHS Pharmacy Auto Refill System 3 BEXRSRT    BEXRX    BEXRX7    
National Drug File 3 PSNCLEAN    PSNJP54    PSNPPIP    
Bemidji 2 BZDMCDAZ    BZDMCDER    
GUI Generic Tools 2 BGUCEKT    BGUGPLK    
IHS Emergency Dept Dashboard 2 BEDDPLKP    BEDDPRT    
IHS Personal Health Record 2 BPHRCHK    BPHRMUPM    
Kernel 2 XQORO    XUXCTY    
Pharmacy Data Management 2 PSSGSGUI    PSSLAB    
Table Maintenance 2 AUMICDU    AUMXPORT    
VueCentric RPMS Support 2 CIAZPLBB    CIAZPLCH    
Comprehensive Diabetes Management 1 BCDMFLDS    
DRG Grouper 1 ICDDRGM    
Generic Retrieval Utility 1 CIAZGRU    
Headquarters Dental 1 AZZDACK    
IHS Laboratory Point of Care 1 BLRPOC    
IHS Standard Terminology 1 BSTSCFIX    
IHS VA Support Files 1 PATIENT    
IHS VA Utilities 1 XBPATC    
IHS View Patient Record 1 BVPU    
MailMan 1 XMCD1    
NCI Study Extract 1 CIMSNCI1    
Taxonomy 1 ATXBULL    

Accessed By FileMan Db Calls, Total: 993

Package Total Routines
Registration 198 DG1010P    DG1010S2    DG53244S    DG53293A    DG53334A    DG53342P    DG53455P    DG53467P
DG53527P    DG53528P    DG53583P    DG53620P    DG53653A    DG53658    DG53659    DG53672D
DG53690I    DG53705I    DG53726A    DG53735P    DG53B563    DG53P273    DG53P543    DG53P593
DG53P622    DG53P641    DG648PST    DG737PRE    DGADDUT2    DGADDUTL    DGBLRV    DGCOL
DGCV    DGCV1    DGCVRPT    DGDEATH    DGDEP    DGDISPL    DGEEREIM    DGEN
DGENA2    DGENACL    DGENACL1    DGENACL2    DGENCDA1    DGENCDRP    DGENCLN1    DGENELA1
DGENL    DGENL2    DGENLEH    DGENPTA    DGENU    DGENUPL2    DGENUPL3    DGFFP02
DGFFP03    DGFFP04    DGFFPLM1    DGFI    DGHTENR    DGHTHLAA    DGHTINAC    DGHTRPT
DGHTRPT1    DGHTRTX    DGMSTR2    DGMTA    DGMTAUD2    DGMTDD    DGMTDEL    DGMTE
DGMTEO    DGMTP    DGMTREM    DGMTU4    DGMTV    DGPFAPIH    DGPFAPIU    DGPFUT1
DGPHIST    DGPHSTAT    DGPLBL    DGPMEX    DGPMV    DGPMV0    DGPMV10    DGPMV33
DGPSEU2    DGPSEUDO    DGPTDRG    DGPTF2    DGPTFCR    DGPTFFB    DGPTFRU1    DGPTMSG
DGPTMSGD    DGPTX11    DGPTX112    DGPTX113    DGPTX13    DGPTX14    DGPTX18    DGPWB
DGQEMA    DGQESC5    DGQPT2    DGREG    DGREGAED    DGREGARP    DGREGAZL    DGREGDD1
DGREGDEL    DGREGE    DGREGTE2    DGRODEBR    DGROHLR1    DGROMAIL    DGROUT2    DGRP
DGRP1    DGRP2    DGRP6CL    DGRPC    DGRPC2    DGRPCE    DGRPCE1    DGRPD
DGRPDB    DGRPDT    DGRPE    DGRPE4    DGRPECE    DGRPEIS1    DGRPLE    DGRPP1
DGRPTI    DGRPTU    DGRPTX    DGRPTX10    DGRPTX11    DGRPTX14    DGRPTX17    DGRPTX18
DGRPTX24    DGRPTX25    DGRPTX27    DGRPTX34    DGRPTX39    DGRPTX41    DGRPTX5    DGRPX7
DGRPX710    DGRPX711    DGRPX712    DGRPX73    DGRPXC    DGRPXR    DGRRPSEE    DGRUADT1
DGRUGA01    DGRUGBJ    DGRUGC    DGRUGDS    DGRUGZDC    DGRUUTL    DGSEC4    DGSILL
DGSWITCH    DGV53PT2    DGVPTDV1    DGVPTDV2    DGVPTDV3    DGVPTDV4    DGVPTIB3    DPTDPO
DPTDZPO    DPTLK    DPTLK2    DPTLK4    VADPT4    VADPT60    VAFCAUD    VAFCEHU3
VAFCMGU0    VAFCMS01    VAFCPID    VAFCPTAD    VAFCPTED    VAFCQRY1    VAFCQRY3    VAFCRAUD
VAFCTFPR    VAFHLIN2    VAFHLNK1    VAFHLZMH    VAFHLZTA    VAUTOMA    
IHS GPRA Information System 93 BGPMUA10    BGPMUA11    BGPMUAD1    BGPMUAD2    BGPMUAD3    BGPMUAD4    BGPMUAD5    BGPMUAD6
BGPMUAD7    BGPMUAD8    BGPMUAP1    BGPMUAP2    BGPMUAP3    BGPMUAP4    BGPMUAP5    BGPMUAP6
BGPMUAP7    BGPMUAP8    BGPMUAP9    BGPMUBD1    BGPMUBD2    BGPMUBP1    BGPMUBP2    BGPMUCD1
BGPMUCP1    BGPMUD04    BGPMUDD1    BGPMUDD2    BGPMUDD3    BGPMUDD4    BGPMUDD5    BGPMUDD6
BGPMUDD7    BGPMUDP1    BGPMUDP2    BGPMUDP3    BGPMUDP4    BGPMUDP5    BGPMUDP6    BGPMUDP7
BGPMUF05    BGPMUF06    BGPMUF07    BGPMUFD1    BGPMUFD4    BGPMUFD5    BGPMUFD6    BGPMUFD7
BGPMUFD8    BGPMUFD9    BGPMUFP1    BGPMUFP4    BGPMUFP5    BGPMUFP6    BGPMUFP7    BGPMUFP8
BGPMUFP9    BGPMUGD1    BGPMUGD2    BGPMUGD3    BGPMUGD4    BGPMUGD5    BGPMUGD6    BGPMUGD7
BGPMUGD8    BGPMUGD9    BGPMUGP1    BGPMUGP2    BGPMUGP3    BGPMUGP4    BGPMUGP5    BGPMUGP6
BGPMUGP7    BGPMUGP8    BGPMUGP9    BGPMUHD1    BGPMUHD2    BGPMUHD3    BGPMUHD4    BGPMUHD5
BGPMUHD6    BGPMUHD7    BGPMUHD8    BGPMUHP1    BGPMUHP2    BGPMUHP3    BGPMUHP4    BGPMUHP5
BGPMUHP6    BGPMUHP7    BGPMUHP8    BGPMUWD1    BGPMUWP1    
Scheduling 73 SCAPMC28    SCCVCST3    SCDXSUP1    SCENIA2    SCMCCV6    SCMCTSK1    SCMCTSK6    SCMCTSKG
SCMCU1    SCMSPX1    SCMSPX2    SCRPO5    SCRPW1    SCRPW7    SCRPW81    SCUTBK11
SDACSCG    SDAM10    SDAMEP1    SDAMEX    SDAMOCP1    SDAMODO    SDAMWI    SDAMWI1
SDAPP    SDASO    SDAUT2    SDCD    SDCI    SDCLK    SDCNP    SDDPA
SDDSO    SDHPIB    SDM    SDM1A    SDM1T    SDM1T11    SDM4    SDMHAD1
SDMHNS1    SDMM1    SDMULT    SDN    SDOUTPUT    SDPFSS2    SDREV    SDROUT1
SDRPA08    SDRRISRD    SDSCINS    SDUTL2    SDUTL3    SDWL120    SDWLAHRC    SDWLCU5
SDWLCU6    SDWLDISP    SDWLE    SDWLE113    SDWLE6    SDWLEC    SDWLFUL1    SDWLIFT3
SDWLMSG    SDWLPL    SDWLQSC    SDWLQSC1    SDWLREB    SDWLRP4    SDWLSC    SDWLSCPE
SDWLTR    
IHS Changes To ADT 60 ADGCRB0    ADGLOC0    ADGPCAC    ADGPI    ADGPM1    ADGRPD    BDGAD1    BDGAD2
BDGAD3    BDGAD4    BDGADD1    BDGADD2    BDGADS2    BDGBULL1    BDGCEN30    BDGCPT
BDGCRB    BDGEAN    BDGEAN2    BDGF1    BDGF2    BDGICE    BDGICE2    BDGICF2
BDGICR41    BDGICS2    BDGICS3    BDGILD1    BDGILD2    BDGILD3    BDGILD4    BDGILD5
BDGILD62    BDGILD7    BDGIPL1    BDGIPL2    BDGIPL3    BDGIPL31    BDGIPL4    BDGIPL5
BDGIPL6    BDGIPL7    BDGIPL8    BDGIPL9    BDGLOC1    BDGLOS1    BDGOPL    BDGPCCE2
BDGPCCEL    BDGPI    BDGPI1    BDGPV    BDGSD1    BDGSPT1    BDGSPT2    BDGSPT3
BDGSVE    BDGSVL1    BDGVAH    BDGVHF    
IHS Patient Registration 52 AG2A    AG3    AG3A    AG4    AG6    AG71A9    AG8A    AG8B
AGACAL    AGACALV    AGAGERP    AGAGERP1    AGAGERP2    AGAGERP3    AGBIC1B    AGCARD
AGDATCK    AGED1    AGED10B    AGED13    AGED2    AGED51    AGED61    AGED8
AGEDERR4    AGEDGUAR    AGEDMCD    AGEDPRV    AGEDPRVP    AGEL1    AGEL2    AGEL3
AGEMARP    AGEVC    AGKPAT    AGMAN    AGMANERS    AGMCRP5    AGMCRP6    AGNDXP
AGOPT2    AGPHADDR    AGREPRT1    AGREPRT2    AGSS1    AGSSKILL    AGSSLPRT    AGSSPSDO
AGSSPSZZ    AGSSUNDO    AGUTILS    AGUTL    
Integrated Billing 36 IB20PT81    IB20PT87    IBAMTBU2    IBARXEI    IBARXEPE    IBARXEX    IBCB    IBCNQ1
IBCNSC3    IBCNSM    IBCNSM2    IBCNSM31    IBCNSM4    IBCNSP    IBCNSP2    IBCOC1
IBECEA    IBERS    IBOA31    IBODISP    IBOMTE    IBOMTP    IBRCON1    IBRREL
IBTOAT    IBTOBI    IBTONB    IBTOTR    IBTOVS    IBXSC11    IBXSC116    IBXSC12
IBXSC15    IBXSC19    IBXSC21    IBXSC22    
IHS Changes To Scheduling 34 ASDAIU    ASDCR    ASDM    ASDOI    BSDAIU    BSDAL0    BSDAL2    BSDAMEP
BSDAMEPW    BSDAMR2    BSDAMR3    BSDAMR4    BSDAPL    BSDAPP    BSDCF    BSDCRL
BSDDPA    BSDFRL    BSDHS    BSDNS2    BSDP14PS    BSDPCP    BSDREG    BSDRFC
BSDROUT    BSDROUT0    BSDROUT1    BSDROUT2    BSDU2    BSDWKR1    BSDWKR2    BSDWKR4
BSDWLL    BSDWLV    
iCare 30 BQICAEXP    BQICAVAL    BQIFLGET    BQIGPPL    BQIGPRA1    BQIIPBNL    BQIIPOTC    BQIIPPNL
BQIIPPRV    BQIIPPT    BQIPTDDG    BQIPTDG    BQIPTLKP    BQIPTREP    BQIPTRP1    BQIPTRPF
BQIRMPL    BQIRMREG    BQITD05    BQITD06    BQITD11    BQITDLST    BQITDPNL    BQITHCH
BQITRPRT    BQITRRSK    BQITRSK    BQIULPT    BQIVFTRL    BQIVFVAL    
IHS HIV Management System 24 BKMILK    BKMIMRP1    BKMIXX3    BKMQQCR    BKMQQCR3    BKMQQCR7    BKMQQCRA    BKMQQCRU
BKMQSSR    BKMQSSR3    BKMVA1    BKMVA1U    BKMVA2    BKMVA4    BKMVA5    BKMVA51
BKMVA6    BKMVA9    BKMVFAPI    BKMVQCRA    BKMVSRP1    BKMVSSR    BKMVSSR3    BKMVSUP2
Outpatient Pharmacy 23 PSO146PS    PSOBAI    PSOCAN1    PSOCMOPR    PSODISP1    PSOHLDS1    PSOLMPAT    PSONVAR1
PSOORRNW    PSOPAT    PSOPATLK    PSOPI136    PSOREF0    PSOREJP0    PSORMRX    PSORMRXP
PSOSUCH1    PSOSUCHG    PSOSUDPR    PSOSUPAT    PSOTPCLP    PSOTPHL2    PSOVER    
IHS Changes To Lab 20 BLRAG04    BLRAG05C    BLRBLTL    BLRDOCRM    BLRDPT60    BLRMIEHR    BLRMIRPT    BLRMLTL1
BLROLOR    BLRQUALU    BLRREFLA    BLRRLEVN    BLRRLFX1    BLRRLHL    BLRRLHL2    BLRSGNSD
BLRSHDRC    BLRSLTL1    BLRTNB    BLRTNM1    
IHS Changes To Pharmacy 18 APSKAMN0    APSPCDI    APSPCDI1    APSPCO    APSPCSM    APSPCSM1    APSPCTR    APSPCTR1
APSPDR4    APSPDRX    APSPDUR1    APSPELRX    APSPES4    APSPESG    APSPESG1    APSPESR1
APSPESR2    APSPFNC2    
Lab Service 17 LR7OGM    LRAPBRPW    LRDPA    LRHDR    LRHY4X    LRHYBC1    LRHYF2    LRHYF4
LRHYPL    LRHYT1    LROW2RP    LRSORA1    LRSORC    LRSORD    LRTOCOST    LRVRPOC
LRWLST11    
Adverse Reaction Tracking 16 GMRADSP4    GMRADSP6    GMRAEER0    GMRAEF1    GMRAFX3    GMRAMCB1    GMRAPAT    GMRAPES0
GMRAPVDE    GMRAU85    GMRAUTL2    GMRAVAM0    GMRAY20    GMRAY25    GMRAY38    GMRAZNAS
Third Party Billing 16 ABMDE2XA    ABMDVCK0    ABME630A    ABMER30A    ABMER31A    ABMERINS    ABMM2P11    ABMM2PH3
ABMMUFC1    ABMMUFC3    ABMMUFC6    ABMMUPV1    ABMMUPVH    ABMPTPOP    ABMRPVET    ABMTPYMT
Patient Registration GUI 15 AGGARVAL    AGGFMTRG    AGGMCTRG    AGGPTADD    AGGPTDEL    AGGPTLKP    AGGPTNEW    AGGPTPVI
AGGPTTRG    AGGRPRT1    AGGRPRT2    AGGUL1    AGGUPMCR    AGGWTRIG    AGGWVAL    
Medicine 12 MCARAM0    MCARAM6    MCARAM7    MCARAMLC    MCARAMLD    MCARAMLG    MCARGEA    MCARPCS1
MCARUTL2    MCARUTL3    MCARUTL4    MCRH1    
Barcode Medication Administration 11 PSBIHS4    PSBMLEN    PSBMLLKU    PSBMLTS    PSBMLU    PSBOPE    PSBOXA    PSBPRN
PSBPXLP    PSBRPC    PSBVDLU3    
IHS Mods To Text Integration Utilities 11 BTIULO    BTIULO11    BTIULO13    BTIULO16    BTIULO18    BTIULO2    BTIULO6    BTIULO9
BTIUPCC6    BTIUPUTP    BTIURPT    
Radiology Nuclear Medicine 11 RA45PST1    RADEM    RADOSTIK    RADTICK    RAHLO4    RAORD    RAORD1    RAORD2
RAPM    RAPMW2    RARTE6    
Clinical Reminders 10 PXRMDEV    PXRMG2E1    PXRMGECJ    PXRMGECP    PXRMGECQ    PXRMGECR    PXRMGECS    PXRMGECT
PXRMOBJ    PXRMPDR    
Health Summary 10 GMTSLRA    GMTSLRB    GMTSLRC    GMTSLRCP    GMTSLRM    GMTSLRMB    GMTSLRS    GMTSLRS7
GMTSLRT    GMTSU2    
IHS Accounts Receivable 9 BARBAD5    BARBAD6    BARBL    BARDMAN3    BARDMLP    BARDMLPR    BARMPAS3    BARPST5
BARPST6    
Consult Request Tracking 8 GMRCAD31    GMRCDRFR    GMRCIAIT    GMRCITPI    GMRCPSL3    GMRCPSL4    GMRCSTS1    GMRCYP31
Diabetes Registry 8 BDMDD1B    BDMDE1B    BDMDF1B    BDMDG1B    BDMDR5    BDMDR6    BDMGR    BDMRML
General Medical Record - Vitals 8 GMRVDS0    GMRVED0    GMRVEE0    GMRVEE2    GMRVER0    GMVDCEXT    GMVDCVAL    GMVRPCP
IHS Electronic Health Record 8 BEHOCACV    BEHOCCD    BEHOPTC1    BEHOPTCX    BEHOPTP2    BEHORXF1    BEHORXF2    BEHORXRT
Patient Registration MPI 8 AGMP72P3    AGMPHLEU    AGMPHLU    AGMPHLU1    AGMPHLVQ    AGMPHMFN    AGMPIACK    AGMPIPID
Text Integration Utility 7 TIUASRPT    TIUHL7P1    TIUHL7P2    TIUHL7P3    TIURDIV    TIURVBC    TIUSUPN    
Controlled Substances 6 PSDNTF    PSDORNV    PSDRF    PSDRFR    PSDRFS    PSDRFW    
Emergency Room 6 AMER0    AMER2    AMER2B    AMERAGED    AMEREDIT    AMERLKP    
IHS Emergency Dept Dashboard 6 BEDDADM    BEDDEHRS    BEDDMREC    BEDDPLKP    BEDDTRPT    BEDDUTID    
Automated Lab Instruments 5 LA7HDR1    LA7MUNK1    LA7MUPID    LA7SBCR1    LA7VQINS    
Immunization Tracking 5 BIELIG1    BILOT1    BIUTL4    BIUTL7    BIVACED1    
Nursing Service 5 NURCEVE0    NURCPPS1    NURCPPS3    NURSCUTL    NURSUT1    
Order Entry Results Reporting 5 ORB3MGR2    ORB3U1    ORQPT2    ORUDPA    ORWPT16    
Tracking Procedure Workflow 5 BTPWEVNT    BTPWPDSP    BTPWPEVT    BTPWPLN1    BTPWPSNP    
Electronic Dental Record 4 BADEHL1    BADEHL3    BADEHLZ    BADEVNT1    
IHS Immunizations Interface 4 BYIMIMM1    BYIMIMM2    BYIMIMM3    BYIMMU2    
PCC New Encounter Form 4 VENPCC1G    VENPCCA    VENPCCD    VENPCCID    
Patient Care Component Reports 4 APCLDF0    APCLSIHL    APCLSMU    APCLSMU2    
Pharmacy Point of Sale 4 ABSP5E1    ABSPDE1    ABSPOSE1    ABSPOSE2    
Phoenix 4 BZXBPN    BZXBPNA    BZXFIXAD    BZXLRSER    
Beneficiary Travel 3 DGBTE    DGBTEF    DGBTR    
Dietetics 3 FHDPA    FHDSSAPI    FHMNINQ    
GUI Objects 3 BGOVEYE1    BGOVIMM    BGOVSK    
IHS Patient 3 AUPNELIG    AUPNLK2    AUPNLKI    
IHS Pharmacy Auto Refill System 3 BEX80    BEXREXC    BEXRQUE    
Inpatient Medications 3 PSIV    PSIVUWL    PSJDPT    
Local Area Programs 3 AZAXHRNC    AZCNFDPT    AZHRDEMO    
Surgery 3 SRHLORU    SROAPCA4    SROATCM    
CMOP 2 PSXBPSR1    PSXBPSRP    
Clinical Scheduling for Windows 2 BSDX38    BSDX42    
General Medical Record - Generator 2 GMRGED0    GMRGPRNT    
General Medical Record - IO 2 GMRYRP5    GMRYUT0    
IHS Laboratory Point of Care 2 BLRPOC2    BLRPOC3    
IHS Mods To Patient Care Encounter 2 BPXRMBMI    BPXRMSEO    
IHS Omnicell Pyxis Interface 2 BOPSHO    BOPTSD    
IHS Prenatal Care Module 2 BJPNPRNT    BJPNUTIL    
IHS Standard Terminology 2 BSTSMAP1    BSTSMSR    
IHS Support HL7 Interfaces 2 BHLJVN1    BHLPIDI    
IHS View Patient Record 2 BVPRP    BVPRX    
M Transfer 2 BMXADOI    BMXADOV2    
Mental Health Social Services 2 AMHGD    AMHGDGP    
Patient Care Component Surveillance 2 APCSHLO    APCSHLOC    
Problem List 2 GMPLNTFT    GMPLNTRT    
Quality Assurance 2 AQAOLKP    AQAOPC3    
Referred Care Information System 2 BMCRPC4    BMCSMC    
Toolkit 2 XDRDADDS    XDRRMRG0    
Utilities 2 AUPATLK    AUPATLKI    
Alcohol Chemical Dependency 1 ACDREG    
Automated Information Collection System 1 IBDF1B    
Bemidji 1 BZDMCDAZ    
Comprehensive Diabetes Management 1 BCDMFLDS    
DRG Grouper 1 ICDDRGM    
Data Warehouse Export System 1 BDWAID    
Health Summary Components 1 BHSMEA    
IHS Dental System 1 ADEMNG1    
IHS Generic Interface System 1 INTSTF    
IHS Release Of Information 1 BRNFMTS    
Incomplete Records Tracking 1 DGJTEE    
PCC Medical Query 1 AMQQ2    
Patient Care Component 1 APCDCAF6    
Pharmacy Data Management 1 PSSWRNA    
Phoenix Devel Center 1 AZXAFMTS    
Scriptpro Interface 1 APSSLIC    
VueCentric RPMS Support 1 CIAZPLCH    
Women's Health 1 BWUTL7    

Pointed To By FileMan Files, Total: 160

Package Total FileMan Files
Registration 31 MAS PARAMETERS(#43)[213]    CENSUS WORKFILE(#45.85)[.01]    PAF(#45.9)[.01]    TREATING FACILITY LIST(#391.91)[.01]    PATIENT ENROLLMENT(#27.11)[.02]    ENROLLMENT QUERY LOG(#27.12)[.01]    ENROLLMENT/ELIGIBILITY UPLOAD AUDIT(#27.14)[.03]    INCONSISTENT DATA(#38.5)[.01]    PTF MESSAGE(#45.5)[1]    MST HISTORY(#29.11)[2]    MEANS TEST CHANGES(#408.41)[.04]    PTF TRANSACTION REQUEST LOG(#45.87)[.09]    PRF ASSIGNMENT(#26.13)[.01]    PRF HL7 EVENT(#26.21)[.01]    PATIENT MOVEMENT(#405)[.03]    PATIENT RELATION(#408.12)[.01.03]    PTF(#45)[.01]    VIC REQUEST(#39.6)[.02]    SCHEDULED ADMISSION(#41.1)[.01]    PRE-REGISTRATION AUDIT(#41.41)[.01]    PRE-REGISTRATION CALL LIST(#41.42)[.01]    PRE-REGISTRATION CALL LOG(#41.43)[1]    G&L CORRECTIONS(#43.5)[.05]    DG SECURITY LOG(#38.1)[.01]    WAIT LIST(#42.5)[#42.51(.01)]    EMBOSSED CARD TYPE(#39.1)[#39.13(.01)]    VA PATIENT(#2)[.082.3601]    OPC ERRORS(#40.15)[.01]    OPC(#40.1)[.01]    ADT/HL7 TRANSMISSION(#39.4)[.03]    ADT/HL7 PIVOT(#391.71)[.03.05]    
Scheduling 14 HOSPITAL LOCATION(#44)[#44.003(.01)#44.007(.01)]    OUTPATIENT ENCOUNTER(#409.68)[.02]    OUTPATIENT PROFILE(#404.41)[.01]    PATIENT TEAM ASSIGNMENT(#404.42)[.01]    PCMM HL7 TRANSMISSION LOG(#404.471)[.02]    PCMM HL7 EVENT(#404.48)[.02]    APPOINTMENT PFSS ACCOUNT REFERENCE(#409.55)[.02]    DELETED OUTPATIENT ENCOUNTER(#409.74)[.02]    ACRP TRANSMISSION HISTORY(#409.77)[.03]    SDSC SERVICE CONNECTED CHANGES(#409.48)[.11]    SCHEDULING VISITS(#409.5)[2]    SD WAIT LIST(#409.3)[.01]    EWL CLEAN-UP(#409.39)[.01]    PATIENT APPOINTMENT INFO LOG(#409.6)[#409.69(.01)]    
Integrated Billing 12 BILL/CLAIMS(#399)[.02]    INTEGRATED BILLING ACTION(#350)[.02]    BILLING PATIENT(#354)[.01]    GROUP INSURANCE PLAN(#355.3)[.1]    INSURANCE CLAIMS YEAR TO DATE(#355.5)[.02]    PERSONAL POLICY(#355.7)[.02]    IB SITE PARAMETERS(#350.9)[4.02]    CATEGORY C BILLING CLOCK(#351)[.02]    IB CONTINUOUS PATIENT(#351.1)[.01]    SPECIAL INPATIENT BILLING CASES(#351.2)[.01]    CLAIMS TRACKING(#356)[.02]    INSURANCE REVIEW(#356.2)[.05]    
Outpatient Pharmacy 11 DUE ANSWER SHEET(#50.0731)[7]    PATIENT NOTIFICATION (Rx READY)(#52.11)[.01]    RX VERIFY(#52.4)[1]    PENDING OUTPATIENT ORDERS(#52.41)[1]    PRESCRIPTION REFILL REQUEST(#52.43)[9]    RX SUSPENSE(#52.5)[.03]    PHARMACY EXTERNAL INTERFACE(#52.51)[2]    PHARMACY PRINTED QUEUE(#52.9)[#52.9001(.01)]    TPB ELIGIBILITY(#52.91)[.01]    PHARMACY ARCHIVE(#52.8)[1]    PRESCRIPTION(#52)[2]    
Inpatient Medications 7 IV STATS(#50.8)[#50.801(.01)#50.806(.01)]    NON-VERIFIED ORDERS(#53.1)[.5]    PRE-EXCHANGE NEEDS(#53.4)[#53.401(.01)]    MAR LABELS(#53.41)[#53.4102(.01)]    MISCELLANEOUS REPORT FILE(#53.43)[#53.43011(.01)]    PHYSICIANS' ORDERS(#53.44)[#53.4401(.01)]    PICK LIST(#53.5)[#53.51(.01)]    
Barcode Medication Administration 5 BCMA MISSING DOSE REQUEST(#53.68)[.11]    BCMA REPORT REQUEST(#53.69)[.12]    BCMA UNABLE TO SCAN LOG(#53.77)[.02]    BCMA MEDICATION VARIANCE LOG(#53.78)[.01]    BCMA MEDICATION LOG(#53.79)[.01]    
Lab Service 5 BLOOD INVENTORY(#65)[#65.03(.07)]    WKLD LOG FILE(#64.03)[2]    WKLD DATA(#64.1)[#64.1111(9)]    LAB SECTION PRINT(#69.2)[#69.3(.06)]    REFERRAL PATIENT(#67)[23]    
Order Entry Results Reporting 5 ORDER CHECK PATIENT ACTIVE DATA(#860.1)[.01]    ORDER(#100)[.02]    OE/RR LIST(#100.21)[#100.2101(.01)]    ORDER PARAMETERS(#100.99)[3.05#100.9903(.01)]    OE/RR PATIENT EVENT(#100.2)[.01]    
Radiology Nuclear Medicine 5 HL7 MESSAGE EXCEPTIONS(#79.3)[.03]    RAD/NUC MED PATIENT(#70)[.01]    NUC MED EXAM DATA(#70.2)[.01]    RAD/NUC MED ORDERS(#75.1)[.01]    RAD/NUC MED REPORTS(#74)[2]    
Clinical Reminders 4 REMINDER GEC DIALOG ASSOCIATION HISTORY(#801.55)[.01]    REMINDER REPORT TEMPLATE(#810.1)[#810.16(.01)]    REMINDER PATIENT LIST(#810.5)[#810.53(.01)]    REMINDER EXTRACT SUMMARY(#810.3)[#810.31(.01)#810.3316(.01)]    
Nursing Service 4 NURS AMIS DAILY EXCEPTION REPORT(#213.5)[#213.51(.01)]    NURS CLASSIFICATION(#214.6)[.02]    NURS REVIEW CLASSIFICATION(#214.7)[.02]    NURS PATIENT(#214)[.01]    
Adverse Reaction Tracking 3 PATIENT ALLERGIES(#120.8)[.01]    ADVERSE REACTION REPORTING(#120.85)[.02]    ADVERSE REACTION ASSESSMENT(#120.86)[.01]    
Dietetics 3 DIETITIAN TICKLER FILE(#119)[#119.01(101)]    DIETETIC ENCOUNTERS(#115.7)[#115.701(.01)]    NUTRITION PERSON(#115)[14]    
IHS Immunizations Interface 3 IZ EXPORTS(#90480.1)[.01]    IZ PARAMETERS(#90480)[#90480.02(.1)]    IZ REAL-TIME QUERY(#90480.2)[.04]    
PCC New Encounter Form 3 VEN QUEUE(#19707.2)[1.1]    VEN EHP CONFIGURATION(#19707.5)[.14]    VEN EHP ERROR LOG(#19707.7)[.07]    
Pharmacy Point of Sale 3 ABSP DATA INPUT(#9002313.51)[#9002313.512(1.04)]    ABSP COMBINED INSURANCE(#9002313.1)[.01]    ABSP ELIGIBILITY(#9002313.7)[.01]    
Surgery 3 SURGERY(#130)[.01]    SURGERY WAITING LIST(#133.8)[#133.801(.01)]    SURGERY TRANSPLANT ASSESSMENTS(#139.5)[.01]    
Automated Information Collection System 2 ENCOUNTER FORM TRACKING(#357.96)[.02]    AICS ERROR AND WARNING LOG(#359.3)[.02]    
Beneficiary Travel 2 BENEFICIARY TRAVEL CLAIM(#392)[2]    BENEFICIARY TRAVEL CERTIFICATION(#392.2)[2]    
Controlled Substances 2 CS WORKSHEET(#58.85)[22]    CS DESTRUCTION(#58.86)[18]    
Enrollment Application System 2 INCOME RELATION(#408.22)[.01]    ANNUAL MEANS TEST(#408.31)[.02]    
IHS Changes To Pharmacy 2 APSP INTERVENTION(#9009032.4)[.02]    APSP PRIMARY CARE VISIT(#9009032.6)[.02]    
IHS Omnicell Pyxis Interface 2 BOP IV(#90355.35)[.02]    BOP RECEIVE EXCEPTION(#90355.4)[.02]    
IHS Patient 2 PATIENT(#9000001)[.01]    PODIATRY HISTORY(#9000028)[.01]    
Kernel 2 ALERT(#8992)[#8992.01(3.02)]    ALERT TRACKING(#8992.1)[.04]    
Toolkit 2 DUPLICATE RECORD(#15)[.01.02999999903]
MERGE IMAGES(#15.4)[.01.02]    
CMOP 1 CMOP TRANSMISSION(#550.2)[#550.215(.03)]    
Care Management 1 PATIENT TASK(#102.3)[3]    
Consult Request Tracking 1 REQUEST/CONSULTATION(#123)[.02]    
Drug Accountability 1 DRUG ACCOUNTABILITY TRANSACTION(#58.81)[73]    
General Medical Record - Generator 1 GMR TEXT(#124.3)[.02]    
General Medical Record - IO 1 GMRY PATIENT I/O FILE(#126)[.01]    
General Medical Record - Vitals 1 GMRV VITAL MEASUREMENT(#120.5)[.02]    
IHS Changes To Scheduling 1 WAITING LIST(#9009017.1)[#9009017.11(.01)]    
IHS Designated Provider 1 BDP DESG SPECIALTY PROVIDER(#90360.1)[.02]    
IHS Generic Interface System 1 INTERFACE CRITERIA(#4001.1)[8]    
IHS HIV Management System 1 HMS REGISTRY(#90451)[.02]    
IHS Medicaid Eligibility Download 1 BME MEDICAID MASTER LIST(#90334)[.01]    
IHS Pharmacy Auto Refill System 1 BEX REFILL TRANSACTION(#90350.1)[.01]    
Incomplete Records Tracking 1 INCOMPLETE RECORDS(#393)[.01]    
Local Area Programs 1 AZA MEDICAID MASTER LIST(#1180007)[.01]    
Medicine 1 MEDICAL PATIENT(#690)[.01]    
Mental Health Social Services 1 MHSS MOST RECENTLY SELECTED ITEMS PATIENT(#9002012.96)[.01]    
PCE Patient Care Encounter 1 PCE PARAMETERS(#815)[201]    
Pharmacy Benefits Management 1 PBM PATIENT DEMOGRAPHICS(#59.9)[.02]    
Pharmacy Data Management 1 PHARMACY PATIENT(#55)[.01#55.06(.5)]    
Text Integration Utility 1 TIU AUDIT TRAIL(#8925.5)[1.031.04]    

Pointer To FileMan Files, Total: 42

Package Total FileMan Files
Registration 24 SHARING AGREEMENT SUB-CATEGORY(#35.2)[#2.98(24)]    TYPE OF PATIENT(#391)[391]    AMIS SEGMENT(#391.1)[#2.101(17)]    MEDICAL CENTER DIVISION(#40.8)[#2.101(3)]    ROOM-BED(#405.4)[.108]    PATIENT ENROLLMENT(#27.11)[27.01]    CATASTROPHIC DISABILITY REASONS(#27.17)[#2.396(.01)#2.397(.01)#2.398(.01)#2.409(.01)]    PATIENT MOVEMENT(#405)[.102.105]    RACE(#10)[.06#2.02(.01)]    ETHNICITY(#10.2)[#2.06(.01)]    RACE AND ETHNICITY COLLECTION METHOD(#10.3)[#2.02(.02)#2.06(.02)]    MARITAL STATUS(#11)[.05]    RELIGION(#13)[.08]    PERIOD OF SERVICE(#21)[.323]    POW PERIOD(#22)[.526.5292]    BRANCH OF SERVICE(#23)[.325.3291.3296#2.312(3.02)]    TYPE OF DISCHARGE(#25)[.324.329.3295]
DISPOSITION LATE REASON(#30)[#2.101(8)]    OTHER FEDERAL AGENCY(#35)[.309]    DISPOSITION(#37)[#2.101(6)]    FACILITY TREATING SPECIALTY(#45.7)[.103]    CATEGORY OF BENEFICIARY(#45.82)[.31]    ELIGIBILITY CODE(#8)[.361#2.0361(.01)#2.101(13)]
VA PATIENT(#2)[.082.3601]    
Kernel 5 USER(#3)[#2.22(2)#2.22(6)]    INSTITUTION(#4)[.12.12114.13111.1314.138.14113.2911.314.3618.393.53527.02991.031010.1521010.154#2.0992(2)#2.3215(.06)#2.399(.393)]    STATE(#5)[.093.115.1215.1415.1654.1659.217.2197.256.2917.2927.3117.3317.337.347#2.101(35)#2.312(2.06)#2.312(3.09)#2.312(13)]
NAME COMPONENTS(#20)[1.011.021.031.041.051.061.071.081.09#2.01(100.03)#2.101(100.21)]
NEW PERSON(#200)[.096.104.1041.122.352.355.3616404.011100.021100.04#2.101(4)#2.101(9)#2.312(1.02)#2.312(1.04)#2.312(1.06)#2.98(14)#2.98(19)]    
Scheduling 5 HOSPITAL LOCATION(#44)[#2.001(.01)#2.98(.01)#2.98(18)]
OUTPATIENT ENCOUNTER(#409.68)[#2.101(18)#2.98(21)]    TEAM(#404.51)[404.02]    APPOINTMENT TYPE(#409.1)[#2.98(9.5)]    CANCELLATION REASONS(#409.2)[#2.98(16)]    
Integrated Billing 2 INSURANCE COMPANY(#36)[#2.101(25)#2.312(.01)]    GROUP INSURANCE PLAN(#355.3)[#2.312(.18)]    
Lab Service 2 LAB DATA(#63)[63]    REFERRAL PATIENT(#67)[67]    
Enrollment Application System 1 MEANS TEST STATUS(#408.32)[.14]    
HINQ 1 DISABILITY CONDITION(#31)[#2.04(.01)]    
Health Level Seven 1 SUBSCRIPTION CONTROL(#774)[991.05]    
Inpatient Medications 1 REACTION SEVERITY(#58)[#2.54(.02)]    

Fields, Total: 433

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X I $D(X) K DG20NAME S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,30) K:'$L(X) X,DG20NAME S:$D(X) DGNEWVAL=X
  • LAST EDITED:  MAY 26, 2004
  • HELP-PROMPT:  Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-30 characters in length.
  • DESCRIPTION:  Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other
    characters and parenthetical text will be removed.
  • TECHNICAL DESCR:  
    IHS/ITSC/LJF 2/5/2004: Changed Input Transform - added K DG20NAME before setting DG20NAME to kill any leftover array items from previous patient.
  • PRE-LOOKUP:  D INPUT^DGRPDD1
  • DELETE TEST:  .01,0)= I 1
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^B
    1)= S ^DPT("B",$E(X,1,30),DA)=""
    2)= K ^DPT("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  2^BS5^MUMPS
    1)= Q:$P(^DPT(DA,0),U,9)']""  S ^DPT("BS5",$E(X,1)_$E($P(^(0),U,9),6,9),DA)=""
    2)= Q:$P(^DPT(DA,0),U,9)']""  K ^DPT("BS5",$E(X,1)_$E($P(^(0),U,9),6,9),DA)
  • CROSS-REFERENCE:  2^AENR01^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • CROSS-REFERENCE:  2^AODS2^MUMPS
    1)= S A1B2TAG="PAT" D ^A1B2XFR
    2)= S A1B2TAG="PAT" D ^A1B2XFR
  • CROSS-REFERENCE:  2^ABUL^MUMPS
    1)= K DGNEWVAL Q
    2)= S DFN=DA D ^DGPATN K DGNEWVAL Q
    This cross-reference will generate a mail message when a patient is deleted or the patient's name is changed.
  • CROSS-REFERENCE:  2^IVM01^MUMPS
    1)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    2)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    This cross-reference will check the IVM PATIENT file to see if a change to this field will require transmission to the IVM Center.  If it does, the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and the
    nightly background job will transmit the updated information.
  • CROSS-REFERENCE:  2^AVAFC01^MUMPS
    1)= I '$D(DFN),($T(AVAFC^VAFCDD01)'="") S VAFCF=".01;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".01;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^AMPIMIS^MUMPS
    1)= I $T(SET^VAFCMIS)'=""&('$D(VAFCNO)) D SET^VAFCMIS(DA)
    2)= I $T(KILL^VAFCMIS)'=""&('$D(VAFCNO)) D KILL^VAFCMIS(DA)
    Temporary cross reference that lets the MPI Missing ICN job know that a patient was added to the Patient file, via another package other than PIMS, and needs to get an ICN.  Once the ICN is assigned (local or national) the
    cross reference is killed.
  • CROSS-REFERENCE:  2^ADGRU01^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.083
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X=DIV S X=1 S DIH=$G(^DPT(DIV(0),0)),DIV=X S $P(^(0),U,20)=DIV,DIH=2,DIG=.083 D ^DICR
    2)= Q
    3)= USED BY IHS IN PATIENT MERGE UTILITY
    CREATE VALUE)= S X=1
    DELETE VALUE)= NO EFFECT
    FIELD)= #.083
    IHS/ANMC/LJF 8/31/2000 added trigger because NAME is included in items to check in IHS Patient Merge Utility.
  • CROSS-REFERENCE:  2^AAVABDW1^MUMPS
    1)= D SET^AUPNDWXR(DA,"DEMO")
    2)= D KILL^AUPNDWXR(DA,"DEMO")
    Populates AUPNDWAF for the Data Warehouse export.  Please see routine for documentation.
  • FIELD INDEX:  ADGFMD01 (#18) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.01,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.01,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  NAME  (2,.01)  (forwards)
  • FIELD INDEX:  AMPIZZ (#37) MUMPS IR ACTION
    Short Descr:  Inactivate ICN when patient is ZZ'd or deleted
    Description:  The set of this cross reference is to inactivate a patient with an ICN (991.01) that have been ZZ'd.  The rules for inactivation will be enforced.
    The kill of this cross reference is to inactivate a patient with an ICN (991.01) that has been deleted (@ entered on the.01).
    The rules for Inactivtion will be enforced. If in either situation, the rules don't allow for automatically inactivating the ICN, an exception message will be generated.
    Inactivating an ICN deletes fields 991.01, 991.02, 991.03 and 991.04
    Set Logic:  I $T(ZZSET^MPIFDEL)'="",$E(X2(1),1,2)="ZZ" D ZZSET^MPIFDEL(DA,X2(1))
    Kill Logic:  I $T(ZZKILL^MPIFDEL)'="",X2(1)="" D ZZKILL^MPIFDEL(DA,X2(1))
    X(1):  NAME  (2,.01)  (forwards)
  • FIELD INDEX:  ANAM01 (#38) MUMPS IR ACTION
    Short Descr:  This index keeps the NAME COMPONENTS file in synch with the .01 field.
    Description:  This cross reference uses Kernel name standardization APIs to keep the NAME COMPONENTS (#20) file record associated with the #.01 field synchronized with the data value stored in that field.
    Set Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^DPTNAME(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.01,.DG20NAME,1.01,+$P($G(^DPT(DA,"NAME")),U),"CL30") K DG20NAME Q
    Kill Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.01,1.01) Q
    X(1):  NAME  (2,.01)  (Subscr 1)  (forwards)
  • FIELD INDEX:  NOP (#52) REGULAR IR LOOKUP & SORTING
    Short Descr:  Index of standardized values that don't match .01 value.
    Description:  This cross reference facilitates PATIENT file lookups by a standardized name value.  In addition to the standardization applied by Kernel name utilities, hyphens and apostrophies are also removed from the name value.  This
    cross reference is only set if the standardized name is different than the patient name value stored in the NAME (#.01) field.
    Set Logic:  S ^DPT("NOP",$E(X,1,30),DA)=""
    Kill Logic:  K ^DPT("NOP",$E(X,1,30),DA)
    X(1):  NAME  (2,.01)  (Subscr 1)  (Len 30)  (forwards)
    Transform (Storage):  S X=$$NOP^DPTNAME(X)
    Transform (Lookup):  S X=$$NOP^DPTNAME(X)
.02 SEX 0;2 SET
************************REQUIRED FIELD************************
  • 'M' FOR MALE;
  • 'F' FOR FEMALE;
  • 'U' FOR UNKNOWN;

  • LAST EDITED:  APR 19, 2013
  • HELP-PROMPT:  Enter 'M' for MALE, 'F' for FEMALE, or 'U' if UNKNOWN.
  • DESCRIPTION:  
    Enter 'M' if this applicant is a male, 'F' if female, or 'U' if unknown.
  • GROUP:  IHS
  • CROSS-REFERENCE:  2^ASX
    1)= S ^DPT("ASX",$E(X,1,30),DA)=""
    2)= K ^DPT("ASX",$E(X,1,30),DA)
  • CROSS-REFERENCE:  2^AENR02^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • CROSS-REFERENCE:  2^IVM02^MUMPS
    1)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    2)= S IVMX=X,IVMKILL=2,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX,IVMKILL
    This cross-reference will check the IVM PATIENT file to see if a change to this field will require transmission to the IVM Center.  If it does, the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and the
    nightly background job will transmit the updated information.
    Also, if this field is edited, this cross-reference will check to see if the patient requires a financial query to be sent to the IVM Center (Data Collection Division (DCD).
  • CROSS-REFERENCE:  2^AVAFC02^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".02;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".02;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^ADGRU02^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.083
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X=DIV S X=1 S DIH=$G(^DPT(DIV(0),0)),DIV=X S $P(^(0),U,20)=DIV,DIH=2,DIG=.083 D ^DICR
    2)= Q
    3)= USED BY IHS FOR PATIENT MERGE UTILITY
    CREATE VALUE)= S X=1
    DELETE VALUE)= NO EFFECT
    FIELD)= #.083
    IHS/ANMC/LJF 8/31/2000 added trigger because SEX in one of the items checked in the IHS Patient Merge Utility.
  • CROSS-REFERENCE:  2^AAVABDW2^MUMPS
    1)= D SET^AUPNDWXR(DA,"BASE")
    2)= D KILL^AUPNDWXR(DA,"BASE")
    Populates AUPNDWAF for the Data Warehouse export.  Reference routine for documentation.
.03 DATE OF BIRTH 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EP" D ^%DT S X=Y K:1701231>X!(DT
  • OUTPUT TRANSFORM:  NUMDATE4(DOB)
  • LAST EDITED:  MAY 27, 2004
  • HELP-PROMPT:  Enter the patients DATE OF BIRTH which must be later than 12/31/1870.
  • DESCRIPTION:  
    Enter the applicant's date of birth between December 31, 1870 and today's date.
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^ADOB
    1)= S ^DPT("ADOB",$E(X,1,30),DA)=""
    2)= K ^DPT("ADOB",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^2^.083
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X=DIV S X="1" X ^DD(2,.03,1,2,1.4)
    1.4)= S DIH=$S($D(^DPT(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,19,99))  S DIH=DIH_U" S %=$P(DIH,U,21,999),DIU=$P(DIH,U,20),^(0)=$P(DIH,U,1,19)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.083 D ^DICR:$N(^DD(DIH,DIG,1,0)
    )>0
    2)= Q
    CREATE VALUE)= "1"
    DELETE VALUE)= NO EFFECT
    FIELD)= #.083
  • CROSS-REFERENCE:  2^AODS3^MUMPS
    1)= S A1B2TAG="PAT" D ^A1B2XFR
    2)= S A1B2TAG="PAT" D ^A1B2XFR
  • CROSS-REFERENCE:  2^AENR03^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • CROSS-REFERENCE:  2^IVM03^MUMPS
    1)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    2)= S IVMX=X,IVMKILL=3,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX,IVMKILL
    This cross-reference will check the IVM PATIENT file to see if a change to this field will require transmission to the IVM Center.  If it does, the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and the
    nightly background job will transmit the updated information.
    Also, if this field is edited, this cross-reference will check to see if the patient requires a financial query to be sent to the IVM Center (Data Collection Division (DCD).
  • CROSS-REFERENCE:  2^AVAFC03^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".03;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".03;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^ADGRU03^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • CROSS-REFERENCE:  2^AAVABDW3^MUMPS
    1)= D SET^AUPNDWXR(DA,"BASE")
    2)= D KILL^AUPNDWXR(DA,"BASE")
    Populate AUPNDWAF for the Data Warehouse export.  See routine AUPNDWXR for documentation.
  • FIELD INDEX:  ADGFMD03 (#19) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.03,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.03,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  DATE OF BIRTH  (2,.03)  (forwards)
.033 AGE COMPUTED

  • MUMPS CODE:  X ^DD(2,.033,9.5) S X=$E(Y(2,.033,15),Y(2,.033,16),X) S Y=X,X=Y(2,.033,13),X=X
    9.2 = S Y(2,.033,5)=$S($D(^DPT(D0,0)):^(0),1:""),X=$S($G(^DPT(D0,.35)):+^(.35),1:DT) S X=X,Y(2,.033,1)=X S X=1,Y(2,.033,2)=X S X=3,X=$E(Y(2,.033,1),Y(2,.033,2),X),Y(2,.033,3)=X,Y(2,.033,4)=X
    9.3 = X ^DD(2,.033,9.2) S X=$P(Y(2,.033,5),U,3),X=X S X=X,Y(2,.033,6)=X S X=1,Y(2,.033,7)=X S X=3,X=$E(Y(2,.033,6),Y(2,.033,7),X) S Y=X,X=Y(2,.033,3),X=X-Y
    9.4 = X ^DD(2,.033,9.3) S Y(2,.033,8)=X,Y(2,.033,9)=X,Y(2,.033,10)=X,X=$S($G(^DPT(D0,.35)):+^(.35),1:DT) S X=X,Y(2,.033,11)=X S X=4,Y(2,.033,12)=X S X=7,X=$E(Y(2,.033,11),Y(2,.033,12),X)
    9.5 = X ^DD(2,.033,9.4) S Y(2,.033,13)=X,Y(2,.033,14)=X S X=$P(Y(2,.033,5),U,3),X=X S X=X,Y(2,.033,15)=X S X=4,Y(2,.033,16)=X S X=7
  • ALGORITHM:  $E(TODAY,1,3)-$E(INTERNAL(DOB),1,3)-($E(TODAY,4,7)<$E(INTERNAL(DOB),4,7))
  • LAST EDITED:  MAR 06, 1998
  • HELP-PROMPT:  Computed field which determines patients age based on DOB and todays date.
  • DESCRIPTION:  
    A computer field which, based on today's date (or the patient's date of death, if applicable) and the patient's date of birth, will arrive at his/her age.
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.05 MARITAL STATUS 0;5 POINTER TO MARITAL STATUS FILE (#11)
************************REQUIRED FIELD************************
MARITAL STATUS(#11)

  • LAST EDITED:  AUG 25, 2000
  • HELP-PROMPT:  Select from the available listing this patients current marital status.
  • DESCRIPTION:  
    Select from the available listing this applicant's current marital status.
  • GROUP:  DEMOG
  • CROSS-REFERENCE:  2^AVAFC05^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".05;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".05;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^ADGRU05^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • CROSS-REFERENCE:  2^AENR05^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.06 RACE 0;6 POINTER TO RACE FILE (#10) RACE(#10)

  • INPUT TRANSFORM:  K X D EN^DDIOL("** THIS FIELD IS FOR HISTORICAL PURPOSES ONLY - ENTRY OF DATA NOT ALLOWED **",,"!")
  • LAST EDITED:  APR 10, 2013
  • HELP-PROMPT:  This field is for historical purposes only. Please do not enter data into it.
  • TECHNICAL DESCR:  IHS/ITSC/LJF 10/09/2003 - Removed VA input transform: K X D EN^DDIOL("** THIS FIELD IS FOR HISTORICAL PURPOSES ONLY - ENTRY OF DATA NOT ALLOWED **",,"!")
    Removed VA help text: "This field is for historical purposes only.  Please do not enter data into it."
    Removed field description:  "This field is no longer being populated and the values that are on file were collected prior to installation of patch DG*5.3*415."
    Also made field editable again.  If IHS decides to use new race multiple, this field needs input transform added back in and field made uneditable.
    IHS/OIT/FBD - 04/10/2013 - With the introduction of patch AVA*93.2*22:
    - The RACE field is made uneditable again.
    - The ARACE xref (MUMPS xref for synchronization with the RACE
    INFORMATION field) is deleted.
  • GROUP:  DEMOG
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AVAFC06^MUMPS
    1)= D:($T(AVAFC^VAFCDD01)'="") AVAFC^VAFCDD01(DA)
    2)= D:($T(AVAFC^VAFCDD01)'="") AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
  • CROSS-REFERENCE:  2^ADGRU06^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • CROSS-REFERENCE:  2^ARACE^MUMPS
    1)= Q:$D(^DPT(DA,.02,X))  S ^DPT(DA,.02,X,0)=X_"^4",^DPT(DA,.02,"B",X,X)="" S:'$D(^DPT(DA,.02,0)) ^(0)="^2.02P" S $P(^DPT(DA,.02,0),"^",4)=$P(^(0),"^",4)+1,$P(^(0),"^",3)=X
    2)= Q:'$D(^DPT(DA,.02,X))  K ^DPT(DA,.02,X),^DPT(DA,.02,"B",X) S:$P($G(^DPT(DA,.02,0)),"^",4) $P(^(0),"^",4)=$P(^(0),"^",4)-1,$P(^(0),"^",3)=$O(^DPT(DA,.02,0))
    3)= IHS XREF TO KEEP BOTH RACE FIELDS IN SYNC
    IHS/OIT/DMJ,LJF 09/08/2006 PATCH 1006: Added per request from WH to use multiple RACE field.  Until Patient Registration converts to only using that field, they must be kept in sync.
.07 OCCUPATION 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 21, 1999
  • HELP-PROMPT:  Enter the patient's occupation [1-30 characters].
  • DESCRIPTION:  
    If applicable, enter this applicant's current occupation [1-30 characters].
  • GROUP:  EM1
  • CROSS-REFERENCE:  2^ADGRU07^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
.08 RELIGIOUS PREFERENCE 0;8 POINTER TO RELIGION FILE (#13) RELIGION(#13)

  • LAST EDITED:  AUG 25, 2000
  • HELP-PROMPT:  Select from the available list this patients religious preference.
  • DESCRIPTION:  
    Select from the available listing the religious preference of this applicant.
  • GROUP:  IHS
  • CROSS-REFERENCE:  2^AVAFC08^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".08;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".08;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^ADGRU08^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
.081 DUPLICATE STATUS COMPUTED

  • MUMPS CODE:  S X=$D(^VA(15,"ALK","DPT(",DA))[1
  • ALGORITHM:  S X=$D(^VA(15,"ALK","DPT(",DA))[1
  • LAST EDITED:  JAN 18, 2002
  • DESCRIPTION:  This computed field returns a 0 or a 1 which means:
    0 - no unresolved potential duplicates
    1 - check the DUPLICATE RECORD file
    If the value returned is 1 the patient may have one or more unresolved potential duplicates or may be a verified duplicate that has not yet been merged, or both.
  • TECHNICAL DESCR:  
    IHS/ANMC/LJF 9/1/2000 deleted field with VA definition as a set of codes.  VA wasn't using field because they aren't using Patient Merge yet.  Added field back in with IHS computed expression and description.
  • GROUP:  IHS
.082 PATIENT MERGED TO 0;19 POINTER TO VA PATIENT FILE (#2) VA PATIENT(#2)

  • LAST EDITED:  MAY 27, 2004
  • DESCRIPTION:  This field is currently not being utilized. It will be active when Patient Merge/Purge options are available to the user. Patient Merged To: field will be defined at that time.
  • GROUP:  IHS
.083 CHECK FOR DUPLICATE 0;20 SET
  • '1' FOR YES;

  • LAST EDITED:  MAR 25, 1987
  • DESCRIPTION:  This field is currently not being utilized. It will be active when Patient Merge/Purge options are available to the user. Check for Duplicate field will be defined at that time.
  • GROUP:  IHS
  • NOTES:  TRIGGERED by the NAME field of the VA PATIENT File
    TRIGGERED by the SEX field of the VA PATIENT File
    TRIGGERED by the DATE OF BIRTH field of the VA PATIENT File
    TRIGGERED by the SOCIAL SECURITY NUMBER field of the VA PATIENT File
    TRIGGERED by the MOTHER'S MAIDEN NAME field of the VA PATIENT File
  • CROSS-REFERENCE:  2^ANEW^MUMPS
    1)= S ^DPT("ANEW",DA)=""
    2)= K ^DPT("ANEW",DA)
.09 SOCIAL SECURITY NUMBER 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) S:'$D(DPTX) DFN=DA D SSN^DGINP Q I $L(X)>10
  • OUTPUT TRANSFORM:  S:$L(Y)=11 Y=$E(Y,10,11)_$E(Y,1,9)
  • LAST EDITED:  MAY 27, 2004
  • HELP-PROMPT:  Enter 9-digit SSN or 'P' for pseudo-SSN.
  • DESCRIPTION:  Enter the applicants social security number as nine digits, i.e., 123456789. If the social security number is unknown and you need to assign a pseudo SSN follow it with a 'P', i.e., 123456789P. Simply enter a 'P' if you
    wish the system to determine the proper pseudo SSN.  Pseudo SSN's are determined as follows:
    1.  Based on the following table assign the first three numbers
    of the pseudo SSN based on the patient's three initials in
    first-middle-last initial order.  For example, if the name
    is 'SMITH,JOHN P' the table would be used to convert JPS
    (the initials for JOHN P SMITH) into 467.
    ALPHA     NUMBER              ALPHA      NUMBER
    -----     ------              -----      ------
    A,B,C       1                 D,E,F        2
    G,H,I       3                 J,K,L        4
    M,N,O       5                 P,Q,R        6
    S,T,U       7                 V,W,X        8
    Y,Z         9                 NO INITIAL   0
    2.  Using the patient's date of birth convert it to six numerics
    in month-day-year order.  Where a month, day or year consists of
    less than one numeric, i.e., JUNE=6, preceed it by a zero, i.e.,
    JUNE=06.  If the month and/or year of birth are unknown indicate
    them as '00'.
    EXAMPLES
    --------
    Patient Name             DOB                 Pseudo SSN
    ------------             ---                 ----------
    SMITH,JOHN P             Jan 3, 1917         467010317P
    SMITH,JOHN P             Jan 1917            467010017P
    SMITH,JOHN P             1917                467000017P
    SMITH,JOHN               Dec 15, 1945        407121545P
  • TECHNICAL DESCR:  
    IHS/ANMC/LJF 10/23/2001: After comparing DD with Alb ITSC DD, removed required field.
    SOURCE OF DATA:   10/10 FORM
    DATA DESTINATION: 10/10 FORM
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^BS^MUMPS
    1)= S ^DPT("BS",$E(X,6,9),DA)=""
    2)= K ^DPT("BS",$E(X,6,9),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^2^.083
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X=DIV S X="1" X ^DD(2,.09,1,2,1.4)
    1.4)= S DIH=$S($D(^DPT(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,19,99))  S DIH=DIH_U" S %=$P(DIH,U,21,999),DIU=$P(DIH,U,20),^(0)=$P(DIH,U,1,19)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.083 D ^DICR:$N(^DD(DIH,DIG,1,0)
    )>0
    2)= Q
    CREATE VALUE)= "1"
    DELETE VALUE)= NO EFFECT
    FIELD)= #.083
  • CROSS-REFERENCE:  2^BS5^MUMPS
    1)= S ^DPT("BS5",$E(^DPT(DA,0),1)_$E(X,6,9),DA)=""
    2)= K ^DPT("BS5",$E(^DPT(DA,0),1)_$E(X,6,9),DA)
  • CROSS-REFERENCE:  2^AODS1^MUMPS
    1)= S A1B2TAG="PAT" D ^A1B2XFR
    2)= S A1B2TAG="PAT" D ^A1B2XFR
  • CROSS-REFERENCE:  2^ATP^MUMPS
    1)= I $E(X,1,5)="00000" D SET^DGREGDD1(DA,.6,0,21,1)
    2)= D KILL^DGREGDD1(DA,.6,0,21,0)
    This cross reference is used to indentify test patients. Test patients are designated by five leading zeros in the SSN.
  • CROSS-REFERENCE:  2^AENR09^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • CROSS-REFERENCE:  2^SSN
    1)= S ^DPT("SSN",$E(X,1,30),DA)=""
    2)= K ^DPT("SSN",$E(X,1,30),DA)
  • CROSS-REFERENCE:  2^AVADPT6^MUMPS
    1)= S VADFN=DA D SET^VADPT6 K VADFN
    2)= S VADFN=DA D KILL^VADPT6 K VADFN
  • CROSS-REFERENCE:  2^AD^MUMPS
    1)= S PPP=X,X="PPPFMX" X ^%ZOSF("TEST") D:$T SNSSN^PPPFMX S X=PPP K PPP
    2)= S PPP=X,X="PPPFMX" X ^%ZOSF("TEST") D:$T KNSSN^PPPFMX S X=PPP K PPP
    This cross-reference is used to add a new SSN to the Prescription Practices Files when a new patient is added to the patient file.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.0906
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)'["P" I X S X=DIV S Y(1)=$S($D(^DPT(D0,"SSN")):^("SSN"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.09,1,10,1.4)
    1.4)= S DIH=$G(^DPT(DIV(0),"SSN")),DIV=X S $P(^("SSN"),U,1)=DIV,DIH=2,DIG=.0906 D ^DICR
    2)= Q
    CREATE CONDITION)= #.09'["P"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= PSEUDO SSN REAS
    Pseudo SSN Reason will have a value only if SSN is a Pseudo SSN.
  • CROSS-REFERENCE:  2^IVM09^MUMPS
    1)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    2)= S IVMX=X,IVMKILL=9,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX,IVMKILL
    This cross-reference will check the IVM PATIENT file to see if a change to this field will require transmission to the IVM Center.  If it does, the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and the
    nightly background job will transmit the updated information.
    Also, if this field is edited, this cross-reference will check to see if the patient requires a financial query to be sent to the IVM Center (Data Collection Division (DCD).
  • CROSS-REFERENCE:  2^PX09^MUMPS
    1)= S PX=X,X="PXXDPT" X ^%ZOSF("TEST") D:$T SETSSN^PXXDPT S X=PX K PX
    2)= S PX=X,X="PXXDPT" X ^%ZOSF("TEST") D:$T KILLSSN^PXXDPT S X=PX K PX
    This cross-reference is used to add a new SSN to the 9000001 IHS Patient File when a new patient is added to the Patient File.  IHS/ANMC/LJF 8/24/2000 added Quits to line labels called by this cross-reference.  IHS keeps
    files in sync via our Registration software.
  • CROSS-REFERENCE:  2^AVAFC09^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".09;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".09;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^ADGRU09^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • CROSS-REFERENCE:  2^AAVABDW5^MUMPS
    1)= D SET^AUPNDWXR(DA,"BASE")
    2)= D KILL^AUPNDWXR(DA,"BASE")
    Populates AUPNDWAF for the Data Warehouse export.  See routine AUPNDWXR for documentation.
  • FIELD INDEX:  ADGFMD09 (#20) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.09,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.09,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  SOCIAL SECURITY NUMBER  (2,.09)  (forwards)
  • FIELD INDEX:  ATSSN (#49) MUMPS IR ACTION
    Short Descr:  Inactivates Pts that have 5 leading zeros for SSN
    Description:  The set of this cross reference is to inactivate a patient with an ICN (991.01) that have the SSN field value changed to a SSN with 5 leading zeros. The rules for inactivation will be enforced.
    There is not a kill of this cross reference since SSN is a required field.
    Set Logic:  I $T(SSET^MPIFDEL)'="",$E(X2(1),1,5)="00000" D SSET^MPIFDEL(DA,X2(1))
    Kill Logic:  Q
    X(1):  SOCIAL SECURITY NUMBER  (2,.09)  (forwards)
.0901 TERMINAL DIGIT OF SSN COMPUTED

  • MUMPS CODE:  S %=$S($D(^DPT(D0,0)):$P(^(0),U,9),1:""),X=$E(%,8,9)_$E(%,6,7)_$E(%,4,5)_$E(%,1,3)
  • ALGORITHM:  S %=$S($D(^DPT(D0,0)):$P(^(0),U,9),1:""),X=$E(%,8,9)_$E(%,6,7)_$E(%,4,5)_$E(%,1,3)
  • LAST EDITED:  NOV 07, 1995
  • HELP-PROMPT:  Computed field which determines last four digits of SSN.
  • DESCRIPTION:  This is a computed field which returns the terminal digit value of the patient's social security number. This value is computed to be the last 2 digits of the social security number concatenated with the sixth and seventh
    digits of the social security number concatenated with the forth and fifth pieces of the social security number concatenated with the first 3 digits of the social security number.
.0905 1U4N COMPUTED

  • MUMPS CODE:  X ^DD(2,.0905,9.2) S X=$E(Y(.0905,4),Y(.0905,5),X) S Y=X,X=Y(.0905,3),X=X_Y
    9.2 = S Y(.0905,1)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(.0905,1),U,1),Y(.0905,2)=X S X=1,X=$E(Y(.0905,2),X),Y(.0905,3)=X S X=$P(Y(.0905,1),U,9),Y(.0905,4)=X S X=6,Y(.0905,5)=X S X=9
  • ALGORITHM:  $E(NAME,1)_$E(SSN,6,9)
  • HELP-PROMPT:  Computed field which determines first characters of last name and last four digits of SSN, i.e., 'L1234'.
  • DESCRIPTION:  This is a computed field used to display the first character of the patient's last name concatenated with the last four digits of the patient's social security number. This combination of characters can be used to look-up
    a patient in DHCP.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.0906 PSEUDO SSN REASON SSN;1 SET
  • 'R' FOR REFUSED TO PROVIDE;
  • 'S' FOR SSN UNKNOWN/FOLLOW-UP REQUIRED;
  • 'N' FOR NO SSN ASSIGNED;

  • LAST EDITED:  MAR 30, 2007
  • DESCRIPTION:  This field is used to document the reason the individual was assigned a pseudo SSN. Based on your selection, the Pseudo SSN Report (Patient) option located in the Registration Menu can provide you a current report of the
    reasons entered at this prompt.  The following reasons are available for selection:
    Refused to Provide - use this reason when the individual was asked for his/her SSN and refused to provide the number.
    SSN Unknown/Follow-up required - use this reason when the individual is not available to ask/answer the request for SSN.  The facility should initiate Follow-up activity to obtain the SSN.
    No SSN Assigned - use this reason when the individual has not been assigned an SSN. This generally applies to spouse or dependents of veterans who are not US citizens and infrequently, non-citizen beneficiaries.
  • NOTES:  TRIGGERED by the SOCIAL SECURITY NUMBER field of the VA PATIENT File
  • FIELD INDEX:  AVAFC0906 (#331) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.0906,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.0906,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  PSEUDO SSN REASON  (2,.0906)  (forwards)
.091 REMARKS 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3) X
  • HELP-PROMPT:  Enter remarks concerning this patient for general display [3-60 characters].
  • DESCRIPTION:  If so desired, you may enter a short remark about this applicant between 3-60 characters. The remark entered should be significant and tact should be exercised since this field is viewable to virtually all other users who
    have the ability to 'call up' a patient for any purpose.
  • GROUP:  IHS
  • NOTES:  TRIGGERED by the INELIGIBLE DATE field of the VA PATIENT File
    TRIGGERED by the DATE OF DEATH field of the VA PATIENT File
.092 PLACE OF BIRTH [CITY] 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<2) X
  • LAST EDITED:  OCT 10, 2002
  • HELP-PROMPT:  Enter city in which patient was born (or foreign country) [2-20 characters].
  • DESCRIPTION:  
    Enter the city in which this applicant was born (or foreign country if born outside the U.S.) [2-20 characters].
  • GROUP:  IHS
  • CROSS-REFERENCE:  2^AVAFC092^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".092;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".092;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^ADGRU092^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
.093 PLACE OF BIRTH [STATE] 0;12 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  OCT 10, 2002
  • HELP-PROMPT:  If born in US enter the state in which this patient was born.
  • DESCRIPTION:  
    If the applicant was born within the U.S. select from the available listing the state in which s/he was born.
  • GROUP:  IHS
  • CROSS-REFERENCE:  2^AVAFC093^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".093;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".093;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^ADGRU093^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
.096 WHO ENTERED PATIENT 0;15 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 06, 1990
  • HELP-PROMPT:  The name of the user who entered this patient into the PATIENT file.
  • DESCRIPTION:  
    The name of the user who first entered this applicant into the patient file.
  • TECHNICAL DESCR:  
    IHS/ANMC/LJF 8/25/2000: hard set by VA code (at least in ^DGPATN).  Do NOT add cross-reference to field.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
  • GROUP:  IHS
    UNEDITABLE
.097 DATE ENTERED INTO FILE 0;16 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 27, 2004
  • HELP-PROMPT:  The date this patient record was established in the patient file.
  • DESCRIPTION:  
    This field stores the date this patient was initially stored into the PATIENT file.  This is filled in automatically once a patient is successfully added to the database.
  • TECHNICAL DESCR:  
    IHS/ANMC/LJF 8/25/2000: field is hard set by VA code (at least in ^DGPATN). Do NOT add cross-reference to this field.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
  • GROUP:  IHS
    UNEDITABLE
  • CROSS-REFERENCE:  2^AAVABDW6^MUMPS
    1)= D SET^AUPNDWXR(DA,"BASE")
    2)= D KILL^AUPNDWXR(DA,"BASE")
    Populates AUNDWAF for the Data Warehouse export.  See routine AUPNDWXR for documentation.
.098 HOW WAS PATIENT ENTERED? 0;17 SET
  • '1' FOR 10-10T REGISTRATION;

  • LAST EDITED:  DEC 20, 1996
  • DESCRIPTION:  
    How was the patient entered into the system.
.1 WARD LOCATION .1;E1,30 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  OCT 21, 1990
  • HELP-PROMPT:  The ward on which this patient is currently residing [2-30 characters].
  • DESCRIPTION:  
    The ward location on which this patient is currently residing if an inpatient [2-30 characters].
    WRITE AUTHORITY:  ^
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^CN^MUMPS
    1)= D CN^DGPMDDCN
    2)= K ^DPT("CN",X,DA)
  • CROSS-REFERENCE:  2^ACN
    1)= S ^DPT("ACN",$E(X,1,30),DA)=""
    2)= K ^DPT("ACN",$E(X,1,30),DA)
  • CROSS-REFERENCE:  2^ANURS^MUMPS
    1)= S %X=X,X="NURSCPL" X ^%ZOSF("TEST") S X=%X D:$T EN1^NURSCPL
    2)= S %X=X,X="NURSCPL" X ^%ZOSF("TEST") S X=%X D:$T EN2^NURSCPL
.101 ROOM-BED .101;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • LAST EDITED:  OCT 22, 1990
  • HELP-PROMPT:  Answer must be 3-15 characters in length.
  • DESCRIPTION:  
    If desired, for this inpatient, enter the room and bed indicator to which s/he is assigned in 'ROOM-BED' format.
    WRITE AUTHORITY:  ^
  • GROUP:  IHS
  • CROSS-REFERENCE:  2^RM
    1)= S ^DPT("RM",$E(X,1,30),DA)=""
    2)= K ^DPT("RM",$E(X,1,30),DA)
.102 CURRENT MOVEMENT .102;1 POINTER TO PATIENT MOVEMENT FILE (#405) PATIENT MOVEMENT(#405)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=DA" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 18, 1989
  • DESCRIPTION:  This field contains the internal entry number of the PATIENT MOVEMENT file denoting the most recent movement for an inpatient. This field is only stored for current inpatients. It must NOT be edited as this could affect
    the integrity of many options within MAS and other packages.  When displaying this field, the date/time of the most recent movement will display.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=DA"
  • EXPLANATION:  Allows only movements for patient
    WRITE AUTHORITY:  ^
  • GROUP:  IHS
.103 TREATING SPECIALTY .103;1 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7) FACILITY TREATING SPECIALTY(#45.7)

  • LAST EDITED:  MAR 28, 1984
  • HELP-PROMPT:  The treating specialty to which this inpatient applicant is currently assigned.
  • DESCRIPTION:  
    From the available listing choose the treating specialty to which this inpatient is currently assigned.
    WRITE AUTHORITY:  ^
  • GROUP:  IHS
  • CROSS-REFERENCE:  2^ATR
    1)= S ^DPT("ATR",$E(X,1,30),DA)=""
    2)= K ^DPT("ATR",$E(X,1,30),DA)
.104 PROVIDER .104;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 07, 1994
  • HELP-PROMPT:  The provider currently assigned to this inpatient applicant.
  • DESCRIPTION:  
    From the available listing select the provider who is currently treating this patient.
  • SCREEN:  S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,DT)"
  • EXPLANATION:  Allow only active providers.
  • EXECUTABLE HELP:  D HELP^DGPMDD(DA,DT)
    WRITE AUTHORITY:  ^
  • GROUP:  IHS
  • CROSS-REFERENCE:  2^APR
    1)= S ^DPT("APR",$E(X,1,30),DA)=""
    2)= K ^DPT("APR",$E(X,1,30),DA)
.1041 ATTENDING PHYSICIAN .1041;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 07, 1994
  • HELP-PROMPT:  This field should contain the attending physician currently responsible for this patient's care.
  • DESCRIPTION:  This field contains the attending physician currently responsible for the care of this patient. This field is maintained automatically for all inpatients and must not be edited. Once a patient is discharged, the data in
    this field is removed.
  • SCREEN:  S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,DT)"
  • EXPLANATION:  Allow only active providers.
  • EXECUTABLE HELP:  D HELP^DGPMDD(DA,DT)
    WRITE AUTHORITY:  ^
  • GROUP:  IHS
  • CROSS-REFERENCE:  2^AAP
    1)= S ^DPT("AAP",$E(X,1,30),DA)=""
    2)= K ^DPT("AAP",$E(X,1,30),DA)
    This cross-reference contains all current inpatients, stored by their current attending physician.
.105 CURRENT ADMISSION .105;1 POINTER TO PATIENT MOVEMENT FILE (#405) PATIENT MOVEMENT(#405)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=DA,$P(^(0),U,2)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 14, 1989
  • DESCRIPTION:  This field contains the internal entry number of the PATIENT MOVEMENT file denoting the current admission for an inpatient. This field is only stored for current inpatients. It must NOT be edited as this could affect the
    integrity of many options within MAS and other DHCP packages.  When displaying this field, the date/time of the current admission will be displayed.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=DA,$P(^(0),U,2)=1"
  • EXPLANATION:  Allows only admissions for patient.
    WRITE AUTHORITY:  ^
  • GROUP:  IHS
  • CROSS-REFERENCE:  2^ACA
    1)= S ^DPT("ACA",$E(X,1,30),DA)=""
    2)= K ^DPT("ACA",$E(X,1,30),DA)
.106 LAST DMMS EPISODE NUMBER .106;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 15, 1990
  • HELP-PROMPT:  Type a Number between 1 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    This field was added at the request of the DMMS package developed at the Birmingham ISC.  It will be utilized in a future release of that package.
.107 LODGER WARD LOCATION .107;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  APR 09, 1990
  • HELP-PROMPT:  If the patient is a lodger, this is the ward on which the patient resides (2-30 characters).
  • DESCRIPTION:  
    The ward on which the patient currently resides if the patient is a lodger.
  • GROUP:  IHS
  • CROSS-REFERENCE:  2^LD^MUMPS
    1)= D LD^DGPMDDLD
    2)= K ^DPT("LD",X,DA)
.108 CURRENT ROOM .108;1 POINTER TO ROOM-BED FILE (#405.4) ROOM-BED(#405.4)

  • LAST EDITED:  MAR 22, 1990
  • DESCRIPTION:  This field contains a pointer to the ROOM-BED file denoting the current room-bed in which this inpatient resides. This field is filled in only for inpatients. It must NOT be edited as editing could adversely affect the
    operation of the MAS package as well as other DHCP packages.  This field is filled in automatically by the module.
  • GROUP:  IHS
.109 EXCLUDE FROM FACILITY DIR .109;1 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  FEB 18, 2003
  • DESCRIPTION:  Denotes whether or not the patient wished to be excluded from the Facility Directory for current admission. This field is only stored for current inpatients. It must NOT be edited as this could affect the integrity of
    many options within PIMS and other packages.
.111 STREET ADDRESS [LINE 1] .11;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3) X
  • LAST EDITED:  MAY 27, 2004
  • HELP-PROMPT:  Enter the first line of this applicant's residence street address [3-35 characters].
  • DESCRIPTION:  
    Enter the first line of this applicant's residence street address [3-35 characters].
  • AUDIT:  YES, ALWAYS
  • GROUP:  IHS
  • CROSS-REFERENCE:  2^AXR29^MUMPS
    1)= Q
    2)= S DGXRF=.111 D ^DGDDC Q
  • CROSS-REFERENCE:  2^AODS111^MUMPS
    1)= S A1B2TAG="PAT" D ^A1B2XFR
    2)= S A1B2TAG="PAT" D ^A1B2XFR
  • CROSS-REFERENCE:  2^AENR111^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.118
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT()
    DELETE VALUE)= S X=$$NOW^XLFDT()
    FIELD)= ADDRESS CHANGE DT/TM
    This cross-reference will be used to update the Date/Time stamp for an Address Change.
  • CROSS-REFERENCE:  2^IVM111^MUMPS
    1)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    2)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    This cross-reference will check the IVM PATIENT file to see if a change to this field will require transmission to the IVM Center.  If it does, the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and the
    nightly background job will transmit the updated information.
  • CROSS-REFERENCE:  2^AVAFC111^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".111;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".111;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^ADGRU111^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • CROSS-REFERENCE:  2^AAVABDW7^MUMPS
    1)= D SET^AUPNDWXR(DA,"DEMO")
    2)= D KILL^AUPNDWXR(DA,"DEMO")
    Populates AUPNDWAF for the Data Warehouse export.  See routine AUPNDWXR for documentation.
  • FIELD INDEX:  ADGFMD111 (#21) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.111,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.111,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  STREET ADDRESS [LINE 1]  (2,.111)  (forwards)
.1112 ZIP+4 .11;12 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
  • OUTPUT TRANSFORM:  D ZIPOUT^VAFADDR
  • LAST EDITED:  OCT 01, 2003
  • HELP-PROMPT:  Answer with either 5 digit or 9 digit zip code.
  • DESCRIPTION:  
    Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789).
  • TECHNICAL DESCR:  
    Related to other address fields on this node.  This field 'triggers' the ZIP CODE (#.116) field, using the first 5 digits of this field.
  • AUDIT:  YES, ALWAYS
  • GROUP:  DEMOG
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AZIP4^MUMPS
    1)= D SET^DGREGDD1(DA,.116,.11,6,$E(X,1,5))
    2)= D KILL^DGREGDD1(DA,.116,.11,6,$E(X,1,5))
    This sets the corresponding zip code field to the first 5 digits of this field.
  • CROSS-REFERENCE:  2^AENR1112^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.118
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT()
    DELETE VALUE)= S X=$$NOW^XLFDT()
    FIELD)= address change dt
    This cross-reference will update the Address Change DT/TM field when address data changes for a patient.
  • CROSS-REFERENCE:  2^IVM1112^MUMPS
    1)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    2)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    This cross-reference will check the IVM PATIENT file to see if a change to this field will require transmission to the IVM Center.  If it does, the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and the
    nightly background job will transmit the updated information.
  • CROSS-REFERENCE:  2^AVAFC1112^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".1112;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".1112;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^ADGRU1112^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • FIELD INDEX:  ADGFMD1112 (#22) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.1112,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.1112,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  ZIP+4  (2,.1112)  (forwards)
  • FIELD INDEX:  AZIPLINK (#50) MUMPS SORTING ONLY
    Short Descr:  This x-ref will link the zip, city, state, and county fields
    Set Logic:  Q
    Set Cond:  I X1(1)'=X2(1)
    Kill Logic:  K EASDO2
    Kill Cond:  I X1(1)'=X2(1)
    X(1):  ZIP+4  (2,.1112)  (forwards)
    X(2):  Computed Code: S:('$G(EASDO2)&($D(EASZIPLK))) X=$$ZIP^DGREGDD1(DA,X(1))
.112 STREET ADDRESS [LINE 2] .11;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X D:$D(X) UP^DGHELP
  • LAST EDITED:  OCT 01, 2003
  • HELP-PROMPT:  If necessary, enter the second line of this applicant's street address [3-30 characters].
  • DESCRIPTION:  
    Enter the second line of this applicant's residence street address [3-30 characters] if the space provided in 'street address' was not sufficient.
  • AUDIT:  YES, ALWAYS
  • GROUP:  DEMOG
  • CROSS-REFERENCE:  2^AXR30^MUMPS
    1)= Q
    2)= S DGXRF=.112 D ^DGDDC Q
  • CROSS-REFERENCE:  2^AODS112^MUMPS
    1)= S A1B2TAG="PAT" D ^A1B2XFR
    2)= S A1B2TAG="PAT" D ^A1B2XFR
  • CROSS-REFERENCE:  2^AENR112^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.118
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT()
    DELETE VALUE)= S X=$$NOW^XLFDT()
    FIELD)= ADDRESS CHANGE DT
    This cross-reference will update the Address Change DT/TM field when address data changes for a patient.
  • CROSS-REFERENCE:  2^IVM112^MUMPS
    1)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    2)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    This cross-reference will check the IVM PATIENT file to see if a change to this field will require transmission to the IVM Center.  If it does, the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and the
    nightly background job will transmit the updated information.
  • CROSS-REFERENCE:  2^AVAFC112^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".112;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".112;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^ADGRU112^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • FIELD INDEX:  ADGFMD112 (#23) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.112,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.112,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  STREET ADDRESS [LINE 2]  (2,.112)  (forwards)
.113 STREET ADDRESS [LINE 3] .11;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  OCT 01, 2003
  • HELP-PROMPT:  If necessary, enter a third line of this applicant's street address [3-30 characters].
  • DESCRIPTION:  
    Enter the third line of this applicant's residence street address [3-30 characters] if the space provided in 'street address' and 'street address 2' was not sufficient.
  • AUDIT:  YES, ALWAYS
  • GROUP:  DEMOG
  • CROSS-REFERENCE:  2^AODS113^MUMPS
    1)= S A1B2TAG="PAT" D ^A1B2XFR
    2)= S A1B2TAG="PAT" D ^A1B2XFR
  • CROSS-REFERENCE:  2^AENR113^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.118
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT()
    DELETE VALUE)= S X=$$NOW^XLFDT()
    FIELD)= ADDRESS CHANGE DT
    This cross-reference will update the Address Change DT/TM field when address data changes for a patient.
  • CROSS-REFERENCE:  2^IVM113^MUMPS
    1)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    2)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    This cross-reference will check the IVM PATIENT file to see if a change to this field will require transmission to the IVM Center.  If it does, the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and the
    nightly background job will transmit the updated information.
  • CROSS-REFERENCE:  2^AVAFC113^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".113;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".113;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^ADGRU113^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • FIELD INDEX:  ADGFMD113 (#24) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.113,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.113,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  STREET ADDRESS [LINE 3]  (2,.113)  (forwards)
.114 CITY .11;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<2) X
  • LAST EDITED:  MAY 27, 2004
  • HELP-PROMPT:  Answer must be 2-15 characters in length
  • DESCRIPTION:  
    Enter the city in which this applicant resides [2-15 characters].  If the space provided is not sufficient please abbreviate the city to the best of your ability.
  • AUDIT:  YES, ALWAYS
  • GROUP:  IHS
  • CROSS-REFERENCE:  2^AODS114^MUMPS
    1)= S A1B2TAG="PAT" D ^A1B2XFR
    2)= S A1B2TAG="PAT" D ^A1B2XFR
  • CROSS-REFERENCE:  2^AENR114^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.118
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT()
    DELETE VALUE)= S X=$$NOW^XLFDT()
    FIELD)= ADDRESS CHANGE DT
    This cross-reference will update the Address Change DT/TM field when address data changes for a patient.
  • CROSS-REFERENCE:  2^IVM114^MUMPS
    1)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    2)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    This cross-reference will check the IVM PATIENT file to see if a change to this field will require transmission to the IVM Center.  If it does, the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and the
    nightly background job will transmit the updated information.
  • CROSS-REFERENCE:  2^AVAFC114^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".114;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".114;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^ADGRU114^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • CROSS-REFERENCE:  2^AAVABDW8^MUMPS
    1)= D SET^AUPNDWXR(DA,"DEMO")
    2)= D KILL^AUPNDWXR(DA,"DEMO")
    Populates AUPNDWAF for the Data Warehouse export.  See routine AUPNDWXR for documentation.
  • FIELD INDEX:  ADGFMD114 (#25) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.114,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.114,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  CITY  (2,.114)  (forwards)
.115 STATE .11;5 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  MAY 27, 2004
  • HELP-PROMPT:  Select from the available listing the state in which this applicant resides.
  • DESCRIPTION:  
    From the available listing choose the state in which this applicant resides.
  • AUDIT:  YES, ALWAYS
  • GROUP:  IHS
  • CROSS-REFERENCE:  ^^TRIGGER^2^.117
    1)= Q
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:""),Y=$P(Y(1),U,7) X:$D(^DD(2,.117,2)) ^(2) S X=Y S DIU=X K Y S X=DIV S X="" X ^DD(2,.115,1,1,2.4)
    2.4)= S DIH=$S($D(^DPT(DIV(0),.11)):^(.11),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,6,99))  S DIH=DIH_U" S %=$P(DIH,U,8,999),^(.11)=$P(DIH,U,1,6)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.117 D ^DICR
    CREATE VALUE)= NO EFFECT
    DELETE VALUE)= @
    FIELD)= COUNTY
  • CROSS-REFERENCE:  2^AODS115^MUMPS
    1)= S A1B2TAG="PAT" D ^A1B2XFR
    2)= S A1B2TAG="PAT" D ^A1B2XFR
  • CROSS-REFERENCE:  2^AENR115^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.118
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT()
    DELETE VALUE)= S X=$$NOW^XLFDT
    FIELD)= ADDRESS CHANGE DT
    This cross-reference will update the Address Change DT/TM field when address data changes for a patient.
  • CROSS-REFERENCE:  2^IVM115^MUMPS
    1)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    2)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    This cross-reference will check the IVM PATIENT file to see if a change to this field will require transmission to the IVM Center.  If it does, the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and the
    nightly background job will transmit the updated information.
  • CROSS-REFERENCE:  2^AVAFC115^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".115;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".115;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^ADGRU115^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • CROSS-REFERENCE:  2^AAVABDW9^MUMPS
    1)= D SET^AUPNDWXR(DA,"DEMO")
    2)= D KILL^AUPNDWXR(DA,"DEMO")
    Populates AUPNDWAF for the Data Warehouse export.  See routine AUPNDWXR for documentation.
  • FIELD INDEX:  ADGFMD115 (#26) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.115,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.115,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  STATE  (2,.115)  (forwards)
.116 ZIP CODE .11;6 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X
  • LAST EDITED:  MAY 27, 2004
  • HELP-PROMPT:  Enter the zip code for the city in which this applicant resides.
  • DESCRIPTION:  
    Enter the zip code [5 numerics] for the city in which this applicant resides.
  • TECHNICAL DESCR:  This field will become un-editable in a later release. Programmers should modify code from this field (.116) to the ZIP+4 field (.1112) Currently, modifications to this field will create an entry in the ZIP+4 field
    (without the +4 of course).
  • GROUP:  IHS
  • CROSS-REFERENCE:  2^AODS116^MUMPS
    1)= S A1B2TAG="PAT" D ^A1B2XFR
    2)= S A1B2TAG="PAT" D ^A1B2XFR
  • CROSS-REFERENCE:  2^AZIP^MUMPS
    1)= D SET^DGREGDD1(DA,.1112,.11,12,X)
    2)= D KILL^DGREGDD1(DA,.1112,.11,12,X)
    This sets the corresponding zip+4 field to be equal to the zip field after the zip is edited.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.118
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT()
    DELETE VALUE)= S X=$$NOW^XLFDT()
    FIELD)= ADDRESS CHANGE DT
    This cross-reference will update the Address Change DT/TM field when address data changes for a patient.
  • CROSS-REFERENCE:  2^AAVABDW10^MUMPS
    1)= D SET^AUPNDWXR(DA,"DEMO")
    2)= D KILL^AUPNDWXR(DA,"DEMO")
    Populates AUPNDWAF for the Data Warehouse export.  See routine AUPNDWXR for documentation.
  • FIELD INDEX:  ADGFMD116 (#27) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.116,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.116,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  ZIP CODE  (2,.116)  (forwards)
  • FIELD INDEX:  AZIPLNK2 (#51) MUMPS SORTING ONLY
    Short Descr:  Update City, State, and County fields based on Zipcode
    Set Logic:  Q
    Set Cond:  I X1(1)'=X2(1)
    Kill Logic:  K EASDO2
    Kill Cond:  I X1(1)'=X2(1)
    X(1):  ZIP CODE  (2,.116)  (forwards)
    X(2):  Computed Code: S:'$G(EASDO2) X=$$ZIP^DGREGDD1(DA,X(1)),EASDO2=1
.117 COUNTY .11;7 NUMBER

  • INPUT TRANSFORM:  S Z0=$S($D(^DPT(D0,.11)):+$P(^(.11),"^",5),1:0) K:'Z0 X Q:'Z0!'$D(^DIC(5,Z0,1,0)) S DIC="^DIC(5,Z0,1,",DIC(0)="QEM" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC
  • OUTPUT TRANSFORM:  Q:Y']"" S Z0=$S($D(^DPT(D0,.11)):+$P(^(.11),"^",5),1:"") Q:'Z0 S Y=$P($S($D(^DIC(5,Z0,1,Y,0)):^(0),1:""),"^",3)
  • LAST EDITED:  AUG 25, 2000
  • HELP-PROMPT:  Enter the county in which this applicant resides.
  • DESCRIPTION:  
    If a state of residence is entered select from the available listing the county in which this applicant resides.  If no state (or a non-state) is entered no selection is possible.
  • EXECUTABLE HELP:  S ZD=D,X="?",Z0=$S($D(^DPT(D0,.11)):+$P(^(.11),U,5),1:0) Q:'Z0!'$D(^DIC(5,Z0,1,0)) S DIC="^DIC(5,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD
  • GROUP:  DEMOG
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the STATE field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AODS117^MUMPS
    1)= S A1B2TAG="PAT" D ^A1B2XFR
    2)= S A1B2TAG="PAT" D ^A1B2XFR
  • CROSS-REFERENCE:  2^AENR117^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • CROSS-REFERENCE:  2^IVM117^MUMPS
    1)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    2)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    This cross-reference will check the IVM PATIENT file to see if a change to this field will require transmission to the IVM Center.  If it does, the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and the
    nightly background job will transmit the updated information.
  • CROSS-REFERENCE:  2^AVAFC117^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".117;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".117;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
.118 ADDRESS CHANGE DT/TM .11;13 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  MAR 06, 2003
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  
    This field will hold the date and time of the last Address Update.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the ZIP+4 field of the VA PATIENT File
    TRIGGERED by the STREET ADDRESS [LINE 1] field of the VA PATIENT File
    TRIGGERED by the STREET ADDRESS [LINE 2] field of the VA PATIENT File
    TRIGGERED by the STREET ADDRESS [LINE 3] field of the VA PATIENT File
    TRIGGERED by the CITY field of the VA PATIENT File
    TRIGGERED by the STATE field of the VA PATIENT File
    TRIGGERED by the ZIP CODE field of the VA PATIENT File
    TRIGGERED by the BAD ADDRESS INDICATOR field of the VA PATIENT File
  • CROSS-REFERENCE:  ^^TRIGGER^2^.119
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X="VAMC" S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,14)=DIV,DIH=2,DIG=.119 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X="VAMC" S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,14)=DIV,DIH=2,DIG=.119 D ^DICR
    CREATE VALUE)= S X="VAMC"
    DELETE VALUE)= S X="VAMC"
    FIELD)= ADDRESS CHANGE SOURCE
    This cross-reference will update the Address Source field when address data changes for a patient.  The source will be set to 'VAMC', and should be overwritten for instances where the Address source is something different.
    The incoming Z05 process has been updated to overwrite this field as appropriate.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.122
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,17)=DIV,DIH=2,DIG=.122 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,17)=DIV,DIH=2,DIG=.122 D ^DICR
    CREATE VALUE)= S X=$G(DUZ)
    DELETE VALUE)= S X=$G(DUZ)
    FIELD)= ADDRESS CHANGE USER
    This cross-reference will record the user who has just changed the patient's primary address.
  • CROSS-REFERENCE:  2^AENR118^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • FIELD INDEX:  ADELBAI (#17) MUMPS ACTION
    Short Descr:  Delete Bad Address Indicator when address changes
    Description:  This action cross-reference will delete the Bad Address Indicator for the patient's primary address whenever the address changes (either manually or by an incoming Z05 transmission).
    Set Logic:  D:$$BADADR^DGUTL3(DA) DELBAI^DGUTL3(DA)
    Set Cond:  I X1'=X2
    Kill Logic:  Q
    X(1):  ADDRESS CHANGE DT/TM  (2,.118)  (forwards)
.119 ADDRESS CHANGE SOURCE .11;14 SET
  • 'HEC' FOR HEC;
  • 'VAMC' FOR VAMC;
  • 'HBSC' FOR HBSC;
  • 'NCOA' FOR NCOA;
  • 'BVA' FOR BVA;
  • 'VAINS' FOR VAINS;
  • 'USPS' FOR USPS;

  • LAST EDITED:  JUL 05, 2002
  • HELP-PROMPT:  Please enter the source of the address change.
  • DESCRIPTION:  
    This field will hold the source of the Last address change.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the ADDRESS CHANGE DT/TM field of the VA PATIENT File
  • CROSS-REFERENCE:  ^^TRIGGER^2^.12
    1)= X ^DD(2,.119,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4(.DUZ) S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,15)=DIV,DIH=2,DIG=.12 D ^DIC
    R
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.119,0)),U,3) S X='$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)'="VAMC"
    1.4)= S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,15)=DIV,DIH=2,DIG=.12 D ^DICR
    2)= X ^DD(2,.119,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4(.DUZ) S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,15)=DIV,DIH=2,DIG=.12 D ^DIC
    R
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(2,.119,0)),U,3),Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X='$P($P(Y(2),$C(59)_$P(Y(1),U,14)_":",2),$C(59),1)'="VAMC"
    2.4)= S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,15)=DIV,DIH=2,DIG=.12 D ^DICR
    CREATE CONDITION)= 'ADDRESS CHANGE SOURCE'="VAMC"
    CREATE VALUE)= S X=$$GETSITE^DGMTU4(.DUZ)
    DELETE CONDITION)= 'ADDRESS CHANGE SOURCE'="VAMC"
    DELETE VALUE)= S X=$$GETSITE^DGMTU4(.DUZ)
    FIELD)= ADDRESS CHANGE SITE
    This cross-reference will trigger the population of the ADDRESS CHANGE SITE field with the appropriate station number if the ADDRESS CHANGE SOURCE equals "VAMC".  The Address Change Site field should be overwritten for
    cases where the site would be incorrect (i.e. uploading Z05 message).
    IHS/ITSC/LJF 1/22/2004:  Fixed calls to ^DGMTU4 so parameter in passed as documented in routine.  Changed S X=$$GETSITE^DGMTU4($G(DUZ)) to S X=$$GETSITE^DGMTU4(.DUZ).
.12 ADDRESS CHANGE SITE .11;15 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  JUL 03, 2002
  • HELP-PROMPT:  Please enter the site that last changed this patient's address.
  • DESCRIPTION:  
    This field will hold the Site that last changed this patient's address.  This field is only populated when the Address Source is listed as VAMC.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the ADDRESS CHANGE SOURCE field of the VA PATIENT File
.121 BAD ADDRESS INDICATOR .11;16 SET
  • '1' FOR UNDELIVERABLE;
  • '2' FOR HOMELESS;
  • '3' FOR OTHER;

  • LAST EDITED:  MAR 06, 2003
  • HELP-PROMPT:  Please enter 1 if the address is 'UNDELIVERABLE', 2 if the patient is 'HOMELESS', or 3 for 'OTHER' bad address reasons.
  • DESCRIPTION:  The Bad Address Indicator field applies to the address at which the patient resides. This field should be set as follows (if applicable):
    "UNDELIVERABLE" - Bad Address based on returned mail.
    "HOMELESS" - Patient is known to be homeless.
    "OTHER" - Other Bad Address Reason
    Setting this field will prevent a Bad Address from being shared with HEC and other VAMC facilities. It will also be used to block Means Test Renewal Letters from being sent.
    Once the Bad Address Indicator is set, incoming "newer" addresses, and/or manual address updates by VAMC site staff will automatically remove the Bad Address Indicator, and allow the "updated" address to be transmitted to
    HEC and other VAMC facilities.
  • TECHNICAL DESCR:  This field is being used in conjunction with Patient Address fields .111, .1112, .112, .113, .114, .115, .116, and .117, which are located in the Patient (#2) file.
    A programmer API, $$BADADR^DGUTL3(DFN) will allow the return of the Bad Address Indicator.  The following parameters are used:
    Input Parameter: DFN - internal entry number for the Patient file (#2)
    Return value: internal value of the Bad Address Indicator or 
  • SCREEN:  S DIC("S")="I Y'=4"
  • EXPLANATION:  Only 1-3 may be selected.
  • CROSS-REFERENCE:  2^AENR121^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.118
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT()
    DELETE VALUE)= S X=$$NOW^XLFDT()
    FIELD)= #.118
    This cross-reference will be used to update the Date/Time stamp for an  Address Change.
.12105 TEMPORARY ADDRESS ACTIVE? .121;9 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • INPUT TRANSFORM:  S DFN=DA I X="N" D TADD^DGLOCK
  • LAST EDITED:  APR 19, 1993
  • HELP-PROMPT:  Enter 'Y' if you want to enter/edit Temporary address data, 'N' if not.
  • DESCRIPTION:  Enter 'Y' if you wish to enter a temporary address for this applicant at this time, or 'N' if not. A 'NO' response will cause the temporary address 'Start Date' and 'End Date' fields to be automatically deleted while all
    other temporary address data will remain on file for future use.
  • GROUP:  TAD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR11^MUMPS
    1)= Q
    2)= S DGXRF=.12105 D ^DGDDC Q
  • RECORD INDEXES:  ADTTM1 (#315)
.1211 TEMPORARY STREET [LINE 1] .121;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D TAD^DGLOCK
  • LAST EDITED:  JAN 15, 1989
  • HELP-PROMPT:  Enter the first line of this applicants temporary address [2-30 characters].
  • DESCRIPTION:  If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the first line of the temporary street address for this applicant [2-30 characters] otherwise nothing may be entered. This field cannot be deleted as
    long as the need for a temporary address is indicated.
  • DELETE TEST:  1,0)= S DFN=DA D TADD^DGLOCK1 I '$D(X)
  • GROUP:  TAD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR12^MUMPS
    1)= Q
    2)= S DGXRF=.1211 D ^DGDDC Q
  • RECORD INDEXES:  ADTTM1 (#315)
.12111 TEMPORARY ADDRESS COUNTY .121;11 NUMBER

  • INPUT TRANSFORM:  S Z0=$S($D(^DPT(D0,.121)):+$P(^(.121),"^",5),1:0) K:'Z0 X Q:'$D(^DIC(5,Z0,1,0)) S DIC="^DIC(5,Z0,1,",DIC(0)="QEM" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC
  • OUTPUT TRANSFORM:  S Y(0)=Y Q:Y']"" S Z0=$S($D(^DPT(D0,.121)):+$P(^(.121),"^",5),1:0) Q:'Z0 S Y=$P($S($D(^DIC(5,Z0,1,Y,0)):^(0),1:""),"^",3)
  • LAST EDITED:  APR 09, 1992
  • HELP-PROMPT:  Enter the county in which the applicant's temporary address exists.
  • DESCRIPTION:  
    If a state is entered for the temporary residence, enter the county in which that residence resides.  If a state does not exist for the temporary address, a county can not be entered.
  • EXECUTABLE HELP:  S ZD=D,X="?",Z0=$S($D(^DPT(D0,.121)):$P(^(.121),"^",5),1:0) Q:'$D(^DIC(5,+Z0,1,0)) S DIC="^DIC(5,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD
  • GROUP:  TAD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AENR12111^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.12112 TEMPORARY ZIP+4 .121;12 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) S DFN=DA D TAD^DGLOCK I $D(X) K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
  • OUTPUT TRANSFORM:  D ZIPOUT^VAFADDR
  • LAST EDITED:  JUN 03, 1993
  • HELP-PROMPT:  Answer with either 5 digit or 9 digit zip code.
  • DESCRIPTION:  
    Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789).
  • TECHNICAL DESCR:  Related to other address fields on this node. This field 'triggers' the TEMPORARY ZIP CODE (#.1216) field, using the first 5 digits of
    this field.
  • DELETE TEST:  1,0)= S DFN=DA D TADD^DGLOCK1 I '$D(X)
  • GROUP:  TAD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^ATZIP4^MUMPS
    1)= D SET^DGREGDD1(DA,.1216,.121,6,$E(X,1,5))
    2)= D KILL^DGREGDD1(DA,.1216,.121,6,$E(X,1,5))
    This sets the corresponding zip code field to the first 5 digits of this field.
  • RECORD INDEXES:  ADTTM1 (#315)
.12113 TEMPORARY ADDRESS CHANGE DT/TM .121;13 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  JUN 15, 2005
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  
    This field will hold the date and time of the last Temporary Address Update.
    WRITE AUTHORITY:  ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AENR12113^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.12114 TEMPORARY ADDRESS CHANGE SITE .121;14 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  MAY 19, 2005
  • DESCRIPTION:  
    This field will hold the Site that last changed this patient's temporary address.
.1212 TEMPORARY STREET [LINE 2] .121;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D TAD^DGLOCK
  • LAST EDITED:  JAN 15, 1989
  • HELP-PROMPT:  Enter, if necessary, the second line of this applicants temporary address [2-30 characters].
  • DESCRIPTION:  If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the second line of the temporary street address [2-30 characters], if necessary, otherwise nothing may be entered. This field may not be deleted as
    long as the need for a temporary address is indicated.
  • GROUP:  TAD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR13^MUMPS
    1)= Q
    2)= S DGXRF=.1212 D ^DGDDC Q
  • RECORD INDEXES:  ADTTM1 (#315)
.1213 TEMPORARY STREET [LINE 3] .121;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D TAD^DGLOCK
  • LAST EDITED:  JUL 28, 1986
  • HELP-PROMPT:  Enter, if necessary, the third line of this applicants temporary address [2-30 characters].
  • DESCRIPTION:  If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the third line of the temporary street address [2-30 characters], if necessary, otherwise nothing may be entered. This field may not be deleted as long
    as the need for a temporary address is indicated.
  • GROUP:  TAD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM1 (#315)
.1214 TEMPORARY CITY .121;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D TAD^DGLOCK
  • LAST EDITED:  JUL 28, 1986
  • HELP-PROMPT:  Enter the city in which this applicant is temporarily residing [2-30 characters].
  • DESCRIPTION:  If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the city in which the temporary address lies [2-30 characters], otherwise nothing may be entered. This field may not be deleted as long as the need for
    a temporary address is indicated.
  • DELETE TEST:  1,0)= S DFN=DA D TADD^DGLOCK1 I '$D(X)
  • GROUP:  TAD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM1 (#315)
.1215 TEMPORARY STATE .121;5 POINTER TO STATE FILE (#5) STATE(#5)

  • INPUT TRANSFORM:  S DFN=DA D TAD^DGLOCK Q
  • LAST EDITED:  JUL 28, 1986
  • HELP-PROMPT:  Enter the state in which this applicant is temporarily residing.
  • DESCRIPTION:  If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES select from the available listing the state in which the temporary address lies, otherwise nothing may be entered. This field may not be deleted as long as
    the need for a temporary address is indicated.
  • DELETE TEST:  1,0)= S DFN=DA D TADD^DGLOCK1 I '$D(X)
  • GROUP:  TAD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM1 (#315)
.1216 TEMPORARY ZIP CODE .121;6 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X I $D(X) S DFN=DA D TAD^DGLOCK
  • LAST EDITED:  JUN 03, 1993
  • HELP-PROMPT:  Enter the zip code of the temporary address at which this patient is currently residing.
  • DESCRIPTION:  If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the zip code assigned to the temporary city [5 numerics], otherwise nothing may be entered. This field may not be deleted as long as the need for a
    temporary address is indicated.
  • TECHNICAL DESCR:  This five-digit zip code associated with the temporary address is populated by the five or nine digit TEMPORARY ZIP+4 field (via a trigger). The TEMPORARY ZIP CODE field will be made un-editiable several months following
    the release of PIMS 5.3.
  • DELETE TEST:  1,0)= S DFN=DA D TADD^DGLOCK1 I '$D(X)
  • GROUP:  TAD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^ATZIP^MUMPS
    1)= D SET^DGREGDD1(DA,.12112,.121,12,X)
    2)= D KILL^DGREGDD1(DA,.12112,.121,12,X)
    This sets the corresponding zip+4 field to be equal to this field's value.
  • RECORD INDEXES:  ADTTM1 (#315)
.1217 TEMPORARY ADDRESS START DATE .121;7 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) S DFN=DA D TAD^DGLOCK
  • LAST EDITED:  JAN 15, 1989
  • HELP-PROMPT:  Enter the date on which the patient will first be found at the temporary address indicated.
  • DESCRIPTION:  If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the date on which the applicant will commence being contacted at the temporary address indicated, otherwise nothing may be entered. This field may not
    be deleted as long as the need for a temporary address is indicated.
  • DELETE TEST:  1,0)= S DFN=DA D TADD^DGLOCK1 I '$D(X)
  • GROUP:  TAD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AGU1^MUMPS
    1)= Q
    2)= Q
  • RECORD INDEXES:  ADTTM1 (#315)
.1218 TEMPORARY ADDRESS END DATE .121;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) S DFN=DA D TAD^DGLOCK I $D(X),(X<$P(^DPT(DFN,.121),"^",7)) K X
  • LAST EDITED:  JAN 13, 1989
  • HELP-PROMPT:  Enter the date as of which the patient will no longer be at the temporary address indicated.
  • DESCRIPTION:  If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the date as of which the applicant will no longer be contacted at that temporary address, otherwise nothing may be entered. This field may not be
    deleted as long as the need for a temporary address is indicated.
  • DELETE TEST:  1,0)= S DFN=DA D TADD^DGLOCK1 I '$D(X)
  • GROUP:  TAD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM1 (#315)
.1219 TEMPORARY PHONE NUMBER .121;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X I $D(X) S DFN=DA D TAD^DGLOCK
  • LAST EDITED:  JUL 13, 2001
  • HELP-PROMPT:  Enter the telephone number of the temporary address at which the patient is located [4-20 characters].
  • DESCRIPTION:  If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the telephone number at which the applicant can be contacted [4-20 characters] during his/her absence from permanent residence, otherwise nothing may be
    entered.  This field may not be deleted as long as the need for a temporary address is indicated.
  • TECHNICAL DESCR:  
    IHS/ANMC/LJF 7/13/2001: Added title to field.
  • GROUP:  TAD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AENR1219^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.122 ADDRESS CHANGE USER .11;17 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 04, 2003
  • DESCRIPTION:  
    The name of the user who has changed this patient's primary address.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the ADDRESS CHANGE DT/TM field of the VA PATIENT File
.131 PHONE NUMBER [RESIDENCE] .13;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  AUG 25, 2000
  • HELP-PROMPT:  Enter the patients home telephone number [4-20 characters].
  • DESCRIPTION:  
    Enter the telephone number [4-20 characters] to this applicant's place of residence.
  • GROUP:  IHS
  • CROSS-REFERENCE:  2^AENR131^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • CROSS-REFERENCE:  2^IVM131^MUMPS
    1)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    2)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    This cross-reference will check the IVM PATIENT file to see if a change to this field will require transmission to the IVM Center.  If it does, the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and the
    nightly background job will transmit the updated information.
  • CROSS-REFERENCE:  2^AVAFC131^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".131;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".131;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^ADGRU131^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
.1311 CELLULAR NUMBER CHANGE SOURCE .13;10 SET
  • 'HEC' FOR HEC;
  • 'VAMC' FOR VAMC;
  • 'HBSC' FOR HBSC;

  • LAST EDITED:  APR 10, 2006
  • HELP-PROMPT:  Please enter the source of the Cellular number change.
  • DESCRIPTION:  
    This field will hold the source of the last Cellular number change.
  • NOTES:  TRIGGERED by the CELLULAR NUMBER CHANGE DT/TM field of the VA PATIENT File
  • CROSS-REFERENCE:  ^^TRIGGER^2^.13111
    1)= X ^DD(2,.1311,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,"")) X ^DD(2,.1311,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.1311,0)),U,3) S X='$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))'="VAMC"
    1.4)= S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,11)=DIV,DIH=2,DIG=.13111 D ^DICR
    2)= X ^DD(2,.1311,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,"")) X ^DD(2,.1311,1,1,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(2,.1311,0)),U,3),Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X='$P($P(Y(2),$C(59)_$P(Y(1),U,10)_":",2),$C(59))'="VAMC"
    2.4)= S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,11)=DIV,DIH=2,DIG=.13111 D ^DICR
    CREATE CONDITION)= 'CELLULAR NUMBER CHANGE SOURCE'="VAMC"
    CREATE VALUE)= S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,""))
    DELETE CONDITION)= 'CELLULAR NUMBER CHANGE SOURCE'="VAMC"
    DELETE VALUE)= S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,""))
    FIELD)= #.13111
    This cross-reference will trigger the population of the CELLULAR NUMBER CHANGE SITE field with the appropriate station number if the CELLULAR NUMBER CHANGE SOURCE equals "VAMC".  The Cellular Number Change Site field
    should be overwritten for cases where the site would be incorrect (i.e.  uploading Z05 message).
.13111 CELLULAR NUMBER CHANGE SITE .13;11 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  APR 10, 2006
  • HELP-PROMPT:  Please enter the site that last changed this patient's Cellular number.
  • DESCRIPTION:  
    This field will hold the site that last changed this patient's Cellular number.  This field is only populated when the Cellular Number Change Source is listed as VAMC.
  • NOTES:  TRIGGERED by the CELLULAR NUMBER CHANGE SOURCE field of the VA PATIENT File
.1312 PAGER NUMBER CHANGE DT/TM .13;12 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 10, 2006
  • DESCRIPTION:  
    This field will contain the date and time of the last Pager number update.
  • NOTES:  TRIGGERED by the PAGER NUMBER field of the VA PATIENT File
  • CROSS-REFERENCE:  ^^TRIGGER^2^.1313
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X="VAMC" S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,13)=DIV,DIH=2,DIG=.1313 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X="VAMC" S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,13)=DIV,DIH=2,DIG=.1313 D ^DICR
    CREATE VALUE)= S X="VAMC"
    DELETE VALUE)= S X="VAMC"
    FIELD)= #.1313
    This cross reference will update the PAGER NUMBER CHANGE SOURCE field (#.1313).
.1313 PAGER NUMBER CHANGE SOURCE .13;13 SET
  • 'HEC' FOR HEC;
  • 'VAMC' FOR VAMC;
  • 'HBSC' FOR HBSC;

  • LAST EDITED:  APR 10, 2006
  • HELP-PROMPT:  Please enter the source of the Pager number change.
  • DESCRIPTION:  
    This field will hold the source of the last Pager number change.
  • NOTES:  TRIGGERED by the PAGER NUMBER CHANGE DT/TM field of the VA PATIENT File
  • CROSS-REFERENCE:  ^^TRIGGER^2^.1314
    1)= X ^DD(2,.1313,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,"")) X ^DD(2,.1313,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.1313,0)),U,3) S X='$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))'="VAMC"
    1.4)= S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,14)=DIV,DIH=2,DIG=.1314 D ^DICR
    2)= X ^DD(2,.1313,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,"")) X ^DD(2,.1313,1,1,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(2,.1313,0)),U,3),Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X='$P($P(Y(2),$C(59)_$P(Y(1),U,13)_":",2),$C(59))'="VAMC"
    2.4)= S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,14)=DIV,DIH=2,DIG=.1314 D ^DICR
    CREATE CONDITION)= 'PAGER NUMBER CHANGE SOURCE'="VAMC"
    CREATE VALUE)= S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,""))
    DELETE CONDITION)= 'PAGER NUMBER CHANGE SOURCE'="VAMC"
    DELETE VALUE)= S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,""))
    FIELD)= #.1314
    This cross-reference will trigger the population of the PAGER NUMBER CHANGE SITE field with the appropriate station number if the PAGER NUMBER CHANGE SOURCE equals "VAMC". The Pager Number Change Site field should be
    overwritten for cases where the site would be incorrect (i.e. uploading Z05 message).
.1314 PAGER NUMBER CHANGE SITE .13;14 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  APR 10, 2006
  • HELP-PROMPT:  Please enter the site that last changed this patient's Pager number.
  • DESCRIPTION:  
    This field will hold the site that last changed this patient's Pager number.  This field is only populated when the Pager Number Change Source is listed as VAMC.
  • NOTES:  TRIGGERED by the PAGER NUMBER CHANGE SOURCE field of the VA PATIENT File
.132 PHONE NUMBER [WORK] .13;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  AUG 25, 2000
  • HELP-PROMPT:  If employed, enter the telephone number of this applicants place of employment [4-20 characters].
  • DESCRIPTION:  
    Enter the office phone number [4-20 characters] where this applicant can be reached while employed, if employed.
  • GROUP:  IHS
  • CROSS-REFERENCE:  2^AENR132^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • CROSS-REFERENCE:  2^IVM132^MUMPS
    1)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    2)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    This cross-reference will check the IVM PATIENT file to see if a change to this field will require transmission to the IVM Center.  If it does, the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and the
    nightly background job will transmit the updated information.
  • CROSS-REFERENCE:  2^AVAFC132^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".132;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".132;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^ADGRU132^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
.133 EMAIL ADDRESS .13;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3)!'(X?1.E1"@"1.E1"."1.E) X
  • LAST EDITED:  APR 11, 2006
  • HELP-PROMPT:  Enter the applicant's email address [3-50 characters]. The entry must include an '@'.
  • EXECUTABLE HELP:  D 133^DGMTDD5
  • CROSS-REFERENCE:  ^^TRIGGER^2^.136
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,6)=DIV,DIH=2,DIG=.136 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,6)=DIV,DIH=2,DIG=.136 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT()
    DELETE VALUE)= S X=$$NOW^XLFDT()
    FIELD)= #.136
    This cross reference will update the EMAIL ADDRESS CHANGE DT/TM field with current date and time stamp each time this field is changed.
  • RECORD INDEXES:  AXENR13 (#333)
.134 PHONE NUMBER [CELLULAR] .13;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X I $D(X) N CTR,CHR,VAR S VAR=X F CTR=1:1:20 S CHR=$E(VAR,CTR) K:("1234567890 -()."'[CHR) X
  • LAST EDITED:  APR 11, 2006
  • HELP-PROMPT:  Answer must be 4-20 characters in length, be numeric with only spaces, parenthesis, periods, and dashes for separators.
  • DESCRIPTION:  
    Enter the telephone number [4-20 characters] to the applicant's mobile phone.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.139
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,9)=DIV,DIH=2,DIG=.139 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,9)=DIV,DIH=2,DIG=.139 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT()
    DELETE VALUE)= S X=$$NOW^XLFDT()
    FIELD)= #.139
    This cross reference will update the CELLULAR NUMBER CHANGE DT/TM field with current date and time stamp each time this field is changed.
  • RECORD INDEXES:  AXENR13 (#333)
.135 PAGER NUMBER .13;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X I $D(X) N CTR,CHR,VAR S VAR=X F CTR=1:1:20 S CHR=$E(VAR,CTR) K:("1234567890 -()."'[CHR) X
  • LAST EDITED:  APR 11, 2006
  • HELP-PROMPT:  Answer must be 4-20 characters in length, be numeric with only spaces, parenthesis, periods, and dashes for separators.
  • DESCRIPTION:  
    Enter the applicant's pager number [4-20 characters].
  • TECHNICAL DESCR:  
    Contains between 4 and 20 Free Text characters.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.1312
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,12)=DIV,DIH=2,DIG=.1312 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,12)=DIV,DIH=2,DIG=.1312 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT()
    DELETE VALUE)= S X=$$NOW^XLFDT()
    FIELD)= #.1312
    This cross reference will update the PAGER NUMBER CHANGE DT/TM field with current date and time stamp each time this field is changed.
  • RECORD INDEXES:  AXENR13 (#333)
.136 EMAIL ADDRESS CHANGE DT/TM .13;6 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 10, 2006
  • DESCRIPTION:  
    This field will contain the date and time of the last EMAIL address update.
  • NOTES:  TRIGGERED by the EMAIL ADDRESS field of the VA PATIENT File
  • CROSS-REFERENCE:  ^^TRIGGER^2^.137
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X="VAMC" S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,7)=DIV,DIH=2,DIG=.137 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X="VAMC" S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,7)=DIV,DIH=2,DIG=.137 D ^DICR
    CREATE VALUE)= S X="VAMC"
    DELETE VALUE)= S X="VAMC"
    FIELD)= #.137
    This cross reference will update the EMAIL ADDRESS CHANGE SOURCE field (#.137).
.137 EMAIL ADDRESS CHANGE SOURCE .13;7 SET
  • 'HEC' FOR HEC;
  • 'VAMC' FOR VAMC;
  • 'HBSC' FOR HBSC;

  • LAST EDITED:  APR 10, 2006
  • HELP-PROMPT:  Please enter the source of the EMAIL address change.
  • DESCRIPTION:  
    This field will hold the source of the last EMAIL address change.
  • NOTES:  TRIGGERED by the EMAIL ADDRESS CHANGE DT/TM field of the VA PATIENT File
  • CROSS-REFERENCE:  ^^TRIGGER^2^.138
    1)= X ^DD(2,.137,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,"")) X ^DD(2,.137,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.137,0)),U,3) S X='$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))'="VAMC"
    1.4)= S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,8)=DIV,DIH=2,DIG=.138 D ^DICR
    2)= X ^DD(2,.137,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,"")) X ^DD(2,.137,1,1,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(2,.137,0)),U,3),Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X='$P($P(Y(2),$C(59)_$P(Y(1),U,7)_":",2),$C(59))'="VAMC"
    2.4)= S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,8)=DIV,DIH=2,DIG=.138 D ^DICR
    CREATE CONDITION)= 'EMAIL ADDRESS CHANGE SOURCE'="VAMC"
    CREATE VALUE)= S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,""))
    DELETE CONDITION)= 'EMAIL ADDRESS CHANGE SOURCE'="VAMC"
    DELETE VALUE)= S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,""))
    FIELD)= #.138
    This cross-reference will trigger the population of the EMAIL ADDRESS CHANGE SITE field with the appropriate station number if the EMAIL ADDRESS CHANGE SOURCE equals "VAMC". The EMAIL ADDRESS Change Site field should be
    overwritten for cases where the site would be incorrect (i.e. uploading Z05 message).
.138 EMAIL ADDRESS CHANGE SITE .13;8 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  APR 10, 2006
  • HELP-PROMPT:  Please enter the site that last changed this patient's EMAIL address.
  • DESCRIPTION:  
    This field will hold the site that last changed this patient's EMAIL address.  This field is only populated when the EMAIL Address Source is listed as VAMC.
  • NOTES:  TRIGGERED by the EMAIL ADDRESS CHANGE SOURCE field of the VA PATIENT File
.139 CELLULAR NUMBER CHANGE DT/TM .13;9 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 10, 2006
  • DESCRIPTION:  
    This field will contain the date and time of the last Cellular number update.
  • NOTES:  TRIGGERED by the PHONE NUMBER [CELLULAR] field of the VA PATIENT File
  • CROSS-REFERENCE:  ^^TRIGGER^2^.1311
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X="VAMC" S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,10)=DIV,DIH=2,DIG=.1311 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X="VAMC" S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,10)=DIV,DIH=2,DIG=.1311 D ^DICR
    CREATE VALUE)= S X="VAMC"
    DELETE VALUE)= S X="VAMC"
    FIELD)= #.1311
.14 CURRENT MEANS TEST STATUS 0;14 POINTER TO MEANS TEST STATUS FILE (#408.32) MEANS TEST STATUS(#408.32)

  • LAST EDITED:  MAY 20, 1992
  • HELP-PROMPT:  This field is computed by the system. It contains the current means test status for a patient.
  • DESCRIPTION:  
    This field is computed by the system.  It contains the current means test status for a patient.
  • TECHNICAL DESCR:  This field is computed by the system. It is updated by a mumps cross-reference on the 'STATUS' field (#.03) in the Annual Means Test file (#408.31). The current means test status is based on the status of the last means
    test on file for the patient.
    UNEDITABLE
  • CROSS-REFERENCE:  2^ACS
    1)= S ^DPT("ACS",$E(X,1,30),DA)=""
    2)= K ^DPT("ACS",$E(X,1,30),DA)
.141 CONFIDENTIAL ADDRESS CATEGORY .14;0 SET Multiple #2.141 2.141

  • DESCRIPTION:  
    This is a multiple valued field containing the confidential address categories for this applicant.
  • INDEXED BY:  CONFIDENTIAL ADDRESS CATEGORY & CONFIDENTIAL CATEGORY ACTIVE (ACEE141), CONFIDENTIAL CATEGORY ACTIVE (ADGFM1), CONFIDENTIAL ADDRESS CATEGORY (ADGFMD01)
.14105 CONFIDENTIAL ADDRESS ACTIVE? .141;9 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • INPUT TRANSFORM:  S DFN=DA I X="N" D CADD^DGLOCK3
  • LAST EDITED:  MAR 14, 2003
  • HELP-PROMPT:  Enter 'Y' if you want to enter or edit confidential address data.
  • DESCRIPTION:  Enter 'Y' if you wish to enter a confidential address for this applicant at this time. A 'NO' response will cause the Confidential Start Date and Confidential End Date fields to be automatically deleted while other
    confidential address information will remain on file for future use.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR31^MUMPS
    1)= Q
    2)= S DGXRF=.14105 D ^DGDDC Q
  • CROSS-REFERENCE:  2^AENR4105^MUMPS
    1)= I $$EECONF^DGRPCTRG(DFN) D EVENT^IVMPLOG(DA)
    2)= I $$EECONF^DGRPCTRG(DFN) D EVENT^IVMPLOG(DA)
    This cross-reference is used to notify HEC of changes that may affect enrollment.  It is necessary to have this trigger in addition to the triggers on CONFIDENTIAL ADDRESS CATEGORY and CONFIDENTIAL ADDRESS CHANGE DT/TM
    because of the order in which the fields are input.
  • RECORD INDEXES:  ADTTM2 (#316)
.1411 CONFIDENTIAL STREET [LINE 1] .141;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D CAD^DGLOCK3
  • LAST EDITED:  OCT 01, 2003
  • HELP-PROMPT:  Enter the first line of the applicant's confidential street address [2-30 characters].
  • DESCRIPTION:  If the 'Confidential Address Active' prompt is answered YES, the user will be prompted for the first line of the confidential street address. This field cannot be deleted as long as the need for a confidential address is
    indicated.
  • DELETE TEST:  1,0)= S DFN=DA D CADD1^DGLOCK3 I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR32^MUMPS
    1)= Q
    2)= S DGXRF=.1411 D ^DGDDC Q
  • FIELD INDEX:  ADGFMD1411 (#28) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.1411,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.1411,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  CONFIDENTIAL STREET [LINE 1]  (2,.1411)  (forwards)
  • RECORD INDEXES:  ADTTM2 (#316)
.14111 CONFIDENTIAL ADDRESS COUNTY .141;11 NUMBER

  • INPUT TRANSFORM:  N Z0,DIC S Z0=+$P($G(^DPT(D0,.141)),"^",5) K:'Z0 X Q:'$D(^DIC(5,Z0,1,0)) S DIC="^DIC(5,Z0,1,",DIC(0)="QEM" D ^DIC S X=+Y K:Y'>0 X
  • OUTPUT TRANSFORM:  N Z0 S Z0=+$P($G(^DPT(D0,.141)),"^",5) Q:'Z0 S Y=$P($G(^DIC(5,Z0,1,Y,0)),"^",3)
  • LAST EDITED:  DEC 12, 2002
  • HELP-PROMPT:  Enter a valid county for the applicant's confidential address.
  • DESCRIPTION:  
    If the 'Confidential Address Active' prompt is answered YES, enter the county for the applicant's confidential address.
  • EXECUTABLE HELP:  N Z0,DIC S X="?",Z0=+$P($G(^DPT(D0,.141)),"^",5) Q:'$D(^DIC(5,Z0,1,0)) S DIC="^DIC(5,Z0,1,",DIC(0)="QEM" D ^DIC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AENR14111^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.14112 CONFIDENTIAL ADDR CHANGE DT/TM .141;12 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  MAY 01, 2006
  • DESCRIPTION:  
    This field will hold the date and time of the last Confidential Address Update.
    WRITE AUTHORITY:  ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AENR14112^MUMPS
    1)= I $$EECONF^DGRPCTRG(DFN) D EVENT^IVMPLOG(DA)
    2)= I $$EECONF^DGRPCTRG(DFN) D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.14113
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.141)):^(.141),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,"")) X ^DD(2,.14112,1,2,1.4)
    1.4)= S DIH=$G(^DPT(DIV(0),.141)),DIV=X S $P(^(.141),U,13)=DIV,DIH=2,DIG=.14113 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.141)):^(.141),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,"")) X ^DD(2,.14112,1,2,2.4)
    2.4)= S DIH=$G(^DPT(DIV(0),.141)),DIV=X S $P(^(.141),U,13)=DIV,DIH=2,DIG=.14113 D ^DICR
    CREATE VALUE)= S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,""))
    DELETE VALUE)= S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,""))
    FIELD)= #.14113
.14113 CONFIDENTIAL ADDR CHANGE SITE .141;13 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  MAY 19, 2005
  • DESCRIPTION:  
    This field will hold the Site that last changed this patient's confidential address.
  • NOTES:  TRIGGERED by the CONFIDENTIAL ADDR CHANGE DT/TM field of the VA PATIENT File
.1412 CONFIDENTIAL STREET [LINE 2] .141;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D CAD^DGLOCK3
  • LAST EDITED:  OCT 01, 2003
  • HELP-PROMPT:  If necessary, enter the second line of this applicant's confidential address [2-30 characters].
  • DESCRIPTION:  If the 'Confidential Address Active' prompt is answered YES, the user will be prompted for the second line of the confidential street address [2-30 characters]. The second line of the street address is optional and may be
    left blank.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR33^MUMPS
    1)= Q
    2)= S DGXRF=.1412 D ^DGDDC Q
  • FIELD INDEX:  ADGFMD1412 (#29) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.1412,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.1412,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  CONFIDENTIAL STREET [LINE 2]  (2,.1412)  (forwards)
  • RECORD INDEXES:  ADTTM2 (#316)
.1413 CONFIDENTIAL STREET [LINE 3] .141;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D CAD^DGLOCK3
  • LAST EDITED:  OCT 01, 2003
  • HELP-PROMPT:  If necessary, enter the third line of this applicant's confidential street address [2-30 characters]
  • DESCRIPTION:  
    If the 'Confidential Address Active' prompt is answered YES, the user will be prompted for the third line of the confidential        street address.  The third line of the street address is optional and may be left blank.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  ADGFMD1413 (#30) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.1413,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.1413,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  CONFIDENTIAL STREET [LINE 3]  (2,.1413)  (forwards)
  • RECORD INDEXES:  ADTTM2 (#316)
.1414 CONFIDENTIAL ADDRESS CITY .141;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D CAD^DGLOCK3
  • LAST EDITED:  OCT 01, 2003
  • HELP-PROMPT:  Enter the city for the applicant's confidential address [2-30 characters].
  • DESCRIPTION:  If the 'Confidential Address Active' prompt is answered YES, enter the confidential address city for this applicant [2-30 characters]. This field may not be deleted as long as the need for a confidential address is
    indicated.
  • DELETE TEST:  1,0)= S DFN=DA D CADD1^DGLOCK3 I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  ADGFMD1414 (#31) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.1414,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.1414,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  CONFIDENTIAL ADDRESS CITY  (2,.1414)  (forwards)
  • RECORD INDEXES:  ADTTM2 (#316)
.1415 CONFIDENTIAL ADDRESS STATE .141;5 POINTER TO STATE FILE (#5) STATE(#5)

  • INPUT TRANSFORM:  S DFN=DA D CAD^DGLOCK3 Q
  • LAST EDITED:  OCT 01, 2003
  • HELP-PROMPT:  Enter the State for the applicant's confidential address.
  • DESCRIPTION:  If the 'Confidential Address Active' prompt is answered YES, the user will be asked to select the confidential address state from the available listing. This field may not be deleted as long as the need for a confidential
    address is indicated.
  • DELETE TEST:  1,0)= S DFN=DA D CADD1^DGLOCK3 I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  ADGFMD1415 (#32) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.1415,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.1415,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  CONFIDENTIAL ADDRESS STATE  (2,.1415)  (forwards)
  • RECORD INDEXES:  ADTTM2 (#316)
.1416 CONFIDENTIAL ADDRESS ZIP CODE .141;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<5) X I $D(X) S DFN=DA D CAD^DGLOCK3 I $D(X) D ZIPIN^VAFADDR
  • OUTPUT TRANSFORM:  D ZIPOUT^VAFADDR
  • LAST EDITED:  OCT 01, 2003
  • HELP-PROMPT:  Answer with either the 5 digit or 9 digit zip code.
  • DESCRIPTION:  If the 'Confidential Address Active' prompt is answered YES, the user will be asked to enter the zip code assigned to the city for the confidential address. This field may not be deleted as long as the need for a
    confidential address is indicated.
  • DELETE TEST:  1,0)= S DFN=DA D CADD1^DGLOCK3 I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  ADGFMD1416 (#33) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.1416,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.1416,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  CONFIDENTIAL ADDRESS ZIP CODE  (2,.1416)  (forwards)
  • RECORD INDEXES:  ADTTM2 (#316)
.1417 CONFIDENTIAL START DATE .141;7 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=DT D ^%DT S X=Y K:Y<1 X I $D(X) S DFN=DA D CAD^DGLOCK3
  • LAST EDITED:  OCT 01, 2003
  • HELP-PROMPT:  Enter the date to begin contacting the applicant at the confidential address. Date cannot be in the past.
  • DESCRIPTION:  
    If the 'Confidential Address Active' prompt is answered YES, enter the date to begin contacting the applicant at the confidential address.
  • DELETE TEST:  1,0)= S DFN=DA D CADD1^DGLOCK3 I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  ADGFMD1417 (#34) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.1417,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.1417,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  CONFIDENTIAL START DATE  (2,.1417)  (forwards)
  • RECORD INDEXES:  ADTTM2 (#316)
.1418 CONFIDENTIAL END DATE .141;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) S DFN=DA D CAD^DGLOCK3 I $D(X),(X<$P(^DPT(DFN,.141),"^",7)) K X
  • LAST EDITED:  OCT 01, 2003
  • HELP-PROMPT:  Enter the date the applicant will no longer be contacted at the confidential address. End date must be after start date.
  • DESCRIPTION:  
    If the 'Confidential Address Active' prompt is answered YES, enter the date the applicant will no longer be contacted at this address.
  • DELETE TEST:  1,0)= S DFN=DA D CADD1^DGLOCK3 I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  ADGFMD1418 (#35) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.1418,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.1418,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  CONFIDENTIAL END DATE  (2,.1418)  (forwards)
  • RECORD INDEXES:  ADTTM2 (#316)
.152 INELIGIBLE DATE .15;2 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) D EK^DGLOCK
  • LAST EDITED:  OCT 16, 1998
  • HELP-PROMPT:  Enter the date this patient was identified as being ineligble for treatment.
  • DESCRIPTION:  
    If this applicant is ineligible for treatment enter the effective date.  Only users who hold the designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= D EK^DGLOCK I '$D(X)
  • GROUP:  IPT
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.091
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,10) S DIU=X K Y X ^DD(2,.152,1,1,1.1) X ^DD(2,.152,1,1,1.4)
    1.1)= S X=DIV S X=DIU_"**INELIGIBLE**"
    1.4)= S DIH=$S($D(^DPT(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.091 D ^DICR:$N(^DD(DIH,DIG,1,0))>
    0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,10) S DIU=X K Y X ^DD(2,.152,1,1,2.1) X ^DD(2,.152,1,1,2.4)
    2.1)= S X=DIV X ^DD(2,.152,1,1,2,9.2) S X=$P(Y(4),Y(5),Y(6),X) S Y=X,X=Y(3),X=X_Y
    2.4)= S DIH=$S($D(^DPT(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.091 D ^DICR:$N(^DD(DIH,DIG,1,0))>
    0
    CREATE VALUE)= REMARKS_"**INELIGIBLE**"
    DELETE VALUE)= $P(REMARKS,"**INELIGIBLE**",1)_$P(REMARKS,"**INELIGIBLE**",2,99)
    FIELD)= REMARKS
  • CROSS-REFERENCE:  2^AENR152^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA,2)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • CROSS-REFERENCE:  2^AXR7^MUMPS
    1)= Q
    2)= S DGXRF=.152 D ^DGDDC Q
.153 MISSING PERSON DATE .15;3 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Enter the date this patient was identified as being a missing person.
  • DESCRIPTION:  
    This field contains the date this patient was initially listed as missing.
  • GROUP:  MPT
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR8^MUMPS
    1)= Q
    2)= S DGXRF=.153 D ^DGDDC Q
.16 MISSING OR INELIGIBLE .16;0 WORD-PROCESSING #2.16

  • DESCRIPTION:  
    This is a word processing field to contain information on the patient's ineligibility or information about this missing patient.
  • GROUP:  MPT
.1651 INELIGIBLE TWX SOURCE INE;1 SET
************************REQUIRED FIELD************************
  • '1' FOR VAMC;
  • '2' FOR REGIONAL OFFICE;
  • '3' FOR RPC;

  • INPUT TRANSFORM:  S DFN=DA D INE^DGLOCK
  • LAST EDITED:  AUG 06, 1986
  • HELP-PROMPT:  The source of the TWX which informed you this patient is ineligible for treatment.
  • DESCRIPTION:  Choose from the available listing the source of the TWX which informed you that this applicant was ineligible for treatment. An ineligible date must be specified in order to enter/edit this field and the user must hold
    the designated security key.  This field may not be deleted as long as an ineligible date is on file.
  • DELETE TEST:  1,0)= S DFN=DA D INED^DGLOCK1 I '$D(X)
  • GROUP:  IPT
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.1653 INELIGIBLE TWX CITY INE;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D INE^DGLOCK
  • LAST EDITED:  AUG 06, 1986
  • HELP-PROMPT:  The city from which the TWX informing you of this patients ineligibility originated [3-30 characters].
  • DESCRIPTION:  Enter the city from which the TWX which informed you this applicant was ineligible for treatment originated [3-30 characters]. An ineligible date must be specified in order to enter/edit this field and the user must hold
    the designated security key.  This field may not be deleted as long as an ineligible date is on file.
  • DELETE TEST:  1,0)= S DFN=DA D INED^DGLOCK1 I '$D(X)
  • GROUP:  IPT
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.1654 INELIGIBLE TWX STATE INE;4 POINTER TO STATE FILE (#5) STATE(#5)

  • INPUT TRANSFORM:  S DFN=DA D INE^DGLOCK
  • LAST EDITED:  AUG 06, 1986
  • HELP-PROMPT:  The state from which the TWX informing you of this patients ineligiblity originated.
  • DESCRIPTION:  Enter the state from which the TWX which informed you this applicant was ineligible for treatment originated. An ineligible date must be specified in order to enter/edit this field and the user must hold the designated
    security key.  This field may not be deleted as long as an ineligible date is on file.
  • DELETE TEST:  1,0)= S DFN=DA D INED^DGLOCK1 I '$D(X)
  • GROUP:  IPT
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.1656 INELIGIBLE VARO DECISION INE;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>75!($L(X)<3) X I $D(X) S DFN=DA D INE^DGLOCK
  • LAST EDITED:  AUG 06, 1986
  • HELP-PROMPT:  The decision made by the VARO concerning this patient's ineligibility [3-75 characters].
  • DESCRIPTION:  Enter the VARO decision concerning this applicant's ineligibility [between 3-75 characters]. An ineligible date must be specified in order to enter/edit this field and the user must hold the designated security key. This
    field may not be deleted as long as an ineligible date is on file.
  • DELETE TEST:  1,0)= S DFN=DA D INED^DGLOCK1 I '$D(X)
  • GROUP:  IPT
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AENR1656^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.1657 MISSING PERSON TWX SOURCE INE;7 SET
  • '1' FOR VAMC;
  • '2' FOR REGIONAL OFFICE;
  • '3' FOR RPC;

  • LAST EDITED:  MAY 27, 1988
  • HELP-PROMPT:  The location from which the TWX originated advising you that this patient was missing.
  • DESCRIPTION:  
    If this patient is missing, enter the source of the TWX that originally listed the patient as missing.
  • GROUP:  MPT
.1658 MISSING PERSON TWX CITY INE;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAY 27, 1988
  • HELP-PROMPT:  ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    If this patient is missing, enter the city where the TWX reporting the patient as missing was originated.
  • GROUP:  MPT
.1659 MISSING PERSON TWX STATE INE;9 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  MAY 27, 1988
  • HELP-PROMPT:  The state from which the TWX informing you this patient was missing originated.
  • DESCRIPTION:  
    If this patient is missing, enter the state where the TWX reporting the patient as missing was originated.
  • GROUP:  MPT
.172 FEE HOSPITAL I.D. .17;2 SET
  • 'I' FOR ISSUED;
  • 'C' FOR CANCELLED;

  • LAST EDITED:  MAR 26, 1993
  • DESCRIPTION:  
    This field is not used by any DHCP packages and has been *'d for deletion with the release of MAS v5.2.  It will be removed in a future release of MAS.
.181 EMERGENCY RESPONSE INDICATOR .18;1 SET
  • 'K' FOR HURRICANE KATRINA;

  • LAST EDITED:  SEP 22, 2005
  • HELP-PROMPT:  Enter the appropriate ER Indicator to identify patients from impacted zip code areas designated by FEMA.
  • DESCRIPTION:  
    Enter the appropriate ER Indicator to identify patients from impacted zip code areas designated by FEMA.
  • CROSS-REFERENCE:  2^AERI
    1)= S ^DPT("AERI",$E(X,1,30),DA)=""
    2)= K ^DPT("AERI",$E(X,1,30),DA)
  • CROSS-REFERENCE:  2^AENR181^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.19 DIVISION COMPUTED

  • MUMPS CODE:  X ^DD(2,.19,9.2) S Y(2,.19,101)=$S($D(^DIC(42,D0,0)):^(0),1:"") S X=$S('$D(^DG(40.8,+$P(Y(2,.19,101),U,11),0)):"",1:$P(^(0),U,1)) S D0=I(0,0)
    9.2 = S I(0,0)=$S($D(D0):D0,1:""),Y(2,.19,1)=$S($D(^DPT(D0,.1)):^(.1),1:"") S X=$E(Y(2,.19,1),1,19) K DIC S DIC="^DIC(42,",DIC(0)="NMF" D ^DIC S D0=+Y
  • ALGORITHM:  WARD LOCATION:WARD LOCATION:DIVISION
  • HELP-PROMPT:  A computed field which determines the current division to which this inpatient is assigned.
  • DESCRIPTION:  
    Division of inpatient location
.21011 K-WORK PHONE NUMBER .21;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  JAN 13, 1992
  • HELP-PROMPT:  Enter the next of kin's work phone number. Answer must be 4-20 characters in length.
  • DESCRIPTION:  
    If the person designated as next of kin for this patient is employed, enter the phone number at which the NOK can be reached while at work.
.21012 PRIMARY NOK CHANGE DATE/TIME .212;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  JUN 16, 2005
  • DESCRIPTION:  
    This field will hold the date and time of the last Primary Next of Kin Update.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AENR21012^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.211 K-NAME OF PRIMARY NOK .21;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X I $D(X) K DG20NAME S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME
  • LAST EDITED:  FEB 05, 2004
  • HELP-PROMPT:  Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length.
  • DESCRIPTION:  Enter the primary next of kin's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All
    other characters and parenthetical text will be removed.
  • TECHNICAL DESCR:  
    IHS/ITSC/LJF 2/5/2004: Changed Input Transform - added K DG20NAME before setting DG20NAME to kill any leftover array items from previous patient.
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR^MUMPS
    1)= Q
    2)= S DGXRF=.211 D ^DGDDC Q
  • CROSS-REFERENCE:  2^AVAFC211^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".211;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".211;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^ADGRU211^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • FIELD INDEX:  ANAM211 (#41) MUMPS IR ACTION
    Short Descr:  This index keeps the NAME COMPONENTS file in synch with field #.211.
    Description:  This cross reference uses Kernel name standardization APIs to keep the NAME COMPONENTS (#20) file record associated with the #.211 field synchronized with the data value stored in that field.
    Set Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^DPTNAME(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.211,.DG20NAME,1.02,+$P($G(^DPT(DA,"NAME")),U,2),"CL35") K DG20NAME Q
    Kill Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.211,1.02) Q
    X(1):  K-NAME OF PRIMARY NOK  (2,.211)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ADTTM3 (#317)
.211011 K2-WORK PHONE NUMBER .211;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  JAN 13, 1992
  • HELP-PROMPT:  Enter the work phone for the secondary next of kin. Answer must be 4-20 characters in length.
  • DESCRIPTION:  
    If the person designated as secondary next of kin for this patient is employed, enter the phone number that individual can be reached at while at work.
.211012 SECONDARY NOK CHANGE DATE/TIME .212;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  MAY 20, 2005
  • DESCRIPTION:  
    This field will hold the date and time of the last Secondary Next of Kin Update.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.212 K-RELATIONSHIP TO PATIENT .21;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D K1^DGLOCK2
  • LAST EDITED:  SEP 20, 1999
  • HELP-PROMPT:  Enter the relationship of the primary NOK to the patient [1-30 characters].
  • DESCRIPTION:  
    If a primary next-of-kin is specified enter the relationship of that person to the applicant [1-30 characters], otherwise nothing may be entered.  This field cannot be deleted as long as a 'next of kin' name is on file.
  • DELETE TEST:  1,0)= S DFN=DA D K1D^DGLOCK2 I '$D(X)
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the NOK RELATIONSHIP field of the PATIENT File
  • CROSS-REFERENCE:  2^ADGRU212^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • RECORD INDEXES:  ADTTM3 (#317)
.2125 K-ADDRESS SAME AS PATIENT'S? .21;10 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • INPUT TRANSFORM:  I $D(X),X="Y" S DFN=DA D K1^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter 'Y' if primary NOK address/phone number same as patients otherwise enter 'N'.
  • DESCRIPTION:  
    Enter 'Y' if the next-of-kin should be contacted at the same address and phone number as the applicant, otherwise enter 'N'.
  • DELETE TEST:  1,0)= S DFN=DA D K1D^DGLOCK2 I '$D(X)
  • GROUP:  NK1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM3 (#317)
.213 K-STREET ADDRESS [LINE 1] .21;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K1^DGLOCK2
  • LAST EDITED:  SEP 20, 1999
  • HELP-PROMPT:  Enter the first line of the primary NOK's address [3-30 characters].
  • DESCRIPTION:  
    If a primary next-of-kin is specified enter the first line of that person's street address [3-30 characters], otherwise nothing may be entered.  This field cannot be deleted as long as a 'next of kin' name is on file.
  • DELETE TEST:  1,0)= S DFN=DA D K1D^DGLOCK2 I '$D(X)
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR14^MUMPS
    1)= Q
    2)= S DGXRF=.213 D ^DGDDC Q
  • CROSS-REFERENCE:  2^ADGRU213^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • RECORD INDEXES:  ADTTM3 (#317)
.214 K-STREET ADDRESS [LINE 2] .21;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K1^DGLOCK2
  • LAST EDITED:  SEP 21, 1999
  • HELP-PROMPT:  If necessary, enter the second line of the primary NOK's address [3-30 characters].
  • DESCRIPTION:  If a primary next-of-kin is specified enter the second line of that person's street address [3-30 characters], if necessary, otherwise nothing may be entered. This field cannot be deleted as long as a 'next of kin' name
    is on file.
  • GROUP:  NK1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR15^MUMPS
    1)= Q
    2)= S DGXRF=.214 D ^DGDDC Q
  • CROSS-REFERENCE:  2^ADGRU214^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • RECORD INDEXES:  ADTTM3 (#317)
.215 K-STREET ADDRESS [LINE 3] .21;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K1^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  If necessary, enter the third line of the primary NOK's address [3-30 characters].
  • DESCRIPTION:  If a primary next-of-kin is specified enter the third line of that person's street address [3-30 characters], if necessary, otherwise nothing may be entered. This field cannot be deleted as long as a 'next of kin' name is
    on file.
  • GROUP:  NK1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM3 (#317)
.216 K-CITY .21;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K1^DGLOCK2
  • LAST EDITED:  SEP 21, 1999
  • HELP-PROMPT:  Enter the city in which the primary NOK resides [3-30 characters].
  • DESCRIPTION:  
    If a primary next-of-kin is specified enter the city in which that person resides [3-30 characters], otherwise nothing may be entered.  This field cannot be deleted as long as a 'next of kin' name is on file.
  • DELETE TEST:  1,0)= S DFN=DA D K1D^DGLOCK2 I '$D(X)
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^ADGRU216^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • RECORD INDEXES:  ADTTM3 (#317)
.217 K-STATE .21;7 POINTER TO STATE FILE (#5) STATE(#5)

  • INPUT TRANSFORM:  I $D(X) S DFN=DA D K1^DGLOCK2
  • LAST EDITED:  SEP 21, 1999
  • HELP-PROMPT:  Enter the state in which the primary NOK resides.
  • DESCRIPTION:  
    If a primary next-of-kin is specified select from the available listing the state in which that person resides, otherwise nothing may be entered.  This field cannot be deleted as long as a 'next of kin' name is on file.
  • DELETE TEST:  1,0)= S DFN=DA D K1D^DGLOCK2 I '$D(X)
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^ADGRU217^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • RECORD INDEXES:  ADTTM3 (#317)
.218 K-ZIP CODE .21;8 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X I $D(X) S DFN=DA D K1^DGLOCK2
  • LAST EDITED:  JUN 03, 1993
  • HELP-PROMPT:  Enter the 5-digit zip code where the primary NOK resides.
  • DESCRIPTION:  
    If a primary next-of-kin is specified enter the zip code [5 numerics] in which his/her city lies, otherwise nothing may be entered.  This field cannot be deleted as long as a 'next of kin' name is on file.
  • DELETE TEST:  1,0)= S DFN=DA D K1D^DGLOCK2 I '$D(X)
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^ANK1ZIP^MUMPS
    1)= D SET^DGREGDD1(DA,.2207,.22,7,X)
    2)= D KILL^DGREGDD1(DA,.2207,.22,7,X)
    This sets the corresponding zip+4 field to be equal to this field's value.
  • RECORD INDEXES:  ADTTM3 (#317)
.219 K-PHONE NUMBER .21;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X I $D(X) S DFN=DA D K1^DGLOCK2
  • LAST EDITED:  AUG 25, 2000
  • HELP-PROMPT:  Enter the phone number of the primary NOK [4-20 characters].
  • DESCRIPTION:  
    If a primary next-of-kin is specified enter that person's telephone number [4-20 characters], otherwise nothing may be entered.  This field cannot be deleted as long as a 'next of kin' name is on file.
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AVAFC219^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".219;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".219;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^ADGRU219^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
.2191 K2-NAME OF SECONDARY NOK .211;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X I $D(X) K DG20NAME S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME I $D(X) D K1^DGLOCK2
  • LAST EDITED:  FEB 05, 2004
  • HELP-PROMPT:  Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length.
  • DESCRIPTION:  Enter the secondary next of kin's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All
    other characters and parenthetical text will be removed.
  • TECHNICAL DESCR:  
    IHS/ITSC/LJF 2/5/2004: Changed Input Transform - added K DG20NAME before setting DG20NAME to kill any leftover array items from previous patient.
  • GROUP:  NK2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR1^MUMPS
    1)= Q
    2)= S DGXRF=.2191 D ^DGDDC Q
  • FIELD INDEX:  ANAM2191 (#42) MUMPS IR ACTION
    Short Descr:  This index keeps the NAME COMPONENTS file in synch with field #.2191.
    Description:  This cross reference uses Kernel name standardization APIs to keep the NAME COMPONENTS (#20) file record associated with the #.2191 field synchronized with the data value stored in that field.
    Set Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^DPTNAME(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.2191,.DG20NAME,1.03,+$P($G(^DPT(DA,"NAME")),U,3),"CL35") K DG20NAME Q
    Kill Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2191,1.03) Q
    X(1):  K2-NAME OF SECONDARY NOK  (2,.2191)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ADTTM4 (#318)
.2192 K2-RELATIONSHIP TO PATIENT .211;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D K2^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter the relationship of the secondary NOK to the patient [1-30 characters].
  • DESCRIPTION:  
    If a secondary next-of-kin is specified enter the relationship of that person to the applicant [1-30 characters].  This field cannot be deleted as long as a secondary NOK is on file.
  • DELETE TEST:  1,0)= S DFN=DA D K2D^DGLOCK2 I '$D(X)
  • GROUP:  NK2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM4 (#318)
.21925 K2-ADDRESS SAME AS PATIENT'S? .211;10 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • INPUT TRANSFORM:  I $D(X),X="Y" D K2^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter 'Y' if the secondary NOK address/phone number is the same as the patients otherwise enter 'N'.
  • DESCRIPTION:  
    Enter 'Y' if the secondary NOK should be contacted at the same address and phone number as the applicant, otherwise enter 'N'.
  • GROUP:  NK2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM4 (#318)
.2193 K2-STREET ADDRESS [LINE 1] .211;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K2^DGLOCK2
  • LAST EDITED:  JAN 15, 1989
  • HELP-PROMPT:  Enter the first line of the secondary NOK's address [3-30 characters].
  • DESCRIPTION:  
    If a secondary NOK is specified enter the first line of that person's street address [3-30 characters], otherwise nothing may be entered.  This field cannot be deleted as long as a secondary NOK is on file.
  • DELETE TEST:  1,0)= S DFN=DA D K2D^DGLOCK2 I '$D(X)
  • GROUP:  NK2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR16^MUMPS
    1)= Q
    2)= S DGXRF=.2193 D ^DGDDC Q
  • RECORD INDEXES:  ADTTM4 (#318)
.2194 K2-STREET ADDRESS [LINE 2] .211;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K2^DGLOCK2
  • LAST EDITED:  JAN 15, 1989
  • HELP-PROMPT:  If necessary, enter the second line of the secondary NOK's address [3-30 characters].
  • DESCRIPTION:  
    If a secondary NOK is specified enter the second line of that person's street address [3-30 characters], if necessary, otherwise nothing may be entered.  This field cannot be deleted as long as a secondary NOK is on file.
  • GROUP:  NK2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR17^MUMPS
    1)= Q
    2)= S DGXRF=.2194 D ^DGDDC Q
  • RECORD INDEXES:  ADTTM4 (#318)
.2195 K2-STREET ADDRESS [LINE 3] .211;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K2^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  If necessary, enter the third line of the secondary NOK's address [3-30 characters].
  • DESCRIPTION:  
    If a secondary NOK is specified enter the third line of that person's street address [3-30 characters], if necessary, otherwise nothing may be entered.  This field cannot be deleted as long as a secondary NOK is on file.
  • GROUP:  NK2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM4 (#318)
.2196 K2-CITY .211;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K2^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter the city in which the secondary NOK resides [3-30 characters].
  • DESCRIPTION:  
    If a secondary NOK is specified enter the city in which that person resides [3-30 characters], otherwise nothing may be entered.  This field cannot be deleted as long as a secondary NOK is on file.
  • DELETE TEST:  1,0)= S DFN=DA D K2D^DGLOCK2 I '$D(X)
  • GROUP:  NK2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM4 (#318)
.2197 K2-STATE .211;7 POINTER TO STATE FILE (#5) STATE(#5)

  • INPUT TRANSFORM:  I $D(X) S DFN=DA D K2^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter the state in which the secondary NOK resides.
  • DESCRIPTION:  
    If a secondary NOK is specified select from the available listing the state in which that person resides, otherwise nothing may be entered.  This field cannot be deleted as long as a secondary NOK is on file.
  • DELETE TEST:  1,0)= S DFN=DA D K2D^DGLOCK2 I '$D(X)
  • GROUP:  NK2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM4 (#318)
.2198 K2-ZIP CODE .211;8 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X I $D(X) S DFN=DA D K2^DGLOCK2
  • LAST EDITED:  JUN 03, 1993
  • HELP-PROMPT:  Enter the 5-digit zip code of the residence of the secondary NOK.
  • DESCRIPTION:  
    If a secondary NOK is specified enter the zip code for the city in which that person resides [5 numerics], otherwise nothing may be entered.  This field cannot be deleted as long as a secondary NOK is on file.
  • DELETE TEST:  1,0)= S DFN=DA D K2D^DGLOCK2 I '$D(X)
  • GROUP:  NK2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^ANK2ZIP^MUMPS
    1)= D SET^DGREGDD1(DA,.2203,.22,3,X)
    2)= D KILL^DGREGDD1(DA,.2203,.22,3,X)
    This sets the corresponding zip+4 field to be equal to this field's value.
  • RECORD INDEXES:  ADTTM4 (#318)
.2199 K2-PHONE NUMBER .211;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X I $D(X) S DFN=DA D K2^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter the phone number of the secondary NOK [3-20 characters].
  • DESCRIPTION:  
    If a secondary NOK is specified enter the telephone number at which that person may be reached [3-20 characters], otherwise nothing may be entered.  This field cannot be deleted as long as a secondary NOK is on file.
  • GROUP:  NK2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.2201 E-ZIP+4 .22;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) S DFN=DA D E1^DGLOCK2 I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
  • OUTPUT TRANSFORM:  D ZIPOUT^VAFADDR
  • LAST EDITED:  JUN 03, 1993
  • HELP-PROMPT:  Answer with either 5 digit or 9 digit zip code.
  • DESCRIPTION:  
    Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789).  This is related to the Emergency Contact Address.
  • TECHNICAL DESCR:  
    Related to other Emergency Contact address fields.  This field 'triggers' the E-ZIP CODE (#.338) field, using the first 5 digits of this field.
  • DELETE TEST:  1,0)= S DFN=DA D E1D^DGLOCK2 I '$D(X)
  • GROUP:  EC1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AEC1ZIP4^MUMPS
    1)= D SET^DGREGDD1(DA,.338,.33,8,$E(X,1,5))
    2)= D KILL^DGREGDD1(DA,.338,.33,8,$E(X,1,5))
    This sets the corresponding zip code field to the first 5 digits of this field.
  • RECORD INDEXES:  ADTTM5 (#319)
.2202 D-ZIP+4 .22;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) S DFN=DA D D^DGLOCK2 I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
  • OUTPUT TRANSFORM:  D ZIPOUT^VAFADDR
  • LAST EDITED:  JUN 03, 1993
  • HELP-PROMPT:  Answer with either 5 digit or 9 digit zip code.
  • DESCRIPTION:  
    Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789).  This is related to the designee for personal effects' address.
  • TECHNICAL DESCR:  
    Related to other Designee address fields.  This field 'triggers' the D- ZIP CODE (#.348) field, using the first 5 digits of this field.
  • DELETE TEST:  1,0)= S DFN=DA D DD^DGLOCK2 I '$D(X)
  • GROUP:  D1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AD1ZIP4^MUMPS
    1)= D SET^DGREGDD1(DA,.348,.34,8,$E(X,1,5))
    2)= D KILL^DGREGDD1(DA,.348,.34,8,$E(X,1,5))
    This sets the corresponding zip code field to the first 5 digits of this field.
  • RECORD INDEXES:  ADTTM7 (#321)
.2203 K2-ZIP+4 .22;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) S DFN=DA D K2^DGLOCK2 I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
  • OUTPUT TRANSFORM:  D ZIPOUT^VAFADDR
  • LAST EDITED:  JUN 03, 1993
  • HELP-PROMPT:  Answer with either 5 digit or 9 digit zip code.
  • DESCRIPTION:  
    Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789).  This is related to the secondary next-of-kin's address.
  • TECHNICAL DESCR:  
    Related to other secondary next-of-kin address fields.  This field 'triggers' the K2-ZIP CODE (#.2198) field, using the first 5 digits of this field.
  • DELETE TEST:  1,0)= S DFN=DA D K2D^DGLOCK2 I '$D(X)
  • GROUP:  NK2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^ANK2ZIP4^MUMPS
    1)= D SET^DGREGDD1(DA,.2198,.211,8,$E(X,1,5))
    2)= D KILL^DGREGDD1(DA,.2198,.211,8,$E(X,1,5))
    This sets the corresponding zip code field to the first 5 digits of this field.
  • RECORD INDEXES:  ADTTM4 (#318)
.2204 E2-ZIP+4 .22;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) S DFN=DA D E2^DGLOCK2 I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
  • OUTPUT TRANSFORM:  D ZIPOUT^VAFADDR
  • LAST EDITED:  JUN 03, 1993
  • HELP-PROMPT:  Answer with either 5 digit or 9 digit zip code.
  • DESCRIPTION:  
    Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789).  This is related to the secondary emergency contact's address.
  • TECHNICAL DESCR:  
    Related to other secondary emergency address fields.  This field 'triggers' the E2-ZIP CODE (#.3318) field, using the first 5 digits of this field.
  • DELETE TEST:  1,0)= S DFN=DA D E2D^DGLOCK2 I '$D(X)
  • GROUP:  EC2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AEC2ZIP4^MUMPS
    1)= D SET^DGREGDD1(DA,.3318,.331,8,$E(X,1,5))
    2)= D KILL^DGREGDD1(DA,.3318,.331,8,$E(X,1,5))
    This sets the corresponding zip code field to the first 5 digits of this field.
  • RECORD INDEXES:  ADTTM6 (#320)
.2205 EMPLOYER ZIP+4 .22;5 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) S DFN=DA D EM1^DGLOCK2 I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
  • OUTPUT TRANSFORM:  D ZIPOUT^VAFADDR
  • LAST EDITED:  JUN 03, 1993
  • HELP-PROMPT:  Answer with either 5 digit or 9 digit zip code.
  • DESCRIPTION:  
    Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789).  This is related to the patient employer's address.
  • TECHNICAL DESCR:  
    Related to other patient employer address fields.  This field 'triggers' the EMPLOYER ZIP CODE (#.3118) field, using the first 5 digits of this field.
  • DELETE TEST:  1,0)= S DFN=DA D EMD^DGLOCK2 I '$D(X)
  • GROUP:  EM1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AEM1ZIP4^MUMPS
    1)= D SET^DGREGDD1(DA,.3118,.311,8,$E(X,1,5))
    2)= D KILL^DGREGDD1(DA,.3118,.311,8,$E(X,1,5))
    This sets the corresponding zip code field to the first 5 digits of this field.
.2206 SPOUSE'S EMP ZIP+4 .22;6 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) S DFN=DA D SE^DGLOCK2 I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
  • OUTPUT TRANSFORM:  D ZIPOUT^VAFADDR
  • LAST EDITED:  JUN 03, 1993
  • HELP-PROMPT:  Answer with either 5 digit or 9 digit zip code.
  • DESCRIPTION:  
    Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789).  This is related to the spouse's employer's address.
  • TECHNICAL DESCR:  
    Related to other spouse's employer address fields.  This field 'triggers' the SPOUSE'S EMP ZIP CODE (#.257) field, using the first 5 digits of this field.
  • DELETE TEST:  1,0)= S DFN=DA D SED^DGLOCK2 I '$D(X)
  • GROUP:  SP1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^ASP1ZIP4^MUMPS
    1)= D SET^DGREGDD1(DA,.257,.25,7,$E(X,1,5))
    2)= D KILL^DGREGDD1(DA,.257,.25,7,$E(X,1,5))
    This sets the corresponding zip code field to the first 5 digits of this field.
.2207 K-ZIP+4 .22;7 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) S DFN=DA D K1^DGLOCK2 I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
  • OUTPUT TRANSFORM:  D ZIPOUT^VAFADDR
  • LAST EDITED:  SEP 22, 1995
  • HELP-PROMPT:  Answer with either 5 digit or 9 digit zip code.
  • DESCRIPTION:  
    Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789).  This is related to the primary emergency contact's address.
  • TECHNICAL DESCR:  
    Related to other primary emergency contact address fields.  This field 'triggers' the K-ZIP CODE (#.218) field, using the first 5 digits of this field.
  • DELETE TEST:  1,0)= S DFN=DA D K1D^DGLOCK2 I '$D(X)
  • GROUP:  NK1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^ANK1ZIP4^MUMPS
    1)= D SET^DGREGDD1(DA,.218,.21,8,$E(X,1,5))
    2)= D KILL^DGREGDD1(DA,.218,.21,8,$E(X,1,5))
    This sets the corresponding zip code field to the first 5 digits of this field.
  • RECORD INDEXES:  ADTTM3 (#317)
.2401 FATHER'S NAME .24;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X I $D(X) K DG20NAME S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME
  • LAST EDITED:  MAY 27, 2004
  • HELP-PROMPT:  Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length.
  • DESCRIPTION:  Enter the father's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters
    and parenthetical text will be removed.
  • TECHNICAL DESCR:  
    IHS/ITSC/LJF 2/5/2004: Changed Input Transform - added K DG20NAME before setting DG20NAME to kill any leftover array items from previous patient.
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AAVABDW11^MUMPS
    1)= D SET^AUPNDWXR(DA,"BASE")
    2)= D KILL^AUPNDWXR(DA,"BASE")
    Populates AUPNDWAF for the Data Warehouse export.  See routine AUPNDWXR for documentation.
  • FIELD INDEX:  ANAM2401 (#43) MUMPS IR ACTION
    Short Descr:  This index keeps the NAME COMPONENTS file in synch with field #.2401.
    Description:  This cross reference uses Kernel name standardization APIs to keep the NAME COMPONENTS (#20) file record associated with the #.2401 field synchronized with the data value stored in that field.
    Set Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^DPTNAME(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.2401,.DG20NAME,1.04,+$P($G(^DPT(DA,"NAME")),U,4),"CL35") K DG20NAME Q
    Kill Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2401,1.04) Q
    X(1):  FATHER'S NAME  (2,.2401)  (Subscr 1)  (forwards)
.2402 MOTHER'S NAME .24;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X I $D(X) K DG20NAME S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME
  • LAST EDITED:  FEB 05, 2004
  • HELP-PROMPT:  Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length.
  • DESCRIPTION:  Enter the mother's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters
    and parenthetical text will be removed.
  • TECHNICAL DESCR:  
    IHS/ITSC/LJF 2/5/2004: Changed Input Transform - added K DG20NAME before setting DG20NAME to kill any leftover array items from previous patient.
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  ANAM2402 (#44) MUMPS IR ACTION
    Short Descr:  This index keeps the NAME COMPONENTS file in synch with field #.2402.
    Description:  This cross reference uses Kernel name standardization APIs to keep the NAME COMPONENTS (#20) file record associated with the #.2402 field synchronized with the data value stored in that field.
    Set Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^DPTNAME(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.2402,.DG20NAME,1.05,+$P($G(^DPT(DA,"NAME")),U,5),"CL35") K DG20NAME Q
    Kill Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2402,1.05) Q
    X(1):  MOTHER'S NAME  (2,.2402)  (Subscr 1)  (forwards)
.2403 MOTHER'S MAIDEN NAME .24;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<2) X I $D(X) K DG20NAME S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35,,2,,1) K:'$L(X) X,DG20NAME
  • LAST EDITED:  MAY 27, 2004
  • HELP-PROMPT:  Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length.
  • DESCRIPTION:  Enter the mother's maiden name in 'LAST,FIRST MIDDLE SUFFIX' format. Entry of the LAST name only is permitted and the comma may be omitted. If the response contains no comma, one will be appended to the value. Including
    the comma, the value must be at least 3 characters in length.
  • TECHNICAL DESCR:  
    IHS/ITSC/LJF 2/5/2004: Changed Input Transform - added K DG20NAME before setting DG20NAME to kill any leftover array items from previous patient.
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AVAFC2403^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".2403;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".2403;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  ^^TRIGGER^2^.083
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X=DIV S X=1 S DIH=$G(^DPT(DIV(0),0)),DIV=X S $P(^(0),U,20)=DIV,DIH=2,DIG=.083 D ^DICR
    2)= Q
    3)= USED BY IHS FOR PATIENT MERGE UTILITY
    CREATE VALUE)= S X=1
    DELETE VALUE)= NO EFFECT
    FIELD)= #.083
    IHS/ANMC/LJF 8/31/2000 added trigger because MOTHER'S MADIEN NAME in one of the items checked in the IHS Patient Merge Utility.
  • CROSS-REFERENCE:  2^AAVABDW12^MUMPS
    1)= D SET^AUPNDWXR(DA,"BASE")
    2)= D KILL^AUPNDWXR(DA,"BASE")
    Populates AUPNDWAF for Data Warehouse export. See routine AUPNDWXR for documentation.
  • FIELD INDEX:  ANAM2403 (#45) MUMPS IR ACTION
    Short Descr:  This index keeps the NAME COMPONENTS file in synch with field #.2403.
    Description:  This cross reference uses Kernel name standardization APIs to keep the NAME COMPONENTS (#20) file record associated with the #.2403 field synchronized with the data value stored in that field.
    Set Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^DPTNAME(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.2403,.DG20NAME,1.06,+$P($G(^DPT(DA,"NAME")),U,6),"CL35") K DG20NAME Q
    Kill Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2403,1.06) Q
    X(1):  MOTHER'S MAIDEN NAME  (2,.2403)  (Subscr 1)  (forwards)
.251 SPOUSE'S EMPLOYER NAME .25;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3) X I $D(X) S DFN=DA D MAR^DGLOCK2
  • LAST EDITED:  JUL 25, 1988
  • HELP-PROMPT:  Enter the name of this spouse's employer [3-20 characters].
  • DESCRIPTION:  
    For this married applicant (marital status must be married) enter the name of his/her spouse's employer [3-20 characters].
  • GROUP:  SP1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SPOUSE'S EMPLOYMENT STATUS field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AXR2^MUMPS
    1)= Q
    2)= S DGXRF=.251 D ^DGDDC Q
.2514 SPOUSE'S OCCUPATION .25;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JAN 10, 1992
  • HELP-PROMPT:  Enter the spouse's current occupation. Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    If this patient's spouse is currently employed, enter the spouse's occupation here.  Otherwise, leave this field blank.
.2515 SPOUSE'S EMPLOYMENT STATUS .25;15 SET
************************REQUIRED FIELD************************
  • '1' FOR EMPLOYED FULL TIME;
  • '2' FOR EMPLOYED PART TIME;
  • '3' FOR NOT EMPLOYED;
  • '4' FOR SELF EMPLYED;
  • '5' FOR RETIRED;
  • '6' FOR ACTIVE MILITARY DUTY;
  • '9' FOR UNKNOWN;

  • LAST EDITED:  MAR 24, 1992
  • HELP-PROMPT:  Enter the current employment status for this patient's spouse.
  • DESCRIPTION:  
    Choose from the available list the choice that most correctly indicates the current employment status for this patient's spouse.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.251
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I "^3^9^"[("^"_$P(^DPT(DA,.25),"^",15)_"^") I X S X=DIV S Y(1)=$S($D(^DPT(D0,.25)):^(.25),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.2515,1,1,1.4)
    1.4)= S DIH=$S($D(^DPT(DIV(0),.25)):^(.25),1:""),DIV=X S $P(^(.25),U,1)=DIV,DIH=2,DIG=.251 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I "^3^9^"[("^"_$P(^DPT(DA,.25),"^",15)_"^") I X S X=DIV S Y(1)=$S($D(^DPT(D0,.25)):^(.25),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.2515,1,1,2.4)
    2.4)= S DIH=$S($D(^DPT(DIV(0),.25)):^(.25),1:""),DIV=X S $P(^(.25),U,1)=DIV,DIH=2,DIG=.251 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= I "^3^9^"[("^"_$P(^DPT(DA,.25),"^",15)_"^")
    CREATE VALUE)= @
    DELETE CONDITION)= I "^3^9^"[("^"_$P(^DPT(DA,.25),"^",15)_"^")
    DELETE VALUE)= @
    FIELD)= SPOUSE'S EMPLOYER NAME
  • CROSS-REFERENCE:  ^^TRIGGER^2^.2516
    1)= X ^DD(2,.2515,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.25)):^(.25),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.25)),DIV=X S $P(^(.25),U,16)=DIV,DIH=2,DIG=.2516 D ^DICR
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.2515,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))'="RETIRED"
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.25)):^(.25),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.25)),DIV=X S $P(^(.25),U,16)=DIV,DIH=2,DIG=.2516 D ^DICR
    CREATE CONDITION)= SPOUSE'S EMPLOYMENT STATUS'="RETIRED"
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= SPOUSE'S RETIREMENT DATE
.2516 SPOUSE'S RETIREMENT DATE .25;16 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X K:Y>DT X K:(+$P(^DPT(DA,0),"^",3)>Y) X K:(+$P($G(^DPT(DA,.25)),"^",15)'=5) X
  • LAST EDITED:  MAY 26, 2005
  • HELP-PROMPT:  For this veteran applicant's spouse, enter the date s/he retired from her/his place of employment. A date may only be entered if the spouse is RETIRED.
  • DESCRIPTION:  
    For this veteran applicant's spouse, enter the date s/he retired from her/his place of employment.
  • TECHNICAL DESCR:  The Input Transform prevents entry of a Spouse Date of Retirement earlier than the Veteran s Date of Birth or later than the current date (i.e.: future retirement dates and retirement dates prior to Veteran's birthdate are
    not be permitted).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SPOUSE'S EMPLOYMENT STATUS field of the VA PATIENT File
.252 SPOUSE'S EMP STREET [LINE 1] .25;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3) X I $D(X) S DFN=DA D SE^DGLOCK2
  • LAST EDITED:  JAN 15, 1989
  • HELP-PROMPT:  Enter the first line of the spouse's employers address [3-35 characters].
  • DESCRIPTION:  If applicant is married and a spouse's employer name has been entered enter the first line of the spouse's employer's street address [3-35 characters, otherwise nothing may be entered. This field may not be deleted as
    long as a spouse's employer's name is on file.
  • DELETE TEST:  1,0)= S DFN=DA D SED^DGLOCK2 I '$D(X)
  • GROUP:  SP1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR18^MUMPS
    1)= Q
    2)= S DGXRF=.252 D ^DGDDC Q
.253 SPOUSE'S EMP STREET [LINE 2] .25;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3) X I $D(X) S DFN=DA D SE^DGLOCK2
  • LAST EDITED:  JAN 15, 1989
  • HELP-PROMPT:  If necessary, enter the second line of the spouse's employers address [3-35 characters].
  • DESCRIPTION:  If applicant is married and a spouse's employer name has been entered enter the second line of the spouse's employer's street address [3-35 characters, if necessary, otherwise nothing may be entered. This field may not be
    deleted as long as a spouse's employer's name is on file.
  • GROUP:  SP1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR19^MUMPS
    1)= Q
    2)= S DGXRF=.253 D ^DGDDC Q
.254 SPOUSE'S EMP STREET [LINE 3] .25;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X I $D(X) S DFN=DA D SE^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  If necessary, enter the third line of the spouse's employers address [3-35 characters].
  • DESCRIPTION:  If applicant is married and a spouse's employer name has been entered enter the third line of the spouse's employer's street address [3-35 characters, if necessary, otherwise nothing may be entered. This field may not be
    deleted as long as a spouse's employer's name is on file.
  • GROUP:  SP1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.255 SPOUSE'S EMPLOYER'S CITY .25;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<2) X I $D(X) S DFN=DA D SE^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter the city in which the spouse is employed [2-20 characters].
  • DESCRIPTION:  If applicant is married and a spouse's employer name has been entered enter the spouse's employer city [2-20 characters], otherwise nothing may be entered. This field may not be deleted as long as a spouse's employer's
    name is on file.
  • DELETE TEST:  1,0)= S DFN=DA D SED^DGLOCK2 I '$D(X)
  • GROUP:  SP1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.256 SPOUSE'S EMPLOYER'S STATE .25;6 POINTER TO STATE FILE (#5) STATE(#5)

  • INPUT TRANSFORM:  S DFN=DA D SE^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter the state in which the spouse is employed.
  • DESCRIPTION:  
    If applicant is married and a spouse's employer name has been entered select from the available listing the spouse's employer's state.  This field may not be deleted as long as a spouse's employer's name is on file.
  • DELETE TEST:  1,0)= S DFN=DA D SED^DGLOCK2 I '$D(X)
  • GROUP:  SP1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.257 SPOUSE'S EMP ZIP CODE .25;7 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X I $D(X) S DFN=DA D SE^DGLOCK2
  • LAST EDITED:  JUN 03, 1993
  • HELP-PROMPT:  Enter the 5-digit zip code of the spouse's place of employment.
  • DESCRIPTION:  If applicant is married and spouse's employer name has been entered enter the spouse's employer zip code [5 numerics], otherwise nothing may be entered. This field may not be deleted as long as a spouse's employer's name
    is on file.
  • DELETE TEST:  1,0)= S DFN=DA D SED^DGLOCK2 I '$D(X)
  • GROUP:  SP1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^ASP1ZIP^MUMPS
    1)= D SET^DGREGDD1(DA,.2206,.22,6,X)
    2)= D KILL^DGREGDD1(DA,.2206,.22,6,X)
    This sets the corresponding zip+4 field to be equal to this field's value.
.258 SPOUSE'S EMP PHONE NUMBER .25;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X I $D(X) S DFN=DA D SE^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter the spouse's employment telephone number [4-20 characters].
  • DESCRIPTION:  If applicant is married and spouse's employer name has been entered enter the spouse's employer telephone number [4-20 characters], otherwise nothing may be entered. This field may not be deleted as long as a spouse's
    employer's name is on file.
  • GROUP:  SP1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.290012 ZIP+4 (CIVIL) .291;12 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
  • OUTPUT TRANSFORM:  D ZIPOUT^VAFADDR
  • LAST EDITED:  SEP 13, 1993
  • HELP-PROMPT:  Answer with either 5 digit or 9 digit zip code.
  • DESCRIPTION:  
    Enter the zip code of the address where the person responsible for handling this patient's funds resides.  Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789).
  • TECHNICAL DESCR:  
    Related to other address fields for the person responsible for handling this patient's funds.  This field 'triggers' the ZIP (CIVIL) (#.2928) field, using the first 5 digits of this field.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^ACIVZIP4^MUMPS
    1)= D SET^DGREGDD1(DA,.2928,.291,10,$E(X,1,5))
    2)= D KILL^DGREGDD1(DA,.2928,.291,10,$E(X,1,5))
    This sets the corresponding zip code field to the first 5 digits of this field.
.29013 ZIP+4 (VA) .29;13 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
  • OUTPUT TRANSFORM:  D ZIPOUT^VAFADDR
  • LAST EDITED:  SEP 13, 1993
  • HELP-PROMPT:  Answer with either 5 digit or 9 digit zip code.
  • DESCRIPTION:  If this patient has a VA guardian responsible for handling the patient's funds, enter the guardian's zip code here. Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or
    123456789).
  • TECHNICAL DESCR:  
    Related to other address fields for the VA guardian.  This field 'triggers' the ZIP (VA) (#.2918) field, using the first 5 digits of this field.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AVAZIP4^MUMPS
    1)= D SET^DGREGDD1(DA,.2918,.29,10,$E(X,1,5))
    2)= D KILL^DGREGDD1(DA,.2918,.29,10,$E(X,1,5))
    This sets the corresponding zip code field to the first 5 digits of this field.
.291 DATE RULED INCOMPETENT (VA) .29;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    Enter the date this patient was ruled to be incompetant to handle his VA funds.
.2911 INSTITUTION (VA) .29;3 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  SEP 14, 1984
  • DESCRIPTION:  
    Enter the VA facility or institution responsible for this patient's VA funds.
.2912 GUARDIAN (VA) .29;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  SEP 14, 1984
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Enter the name of the VA representative responsible for this patient's funds.
.2913 RELATIONSHIP (VA) .29;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Enter the relationship to the patient of the VA representative responsible for handling this patient's funds.
.2914 STREET ADDRESS 1 (VA) .29;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Enter the first line of the street address of the VA representative responsible for handling this patient's funds.
.2915 STREET ADDRESS 2 (VA) .29;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Enter the second line of the street address of the VA representative responsible for handling this patient's funds.
.2916 CITY (VA) .29;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Enter the city in which the person reponsible for handling this patient's funds resides.
.2917 STATE (VA) .29;9 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  SEP 14, 1984
  • DESCRIPTION:  
    Enter the state in which the person responsible for handling this patient's funds resides.
.2918 ZIP (VA) .29;10 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X
  • LAST EDITED:  JUN 03, 1993
  • HELP-PROMPT:  ANSWER MUST BE 5 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    If this patient has a VA guardian responsible for handling the patient's funds, enter the guardian's zip code here.
  • CROSS-REFERENCE:  2^AVAZIP^MUMPS
    1)= D SET^DGREGDD1(DA,.29013,.29,13,X)
    2)= D KILL^DGREGDD1(DA,.29013,.29,13,X)
    This sets the corresponding zip+4 field to be equal to this field's value.
.2919 PHONE (VA) .29;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  SEP 14, 1984
  • HELP-PROMPT:  ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    If this patient has a VA guardian responsible for handling the patient's funds, enter the guardian's phone number here.
.292 DATE RULED INCOMPETENT (CIVIL) .29;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    If this patient was ruled incompetant to handle his funds, enter the date he was ruled incompetant.
.2921 INSTITUTION (CIVIL) .291;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    If this patient has been ruled incompetant to handle his financial matters, enter the instituition reponsible for handling the funds on the patient's behalf.
.2922 GUARDIAN (CIVIL) .291;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    If this patient has been ruled incompetant to handle his financial matters, enter the name of the individual responsible for handling the funds on the patient's behalf.
.2923 RELATIONSHIP (CIVIL) .291;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    If this patient has been ruled incompetant to handle his financial funds, and someone else is responsible for handling the funds, enter the relationship of that person to the patient.
.2924 STREET ADDRESS 1 (CIVIL) .291;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Enter the first line of the street address of the person responsible for handling this patient's funds.
.2925 STREET ADDRESS 2 (CIVIL) .291;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Enter the second line of the street address of the person responsible for handling this patient's funds.
.2926 CITY (CIVIL) .291;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Enter the city in which the person responsible for this patient's funds resides.
.2927 STATE (CIVIL) .291;9 POINTER TO STATE FILE (#5) STATE(#5)

  • DESCRIPTION:  
    Enter the state in which the person responsible for handling this patient's funds resides.
.2928 ZIP (CIVIL) .291;10 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X
  • LAST EDITED:  JUN 03, 1993
  • HELP-PROMPT:  ANSWER MUST BE 5 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Enter the zip code of the address where the person responsible for handling this patient's funds resides.
  • CROSS-REFERENCE:  2^ACIVZIP^MUMPS
    1)= D SET^DGREGDD1(DA,.290012,.291,12,X)
    2)= D KILL^DGREGDD1(DA,.290012,.291,12,X)
    This sets the corresponding zip+4 field to be equal to this field's value.
.2929 PHONE (CIVIL) .291;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • HELP-PROMPT:  ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    If this patient has been ruled incompetant to handle his money and another person has been assigned to handle the patient's financial matters, enter that person's phone number here.
.293 RATED INCOMPETENT? .29;12 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 05, 1989
  • HELP-PROMPT:  Used by A.M.I.E, may differ from the Date ruled incompetent
  • DESCRIPTION:  This field was originated for the use of AMIE (Automated Medical Information Exchange). One will receive from DVB the information on whether the patient was rated incompetent by the VA. This may differ from the date rated
    incompetent field in the patient file.
  • CROSS-REFERENCE:  2^AENR293^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.301 SERVICE CONNECTED? .3;1 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • INPUT TRANSFORM:  S DFN=DA D EV^DGLOCK I $D(X),X="Y" D VET^DGLOCK
  • LAST EDITED:  AUG 25, 2000
  • HELP-PROMPT:  Enter 'Y' if this patient is service connected, 'N' if not.
  • DESCRIPTION:  Enter 'Y' if this applicant is service connected, 'N' if not. Applicants identified as being non-veterans cannot be entered as service connected. Once eligibility has been verified only users holding the designated
    security key may enter/edit this field.
  • DELETE TEST:  1,0)= S DFN=DA D EV^DGLOCK I '$D(X)
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the VETERAN (Y/N)? field of the VA PATIENT File
  • CROSS-REFERENCE:  ^^TRIGGER^2^.302
    1)= X ^DD(2,.301,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.301,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.301,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.3)):^(.3),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(.3)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.302 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.301="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.302
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3012
    1)= X ^DD(2,.301,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="" X ^DD(2,.301,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.301,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.3)):^(.3),1:""),DIV=X S $P(^(.3),U,12)=DIV,DIH=2,DIG=.3012 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.301="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.3012
    This will delete the SC AWARD DATE (#.3012) field when the SERVICE CONNECTED? field is changed to NO.
  • CROSS-REFERENCE:  2^AENR301^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference is used to update the patient's current Patient Enrollment record.
  • CROSS-REFERENCE:  2^AVAFC301^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".301;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".301;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^ADGRU301^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
.3012 SC AWARD DATE .3;12 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X N DFN S DFN=DA D SC^DGLOCK1
  • LAST EDITED:  APR 19, 1993
  • HELP-PROMPT:  Enter the date on which Service Connection is effective based on VBA decision. This can be obtained from either HINQ or the award letter.
  • DESCRIPTION:  
    This field contains the effective date of service connection, based on the VBA decision.  This can be obtained either through HINQ or the award letter.
  • TECHNICAL DESCR:  This field is dependent on the SERVICE CONNECTED? field (#.301). Changing the SERVICE CONNECTED? response from YES to NO will delete this field. No entry to this field is allowed if SERVICE CONNECTED? is not answered
    YES.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SERVICE CONNECTED? field of the VA PATIENT File
.3014 EFF. DATE COMBINED SC% EVAL. .3;14 DATE

  • INPUT TRANSFORM:  S %DT="EP" D ^%DT S X=Y K:Y<1!(Y>DT) X
  • LAST EDITED:  JUL 14, 2005
  • DESCRIPTION:  
    Data will be filed automatically from HL7 message from the HEC.  This is the date that the combined Service Connected Disability % was awarded.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.302 SERVICE CONNECTED PERCENTAGE .3;2 NUMBER

  • INPUT TRANSFORM:  S DFN=DA D EV^DGLOCK Q:'$D(X) K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X I $D(X),$D(^DPT(DA,.3)),$P(^(.3),U,1)'="Y" W !?4,*7,"Only applies to service-connected applicants." K X
  • LAST EDITED:  AUG 25, 2000
  • HELP-PROMPT:  For this service connected applicant enter the percentage of service connection between 0 and 100%.
  • DESCRIPTION:  If this applicant is service connected (SERVICE CONNECTED prompt must be answered YES) enter the service connected percentage [a number between 0-100]. Once eligibility has been verified only users who hold the designated
    security key may enter/edit this field.  Field may not be deleted as long as service connection is indicated.
  • DELETE TEST:  1,0)= S DFN=DA D EV^DGLOCK Q:'$D(X) I $D(^DPT(DFN,.3)),$P(^(.3),U,1)="Y" W !?4,*7,"Service Connected Applicant...CAN'T DELETE!!" K X
  • GROUP:  ECD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SERVICE CONNECTED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^ASCP^MUMPS
    1)= Q
    2)= Q
  • CROSS-REFERENCE:  2^AENR302^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference is used to update the patient's current Patient Enrollment record.
  • CROSS-REFERENCE:  2^AR^MUMPS
    1)= S DFN=DA D EN^DGMTR K DGREQF
    2)= Q
    3)= DO NOT DELETE!
    This MUMPS cross-reference is needed to determine whether a change in service connected percentage requires that a means test be done.
  • CROSS-REFERENCE:  2^AVAFC302^MUMPS
    1)= D:($T(AVAFC^VAFCDD01)'="") AVAFC^VAFCDD01(DA)
    2)= D:($T(AVAFC^VAFCDD01)'="") AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
  • CROSS-REFERENCE:  2^ADGRU302^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
.3025 RECEIVING VA DISABILITY? .3;11 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • INPUT TRANSFORM:  S DFN=DA D MV^DGLOCK I $D(X),X="Y" D EC^DGLOCK1
  • LAST EDITED:  MAR 27, 1997
  • HELP-PROMPT:  Enter 'Y' if receiving a VA Disability, 'N' if not.
  • DESCRIPTION:  For this veteran applicant enter 'Y' if s/he is in receipt of a disability payment, 'N' if not, or 'U' if unknown. Once monetary benefits have been verified only users who hold the designated security key may enter/edit
    this field.
  • DELETE TEST:  1,0)= S DFN=DA D MV^DGLOCK I '$D(X)
  • GROUP:  MB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.303
    1)= X ^DD(2,.3025,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(2,.3025,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3025,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.3)):^(.3),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(.3)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.303 D ^DICR:$N(^DD(DIH,DIG,1,0))
    >0
    2)= X ^DD(2,.3025,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(2,.3025,1,1,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.3025,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_":",2),$C(59),1)=""
    2.4)= S DIH=$S($D(^DPT(DIV(0),.3)):^(.3),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(.3)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.303 D ^DICR:$N(^DD(DIH,DIG,1,0))
    >0
    CREATE CONDITION)= #.3025="NO"
    CREATE VALUE)= @
    DELETE CONDITION)= #.3025=""
    DELETE VALUE)= @
    FIELD)= #.303
  • CROSS-REFERENCE:  ^^TRIGGER^2^.36295
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.3025,1,2,1.4)
    1.4)= S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.3025,1,2,2.4)
    2.4)= S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= S X='$$TOTCHK^DGLOCK2(DA)
    CREATE VALUE)= @
    DELETE CONDITION)= S X='$$TOTCHK^DGLOCK2(DA)
    DELETE VALUE)= @
    FIELD)= #.36295
  • CROSS-REFERENCE:  2^AENR3025^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.303 AMOUNT OF VA DISABILITY .3;3 NUMBER

  • INPUT TRANSFORM:  D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<1) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X) X ^DD(2,.303,9.3)
    9.2 = I $D(^DPT(DA,.3)),$P(^(.3),U,11)="Y" W !?4,*7,"Delete by answering 'RECEIPT OF DISABILITY PAYMENT' prompt NO." K X
    9.3 = X ^DD(2,.303,9.4) I $D(X),$D(^DPT(DFN,.3)),$P(^(.3),U,11)'="Y" W !?4,*7,"Receipt of Disability payment not indicated." K X Q
    9.4 = I $D(^DPT(DFN,.362)),$P(^(.362),U,4)]"" W !?4,*7,"Already receiving VA Pension monies...Can't receive both..." K X Q
  • LAST EDITED:  SEP 23, 1988
  • HELP-PROMPT:  If in receipt of VA Disability, enter the dollar amount awarded.
  • DESCRIPTION:  For this veteran applicant who is in receipt of disability payment (RECEIPT OF DISABILITY PAYMENT prompt must be answered YES) enter the amount received [a number between 0-99999]. Once monetary benefits are verified only
    users who hold the designated security key may enter/edit this field.  Any dollar amomount on file cannot be deleted as long as receipt of disability payment is indicated.
    If you wish to enter a monthly amount either preceed or follow it with an asterisk and I'll multiply it out for you.
  • DELETE TEST:  1,0)= S DFN=DA D MV^DGLOCK X ^DD(2,.303,9.2):$D(X) I '$D(X)
  • GROUP:  MB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the RECEIVING VA DISABILITY? field of the VA PATIENT File
.304 P&T .3;4 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  DEC 04, 1991
  • HELP-PROMPT:  Is this patient permanently and totally disabled due to an SC condition?
  • DESCRIPTION:  
    This field will contain YES if the patient is permanently and totally disabled by VARO due to a service connected condition.
  • CROSS-REFERENCE:  2^AENR304^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.305 UNEMPLOYABLE .3;5 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  DEC 04, 1991
  • HELP-PROMPT:  Is this patient unemployable due to an SC condition as rated by VARO?
  • DESCRIPTION:  
    Is this patient rated unemployable by the VARO due to a service connected condition?
  • CROSS-REFERENCE:  2^AENR305^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference is used to update the patient's current Patient Enrollment record.
  • CROSS-REFERENCE:  2^AT^MUMPS
    1)= S DFN=DA D EN^DGMTCOR K DGMTCOR
    2)= S DFN=DA D EN^DGMTCOR K DGMTCOR
    This cross reference acts like a trigger.  It 'triggers' the status field in file 408.31 (ANNUAL MEANS TEST) for the co-pay exemption test.  It will update the field to 'NO LONGER APPLICABLE' if appropriate.
.306 MONETARY BEN. VERIFY DATE .3;6 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) D EK^DGLOCK
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Enter the date on which monetary benefits were verified to be accurate.
  • DESCRIPTION:  Once monetary benefits, and amounts, are verified enter the date of verification. All monetary benefits data fields will become uneditable to any user who does not hold the designated security key once the benefits are
    verified.  Only users who hold the designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= D EK^DGLOCK I '$D(X)
  • GROUP:  MB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.307 INELIGIBLE REASON .3;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X I $D(X) D EK^DGLOCK
  • LAST EDITED:  JUL 28, 1986
  • HELP-PROMPT:  Enter the reason this patient is considered to be ineligible for treatment NTE 40 characters.
  • DESCRIPTION:  If this applicant is ineligible for treatment enter the reason [not to exceed 40 characters]. An ineligible date must be specified in order to enter/edit this field and the user must hold the designated security key.
    This field may not be deleted as long as an ineligible date is on file.
  • DELETE TEST:  1,0)= D EK^DGLOCK I '$D(X)
  • GROUP:  IPT
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AENR307^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.309 AGENCY/ALLIED COUNTRY .3;9 POINTER TO OTHER FEDERAL AGENCY FILE (#35) OTHER FEDERAL AGENCY(#35)

  • INPUT TRANSFORM:  S DFN=DA D AAC^DGLOCK2
  • LAST EDITED:  OCT 07, 1986
  • HELP-PROMPT:  If applicable, enter the federal agency or allied country associated with this patient.
  • DESCRIPTION:  
    For this applicant whose eligibility code is either 'OTHER FEDERAL AGENCY' or 'ALLIED VETERAN' select from the available listing the federal agency or allied country, as appropriate, which best classifies this applicant.
  • SCREEN:  S %Z1=$S($D(^DPT(DA,.31)):+$P(^(0),U,1),1:""),%Z=$S('$D(^("VET")):"",^("VET")="N"&(%Z1=4):"A",%Z="Y"&(%Z1=5):"C",1:""),DIC("S")="I $P(^(0),U,4)=%Z"
  • EXPLANATION:  Screen selections by eligibility code
  • DELETE TEST:  1,0)= S DFN=DA D EV^DGLOCK I '$D(X)
  • GROUP:  ECD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.31 *CATEGORY OF BENEFICIARY .3;10 POINTER TO CATEGORY OF BENEFICIARY FILE (#45.82) CATEGORY OF BENEFICIARY(#45.82)

  • INPUT TRANSFORM:  D CAT^DGINP
  • LAST EDITED:  DEC 16, 1991
  • HELP-PROMPT:  Enter the category of benificiary for this patient.
  • DESCRIPTION:  This field is no longer used by the MAS package. It was previously updated via a cross-reference on the CATEGORY OF BENEFICIARY field in the PTF file. In a prior release of MAS, the use of category of beneficiary was
    discontinued and period of service is now solely used.  In a future release of MAS, this field will be removed along with the ACB cross-reference on the PATIENT file and the cross-reference in the PTF file which sets this
    data.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^ACB
    1)= S ^DPT("ACB",$E(X,1,30),DA)=""
    2)= K ^DPT("ACB",$E(X,1,30),DA)
.3111 EMPLOYER NAME .311;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X I $D(X) D EM^DGLOCK2
  • LAST EDITED:  MAY 30, 1989
  • HELP-PROMPT:  Enter the name of this patient's employer [1-30 characters].
  • DESCRIPTION:  
    If employment status is indicated and is not unemployed enter the employer name [1-30 characters], otherwise nothing may be entered.
  • GROUP:  EM1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the EMPLOYMENT STATUS field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AXR3^MUMPS
    1)= Q
    2)= S DGXRF=.3111 D ^DGDDC Q
  • CROSS-REFERENCE:  2^AENR3111^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.31115 EMPLOYMENT STATUS .311;15 SET
************************REQUIRED FIELD************************
  • '1' FOR EMPLOYED FULL TIME;
  • '2' FOR EMPLOYED PART TIME;
  • '3' FOR NOT EMPLOYED;
  • '4' FOR SELF EMPLOYED;
  • '5' FOR RETIRED;
  • '6' FOR ACTIVE MILITARY DUTY;
  • '9' FOR UNKNOWN;

  • LAST EDITED:  AUG 25, 2000
  • HELP-PROMPT:  Enter this patient's current employment status.
  • DESCRIPTION:  
    Enter the patient's current employment status.  Choose from the available choices.
  • GROUP:  PEMP
  • CROSS-REFERENCE:  ^^TRIGGER^2^.31116
    1)= X ^DD(2,.31115,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.311)):^(.311),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.311)),DIV=X S $P(^(.311),U,16)=DIV,DIH=2,DIG=.31116 D ^DICR
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.31115,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))'="RETIRED"
    2)= X ^DD(2,.31115,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.311)):^(.311),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.311)),DIV=X S $P(^(.311),U,16)=DIV,DIH=2,DIG=.31116 D ^DICR
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.31115,0)),U,3) S X=$P($P(Y(1),$C(59)_X_":",2),$C(59))="RETIRED"
    CREATE CONDITION)= EMPLOYMENT STATUS'="RETIRED"
    CREATE VALUE)= @
    DELETE CONDITION)= OLD EMPLOYMENT STATUS="RETIRED"
    DELETE VALUE)= @
    FIELD)= DATE OF RETIREMENT
    This trigger Cross Reference will remove the DATE OF RETIREMENT value when the EMPLOYMENT STATUS changes from RETIRED to any other status.
    When the EMPLOYMENT STATUS changes from anything other than RETIRED, no change should be made to the DATE OF RETIREMENT.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3111
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I "^3^9^"[$P(^DPT(DA,.311),U,15) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.311)):^(.311),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.31115,1,2,1.4)
    1.4)= S DIH=$S($D(^DPT(DIV(0),.311)):^(.311),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(.311)=DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3111 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I "^3^9^"[$P(^DPT(DA,.311),U,15) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.311)):^(.311),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.31115,1,2,2.4)
    2.4)= S DIH=$S($D(^DPT(DIV(0),.311)):^(.311),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(.311)=DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3111 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= I "^3^9^"[$P(^DPT(DA,.311),U,15)
    CREATE VALUE)= @
    DELETE CONDITION)= I "^3^9^"[$P(^DPT(DA,.311),U,15)
    DELETE VALUE)= @
    FIELD)= EMPLOYER NAME
  • CROSS-REFERENCE:  2^AVAFC31115^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".31115;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".31115;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^AENR31115^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.31116 DATE OF RETIREMENT .311;16 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X K:Y>DT X K:(+$P(^DPT(DA,0),"^",3)>Y) X K:(+$P($G(^DPT(DA,.311)),"^",15)'=5) X
  • LAST EDITED:  MAY 26, 2005
  • HELP-PROMPT:  For this veteran applicant enter the date s/he retired from her/his place of employment. A date may only be entered if the veteran is RETIRED.
  • DESCRIPTION:  
    For this veteran applicant, enter the date s/he retired from her/his place of employment.
  • TECHNICAL DESCR:  The Input Transform for the DATE OF RETIREMENT compares the date entered to the Patient's DATE OF BIRTH. If the DATE OF BIRTH is later than the DATE OF RETIREMENT, the entered date is not accepted for the DATE OF
    RETIREMENT.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the EMPLOYMENT STATUS field of the VA PATIENT File
.3112 GOVERNMENT AGENCY .311;2 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • INPUT TRANSFORM:  I $D(X),X="Y" S DFN=DA D EM1^DGLOCK2
  • LAST EDITED:  MAY 31, 1989
  • HELP-PROMPT:  Enter 'Y' if this patient is employed by a government agency, 'N' if not.
  • DESCRIPTION:  
    If this patient is currently employed by a government agency, respond yes to this question.  If the patient is employed by the private sector or currently is unemployed, respond no.
  • DELETE TEST:  1,0)= S DFN=DA D EMD^DGLOCK2 I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.3113 EMPLOYER STREET [LINE 1] .311;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D EM1^DGLOCK2
  • LAST EDITED:  MAY 31, 1989
  • HELP-PROMPT:  Enter the first line of the employer's address [1-30 characters].
  • DESCRIPTION:  If employment status is indicated, applicant is not unemployed and an employer name is entered enter the first line of the employer street address [1-30 characters], otherwise nothing may be entered. This field cannot be
    deleted as long as an employer name is on file.
  • DELETE TEST:  1,0)= S DFN=DA D EMD^DGLOCK2 I '$D(X)
  • GROUP:  EM1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR20^MUMPS
    1)= Q
    2)= S DGXRF=.3113 D ^DGDDC Q
.3114 EMPLOYER STREET [LINE 2] .311;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D EM1^DGLOCK2
  • LAST EDITED:  MAY 31, 1989
  • HELP-PROMPT:  If necessary, enter the second line of the employer's address [1-30 characters].
  • DESCRIPTION:  If employment status is indicated, applicant is not unemployed and an employer name is entered enter the second line of the employer street address [1-30 characters], if necessary, otherwise nothing may be entered. This
    field cannot be deleted as long as an employer name is on file.
  • GROUP:  EM1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR21^MUMPS
    1)= Q
    2)= S DGXRF=.3114 D ^DGDDC Q
.3115 EMPLOYER STREET [LINE 3] .311;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D EM1^DGLOCK2
  • LAST EDITED:  MAY 31, 1989
  • HELP-PROMPT:  If necessary, enter the third line of the employer's address [1-30 characters].
  • DESCRIPTION:  If employment status is indicated, applicant is not unemployed and an employer name is entered enter the third line of the employer street address [1-30 characters], if necessary, otherwise nothing may be entered. This
    field cannot be deleted as long as an employer name is on file.
  • GROUP:  EM1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.3116 EMPLOYER CITY .311;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D EM1^DGLOCK2
  • LAST EDITED:  MAY 31, 1989
  • HELP-PROMPT:  Enter the city in which this patient is employed [1-30 characters].
  • DESCRIPTION:  If employment status is indicated, applicant is not unemployed and an employer name is entered enter the employer city [1-30 characters], otherwise nothing may be entered. This field cannot be deleted as long as an
    employer name is on file.
  • DELETE TEST:  1,0)= S DFN=DA D EMD^DGLOCK2 I '$D(X)
  • GROUP:  EM1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.3117 EMPLOYER STATE .311;7 POINTER TO STATE FILE (#5) STATE(#5)

  • INPUT TRANSFORM:  I $D(X) S DFN=DA D EM1^DGLOCK2
  • LAST EDITED:  MAY 31, 1989
  • HELP-PROMPT:  Enter the state in which this patient is employed.
  • DESCRIPTION:  If employment status is indicated, applicant is not unemployed and an employer name is entered select from the available listing the employer state, otherwise nothing may be entered. This field cannot be deleted as long
    as an employer name is on file.
  • DELETE TEST:  1,0)= S DFN=DA D EMD^DGLOCK2 I '$D(X)
  • GROUP:  EM1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.3118 EMPLOYER ZIP CODE .311;8 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X I $D(X) S DFN=DA D EM1^DGLOCK2
  • LAST EDITED:  JUN 03, 1993
  • HELP-PROMPT:  Enter the 5-digit zip code for this patient's place of employment.
  • DESCRIPTION:  If employment status is indicated, applicant is not unemployed and an employer name is entered enter the employer zip code [5 numerics], otherwise nothing may be entered. This field cannot be deleted as long as an
    employer name is on file.
  • DELETE TEST:  1,0)= S DFN=DA D EMD^DGLOCK2 I '$D(X)
  • GROUP:  EM1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AEM1ZIP^MUMPS
    1)= D SET^DGREGDD1(DA,.2205,.22,5,X)
    2)= D KILL^DGREGDD1(DA,.2205,.22,5,X)
    This sets the corresponding zip+4 field to be equal to this field's value.
.3119 EMPLOYER PHONE NUMBER .311;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X I $D(X) S DFN=DA D EM1^DGLOCK2
  • LAST EDITED:  MAY 31, 1989
  • HELP-PROMPT:  Enter this patient's employment telephone number [3-20 characters].
  • DESCRIPTION:  If employment status is indicated, applicant is not unemployed and an employer name is entered enter the employer telephone number [3-20 characters], otherwise nothing may be entered. This field cannot be deleted as long
    as an employer name is on file.
  • TECHNICAL DESCR:  If employment status is indicated, applicant is not unemployed and an employer name is entered enter the employer telephone number [3-20 characters], otherwise nothing may be entered. This field cannot be deleted as long
    as an employer name is on file.
  • GROUP:  EM1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.312 *CLAIM FOLDER LOCATION .31;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<2) X
  • LAST EDITED:  APR 13, 1993
  • HELP-PROMPT:  Enter the location of this patient's VA claim folder [2-40 characters].
  • DESCRIPTION:  
    For this veteran applicant enter, if applicable, the location of his/her VA claim folder [2-40 characters].
  • GROUP:  ECD
  • CROSS-REFERENCE:  2^ACFL2^MUMPS
    1)= N DGX D CFL2^DGREGDD D SET^DGREGDD1(DA,.314,.31,4,DGX)
    2)= N DGX D CFL2^DGREGDD D KILL^DGREGDD1(DA,.314,.31,4,DGX)
    This will set field #.314 to be the pointer to the Institution file based on the leading characters' numerical value.
  • CROSS-REFERENCE:  2^AENR312^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.3121 INSURANCE TYPE .312;0 POINTER Multiple #2.312 2.312

  • HELP-PROMPT:  Select from the listing available the type of insurance under which this patient is covered.
  • DESCRIPTION:  
    From the available listing enter the type of insurance under which this applicant is covered regardless of who holds the policy.
  • GROUP:  II
  • IDENTIFIED BY:  
.313 CLAIM NUMBER .31;3 FREE TEXT

  • INPUT TRANSFORM:  S DFN=DA D EV^DGLOCK I $D(X) S L=$S($D(^DPT(DA,0)):$P(^(0),U,9),1:X) W:X?1"SS".E " ",L S:X?1"SS".E X=L I X'=L K:$L(X)>8!($L(X)<7)!'(X?.N) X
  • OUTPUT TRANSFORM:  S Y=$E(Y,1,10)
  • LAST EDITED:  FEB 10, 2003
  • HELP-PROMPT:  Enter this patient's claim number as 7-8 numerics or enter SS if the claim number is the same as his/her SSN.
  • DESCRIPTION:  If the applicant is a veteran enter his/her claim number as 7-8 numerics or by entering the characters 'SS' if his/her claim number is the same as his/her social security number. Once eligibility has been verified only
    users who hold the designated security key may enter/edit this field.
  • AUDIT:  YES, ALWAYS
  • DELETE TEST:  1,0)= S DFN=DA D EV^DGLOCK I '$D(X)
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AVAFC313^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".313;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".313;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^AENR313^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.314 CLAIM FOLDER LOCATION .31;4 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • INPUT TRANSFORM:  S DIC("S")="I $$GET1^DIQ(4,+Y,99)'=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 06, 2000
  • HELP-PROMPT:  Enter the location of the patient's claim folder
  • DESCRIPTION:  
    This is the location of the patient's claim folder.  It must be an entry in the INSTITUTION File.
  • TECHNICAL DESCR:  
    This is a pointer to the INSTITUTION File (#4).
  • SCREEN:  S DIC("S")="I $$GET1^DIQ(4,+Y,99)'="""""
  • EXPLANATION:  ONLY SITES WITH STATION NUMBER
  • CROSS-REFERENCE:  2^ACFL4^MUMPS
    1)= N DGX D CFL4^DGREGDD D SET^DGREGDD1(DA,.312,.31,2,DGX)
    2)= N DGX D CFL4^DGREGDD D KILL^DGREGDD1(DA,.312,.31,2,DGX)
    This sets the *CLAIM FOLDER LOCATION field to be the station number concatenated with the name of the institution.
.3192 COVERED BY HEALTH INSURANCE? .31;11 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • LAST EDITED:  DEC 11, 1991
  • HELP-PROMPT:  Enter 'Y' if this patient is covered by health insurance, 'N' if not.
  • DESCRIPTION:  
    Enter 'Y' if this applicant is covered by a health insurance policy regardless of who holds policy (applicant, spouse, employer, etc.), 'N' if s/he isn't covered by any policy, or 'U' if unknown.
  • GROUP:  II
  • CROSS-REFERENCE:  2^AENR3192^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.32101 VIETNAM SERVICE INDICATED? .321;1 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • INPUT TRANSFORM:  S DFN=DA D SV^DGLOCK
  • LAST EDITED:  OCT 01, 1986
  • HELP-PROMPT:  Enter 'Y' if this patient served in Vietnam, 'N' if not, 'U' if unknown.
  • DESCRIPTION:  For this veteran applicant enter 'Y' if s/he actually served in the Republic of Vietnam, 'N' if not, or 'U' if unknown. Once the service record has been verified only users who hold the designated security key may
    enter/edit this field.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.32104
    1)= X ^DD(2,.32101,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"") S X=$P(Y(1),U,4) S DIU=X K Y S X=DIV S X="" X ^DD(2,.32101,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32101,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.321)):^(.321),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(.321)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.32104 D ^DICR:$N(^DD(DIH,D
    IG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.32101="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.32104
  • CROSS-REFERENCE:  ^^TRIGGER^2^.32105
    1)= X ^DD(2,.32101,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"") S X=$P(Y(1),U,5) S DIU=X K Y S X=DIV S X="" X ^DD(2,.32101,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32101,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.321)):^(.321),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(.321)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.32105 D ^DICR:$N(^DD(DIH,D
    IG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.32101="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.32105
  • CROSS-REFERENCE:  2^AENR32101^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the VIETNAM SERVICE INDICATED? field.
.32102 AGENT ORANGE EXPOS. INDICATED? .321;2 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • INPUT TRANSFORM:  S DFN=DA D SV^DGLOCK
  • LAST EDITED:  MAY 29, 2001
  • HELP-PROMPT:  Enter 'Y' if this patient claims exposure to agent orange, 'N' if not, 'U' if unknown.
  • DESCRIPTION:  For this veteran applicant enter 'Y' if s/he was exposed to the chemical agent orange, 'N' if not, or 'U' if unknown. Exposure can not be claimed unless the Period of Service (field .323) is answered VIETNAM ERA, which
    entails those serving in the Korean DMZ between January 1, 1968 and December 31, 1969 or Vietnam.
    Once the service record has been verified only users who hold the designated security key may enter/edit this field.
  • GROUP:  AO
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.32107
    1)= X ^DD(2,.32102,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"") S X=$P(Y(1),U,7) S DIU=X K Y S X=DIV S X="" X ^DD(2,.32102,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32102,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.321)):^(.321),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,6,99))  S DIH=DIH_U" S %=$P(DIH,U,8,999),DIU=$P(DIH,U,7),^(.321)=$P(DIH,U,1,6)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.32107 D ^DICR:$N(^DD(DIH,D
    IG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.32102="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.32107
  • CROSS-REFERENCE:  ^^TRIGGER^2^.32109
    1)= X ^DD(2,.32102,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"") S X=$P(Y(1),U,9) S DIU=X K Y S X=DIV S X="" X ^DD(2,.32102,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32102,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.321)):^(.321),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,8,99))  S DIH=DIH_U" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(.321)=$P(DIH,U,1,8)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.32109 D ^DICR:$N(^DD(DIH,
    DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.32102="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.32109
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3211
    1)= X ^DD(2,.32102,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"") S X=$P(Y(1),U,10) S DIU=X K Y S X=DIV S X="" X ^DD(2,.32102,1,3,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32102,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.321)):^(.321),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(.321)=$P(DIH,U,1,9)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3211 D ^DICR:$N(^DD(DIH,
    DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.32102="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.3211
  • CROSS-REFERENCE:  2^AENR32102^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference is used to update the patient's current Patient Enrollment record.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3213
    1)= X ^DD(2,.32102,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.321)),DIV=X S $P(^(.321),U,13)=DIV,DIH=2,DIG=.3213 D ^DICR
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.32102,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    2)= Q
    CREATE CONDITION)= #.32102="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.3213
.32103 RADIATION EXPOSURE INDICATED? .321;3 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • INPUT TRANSFORM:  S DFN=DA D SV^DGLOCK
  • LAST EDITED:  JUN 30, 1997
  • HELP-PROMPT:  Enter 'Y' if this patient claims exposure to ionizing radiation, 'N' if not, 'U' if unknown.
  • DESCRIPTION:  For this veteran applicant enter 'Y' if s/he was exposed to ionizing radiation while in the military, 'N' if not exposed, or 'U' if unknown. Once the service record has been verified only users who hold the designated
    security key may enter/edit this field.
  • TECHNICAL DESCR:  
  • GROUP:  IRD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3212
    1)= X ^DD(2,.32103,1,1,1.3) I X S X=DIV S Y(2)=";"_$S($D(^DD(2,.3212,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"") S X=$P($P(Y(2),";"_$P(Y(1),U,12)_":",2),";",1) S DIU=X K Y S X=DIV S X="" X ^DD(2,.32103,1
    ,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32103,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.321)):^(.321),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,11,99))  S DIH=DIH_U" S %=$P(DIH,U,13,999),DIU=$P(DIH,U,12),^(.321)=$P(DIH,U,1,11)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3212 D ^DICR:$N(^DD(DI
    H,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.32103="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.3212
  • CROSS-REFERENCE:  ^^TRIGGER^2^.32111
    1)= X ^DD(2,.32103,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"") S X=$P(Y(1),U,11) S DIU=X K Y S X=DIV S X="" X ^DD(2,.32103,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32103,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.321)):^(.321),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,10,99))  S DIH=DIH_U" S %=$P(DIH,U,12,999),DIU=$P(DIH,U,11),^(.321)=$P(DIH,U,1,10)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.32111 D ^DICR:$N(^DD(D
    IH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.32103="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.32111
  • CROSS-REFERENCE:  2^AENR32103^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference is used to update the patient's current Patient Enrollment record.
.32104 VIETNAM FROM DATE .321;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:2800000X) X I $D(X) S DFN=DA D VN^DGLOCK
  • LAST EDITED:  AUG 06, 1986
  • HELP-PROMPT:  Enter the date this patient commenced service in the Republic of Vietnam.
  • DESCRIPTION:  For this veteran applicant who served in the Republic of Vietnam (DID YOU SERVE IN VIETNAM prompt must be answered YES) enter the date on which service in vietnam commenced [between 1955 and 1980]. Once the service record
    is verified only users who hold the designated security key may enter/edit this field.  As long as Vietnam service is indicated this date may not be deleted.
  • DELETE TEST:  1,0)= S DFN=DA D VND^DGLOCK1 I '$D(X)
  • GROUP:  VN
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the VIETNAM SERVICE INDICATED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR32104^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the VIETNAM FROM DATE field.
.32105 VIETNAM TO DATE .321;5 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:2800000X) X I $D(X) S DFN=DA D VN^DGLOCK
  • LAST EDITED:  AUG 06, 1986
  • HELP-PROMPT:  Enter the date this patient ended service in the Republic of Vietnam.
  • DESCRIPTION:  For this veteran applicant who served in the Replublic of Vietnam (DID YOU SERVE IN VIETNAM prompt must be answered YES) enter the date on which service in vietnam ended [between 1955 and 1980]. Once the service record is
    verified only user who hold the designated security key may enter/edit this field.  As long as Vietnam service is indicated this date may not be deleted.
  • DELETE TEST:  1,0)= S DFN=DA D VND^DGLOCK1 I '$D(X)
  • GROUP:  VN
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the VIETNAM SERVICE INDICATED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR32105^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the VIETNAM TO DATE field.
.32107 AGENT ORANGE REGISTRATION DATE .321;7 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D AO^DGLOCK I $D(X) D DOB^DGHELP
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Enter the date on which this patient was registered as being exposed to agent orange.
  • DESCRIPTION:  For this veteran applicant who was exposed to agent orange (EXPOSED TO AGENT ORANGE prompt must be answered YES) enter the date registered. Once the service record is verified only users who hold the designated security
    key may enter/edit this field.  As long as agent orange exposure is indicated this field may not be deleted.
  • DELETE TEST:  1,0)= S DFN=DA D AOD^DGLOCK1 I '$D(X)
  • GROUP:  AO
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the AGENT ORANGE EXPOS. INDICATED? field of the VA PATIENT File
.32108 AGENT ORANGE REPORTED TO C.O. .321;8 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D AO^DGLOCK
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Enter the date on which this patient's claim for agent orange exposure was reported to C.O.
  • DESCRIPTION:  
    Enter the date on which this patient's claim of exposure to Agent Orange was initially reported to VA Central Office.
  • DELETE TEST:  1,0)= S DFN=DA D AOD^DGLOCK1 I '$D(X)
  • GROUP:  AO
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.32109 AGENT ORANGE EXAM DATE .321;9 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D AO^DGLOCK
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Enter the date this patient was examined for the agent orange condition claimed.
  • DESCRIPTION:  For this veteran applicant who was exposed to agent orange (EXPOSED TO AGENT ORANGE prompt must be answered YES) enter the date s/he was examined for this exposure, if any. Once the service record is verified only users
    who hold the designated security key may enter/edit this field.  As long as agent orange exposure is indicated this field may not be deleted.
  • DELETE TEST:  1,0)= S DFN=DA D AOD^DGLOCK1 I '$D(X)
  • GROUP:  AO
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the AGENT ORANGE EXPOS. INDICATED? field of the VA PATIENT File
.3211 AGENT ORANGE REGISTRATION # .321;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DFN=DA D AO^DGLOCK
  • LAST EDITED:  AUG 06, 1986
  • HELP-PROMPT:  Enter this patient's agent orange registration number [a number between 1-999999].
  • DESCRIPTION:  For this veteran applicant who was exposed to agent orange (EXPOSED TO AGENT ORANGE prompt must be answered YES) enter the registration number assigned [a number between 1-999999]. Once the service record has been
    verified only users who hold the designated security key may enter/edit this field.  This field cannot be deleted as long as agent orange exposure is indicated.
  • DELETE TEST:  1,0)= S DFN=DA D AOD^DGLOCK1 I '$D(X)
  • GROUP:  AO
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the AGENT ORANGE EXPOS. INDICATED? field of the VA PATIENT File
.32111 RADIATION REGISTRATION DATE .321;11 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D IR^DGLOCK I $D(X) D DOB^DGHELP
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Enter the date on which this patient was registered as claiming exposure to ionizing radiation.
  • DESCRIPTION:  For this veteran applicant who was exposed to ionizing radiation (WERE YOU EXPOSED TO RADIATION prompt must be answered YES) enter the date registered. Once the service record is verified only users who hold the
    designated security key may enter/edit this field.  This field cannot be deleted as long as ionizing radiation exposure is indicated.
  • DELETE TEST:  1,0)= S DFN=DA D IRD^DGLOCK1 I '$D(X)
  • GROUP:  IRD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the RADIATION EXPOSURE INDICATED? field of the VA PATIENT File
.32115 PROJ 112/SHAD .321;15 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 13, 2006
  • CROSS-REFERENCE:  2^AENR32115^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference is used to update the patient's current Patient Enrollment record.
.3212 RADIATION EXPOSURE METHOD .321;12 SET
  • 'N' FOR NAGASAKI/HIROSHIMA;
  • 'T' FOR NUCLEAR TESTING;
  • 'B' FOR BOTH;

  • INPUT TRANSFORM:  S DFN=DA D IR^DGLOCK Q
  • LAST EDITED:  AUG 06, 1986
  • HELP-PROMPT:  Select from the listing available the method by which this patient was exposed to ionizing radiation.
  • DESCRIPTION:  For this veteran applicant who was exposed to ionizing radiation (WERE YOU EXPOSED TO RADIATION prompt must be answered YES) select from the following list the method of exposure. Once the service record is verified only
    those users who hold the designated security key may enter/edit this field.  This field cannot be deleted as long as ionizing radiation exposure is indicated.
  • DELETE TEST:  1,0)= S DFN=DA D IRD^DGLOCK1 I '$D(X)
  • GROUP:  IRD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the RADIATION EXPOSURE INDICATED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR3212^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference is used to update the patient's current Patient Enrollment record.
.3213 AGENT ORANGE EXPOSURE LOCATION .321;13 SET
  • 'K' FOR KOREAN DMZ;
  • 'V' FOR VIETNAM;

  • INPUT TRANSFORM:  S DFN=DA D AO^DGLOCK
  • LAST EDITED:  MAR 20, 2001
  • HELP-PROMPT:  Enter where the patient was exposed to agent orange
  • DESCRIPTION:  For this veteran applicant who was exposed to agent orange (EXPOSED TO AGENT ORANGE prompt must be answered YES) enter the location where the exposure occurred. Once the service record has been verified only users who
    hold the designated security key may enter/edit this field.  This field cannot be deleted as long as agent orange exposure is indicated.
  • DELETE TEST:  1,0)= S DFN=DA D AOD^DGLOCK1 I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the AGENT ORANGE EXPOS. INDICATED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR3213^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This MUMPS cross-reference is used to update the patient's current Patient Enrollment record.
.3214 FILIPINO VETERAN PROOF .321;14 SET
  • 'PP' FOR US PASSPORT;
  • 'BC' FOR US BIRTH CERTIFICATE;
  • 'BA' FOR REPORT OF BIRTH ABROAD OF US CITIZEN;
  • 'NA' FOR VERIFICATION OF NATURALIZATION;
  • 'PR' FOR VERIFICATION OF PERMANENT RESIDENCY;
  • 'VA' FOR VA COMPENSATION AT FULL DOLLAR RATE;
  • 'NO' FOR NO PROOF;

  • LAST EDITED:  JUN 14, 2004
  • DESCRIPTION:  Enter in this field the documentation that was provided in order to establish US citizenship, lawful permanent US residency, and/or VA Compensation at full-dollar rate for a Filipino Veteran (i.e., a veteran whose Branch
    of Service is F. Commonwealth, F. Guerilla, or F.  Scouts New)
  • CROSS-REFERENCE:  2^AENR3214^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the FILIPINO VETERAN PROOF field.
.3215 SERVICE [OEF OR OIF] .3215;0 SET Multiple #2.3215 2.3215

  • LAST EDITED:  JAN 04, 2006
  • DESCRIPTION:  This contains the information relating to the deployment of the patient to a conflict location for the operations Iraqi and Enduring Freedom (OIF, OEF respectively). It also includes records of conflict that can be
    identified as being EITHER OIF OR OEF, but the specific location cannot be determined.
  • SCREEN:  S DIC("S")="I Y'=3"
  • EXPLANATION:  Users cannot enter 3 (UNSPECIFIED)
  • IDENTIFIED BY:  OEF/OIF FROM DATE(#.02), OEF/OIF TO DATE(#.03)
  • INDEXED BY:  OEF/OIF TO DATE (ACVCOM1), OEF/OIF TO DATE & OEF/OIF FROM DATE & LOCATION OF SERVICE (ALOEIF), LOCATION OF SERVICE & OEF/OIF FROM DATE & OEF/OIF TO DATE (ALSTUP)
.322 SERVICE VERIFICATION DATE .32;2 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) D EK^DGLOCK
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Enter the date on whcih this patient's service record was verified as being accurate.
  • DESCRIPTION:  Once the service record has been verified enter the date of verification. All service record data will become uneditable to any user who does not hold the designated security key once the service record is verified. Only
    users who hold the designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= D EK^DGLOCK I '$D(X)
  • GROUP:  SVC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.32201 PERSIAN GULF SERVICE? .322;10 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • INPUT TRANSFORM:  S DFN=DA S DGX=10 D SV^DGLOCK
  • LAST EDITED:  JUL 13, 1993
  • HELP-PROMPT:  Did this patient serve in the Persian Gulf War? Answer yes, no, or unknown.
  • DESCRIPTION:  If this patient served in the Persian Gulf during the war (anytime after August 2, 1990), enter yes here. If the patient did not serve in the Persian Gulf during this timeframe, enter no. Enter unknown if this
    information could not be obtained from the patient.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.322011
    1)= X ^DD(2,.32201,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="" X ^DD(2,.32201,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32201,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,11)=DIV,DIH=2,DIG=.322011 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.32201="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= PERSIAN GULF FROM DATE
    If service in the Persian Gulf is no longer indicated, remove the PERSIAN GULF FROM DATE.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.322012
    1)= X ^DD(2,.32201,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="" X ^DD(2,.32201,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32201,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,12)=DIV,DIH=2,DIG=.322012 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.32201="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= PERSIAN GULF TO DATE
    If service in the Persian Gulf is no longer indicated, remove the PERSIAN GULF TO DATE.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.322013
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(2,.32201,1,3,69.3) S X=X&Y I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" X ^DD(2,.32201,1,3,1.4)
    1.4)= S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,13)=DIV,DIH=2,DIG=.322013 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(2,.32201,1,3,79.3) S Y=X,X=Y(3),X=X&Y I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" X ^DD(2,.32201,1,3,2.4)
    2.4)= S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,13)=DIV,DIH=2,DIG=.322013 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    69.2)= S Y(1)=$C(59)_$S($D(^DD(2,.32201,0)):$P(^(0),U,3),1:""),Y(4)=$C(59)_$S($D(^DD(2,.322016,0)):$P(^(0),U,3),1:""),Y(3)=$S($D(^DPT(D0,.322)):^(.322),1:"")
    69.3)= X ^DD(2,.32201,1,3,69.2) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO",Y(2)=X S X=$P($P(Y(4),$C(59)_$P(Y(3),U,16)_":",2),$C(59),1)'="YES",Y=X,X=Y(2),X=X
    79.2)= S Y(2)=$C(59)_$S($D(^DD(2,.32201,0)):$P(^(0),U,3),1:""),Y(4)=$C(59)_$S($D(^DD(2,.322016,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"")
    79.3)= X ^DD(2,.32201,1,3,79.2) S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_":",2),$C(59),1)="NO",Y(3)=X S X=$P($P(Y(4),$C(59)_$P(Y(1),U,16)_":",2),$C(59),1)'="YES"
    CREATE CONDITION)= #.32201="NO"&(#.322016'="YES")
    CREATE VALUE)= @
    DELETE CONDITION)= #.32201="NO"&(#.322016'="YES")
    DELETE VALUE)= @
    FIELD)= #.322013
    If neither of the two fields (Persian Gulf Service? and Somalia Service Indicated?) are 'YES', the Environmental Contaminants? field will be deleted.
  • CROSS-REFERENCE:  2^AENR32201^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the PERSIAN GULF SERVICE? field.
  • RECORD INDEXES:  ACVCOM (#313)
.322011 PERSIAN GULF FROM DATE .322;11 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DTX)!$S($P(^DPT(DA,.322),"^",12)']"":0,$P(^(.322),"^",12)
  • LAST EDITED:  JUN 04, 1992
  • HELP-PROMPT:  TYPE A DATE BETWEEN 8/2/1990 AND TODAY INDICATING THE DATE THIS PATIENT BEGAN SERVING IN THE PERSIAN GULF.
  • DESCRIPTION:  
    If this patient served in the Persian Gulf during the war (PERSIAN GULF SERVICE? is answered YES), respond with the date the patient began serving there.  The date must be on or after August 2, 1990.
  • DELETE TEST:  1,0)= S DFN=DA,DGX=10 D SVDEL^DGLOCK1 I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the PERSIAN GULF SERVICE? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR322011^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the PERSIAN GULF FROM DATE field.
.322012 PERSIAN GULF TO DATE .322;12 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(DT
  • LAST EDITED:  JUN 04, 1992
  • HELP-PROMPT:  Enter the date this patient's service in the Persian Gulf ended. Date must either be null or in the past.
  • DESCRIPTION:  If this patient served in the Persian Gulf during the war, enter the date the patient's service in that region ended. The date must be after the date selected as PERSIAN GULF FROM DATE which must be on or after August 2,
    1990.
  • DELETE TEST:  1,0)= S DFN=DA,DGX=10 D SVDEL^DGLOCK1 I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the PERSIAN GULF SERVICE? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR322012^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the PERSIAN GULF TO DATE field.
  • RECORD INDEXES:  ACVCOM (#313)
.322013 ENVIRONMENTAL CONTAMINANTS? .322;13 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • INPUT TRANSFORM:  S DFN=DA D SV^DGLOCK
  • LAST EDITED:  JUN 30, 1997
  • HELP-PROMPT:  Enter 'Y' if this patient claims exposure to environmental contaminants, 'N' if not, 'U' if unknown. Service in Persian Gulf or Somalia is required for this field.
  • DESCRIPTION:  
    This indicates that the veteran was affected by some kind of environmental contaminant in either the Persian Gulf or Somalia.
  • TECHNICAL DESCR:  
    This indicates that the veteran was affected by some kind of environmental contaminant in either the Persian Gulf or Somalia.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SOMALIA SERVICE INDICATED? field of the VA PATIENT File
    TRIGGERED by the PERSIAN GULF SERVICE? field of the VA PATIENT File
  • CROSS-REFERENCE:  ^^TRIGGER^2^.322014
    1)= X ^DD(2,.322013,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="" X ^DD(2,.322013,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.322013,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)'="YES"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,14)=DIV,DIH=2,DIG=.322014 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="" X ^DD(2,.322013,1,1,2.4)
    2.4)= S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,14)=DIV,DIH=2,DIG=.322014 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= #.322013'="YES"
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #.322014
    This will delete the ENVIR. CONT. REGISTRATION DATE field (#.322014) field if the 'ENVIRONMENTAL CONTAMINANTS?' field is not 'YES".
  • CROSS-REFERENCE:  ^^TRIGGER^2^.322015
    1)= X ^DD(2,.322013,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="" X ^DD(2,.322013,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.322013,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)'="YES"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,15)=DIV,DIH=2,DIG=.322015 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="" X ^DD(2,.322013,1,2,2.4)
    2.4)= S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,15)=DIV,DIH=2,DIG=.322015 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= #.322013'="YES"
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #.322015
    This trigger deletes the 'ENVIR. CONT. EXAM DATE' field if the 'ENVIRONMENTAL CONTAMINANTS?' field is not 'YES'.
  • CROSS-REFERENCE:  2^AENR322013^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference is used to update the patient's current Patient Enrollment record.
.322014 ENVIR. CONT. REGISTRATION DATE .322;14 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X I $D(X) S DFN=DA D EC^DGLOCK
  • LAST EDITED:  JUL 21, 1993
  • HELP-PROMPT:  Enter the date on which this patient was registered as being exposed to environmental contaminants. This must be after 8/1/1990.
  • DESCRIPTION:  
    This is the date on which the patient registered for being exposed to environmental contaminants.  This date must be after 8/1/1990.
  • TECHNICAL DESCR:  
    This is the date on which the patient registered for being exposed to environmental contaminants.  This date must be after 8/1/1990.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ENVIRONMENTAL CONTAMINANTS? field of the VA PATIENT File
.322015 ENVIR. CONT. EXAM DATE .322;15 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X I $D(X) D EC^DGLOCK
  • LAST EDITED:  JUL 21, 1993
  • HELP-PROMPT:  Enter the date this patient was examined for the environmental contaminants condition claimed (Must be after 8/1/1990).
  • DESCRIPTION:  
    This is the date on which an examination for exposure to environmental contaminants was performed on the patient.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ENVIRONMENTAL CONTAMINANTS? field of the VA PATIENT File
.322016 SOMALIA SERVICE INDICATED? .322;16 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • INPUT TRANSFORM:  S DFN=DA D SV^DGLOCK
  • LAST EDITED:  JUN 29, 1993
  • HELP-PROMPT:  Did this patient serve in Somalia?
  • DESCRIPTION:  
    If this patient served in the Somalia, enter yes here.  If the patient did not serve in Somalia, enter no. Enter unknown if this information could not be obtained from the patient.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.322017
    1)= X ^DD(2,.322016,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="" X ^DD(2,.322016,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.322016,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,17)=DIV,DIH=2,DIG=.322017 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.322016="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.322017
    If Somalia Indicated is NO, FROM DATE is deleted.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.322018
    1)= X ^DD(2,.322016,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X="" X ^DD(2,.322016,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.322016,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,18)=DIV,DIH=2,DIG=.322018 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.322016="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.322018
    If Somalia Indicated is NO, TO DATE is deleted.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.322013
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(2,.322016,1,3,69.3) S Y=X,X=Y(2),X=X&Y I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" X ^DD(2,.322016,1,3,1.4)
    1.4)= S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,13)=DIV,DIH=2,DIG=.322013 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(2,.322016,1,3,79.3) S Y=X,X=Y(3),X=X&Y I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" X ^DD(2,.322016,1,3,2.4)
    2.4)= S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,13)=DIV,DIH=2,DIG=.322013 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    69.2)= S Y(1)=$C(59)_$S($D(^DD(2,.322016,0)):$P(^(0),U,3),1:""),Y(4)=$C(59)_$S($D(^DD(2,.32201,0)):$P(^(0),U,3),1:""),Y(3)=$S($D(^DPT(D0,.322)):^(.322),1:"")
    69.3)= X ^DD(2,.322016,1,3,69.2) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)'="YES",Y(2)=X S X=$P($P(Y(4),$C(59)_$P(Y(3),U,10)_":",2),$C(59),1)'="YES"
    79.2)= S Y(2)=$C(59)_$S($D(^DD(2,.322016,0)):$P(^(0),U,3),1:""),Y(4)=$C(59)_$S($D(^DD(2,.32201,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"")
    79.3)= X ^DD(2,.322016,1,3,79.2) S X=$P($P(Y(2),$C(59)_$P(Y(1),U,16)_":",2),$C(59),1)'="YES",Y(3)=X S X=$P($P(Y(4),$C(59)_$P(Y(1),U,10)_":",2),$C(59),1)'="YES"
    CREATE CONDITION)= #.322016'="YES"&(#.32201'="YES")
    CREATE VALUE)= @
    DELETE CONDITION)= #.322016'="YES"&(#.32201'="YES")
    DELETE VALUE)= @
    FIELD)= #.322013
    This trigger deletes the 'ENVIRONMENTAL CONTAMINANTS?' field when neither the SOMALIA SERVICE INDICATED? nor the PERSIAN GULF SERVICE? fields are YES.
  • CROSS-REFERENCE:  2^AENR322016^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the SOMALIA SERVICE INDICATED? field.
  • RECORD INDEXES:  ACVCOM (#313)
.322017 SOMALIA FROM DATE .322;17 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) K:$S($P(^DPT(DA,.322),U,18)']"":0,$P(^(.322),"^",18)
  • LAST EDITED:  JUL 19, 1993
  • HELP-PROMPT:  Enter the date veteran's service in Somalia began.
  • DESCRIPTION:  
    If this patient served in Somalia (SOMALIA SERVICE INDICATED? is answered YES), enter the date this patient's service in Somalia began.
  • TECHNICAL DESCR:  
    This is the date Somalia service began.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SOMALIA SERVICE INDICATED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR322017^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the SOMALIA FROM DATE field.
.322018 SOMALIA TO DATE .322;18 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) K:(X<$P(^DPT(DA,.322),"^",17)) X I $D(X) S DFN=DA,DGX=16 D SVED^DGLOCK
  • LAST EDITED:  JUL 19, 1993
  • HELP-PROMPT:  Enter the date veteran's service in Somalia ended.
  • DESCRIPTION:  
    This is the last date of service in Somalia.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SOMALIA SERVICE INDICATED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR322018^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the SOMALIA TO DATE field.
  • RECORD INDEXES:  ACVCOM (#313)
.322019 YUGOSLAVIA SERVICE INDICATED? .322;19 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • INPUT TRANSFORM:  S DFN=DA D SV^DGLOCK
  • LAST EDITED:  SEP 02, 1999
  • HELP-PROMPT:  Respond yes if patient served in the Kosovo Conflict (the airspace above and the adjacent waters of the Republic of Yugoslavia (Serbia/Montenegro), the Adriatic Sea & Ionian Sea n. of 39th parallel).
  • DESCRIPTION:  
    Field stores code indicating if patient served in the Yugolslavia Conflict.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.32202
    1)= X ^DD(2,.322019,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.322019,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.322019,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)["N"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,20)=DIV,DIH=2,DIG=.32202 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= KOSOVO SERVICE INDICATED?["N"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.32202
    If KOSOVO SERVICE is not indicated, delete the KOSOVO FROM DATE.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.322021
    1)= X ^DD(2,.322019,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X="" X ^DD(2,.322019,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.322019,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)["N"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,21)=DIV,DIH=2,DIG=.322021 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= KOSOVO SERVICE INDICATED?["N"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.322021
    This cross-reference will delete KOSOVO TO DATE if the KOSOVO SERVICE INDICATED? field is deleted.
  • CROSS-REFERENCE:  2^AENR322019^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the YUGOSLAVIA SERVICE INDICATED? field.
  • RECORD INDEXES:  ACVCOM (#313)
.32202 YUGOSLAVIA FROM DATE .322;20 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DT
  • LAST EDITED:  NOV 16, 1999
  • HELP-PROMPT:  Type a date between 3/24/99 (the designated date of the commencement of combatant activities) and today indicating the date this patient began serving in the Yugoslavia Conflict.
  • DESCRIPTION:  
    Enter the date that service in the Yugoslavia Conflict began for this patient.  Earliest possible date is 3/24/1999.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the YUGOSLAVIA SERVICE INDICATED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR32202^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the YUGOSLAVIA FROM DATE field.
.322021 YUGOSLAVIA TO DATE .322;21 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(Y>(DT-1))!($P(^DPT(DA,.322),"^",20)>Y) X I $D(X) S DFN=DA,DGX=19 D SVED^DGLOCK
  • LAST EDITED:  AUG 31, 1999
  • HELP-PROMPT:  Enter the date this patient's service in the Yugoslavia Conflict ended. Date must either be null or in the past.
  • DESCRIPTION:  
    The date service in the Yugoslavia Conflict ended for this patient.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the YUGOSLAVIA SERVICE INDICATED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR322021^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the YUGOSLAVIA TO DATE field.
  • RECORD INDEXES:  ACVCOM (#313)
.3221 LEBANON SERVICE INDICATED? .322;1 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • INPUT TRANSFORM:  S DFN=DA D SV^DGLOCK
  • LAST EDITED:  JUN 29, 1993
  • HELP-PROMPT:  Did this veteran serve in Lebanon during the conflict there?
  • DESCRIPTION:  
    Did this patient serve in Lebanon between the dates of August 23, 1982 and February 26, 1984?
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3222
    1)= X ^DD(2,.3221,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.3221,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3221,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,2)=DIV,DIH=2,DIG=.3222 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.3221="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= LEBANON FROM DATE
    If Lebanon service not indicated, remove the LEBANON FROM DATE.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3223
    1)= X ^DD(2,.3221,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(2,.3221,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3221,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,3)=DIV,DIH=2,DIG=.3223 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.3221="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= LEBANON TO DATE
    If Lebanon service not indicated, remove the to date.
  • CROSS-REFERENCE:  2^AENR3221^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the LEBANON SERVICE INDICATED? field.
.3222 LEBANON FROM DATE .322;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:2840226X)!$S($P(^DPT(DA,.322),"^",3)="":0,$P(^(.322),"^",3)
  • LAST EDITED:  JUN 04, 1992
  • HELP-PROMPT:  TYPE A DATE BETWEEN 8/23/1982 AND 2/26/1984 TO INDICATE THE DATE THIS PATIENT BEGAN HIS SERVICE IN LEBANON
  • DESCRIPTION:  
    For this veteran applicant who served in Lebanon, enter the date which the applicant's service in Lebanon began.  The date must be between August 23, 1982 and February 26, 1984.
  • DELETE TEST:  1,0)= S DFN=DA,DGX=1 D SVDEL^DGLOCK1 I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the LEBANON SERVICE INDICATED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR3222^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the LEBANON FROM DATE field.
.3223 LEBANON TO DATE .322;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:2840226X)!(X<$P(^DPT(DA,.322),"^",2)) X I $D(X) S DFN=DA,DGX=1 D SVED^DGLOCK
  • LAST EDITED:  JUN 04, 1992
  • HELP-PROMPT:  TYPE A DATE BETWEEN 8/23/1982 AND 2/26/1984 INDICATING THE DATE THIS PATIENT'S SERVICE IN LEBANON ENDED.
  • DESCRIPTION:  
    For this patient, enter the date the patient's service in Lebanon ended.  The 'LEBANON SERVICE INDICATED?' field must be answered yes and the date in this field must be between August 23, 1982 and February 26, 1984.
  • DELETE TEST:  1,0)= S DFN=DA,DGX=1 D SVDEL^DGLOCK1 I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the LEBANON SERVICE INDICATED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR3223^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the LEBANON TO DATE field.
.3224 GRENADA SERVICE INDICATED? .322;4 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • INPUT TRANSFORM:  S DFN=DA D SV^DGLOCK
  • LAST EDITED:  JUN 29, 1993
  • HELP-PROMPT:  If this patient served during the conflict in Grenada, enter YES here. Enter NO if the patient did not serve in Grenada, or UNKNOWN if this can not be determined.
  • DESCRIPTION:  
    Enter yes if this patient served in Grenada between the dates of October 23, 1983 and November 21, 1983.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3225
    1)= X ^DD(2,.3224,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(2,.3224,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3224,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,5)=DIV,DIH=2,DIG=.3225 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.3224="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= GRENADA FROM DATE
    If service in Grenada is not indicated, remove the GRENADA FROM DATE.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3226
    1)= X ^DD(2,.3224,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(2,.3224,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3224,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,6)=DIV,DIH=2,DIG=.3226 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.3224="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= GRENADA TO DATE
    If service in Grenada is not indicated, delete the GRENADA TO DATE.
  • CROSS-REFERENCE:  2^AENR3224^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the GRENADA SERVICE INDICATED? field.
.3225 GRENADA FROM DATE .322;5 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:2831121X)!$S($P(^DPT(DA,.322),"^",6)']"":0,$P(^(.322),"^",6)
  • LAST EDITED:  JUN 04, 1992
  • HELP-PROMPT:  TYPE A DATE BETWEEN 10/23/1983 AND 11/21/1983 INDICATING THE DATE THIS PATIENT'S SERVICE IN GRENADA BEGAN.
  • DESCRIPTION:  
    Enter the date which this patient began service in Grenada.  The 'GRENADA SERVICE INDICATED?' field must be answered YES and the date entered here must be between October 23, 1983 and November 21, 1983.
  • DELETE TEST:  1,0)= S DFN=DA,DGX=4 D SVDEL^DGLOCK1 I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the GRENADA SERVICE INDICATED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR3225^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the GRENADA FROM DATE field.
.3226 GRENADA TO DATE .322;6 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:2831121X)!(X<$P(^DPT(DA,.322),"^",5)) X I $D(X) S DFN=DA,DGX=4 D SVED^DGLOCK
  • LAST EDITED:  JUN 04, 1992
  • HELP-PROMPT:  TYPE A DATE BETWEEN 10/23/1983 AND 11/21/1983 INDICATING THE DATE THE PATIENT'S SERVICE IN GRENADA ENDED.
  • DESCRIPTION:  
    Enter the date which this patient's service in Grenada ended.  The 'GRENADA SERVICE INDICATED?' field must be yes and this date must be between October 23, 1983 and November 21, 1983.
  • DELETE TEST:  1,0)= S DFN=DA,DGX=4 D SVDEL^DGLOCK1 I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the GRENADA SERVICE INDICATED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR3226^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the GRENADA TO DATE field.
.3227 PANAMA SERVICE INDICATED? .322;7 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • INPUT TRANSFORM:  S DFN=DA D SV^DGLOCK
  • LAST EDITED:  JUN 29, 1993
  • HELP-PROMPT:  Did this patient serve in the conflict in Panama? Answer YES, NO, or UNKNOWN.
  • DESCRIPTION:  Respond yes if this patient served in Panama between the dates of December 20, 1989 and January 31, 1990. Enter no if the patient did not serve in Panama during this timeframe. Otherwise, enter unknown if this
    information could not be obtained from the patient.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3228
    1)= X ^DD(2,.3227,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" X ^DD(2,.3227,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3227,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,8)=DIV,DIH=2,DIG=.3228 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.3227="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= PANAMA FROM DATE
    If service in Panama is not indicated, remove the PANAMA FROM DATE.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3229
    1)= X ^DD(2,.3227,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(2,.3227,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3227,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,9)=DIV,DIH=2,DIG=.3229 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.3227="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= PANAMA TO DATE
    If Panama service is no longer indicated, remove the PANAMA TO DATE.
  • CROSS-REFERENCE:  2^AENR3227^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the PANAMA SERVICE INDICATED? field.
.3228 PANAMA FROM DATE .322;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:2900131X)!$S($P(^DPT(DA,.322),"^",9)']"":0,$P(^(.322),"^",9)
  • LAST EDITED:  JUN 04, 1992
  • HELP-PROMPT:  TYPE A DATE BETWEEN 12/20/1989 AND 1/31/1990 INDICATING THE DATE THIS PATIENT BEGAN SERVICE IN PANAMA.
  • DESCRIPTION:  
    If this patient served in Panama (PANAMA SERVICE INDICATED? is answered YES), enter the date this patient's service in Panama began.  The date must be between December 20, 1989 and January 31, 1990.
  • DELETE TEST:  1,0)= S DFN=DA,DGX=7 D SVDEL^DGLOCK1 I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the PANAMA SERVICE INDICATED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR3228^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the PANAMA FROM DATE field.
.3229 PANAMA TO DATE .322;9 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:2900131X)!(X<$P(^DPT(DA,.322),"^",8)) X I $D(X) S DFN=DA,DGX=7 D SVED^DGLOCK
  • LAST EDITED:  JUN 04, 1992
  • HELP-PROMPT:  TYPE A DATE BETWEEN 12/20/1989 AND 1/31/1990 INDICATING THE DATE THIS PATIENT'S SERVICE IN PANAMA ENDED.
  • DESCRIPTION:  
    If this patient served during the conflict in Panama (PANAMA SERVICE INDICATED? is YES), enter the date the patient's service there ended.  The date must be between December 20, 1989 and January 31, 1990.
  • DELETE TEST:  1,0)= S DFN=DA,DGX=7 D SVDEL^DGLOCK1 I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the PANAMA SERVICE INDICATED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR3229^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the PANAMA TO DATE field.
.323 PERIOD OF SERVICE .32;3 POINTER TO PERIOD OF SERVICE FILE (#21) PERIOD OF SERVICE(#21)

  • INPUT TRANSFORM:  S DFN=DA D POS^DGLOCK1
  • LAST EDITED:  AUG 25, 2000
  • HELP-PROMPT:  Select from the available listing the period of service which best classifies this patient.
  • DESCRIPTION:  From the available listing select the period of service which best classifies this applicant. The selections displayed are limited based on the eligibility code which must have been entered in order to select a period of
    service.  Once the service record is verified only those users who hold the designated security key may enter/edit this field.
  • SCREEN:  S DIC("S")="I $D(^DPT(DA,.36)),$D(^DIC(21,""AELIG"",+Y,+$P(^(.36),U,1)))"
  • EXPLANATION:  POS must be compatible with Eligibility Code
  • DELETE TEST:  1,0)= S DFN=DA D SV1^DGLOCK I '$D(X)
  • GROUP:  ECD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^APOS
    1)= S ^DPT("APOS",$E(X,1,30),DA)=""
    2)= K ^DPT("APOS",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^2^11500.01
    1)= X ^DD(2,.323,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,"ODS")):^("ODS"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(2,.323,1,2,1.1) X ^DD(2,.323,1,2,1.4)
    1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S('$D(^DIC(21,+$P(^DPT(DA,.32),"^",3),0)):0,$P(^(0),"^",3)'=6:0,'$D(^DPT(DA,"ODS")):1,'^("ODS"):1,1:0)
    1.4)= S DIH=$S($D(^DPT(DIV(0),"ODS")):^("ODS"),1:""),DIV=X S $P(^("ODS"),U,1)=DIV,DIH=2,DIG=11500.01 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= S X=$S('$D(^DIC(21,+$P(^DPT(DA,.32),"^",3),0)):0,$P(^(0),"^",3)'=6:0,'$D(^DPT(DA,"ODS")):1,'^("ODS"):1,1:0)
    CREATE VALUE)= NOW
    DELETE VALUE)= NO EFFECT
    FIELD)= INIT
  • CROSS-REFERENCE:  2^AVAFC323^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".323;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".323;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^AENR323^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.324 SERVICE DISCHARGE TYPE [LAST] .32;4 POINTER TO TYPE OF DISCHARGE FILE (#25) TYPE OF DISCHARGE(#25)

  • INPUT TRANSFORM:  S DFN=DA D SV^DGLOCK Q
  • LAST EDITED:  JUL 28, 1986
  • HELP-PROMPT:  Select from the listing the discharge type from this patient's last episode of military service.
  • DESCRIPTION:  For this veteran applicant select from the available listing the discharge type which s/he received for his/her most recent episode of military service. Once the service record is verified only those users who hold the
    designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • GROUP:  SVC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AENR324^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the SERVICE DISCHARGE TYPE [LAST] field.
.325 SERVICE BRANCH [LAST] .32;5 POINTER TO BRANCH OF SERVICE FILE (#23) BRANCH OF SERVICE(#23)

  • INPUT TRANSFORM:  S DFN=DA D SV^DGLOCK Q
  • LAST EDITED:  JAN 17, 1991
  • HELP-PROMPT:  Select from the listing the branch in which this patient served during his last episode of military service.
  • DESCRIPTION:  For this veteran applicant select from the available listing the branch of service served in during his/her most recent episode of military service. Once the service record is verified only those users who hold the
    designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AODS4^MUMPS
    1)= S A1B2TAG="PAT" D ^A1B2XFR
    2)= S A1B2TAG="PAT" D ^A1B2XFR
  • CROSS-REFERENCE:  2^AFV1^MUMPS
    1)= Q
    2)= I $P($G(^DPT(DA,.321)),U,14)]"" D FVP^DGRPMS
    This MUMPS cross-reference acts like a trigger cross-reference.  If the Service Branch [Last], Service Branch [NTL] and Service Branch [NNTL] fields do not contain a Filipino Veteran branch of service, the Filipino Vet
    Proof field (#.3214) is deleted.
  • CROSS-REFERENCE:  2^AENR325^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the SERVICE BRANCH [LAST] field.
  • CROSS-REFERENCE:  2^AXR34^MUMPS
    1)= Q
    2)= S DGXRF=.325 D ^DGDDC Q
  • FIELD INDEX:  AMSEL (#323) MUMPS ACTION
    Short Descr:  DELETE MSE (LAST) FIELDS
    Set Logic:  Q
    Kill Logic:  D DELMSE^DGRPMS(DA,1)
    Kill Cond:  S X=X2(1)=""
    X(1):  SERVICE BRANCH [LAST]  (2,.325)  (forwards)
.326 SERVICE ENTRY DATE [LAST] .32;6 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D SV^DGLOCK I $D(X),$D(^DG(43,1)) S SD1=1 D POS^DGINP
  • LAST EDITED:  SEP 21, 1999
  • HELP-PROMPT:  Enter the date the patient entered his last episode of military service.
  • DESCRIPTION:  For this veteran applicant enter the date s/he commenced his/her most recent episode of military service. Once the service record is verified only those users who hold the designated security key may enter/edit this
    field.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AE^MUMPS
    1)= Q
    2)= Q
  • CROSS-REFERENCE:  2^AENR326^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of any changes to the SERVICE ENTRY DATE [LAST] field.
  • CROSS-REFERENCE:  2^ADGRU326^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • RECORD INDEXES:  ASERLAST (#328)
.327 SERVICE SEPARATION DATE [LAST] .32;7 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D SV^DGLOCK I $D(X),$D(^DG(43,1)) S SD1=1 D PS^DGINP
  • LAST EDITED:  SEP 21, 1999
  • HELP-PROMPT:  Enter the date on which this patient was separated from his last episode of military service.
  • DESCRIPTION:  
    For this veteran applicant enter the date s/he ended his/her most recent episode of military service.  Once the service record is verified only those users who hold the designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AENR327^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the SERVICE SEPARATION DATE [LAST] field.
  • CROSS-REFERENCE:  2^ADGRU327^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • RECORD INDEXES:  ACVCOM (#313), ASERLAST (#328)
.328 SERVICE NUMBER [LAST] .32;8 FREE TEXT

  • INPUT TRANSFORM:  S DFN=DA D SV^DGLOCK I $D(X) S:X?1"SS".E L=$S($D(^DPT(DA,0)):$P(^(0),U,9),1:X) W:X?1"SS".E " ",L S:X?1"SS".E X=L K:$L(X)>15!($L(X)<1)!'(X?.N) X
  • LAST EDITED:  JUL 28, 1986
  • HELP-PROMPT:  Enter the service number assigned to this patient during his last episode of military service or 'SS' if it's the same as his SSN.
  • DESCRIPTION:  For this veteran applicant enter the service number assigned during his/her most recent episode of military service as either 1-15 characters or enter 'SS' if the social security number and service number are the same.
    Once the service record has been verified only those users who hold the designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • GROUP:  SVC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AENR328^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the SERVICE NUMBER [LAST] field.
.3285 SERVICE SECOND EPISODE? .32;19 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • INPUT TRANSFORM:  S DFN=DA D SV^DGLOCK
  • LAST EDITED:  SEP 17, 1988
  • HELP-PROMPT:  Enter YES if this patient has more than one episode of military service otherwise enter NO.
  • DESCRIPTION:  
    For this veteran applicant enter 'Y' if s/he has more than one episode of military service, or 'N' if not.  Once the service record is verified only users who hold the designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • GROUP:  SVC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR9^MUMPS
    1)= I X'="Y" S DGXRF=.3285 D ^DGDDC Q
    2)= Q
  • CROSS-REFERENCE:  ^^TRIGGER^2^.32945
    1)= X ^DD(2,.3285,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X=DIV S X="N" X ^DD(2,.3285,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3285,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1),X=$E(X)'="Y"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.32)):^(.32),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,19,99))  S DIH=DIH_U" S %=$P(DIH,U,21,999),DIU=$P(DIH,U,20),^(.32)=$P(DIH,U,1,19)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.32945 D ^DICR:$N(^DD(DIH,
    DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= $E(#.3285)'="Y"
    CREATE VALUE)= "N"
    DELETE VALUE)= NO EFFECT
    FIELD)= #.32945
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3291
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.3285,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))'="YES" I X S X=DIV S Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X
    ="" X ^DD(2,.3285,1,3,1.4)
    1.4)= S DIH=$G(^DPT(DIV(0),.32)),DIV=X S $P(^(.32),U,10)=DIV,DIH=2,DIG=.3291 D ^DICR
    2)= X ^DD(2,.3285,1,3,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.32)),DIV=X S $P(^(.32),U,10)=DIV,DIH=2,DIG=.3291 D ^DICR
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(2,.3285,0)),U,3),Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,19)_":",2),$C(59))'="YES"
    CREATE CONDITION)= #.3285'="YES"
    CREATE VALUE)= @
    DELETE CONDITION)= #.3285'="YES"
    DELETE VALUE)= @
    FIELD)= #.3291
.329 SERVICE DISCHARGE TYPE [NTL] .32;9 POINTER TO TYPE OF DISCHARGE FILE (#25) TYPE OF DISCHARGE(#25)

  • INPUT TRANSFORM:  S DFN=DA D SER1^DGLOCK
  • LAST EDITED:  AUG 06, 1986
  • HELP-PROMPT:  Enter the type of discharge given this patient from his next-to-last episode of military service.
  • DESCRIPTION:  For this veteran applicant who has at least two episodes of military service (ANY OTHER PERIODS OF SERVICE prompt must be answered YES) select from the available listing the type of discharge received from his/her next to
    last episode of military service.  Once the service record is verified only those users who hold the designated security key may enter/edit this field.  This field cannot be deleted as long as more than one episode of
    military service is indicated.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • GROUP:  SVC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AENR329^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the SERVICE DISCHARGE TYPE [NTL] field.
.3291 SERVICE BRANCH [NTL] .32;10 POINTER TO BRANCH OF SERVICE FILE (#23) BRANCH OF SERVICE(#23)

  • INPUT TRANSFORM:  S DFN=DA D SER1^DGLOCK
  • LAST EDITED:  AUG 06, 1986
  • HELP-PROMPT:  Enter the branch of service in which the patient served in his next-to-last episode of military service.
  • DESCRIPTION:  For this veteran applicant who has at least two episodes of military service (ANY OTHER PERIODS OF SERVICE prompt must be answered YES) select from the available listing the branch of service s/he served in during his/her
    next to last episode of military service.  Once the service record is verified only those users who hold the designated security key may enter/edit this field.  This field cannot be deleted as long as more than one episode
    of military service is indicated.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • GROUP:  SVC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SERVICE SECOND EPISODE? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AFV2^MUMPS
    1)= Q
    2)= I $P($G(^DPT(DA,.321)),U,14)]"" D FVP^DGRPMS
    This MUMPS cross-reference acts like a trigger cross-reference.  If the Service Branch [Last], Service Branch [NTL] and Service Branch [NNTL] fields do not contain a Filipino Veteran branch of service, the Filipino Vet
    Proof field (#.3214) is deleted.
  • CROSS-REFERENCE:  2^AENR3291^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the SERVICE BRANCH [NTL] field.
  • CROSS-REFERENCE:  2^AXR35^MUMPS
    1)= Q
    2)= S DGXRF=.3291 D ^DGDDC Q
    This xref is used to delete the SERVICE COMPONENT [NTL] field if the SERVICE BRANCH [NTL] field is changed or deleted.
  • FIELD INDEX:  AMSENL (#324) MUMPS ACTION
    Short Descr:  DELETE MSE (NEXT TO LAST) FIELDS
    Set Logic:  Q
    Kill Logic:  D DELMSE^DGRPMS(DA,2)
    Kill Cond:  S X=X2(1)=""
    X(1):  SERVICE BRANCH [NTL]  (2,.3291)  (forwards)
.32911 SERVICE COMPONENT [LAST] .3291;1 SET
  • 'R' FOR REGULAR;
  • 'V' FOR ACTIVATED RESERVE;
  • 'G' FOR ACTIVATED NG;

  • LAST EDITED:  SEP 19, 2005
  • HELP-PROMPT:  Enter the military service component of the patient for the most recent military service episode.
  • DESCRIPTION:  For this veteran applicant enter the military service component for his/her most recent episode of military service. Once the service record has been verified only those users who hold the designated security key may
    enter/edit this field.  NATIONAL GUARD IS ONLY VALID FOR BRANCH OF SERVICE ARMY AND AIR FORCE.
  • SCREEN:  S DIC("S")="I $$VALCOMP^DGRPMS(DA,Y,1)"
  • EXPLANATION:  Component must be consistent with branch of service, branch of service is required to enter component
  • CROSS-REFERENCE:  2^AENR32911^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the SERVICE COMPONENT [LAST] field.
.32912 SERVICE COMPONENT [NTL] .3291;2 SET
  • 'R' FOR REGULAR;
  • 'V' FOR ACTIVATED RESERVE;
  • 'G' FOR ACTIVATED NG;

  • LAST EDITED:  SEP 19, 2005
  • HELP-PROMPT:  Enter the military service component of the patient for the next to last military service episode.
  • DESCRIPTION:  For this veteran applicant who has at least two episodes of military service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) enter the military service component for the next to last episode of service. Once the
    service record is verified only those users who hold the designated security key may enter/edit this field.  This field cannot be deleted as long as more than two episodes of military service are indicated.  NATIONAL GUARD
    IS ONLY VALID FOR BRANCH OF SERVICE ARMY AND AIR FORCE.
  • SCREEN:  S DIC("S")="I $$VALCOMP^DGRPMS(DA,Y,2)"
  • EXPLANATION:  Component must be consistent with branch of service, branch of service is required to enter component
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SERVICE BRANCH [NTL] field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR32912^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the SERVICE COMPONENT [NTL] field.
.32913 SERVICE COMPONENT [NNTL] .3291;3 SET
  • 'R' FOR REGULAR;
  • 'V' FOR ACTIVATED RESERVE;
  • 'G' FOR ACTIVATED NG;

  • LAST EDITED:  SEP 19, 2005
  • HELP-PROMPT:  Enter the military service component of the patient for the third most recent military service episode.
  • DESCRIPTION:  For this veteran applicant who has at least three episodes of military service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) enter the military service component for the third most recent episode of service.
    Once the service record is verified only those users who hold the designated security key may enter/edit this field.  This field cannot be deleted as long as more than two episodes of military service are indicated.
    NATIONAL GUARD IS ONLY VALID FOR BRANCH OF SERVICE ARMY AND AIR FORCE.
  • SCREEN:  S DIC("S")="I $$VALCOMP^DGRPMS(DA,Y,3)"
  • EXPLANATION:  Component must be consistent with branch of service, branch of service is required to enter component
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SERVICE BRANCH [NNTL] field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR32913^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the SERVICE COMPONENT [NNTL] field.
.3292 SERVICE ENTRY DATE [NTL] .32;11 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D SER1^DGLOCK I $D(X),$D(^DG(43,1)) S SD1=2 D POS^DGINP
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Enter the date this patient commenced his next-to-last episode of military service.
  • DESCRIPTION:  For this veteran applicant who has at least two episodes of military service (ANY OTHER PERIODS OF SERVICE prompt must be answered YES) enter the date on which the next to last episode of service commenced. Once the
    service record is verified only those users who hold the designated security key may enter/edit this field.  This field cannot be deleted as long as more than one episode of military service is indicated.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • GROUP:  SVC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AF^MUMPS
    1)= Q
    2)= Q
  • CROSS-REFERENCE:  2^AENR3292^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the SERVICE ENTRY DATE [NTL] field.
  • RECORD INDEXES:  ASERNTL (#330)
.3293 SERVICE SEPARATION DATE [NTL] .32;12 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D SER1^DGLOCK I $D(X),$D(^DG(43,1)) S SD1=2 D PS^DGINP
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Enter the date this patient ended his next-to-last episode of military service.
  • DESCRIPTION:  For this veteran applicant who has at least two episodes of military service (ANY OTHER PERIODS OF SERVICE prompt must be answered YES) enter the date on which the next to last episode of service ended. Once the service
    record is verified only those users who hold the designated security key may enter/edit this field.  This field cannot be deleted as long as more than one episode of military service is indicated.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • GROUP:  SVC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AENR3293^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the SERVICE SEPARATION DATE [NTL] field.
  • RECORD INDEXES:  ASERNTL (#330)
.3294 SERVICE NUMBER [NTL] .32;13 FREE TEXT

  • INPUT TRANSFORM:  S DFN=DA D SER1^DGLOCK I $D(X) S:X?1"SS".E L=$S($D(^DPT(DA,0)):$P(^(0),U,9),1:X) W:X?1"SS".E " ",L S:X?1"SS".E X=L K:$L(X)>15!($L(X)<1)!'(X?.N) X
  • LAST EDITED:  SEP 17, 1988
  • HELP-PROMPT:  Enter the service number assigned to this patient during his next-to-last episode of military service or 'SS' if it's the same as his SSN.
  • DESCRIPTION:  For this veteran applicant who has at least two episodes of military service (ANY OTHER PERIODS OF SERVICE prompt must be answered YES) enter the service number assigned to that next to last episode of service [1-15
    characters].  Once the service record is verified only those users who hold the designated security key may enter/edit this field.  This field cannot be deleted as long as more than one episode of military service is
    indicated.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • GROUP:  SVC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AENR3294^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the SERVICE NUMBER [NTL] field.
.32945 SERVICE THIRD EPISODE? .32;20 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • INPUT TRANSFORM:  S DFN=DA D SV^DGLOCK I "N"'[$G(X),$D(^DPT(DFN,.32)),$P(^(.32),U,19)'="Y" W !?4,*7,"Other Periods of service are not indicated...NO EDITING!" K X
  • LAST EDITED:  JUL 02, 1998
  • HELP-PROMPT:  Enter YES if this patient served more than two episodes of military service otherwise enter NO.
  • DESCRIPTION:  Enter 'Y' if this veteran applicant has at least three episodes of military service, or 'N' if not. The ANY OTHER PERIODS OF SERVICE prompt must be answered YES in order to enter a third episode of military service. Once
    the service record is verified only those users who hold the designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • GROUP:  SVC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SERVICE SECOND EPISODE? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AXR10^MUMPS
    1)= I X'="Y" S DGXRF=.32945 D ^DGDDC Q
    2)= Q
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3296
    1)= X ^DD(2,.32945,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.32)),DIV=X S $P(^(.32),U,15)=DIV,DIH=2,DIG=.3296 D ^DICR
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.32945,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))'="YES"
    2)= X ^DD(2,.32945,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.32)),DIV=X S $P(^(.32),U,15)=DIV,DIH=2,DIG=.3296 D ^DICR
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(2,.32945,0)),U,3),Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,20)_":",2),$C(59))'="YES"
    CREATE CONDITION)= #.32945'="YES"
    CREATE VALUE)= @
    DELETE CONDITION)= #.32945'="YES"
    DELETE VALUE)= @
    FIELD)= #.3296
.3295 SERVICE DISCHARGE TYPE [NNTL] .32;14 POINTER TO TYPE OF DISCHARGE FILE (#25) TYPE OF DISCHARGE(#25)

  • INPUT TRANSFORM:  S DFN=DA D SER2^DGLOCK
  • LAST EDITED:  DEC 01, 1986
  • HELP-PROMPT:  For this third episode of military service enter the discharge type given this patient.
  • DESCRIPTION:  For this veteran applicant who has at least three episodes of military service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) select from the available listing the discharge type received from the third most
    recent episode of military service.  Once the service record is verified only those users who hold the designated security key may enter/edit this field.  This field cannot be deleted as long as more than two episodes of
    military service are indicated.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • GROUP:  SVC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SERVICE THIRD EPISODE? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR3295^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the SERVICE DISCHARGE TYPE [NNTL] field.
.3296 SERVICE BRANCH [NNTL] .32;15 POINTER TO BRANCH OF SERVICE FILE (#23) BRANCH OF SERVICE(#23)

  • INPUT TRANSFORM:  S DFN=DA D SER2^DGLOCK
  • LAST EDITED:  AUG 06, 1986
  • HELP-PROMPT:  For this third episode of military service enter the branch in which this patient served.
  • DESCRIPTION:  For this veteran applicant who has at least three episodes of military service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) select from the available listing the service branch served in during his/her third
    most recent episode of service.  Once the service record is verified only those users who hold the designated security key may enter/edit this field.  This field cannot be deleted as long as more than two episodes of
    military service are indicated.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • GROUP:  SVC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SERVICE THIRD EPISODE? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AFV3^MUMPS
    1)= Q
    2)= I $P($G(^DPT(DA,.321)),U,14)]"" D FVP^DGRPMS
    This MUMPS cross-reference acts like a trigger cross-reference.  If the Service Branch [Last], Service Branch [NTL] and Service Branch [NNTL] fields do not contain a Filipino Veteran branch of service, the Filipino Vet
    Proof field (#.3214) is deleted.
  • CROSS-REFERENCE:  2^AENR3296^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the SERVICE BRANCH [NNTL] field.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.32913
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.3291)):^(.3291),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.3291)),DIV=X S $P(^(.3291),U,3)=DIV,DIH=2,DIG=.32913 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.3291)):^(.3291),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.3291)),DIV=X S $P(^(.3291),U,3)=DIV,DIH=2,DIG=.32913 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= SERVICE COMPONENT [NNTL]
    Deletes the COMPONENT field if the branch of service is changed or deleted.
  • CROSS-REFERENCE:  2^AXR36^MUMPS
    1)= Q
    2)= S DGXRF=.3296 D ^DGDDC Q
  • FIELD INDEX:  AMSENNL (#325) MUMPS ACTION
    Short Descr:  DELETE MSE (NEXT TO NEXT TO LAST) FIELDS
    Set Logic:  Q
    Kill Logic:  D DELMSE^DGRPMS(DA,3)
    Kill Cond:  S X=X2(1)=""
    X(1):  SERVICE BRANCH [NNTL]  (2,.3296)  (forwards)
.3297 SERVICE ENTRY DATE [NNTL] .32;16 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D SER2^DGLOCK I $D(X),$D(^DG(43,1)) S SD1=3 D POS^DGINP
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  For this third episode of military service enter the date on which the patient commenced serving.
  • DESCRIPTION:  For this veteran applicant who has at least three episodes of military service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) enter the date on which the third most recent episode of service commenced. Once the
    service record is verified only those users who hold the designated security key may enter/edit this field.  This field cannot be deleted as long as more than two episodes of military service are indicated.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • GROUP:  SVC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AENR3297^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the SERVICE ENTRY DATE [NNTL] field.
  • RECORD INDEXES:  ASERNNTL (#329)
.3298 SERVICE SEPARATION DATE [NNTL] .32;17 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D SER2^DGLOCK I $D(X),$D(^DG(43,1)) S SD1=3 D PS^DGINP
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  For this third episode of military service enter the date on which the service terminated.
  • DESCRIPTION:  For this veteran applicant who has at least three episodes of military service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) enter the date on which the third most recent episode of service ended. Once the
    service record is verified only those users who hold the designated security key may enter/edit this field.  This field cannot be deleted as long as more than two episodes of military service are indicated.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • GROUP:  SVC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AENR3298^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the SERVICE SEPARATION DATE [NNTL] field.
  • RECORD INDEXES:  ASERNNTL (#329)
.3299 SERVICE NUMBER [NNTL] .32;18 FREE TEXT

  • INPUT TRANSFORM:  S DFN=DA D SER2^DGLOCK I $D(X) S:X?1"SS".E L=$S($D(^DPT(DA,0)):$P(^(0),U,9),1:X) W:X?1"SS".E " ",L S:X?1"SS".E X=L K:$L(X)>15!($L(X)<1)!'(X?.N) X
  • LAST EDITED:  SEP 17, 1988
  • HELP-PROMPT:  For this third episode of military service enter the service number assigned or 'SS' if it's the same as the SSN.
  • DESCRIPTION:  For this veteran applicant who has at least three episodes of military service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) enter the service number assigned for the third most recent episode of service [1-15
    characters].  Once the service record is verified only those users who hold the designated security key may enter/edit this field.  This field cannot be deleted as long as more than two episodes of military service are
    indicated.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • GROUP:  SVC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AENR3299^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the SERVICE NUMBER [NNTL] field.
.33011 E-WORK PHONE NUMBER .33;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  JAN 13, 1992
  • HELP-PROMPT:  Enter the work phone number for the emergency contact. Answer must be 4-20 characters in length.
  • DESCRIPTION:  
    If the emergency contact for this patient is employed, enter the phone number at which this individual may be reached while at work.
.33012 E-CONTACT CHANGE DATE/TIME .332;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  MAY 20, 2005
  • DESCRIPTION:  
    This field will hold the date and time of the last Emergency Contact Update.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.3305 E-EMER. CONTACT SAME AS NOK? .33;10 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • INPUT TRANSFORM:  I $D(X),X="Y" D K1^DGLOCK2
  • LAST EDITED:  OCT 07, 1986
  • HELP-PROMPT:  Enter YES if the emergency contact and next-of-kin are the same person, otherwise enter NO.
  • DESCRIPTION:  
    If a primary NOK is defined enter 'Y' if that person is also the primary emergency contact, otherwise enter 'N' for no.
  • GROUP:  EC1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM5 (#319)
.331 E-NAME .33;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X I $D(X) K DG20NAME S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME
  • LAST EDITED:  FEB 05, 2004
  • HELP-PROMPT:  Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length.
  • DESCRIPTION:  Enter the primary emergency contact's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma.
    All other characters and parenthetical text will be removed.
  • TECHNICAL DESCR:  
    IHS/ITSC/LJF 2/5/2004: Changed Input Transform - added K DG20NAME before setting DG20NAME to kill any leftover array items from previous patient.
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR4^MUMPS
    1)= Q
    2)= S DGXRF=.331 D ^DGDDC Q
  • FIELD INDEX:  ANAM331 (#46) MUMPS IR ACTION
    Short Descr:  This index keeps the NAME COMPONENTS file in synch with field #.331.
    Description:  This cross reference uses Kernel name standardization APIs to keep the NAME COMPONENTS (#20) file record associated with the #.331 field synchronized with the data value stored in that field.
    Set Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^DPTNAME(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.331,.DG20NAME,1.07,+$P($G(^DPT(DA,"NAME")),U,7),"CL35") K DG20NAME Q
    Kill Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.331,1.07) Q
    X(1):  E-NAME  (2,.331)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ADTTM5 (#319)
.331011 E2-WORK PHONE NUMBER .331;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  JAN 13, 1992
  • HELP-PROMPT:  Enter the work phone number for the secondary emergency contact. Answer must be 4-20 characters in length.
  • DESCRIPTION:  
    If the person designated as the secondary emergency contact is employed, enter the person's work phone number.
.3311 E2-NAME OF SECONDARY CONTACT .331;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X I $D(X) K DG20NAME S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME I $D(X) D E1^DGLOCK2
  • LAST EDITED:  FEB 05, 2004
  • HELP-PROMPT:  Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length.
  • DESCRIPTION:  Enter the secondary emergency contact's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma.
    All other characters and parenthetical text will be removed.
  • TECHNICAL DESCR:  
    IHS/ITSC/LJF 2/5/2004: Changed Input Transform - added K DG20NAME before setting DG20NAME to kill any leftover array items from previous patient.
  • GROUP:  EC2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR5^MUMPS
    1)= Q
    2)= S DGXRF=.3311 D ^DGDDC Q
  • FIELD INDEX:  ANAM3311 (#47) MUMPS IR ACTION
    Short Descr:  This index keeps the NAME COMPONENTS file in synch with field #.3311.
    Description:  This cross reference uses Kernel name standardization APIs to keep the NAME COMPONENTS (#20) file record associated with the #.3311 field synchronized with the data value stored in that field.
    Set Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^DPTNAME(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.3311,.DG20NAME,1.08,+$P($G(^DPT(DA,"NAME")),U,8),"CL35") K DG20NAME Q
    Kill Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.3311,1.08) Q
    X(1):  E2-NAME OF SECONDARY CONTACT  (2,.3311)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ADTTM6 (#320)
.33112 E2-CONTACT CHANGE DATE/TIME .332;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  MAY 20, 2005
  • DESCRIPTION:  
    This field will hold the date and time of the last Secondary Emergency Contact Update.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.3312 E2-RELATIONSHIP TO PATIENT .331;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D E2^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter the relationship of the secondary emergency contact to the patient [2-30 characters].
  • DESCRIPTION:  If a secondary emergency contact is specified enter the relationship of that person to the applicant [2-30 characters], otherwise nothing may be entered. This field cannot be deleted as long as a secondary emergency
    contact is on file.
  • DELETE TEST:  1,0)= S DFN=DA D E2D^DGLOCK2 I '$D(X)
  • GROUP:  EC2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM6 (#320)
.3313 E2-STREET ADDRESS [LINE 1] .331;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E2^DGLOCK2
  • LAST EDITED:  JAN 15, 1989
  • HELP-PROMPT:  Enter the first line of the secondary emergency contacts address [3-30 characters].
  • DESCRIPTION:  If a secondary emergency contact is specified enter the first line of that person's street address [3-30 characters], otherwise nothing may be entered. This field cannot be deleted as long as a secondary emergency contact
    is on file.
  • DELETE TEST:  1,0)= S DFN=DA D E2D^DGLOCK2 I '$D(X)
  • GROUP:  EC2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR22^MUMPS
    1)= Q
    2)= S DGXRF=.3313 D ^DGDDC Q
  • RECORD INDEXES:  ADTTM6 (#320)
.3314 E2-STREET ADDRESS [LINE 2] .331;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E2^DGLOCK2
  • LAST EDITED:  JAN 15, 1989
  • HELP-PROMPT:  Enter the second line of the secondary emergency contacts address [3-30 characters].
  • DESCRIPTION:  If a secondary emergency contact is specified enter the second line of that person's street address [3-30 characters], if necessary, otherwise nothing may be entered. This field cannot be deleted as long as a secondary
    emergency contact is on file.
  • GROUP:  EC2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR23^MUMPS
    1)= Q
    2)= S DGXRF=.3314 D ^DGDDC Q
  • RECORD INDEXES:  ADTTM6 (#320)
.3315 E2-STREET ADDRESS [LINE 3] .331;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E2^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter the third line of the secondary emergency contacts address [3-30 characters].
  • DESCRIPTION:  If a secondary emergency contact is specified enter the third line of that person's street address [3-30 characters], if necessary, otherwise nothing may be entered. This field cannot be deleted as long as a secondary
    emergency contact is on file.
  • GROUP:  EC2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM6 (#320)
.3316 E2-CITY .331;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E2^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter the city in which the secondary emergency contact resides [3-30 characters].
  • DESCRIPTION:  If a secondary emergency contact is specified enter the city in which that person resides [3-30 characters], otherwise nothing may be entered. This field cannot be deleted as long as a secondary emergency contact is on
    file.
  • DELETE TEST:  1,0)= S DFN=DA D E2D^DGLOCK2 I '$D(X)
  • GROUP:  EC2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM6 (#320)
.3317 E2-STATE .331;7 POINTER TO STATE FILE (#5) STATE(#5)

  • INPUT TRANSFORM:  I $D(X) S DFN=DA D E2^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Select from the listing the state in which the secondary emergency contact resides.
  • DESCRIPTION:  If a secondary emergency contact is specified select from the available listing the state in which that person resides, otherwise nothing may be entered. This field cannot be deleted as long as a secondary emergency
    contact is on file.
  • DELETE TEST:  1,0)= S DFN=DA D E2D^DGLOCK2 I '$D(X)
  • GROUP:  EC2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM6 (#320)
.3318 E2-ZIP CODE .331;8 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X I $D(X) S DFN=DA D E2^DGLOCK2
  • LAST EDITED:  JUN 03, 1993
  • HELP-PROMPT:  Enter the zip code as five numerics where the secondary emergency contact resides.
  • DESCRIPTION:  If a secondary emergency contact is specified enter the zip code for the city in which s/he resides [5 numerics], otherwise nothing may be entered. This field cannot be deleted as long as a secondary emergency contact is
    on file.
  • DELETE TEST:  1,0)= S DFN=DA D E2D^DGLOCK2 I '$D(X)
  • GROUP:  EC2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^ZEC2ZIP^MUMPS
    1)= D SET^DGREGDD1(DA,.2204,.22,4,X)
    2)= D KILL^DGREGDD1(DA,.2204,.22,4,X)
    This sets the corresponding zip+4 field to be equal to this field's value.
  • RECORD INDEXES:  ADTTM6 (#320)
.3319 E2-PHONE NUMBER .331;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X I $D(X) S DFN=DA D E2^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter the phone number of the secondary emergency contact [3-20 characters].
  • DESCRIPTION:  If a secondary emergency contact is specified enter the telephone number at which that person may be reached [3-20 characters], otherwise nothing may be entered. This field cannot be deleted as long as a secondary
    emergency contact is on file.
  • GROUP:  EC2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.332 E-RELATIONSHIP TO PATIENT .33;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D E1^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter the relationship of the emergency contact to the patient [3-35 characters].
  • DESCRIPTION:  If a primary emergency contact is specified enter the relationship of that person to the applicant [3-35 characters], otherwise nothing may be entered. This field cannot be deleted as long as a primary emergency contact
    is on file.
  • DELETE TEST:  1,0)= S DFN=DA D E1D^DGLOCK2 I '$D(X)
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the EC RELATIONSHIP field of the PATIENT File
  • RECORD INDEXES:  ADTTM5 (#319)
.333 E-STREET ADDRESS [LINE 1] .33;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E1^DGLOCK2
  • LAST EDITED:  JAN 15, 1989
  • HELP-PROMPT:  Enter the first line of the emergency contacts street address [3-30 characters].
  • DESCRIPTION:  If a primary emergency contact is specified enter the first line of that person's street address [3-30 characters], otherwise nothing may be entered. This field cannot be deleted as long as a primary emergency contact is
    on file.
  • DELETE TEST:  1,0)= S DFN=DA D E1D^DGLOCK2 I '$D(X)
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR24^MUMPS
    1)= Q
    2)= S DGXRF=.333 D ^DGDDC Q
  • RECORD INDEXES:  ADTTM5 (#319)
.334 E-STREET ADDRESS [LINE 2] .33;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E1^DGLOCK2
  • LAST EDITED:  JAN 15, 1989
  • HELP-PROMPT:  Enter the second line of the emergency contacts street address [3-30 characters].
  • DESCRIPTION:  If a primary emergency contact is specified enter the second line of that person's street address [3-30 characters], if necessary, otherwise nothing may be entered. This field cannot be deleted as long as a primary
    emergency contact is on file.
  • GROUP:  EC1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR25^MUMPS
    1)= Q
    2)= S DGXRF=.334 D ^DGDDC Q
  • RECORD INDEXES:  ADTTM5 (#319)
.335 E-STREET ADDRESS [LINE 3] .33;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E1^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter the third line of the emergency contacts address [3-30 characters].
  • DESCRIPTION:  If a primary emergency contact is specified enter the third line of that person's street address [3-30 characters], if necessary, otherwise nothing may be entered. This field cannot be deleted as long as a primary
    emergency contact is on file.
  • GROUP:  EC1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM5 (#319)
.336 E-CITY .33;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E1^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter the city in which the emergency contact resides [3-30 characters].
  • DESCRIPTION:  
    If a primary emergency contact is specified enter the city in which that person resides [3-30 characters], otherwise nothing may be entered.  This field cannot be deleted as long as a primary emergency contact is on file.
  • DELETE TEST:  1,0)= S DFN=DA D E1D^DGLOCK2 I '$D(X)
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM5 (#319)
.337 E-STATE .33;7 POINTER TO STATE FILE (#5) STATE(#5)

  • INPUT TRANSFORM:  I $D(X) S DFN=DA D E1^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Select from the listing the state in whcih the emergency contact resides.
  • DESCRIPTION:  If a primary emergency contact is specified select from the available listing the state in which that person resides, otherwise nothing may be entered. This field cannot be deleted as long as a primary emergency contact
    is on file.
  • DELETE TEST:  1,0)= S DFN=DA D E1D^DGLOCK2 I '$D(X)
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM5 (#319)
.338 E-ZIP CODE .33;8 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X I $D(X) S DFN=DA D E1^DGLOCK2
  • LAST EDITED:  JUN 03, 1993
  • HELP-PROMPT:  Enter the zip code as five numerics of the emergency contact.
  • DESCRIPTION:  If a primary emergency contact is specified enter the zip code for the city in which s/he resides [5 numerics], otherwise nothing may be entered. This field cannot be deleted as long as a primary emergency contact is on
    file.
  • DELETE TEST:  1,0)= S DFN=DA D E1D^DGLOCK2 I '$D(X)
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AEC1ZIP^MUMPS
    1)= D SET^DGREGDD1(DA,.2201,.22,1,X)
    2)= D KILL^DGREGDD1(DA,2201,.22,1,X)
    This sets the corresponding zip+4 field to be equal to this field's value.
  • RECORD INDEXES:  ADTTM5 (#319)
.339 E-PHONE NUMBER .33;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X I $D(X) S DFN=DA D E1^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter the phone number of the emergency contact [3-20 characters].
  • DESCRIPTION:  If a primary emergency contact is specified enter the telephone number [3-20 characters] at which that person may be reached, otherwise nothing may be entered. This field cannot be deleted as long as a primary emergency
    contact is on file.
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.34011 D-WORK PHONE NUMBER .34;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  JAN 13, 1992
  • HELP-PROMPT:  Enter the designee's work phone number. Answer must be 4-20 characters in length.
  • DESCRIPTION:  
    If the person designated to receive the patient's personal effects is employed, enter the phone number at which that person may be reached while at work.
.3405 D-DESIGNEE SAME AS NOK? .34;10 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • INPUT TRANSFORM:  I $D(X),X="Y" D K1^DGLOCK2
  • LAST EDITED:  OCT 07, 1986
  • HELP-PROMPT:  If the designee and the person specififed as the next-of-kin are one in the same enter YES otherwise enter NO.
  • DESCRIPTION:  
    If a primary NOK is defined enter 'Y' if that person is also the designee appointed by the applicant, otherwise enter 'N' for no.
  • GROUP:  D1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM7 (#321)
.341 D-NAME OF DESIGNEE .34;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X I $D(X) K DG20NAME S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,35) K:'$L(X) X,DG20NAME
  • LAST EDITED:  FEB 05, 2004
  • HELP-PROMPT:  Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length.
  • DESCRIPTION:  Enter the designee's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other
    characters and parenthetical text will be removed.
  • TECHNICAL DESCR:  
    IHS/ITSC/LJF 2/5/2004: Changed Input Transform - added K DG20NAME before setting DG20NAME to kill any leftover array items from previous patient.
  • GROUP:  D1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR6^MUMPS
    1)= Q
    2)= S DGXRF=.341 D ^DGDDC Q
  • FIELD INDEX:  ANAM341 (#48) MUMPS IR ACTION
    Short Descr:  This index keeps the NAME COMPONENTS file in synch with field #.341.
    Description:  This cross reference uses Kernel name standardization APIs to keep the NAME COMPONENTS (#20) file record associated with the #.341 field synchronized with the data value stored in that field.
    Set Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^DPTNAME(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.341,.DG20NAME,1.09,+$P($G(^DPT(DA,"NAME")),U,9),"CL35") K DG20NAME Q
    Kill Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.341,1.09) Q
    X(1):  D-NAME OF DESIGNEE  (2,.341)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ADTTM7 (#321)
.3412 DESIGNEE CHANGE DATE/TIME .332;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  MAY 20, 2005
  • DESCRIPTION:  
    This field will hold the date and time of the last Designee Update.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.342 D-RELATIONSHIP TO PATIENT .34;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D D^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter the relationship of the designee to the patient [3-30 characters].
  • DESCRIPTION:  
    If a designee is specified enter the relationship of that person to the applicant [3-30 characters], otherwise nothing may be entered.  This field cannot be deleted as long as a designee is on file.
  • DELETE TEST:  1,0)= S DFN=DA D DD^DGLOCK2 I '$D(X)
  • GROUP:  D1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM7 (#321)
.343 D-STREET ADDRESS [LINE 1] .34;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D D^DGLOCK2
  • LAST EDITED:  JAN 13, 1992
  • HELP-PROMPT:  Enter the first line of the designee's address [3-30 characters].
  • DESCRIPTION:  
    If a designee is specified enter the first line of that person's street address [3-30 characters], otherwise nothing may be entered.  This field cannot be deleted as long as a designee is on file.
  • DELETE TEST:  1,0)= S DFN=DA D DD^DGLOCK2 I '$D(X)
  • GROUP:  D1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR26^MUMPS
    1)= Q
    2)= S DGXRF=.343 D ^DGDDC Q
  • RECORD INDEXES:  ADTTM7 (#321)
.344 D-STREET ADDRESS [LINE 2] .34;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D D^DGLOCK2
  • LAST EDITED:  JAN 15, 1989
  • HELP-PROMPT:  Enter the second line of the designee's address [3-30 characters].
  • DESCRIPTION:  
    If a designee is specified enter the second line of that person's street address [3-30 characters], if necessary, otherwise nothing may be entered.  This field cannot be deleted as long as a designee is on file.
  • GROUP:  D1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AXR27^MUMPS
    1)= Q
    2)= S DGXRF=.344 D ^DGDDC Q
  • RECORD INDEXES:  ADTTM7 (#321)
.345 D-STREET ADDRESS [LINE 3] .34;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D D^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter the third line of the designee's address [3-30 characters].
  • DESCRIPTION:  
    If a designee is specified enter the third line of that person's street address [3-30 characters], if necessary, otherwise nothing may be entered.  This field cannot be deleted as long as a designee is on file.
  • GROUP:  D1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM7 (#321)
.346 D-CITY .34;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D D^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter the city in which the designee resides [1-30 characters].
  • DESCRIPTION:  
    If a designee is specified enter the city in which that person resides [1-30 characters], otherwise nothing may be entered.  This field cannot be deleted as long as a designee is on file.
  • DELETE TEST:  1,0)= S DFN=DA D DD^DGLOCK2 I '$D(X)
  • GROUP:  D1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM7 (#321)
.347 D-STATE .34;7 POINTER TO STATE FILE (#5) STATE(#5)

  • INPUT TRANSFORM:  I $D(X) S DFN=DA D D^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Select from the listing the state in which the designee resides.
  • DESCRIPTION:  
    If a designee is specified select from the available listing the state in which that person resides.  This field cannot be deleted as long as a designee is on file.
  • DELETE TEST:  1,0)= S DFN=DA D DD^DGLOCK2 I '$D(X)
  • GROUP:  D1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADTTM7 (#321)
.348 D-ZIP CODE .34;8 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X I $D(X) S DFN=DA D D^DGLOCK2
  • LAST EDITED:  JUN 03, 1993
  • HELP-PROMPT:  Enter the zip code as five numerics of the designee's address.
  • DESCRIPTION:  
    If a designee is specified enter the zip code for the city in which s/he resides [5 numerics], otherwise nothing may be entered.  This field cannot be deleted as long as a designee is on file.
  • TECHNICAL DESCR:  
  • DELETE TEST:  1,0)= S DFN=DA D DD^DGLOCK2 I '$D(X)
  • GROUP:  D1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AD1ZIP^MUMPS
    1)= D SET^DGREGDD1(DA,.2202,.22,2,X)
    2)= D KILL^DGREGDD1(DA,.2202,.22,2,X)
    This sets the corresponding zip+4 field to be equal to this field's value.
  • RECORD INDEXES:  ADTTM7 (#321)
.349 D-PHONE NUMBER .34;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X I $D(X) S DFN=DA D D^DGLOCK2
  • LAST EDITED:  OCT 02, 1986
  • HELP-PROMPT:  Enter the phone number of the designee [3-20 characters].
  • DESCRIPTION:  
    If a designee is specified enter the telephone number at which that person may be reached [3-20 characters], otherwise nothing may be entered.  This field cannot be deleted as long as a designee is on file.
  • GROUP:  D1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.351 DATE OF DEATH .35;1 DATE

  • INPUT TRANSFORM:  S %DT="EPT" D ^%DT S X=Y K:Y<1 X I $D(X) D H^DGUTL K:X>DGTIME X K DGTIME,DGDATE I $D(X),X<$P(^DPT(DA,0),"^",3) K X
  • LAST EDITED:  NOV 22, 1996
  • HELP-PROMPT:  Enter the date this patient died. Date must not be before date of birth.
  • DESCRIPTION:  
    Enter the date of this patient's expiration.
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the DATE/TIME field of the PATIENT MOVEMENT File
    TRIGGERED by the MAS MOVEMENT TYPE field of the PATIENT MOVEMENT File
  • CROSS-REFERENCE:  ^^TRIGGER^2^.091
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(2,.351,1,1,1.1) X ^DD(2,.351,1,1,1.4)
    1.1)= S X=DIV X ^DD(2,.351,1,1,49.2) S X=$E(Y(5),Y(6),X) S Y=X,X=Y(4),X=X_Y_"/",Y(7)=X S X=DIV,Y(8)=X S X=2,Y(9)=X S X=3,X=$E(Y(8),Y(9),X) S Y=X,X=Y(7),X=X_Y_"]"
    1.4)= S DIH=$S($D(^DPT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,10)=DIV,DIH=2,DIG=.091 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(2,.351,1,1,2.1) X ^DD(2,.351,1,1,2.4)
    2.1)= S X=DIV X ^DD(2,.351,1,1,59.2) S Y(8)=X S X=2,X=$P(Y(7),Y(8),X) S Y=X,X=Y(3),X=X_Y
    2.4)= S DIH=$S($D(^DPT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,10)=DIV,DIH=2,DIG=.091 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    49.2)= S X=DIU_"[PATIENT DIED ON ",Y(1)=X S X=DIV,Y(2)=X S X=4,Y(3)=X S X=5,X=$E(Y(2),Y(3),X) S Y=X,X=Y(1),X=X_Y_"/",Y(4)=X S X=DIV,Y(5)=X S X=6,Y(6)=X S X=7
    59.2)= S X=DIU,Y(1)=X S X="[PATIENT DIED",Y(2)=X S X=1,X=$P(Y(1),Y(2),X),Y(3)=X,Y(4)=X S X=DIU,Y(5)=X S X="PATIENT DIED",Y(6)=X S X=2,X=$P(Y(5),Y(6),X),Y(7)=X S X="]"
    CREATE VALUE)= REMARKS_"[PATIENT DIED ON "_$E(DATE OF DEATH,4,5)_"/"_$E(DATE OF DEATH,6,7)_"/"_$E(DATE OF DEATH,2,3)_"]"
    DELETE VALUE)= $P(REMARKS,"[PATIENT DIED",1)_$P($P(REMARKS,"PATIENT DIED",2),"]",2)
    FIELD)= REMARKS
    This appends into the REMARKS field a notation regarding the DATE OF DEATH.  If DATE OF DEATH is deleted, the notation will be stripped out of the REMARKS field.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.352
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.35)):^(.35),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(2,.351,1,2,1.1) X ^DD(2,.351,1,2,1.4)
    1.1)= S X=DIV S X=$S(($D(DUZ)#2):DUZ,1:"")
    1.4)= S DIH=$S($D(^DPT(DIV(0),.35)):^(.35),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(.35)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.352 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=$S(($D(DUZ)#2):DUZ,1:"")
    DELETE VALUE)= NO EFFECT
    FIELD)= DEATH ENTERED BY
  • CROSS-REFERENCE:  2^AEXP^MUMPS
    1)= S %X=X,X="DGDEATH" X ^%ZOSF("TEST") S X=%X I $T S DFN=DA D XFR^DGDEATH
    2)= D DEL^DGDEATH
    This cross-reference will generate a message when a patient death is added or removed.
  • CROSS-REFERENCE:  2^AEXP1
    1)= S ^DPT("AEXP1",$E(X,1,30),DA)=""
    2)= K ^DPT("AEXP1",$E(X,1,30),DA)
  • CROSS-REFERENCE:  2^AOERR^MUMPS
    1)= D DEATH^DGOERNOT
    2)= Q
    This cross-reference is used in conjunction with ORDER ENTRY/RESULTS REPORTING v2.09 or higher to send MAS OE/RR NOTIFICATIONS of DEATH to users who are on an OE/RR LIST for a patient.
  • CROSS-REFERENCE:  2^APSJD^MUMPS
    1)= S XX=X,X="PSJADT" X ^%ZOSF("TEST") S X=XX K XX I  D END^PSJADT
    2)= Q
    3)= Cancels Inpatient Medication orders.
    This is used by the Inpatient Medications package to cancel a patient's IV and Unit Dose orders whenever a date of death is entered for the patient.
  • CROSS-REFERENCE:  2^ARCDTH^MUMPS
    1)= S RCX=X,X="RCAMDTH" X ^%ZOSF("TEST") S X=RCX K RCX I  D SET^RCAMDTH
    2)= S RCX=X,X="RCAMDTH" X ^%ZOSF("TEST") S X=RCX K RCX I  D ERR^RCAMDTH
    3)= ACCOUNTS RECEIVABLE DEATH NOTIFICATION
    This cross-reference is used to notify the Accounts Receivable package (v4 or higher) of a patient's death so that the patient's account may be reviewed for appropriate action.
  • CROSS-REFERENCE:  2^ADEP^MUMPS
    1)= D SET^DGDEPINA
    2)= D KILL^DGDEPINA
    This is used to updated the effective dates in file 408.12.
  • CROSS-REFERENCE:  2^AENR351^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    Used to update the patient's enrollment.  IHS/ANMC/LJF 8/24/2000 added quit to VA calls.
  • CROSS-REFERENCE:  2^DG714^MUMPS
    1)= D START^DGMTDELS(DA)
    2)= Q
    3)= Deletes last REQUIRED means test
  • CROSS-REFERENCE:  2^APSOD^MUMPS
    1)= I $$VERSION^XPDUTL("PSO")>6 D APSOD^PSOCAN3(DA)
    2)= Q
    3)= Discontinues Outpatient Medications.
    This xref is used to discontinue all active outpatient medications whenever a date of death is entered for the patient.  This xref is used with v7 of Outpatient Pharmacy (DBIA #1624).
  • CROSS-REFERENCE:  2^IVM351^MUMPS
    1)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    2)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
    This cross-reference will check the IVM PATIENT file to see if a change to this field will require transmission to the IVM Center.  If it does, the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and the
    nightly background job will transmit the updated information.
  • CROSS-REFERENCE:  2^AVAFC351^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".351;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".351;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^ADGRU351^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • CROSS-REFERENCE:  2^AAVABDW13^MUMPS
    1)= D SET^AUPNDWXR(DA,"BASE")
    2)= D KILL^AUPNDWXR(DA,"BASE")
    Populates AUPNDWAF for the Data Warehouse export.  See routine AUPNDWXR for documentation.
  • FIELD INDEX:  ADGFMD351 (#36) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.351,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.351,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  DATE OF DEATH  (2,.351)  (forwards)
  • FIELD INDEX:  ADGFM351 (#314) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.351,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.351,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  DATE OF DEATH  (2,.351)  (forwards)
.352 DEATH ENTERED BY .35;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 06, 1990
  • HELP-PROMPT:  The name of the person who entered the date of death.
  • DESCRIPTION:  This field records the date a patient's death was initially entered into the DHCP system. This field is created automatically by the MAS module when a date of death is entered either through the 'Death Entry' option or
    through the 'Discharge a Patient' option.
    WRITE AUTHORITY:  ^
  • GROUP:  IHS
  • NOTES:  TRIGGERED by the DATE OF DEATH field of the VA PATIENT File
.353 SOURCE OF NOTIFICATION .35;3 SET
  • '1' FOR INPATIENT AT VAMC;
  • '2' FOR NON-VA MEDICAL FACILITY;
  • '3' FOR DEATH CERTIFICATE ON FILE;
  • '4' FOR VBA;
  • '5' FOR VA INSURANCE;
  • '6' FOR SSA;
  • '7' FOR NCA;
  • '8' FOR NEXT OF KIN/FAMILY/FRIEND;
  • '9' FOR OTHER;

  • LAST EDITED:  OCT 10, 2003
  • HELP-PROMPT:  Select the first source of death that appears on the list that applies to this veteran.
  • DESCRIPTION:  
    This is a set of codes that represents who/what notified the VA of the Date of Death.
  • CROSS-REFERENCE:  2^AENR353^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.354 DATE OF DEATH LAST UPDATED .35;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 15, 2003
  • DESCRIPTION:  
    This is a date/time value that represents the date/time the date of death field (.351) was last modified/entered/deleted.
  • CROSS-REFERENCE:  2^AENR354^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.355 LAST EDITED BY .35;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 18, 2003
  • DESCRIPTION:  
    This is the local user ID of the person that last made a modification to the date of death (.351) field.
.3601 COLLATERAL SPONSOR'S NAME .36;11 POINTER TO VA PATIENT FILE (#2)
************************REQUIRED FIELD************************
VA PATIENT(#2)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^DPT(+Y,""VET"")),^(""VET"")=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 25, 2000
  • DESCRIPTION:  If this patient is a collateral responsible for picking up medications or information regarding another patient, that patient's name should be entered here.
    This sponsor must be a veteran and must exist in the patient file.
  • SCREEN:  S DIC("S")="I $D(^DPT(+Y,""VET"")),^(""VET"")=""Y"""
  • EXPLANATION:  Sponsor must be a veteran.
  • GROUP:  IHS
  • CROSS-REFERENCE:  2^ACOL^MUMPS
    1)= S ^DPT("ACOL",+X,DA)=""
    2)= K ^DPT("ACOL",+X,DA)
  • CROSS-REFERENCE:  2^AIHS3601
    1)= S ^DPT("AIHS3601",$E(X,1,30),DA)=""
    2)= K ^DPT("AIHS3601",$E(X,1,30),DA)
    3)= FOR PATIENT MERGE ONLY
    IHS/ANMC/LJF 8/25/2000: added to facilitate speed in the patient merge utility.  Field is not used by IHS.
.3602 MILITARY DISABILITY RETIREMENT .36;12 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • INPUT TRANSFORM:  S DFN=DA D EV2^DGLOCK
  • LAST EDITED:  AUG 29, 2005
  • HELP-PROMPT:  Answer Yes if the Veteran receives disability pay in lieu of VA Compensation.
  • TECHNICAL DESCR:  
    This field will replace Disability Discharge from the Military (field #.362).
  • EXECUTABLE HELP:  D HLP3602^DGRPU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AV^MUMPS
    1)= S DFN=DA D EN^DGMTR K DGREQF
    2)= Q
  • CROSS-REFERENCE:  2^AENR3602^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference will be used to update the patient's current Patient Enrollment Record.
.3603 DISCHARGE DUE TO DISABILITY .36;13 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • INPUT TRANSFORM:  S DFN=DA D EV2^DGLOCK
  • LAST EDITED:  AUG 16, 2005
  • HELP-PROMPT:  Was the Veteran discharged due to a disability incurred in the Line of Duty?
  • EXECUTABLE HELP:  D HLP3603^DGRPU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AU^MUMPS
    1)= S DFN=DA D EN^DGMTR K DGREQF
    2)= Q
  • CROSS-REFERENCE:  2^AENR3603^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference will be used to update the patient's current Patient Enrollment record.
.361 PRIMARY ELIGIBILITY CODE .36;1 POINTER TO ELIGIBILITY CODE FILE (#8) ELIGIBILITY CODE(#8)

  • INPUT TRANSFORM:  S DFN=DA D EV^DGLOCK I $D(X) D ECD^DGLOCK1
  • LAST EDITED:  AUG 25, 2000
  • HELP-PROMPT:  Select from the available list the eligibility code which best defines this applicant's primary entitlement to care. For more detailed information, enter ??.
  • DESCRIPTION:  Select from the available listing the appropriate eligibility code for this applicant. For non-veteran applicants a wide variety of choices are available. For veteran applicants the choices are screened [in the following
    order] dependent on the responses to other prompts:
    1.  If the SERVICE CONNECTED prompt (field .301) is answered YES
    only the following two choices are available:
    a.  If the SERVICE CONNECTED PERCENTAGE prompt (field .302) entered
    is 50% or greater 'SERVICE CONNECTED 50% TO 100%' can be
    selected.
    b.  Otherwise, the percentage is assumed to be less than 50% and
    only 'SC, LESS THAN 50%' may be entered.
    2.  If the response to the WERE YOU A PRISONER OF WAR field (# .525)
    is YES and the veteran is not service connected, you must select
    PRISONER OF WAR as the eligibility code.
    3.  If the veteran is receiving VA benefits, but does not meet the
    criteria in items 1 and 2 above, then the following choices may
    be presented for selection:
    If RECEIVING A&A BENEFITS is answered YES, the eligibility code
    AID & ATTENDANCE may be selected.
    If the RECEIVING HOUSEBOUND BENEFITS is answered YES ,the eligibility
    code HOUSEBOUND may be selected.
    If the above two prompts were answered NO, but the RECEIVING A VA
    PENSION prompt was answered YES, only the NSC, VA PENSION prompt
    may be selected.
    4.  If none of the above pertain to this veteran, then the NSC eligibility
    will be available for selection.
    **  Dependent on the birthdate of the applicant, the following two
    eligibility codes may be displayed along with those shown in items
    3 through 5 above:  WORLD WAR I and MEXICAN BORDER WAR.  These would
    display for veterans not meeting the criteria in items 1 and 2, but
    whose date of birth is prior to 1920.
  • SCREEN:  S DFN=DA D ECD^DGLOCK1
  • EXPLANATION:  Applicable code based on veteran or non-veteran status.
  • DELETE TEST:  1,0)= S DFN=DA D EV^DGLOCK I '$D(X)
  • GROUP:  ECD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AG^MUMPS
    1)= S DFN=DA D EN^DGMTR K DGREQF
    2)= Q
  • CROSS-REFERENCE:  ^^TRIGGER^2.0361^.01
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(2,.361,1,2,89.4) S Y(102)=$S($D(^DPT(D0,"E",D1,0)):^(0),1:"") S X=$S('$D(^DIC(8,+$P(Y(102),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(2
    ,.361,1,2,1.4)
    1.4)= S DIH=$S($D(^DPT(DIV(0),"E",DIV(1),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,1)=DIV,DIH=2.0361,DIG=.01 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(2,.361,1,2,2.2) I DIV(1)>0 S DIK(0)=DA,DIK="^DPT(DIV(0),""E"",",DA(1)=DIV(0),DA=DIV(1) D ^DIK S DA=DIK(0) K DIK
    2.2)= X ^DD(2,.361,1,2,99.3) S X=$S('$D(^DIC(8,+$P(Y(102),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y
    3)= This trigger stuffs the ELIGIBILITY CODE into the PATIENT'S ELIGIBILITIES multiple.
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),I(1,0)=$S($D(D1):D1,1:""),Y(2)=$S($D(^DPT(D0,.36)):^(.36),1:"") S X="`",Y(1)=X S X=$P(Y(2),U,1),X=X S Y=X,X=Y(1),X=X S X=X
    89.3)= X ^DD(2,.361,1,2,89.2) S X=X_Y,X=X S X=X
    89.4)= X ^DD(2,.361,1,2,89.3) K DIC S Y=-1,DIC="^DPT(D0,""E"",",DIC(0)="NMFL",DIC("P")="2.0361P",DIU(1)=$S($D(DA(1)):DA(1),1:0),DA(1)=D0 D ^DIC:D0>0 S (D,D1,DIV(1))=+Y,DA(1)=DIU(1)
    99.2)= S I(0,0)=$S($D(D0):D0,1:""),I(1,0)=$S($D(D1):D1,1:""),Y(2)=DIV S X="`",Y(1)=X S X=$P(Y(2),U,1),X=X S Y=X,X=Y(1),X=X S X=X
    99.3)= X ^DD(2,.361,1,2,99.2) S X=X_Y K DIC S Y=-1,DIC="^DPT(D0,""E"",",DIC(0)="NMF" D ^DIC:D0>0 S (D,D1,DIV(1))=+Y S Y(102)=$S($D(^DPT(D0,"E",D1,0)):^(0),1:"")
    CREATE VALUE)= INTERNAL(ELIGIBILITY CODE)
    DELETE VALUE)= @
    DIC)= LOOKUP
    DIK)= DELETE
    FIELD)= "`"_INTERNAL(ELIGIBILITY CODE):#361:#.01
  • CROSS-REFERENCE:  2^AXR28^MUMPS
    1)= Q
    2)= I $S('$D(^DIC(8,+X,0)):0,$P(^(0),"^",1)["DOM":0,'$D(^DPT(DA,.36)):1,'$D(^DIC(8,+^(.36),0)):1,$P(^(0),"^",1)'["DOM":1,1:0) S DGXRF=.361 D ^DGDDC Q
    When the eligibility code is changed, this cross-reference removes the data in the ELIGIBILITY STATUS field.  This only occurs if neither the original eligibility code nor the new eligibility code (the one being entered)
    is DOM. PATIENT.  If either is DOM. PATIENT, no update occurs.
    Since the DOM. PATIENT eligibility is being inactivated with MAS 5.2, the conditional on this cross-reference will be removed in a future version of MAS.
  • CROSS-REFERENCE:  2^AEL^MUMPS
    1)= S ^DPT("AEL",DA,+X)=""
    2)= K ^DPT("AEL",DA,+X)
  • CROSS-REFERENCE:  2^AENR361^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference is used to update the patient's current Patient Enrollment record.
.3611 ELIGIBILITY STATUS .361;1 SET
  • 'P' FOR PENDING VERIFICATION;
  • 'R' FOR PENDING RE-VERIFICATION;
  • 'V' FOR VERIFIED;

  • INPUT TRANSFORM:  D EK^DGLOCK Q:'$D(X)
  • LAST EDITED:  SEP 25, 1988
  • HELP-PROMPT:  Select the status of this patient's eligibility.
  • DESCRIPTION:  
    Select from the available listing the appropriate eligibility status for this applicant.  Only users who hold the designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= D EK^DGLOCK I '$D(X)
  • GROUP:  ECD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the PRIMARY ELIGIBILITY CODE field of the VA PATIENT File
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3616
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.361)):^(.361),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(2,.3611,1,1,1.1) X ^DD(2,.3611,1,1,1.4)
    1.1)= S X=DIV S X=$S(($D(DUZ)#2):DUZ,1:"")
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3611,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="VERIFIED"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.361)):^(.361),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(.361)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3616 D ^DICR:$N(^DD(DIH,DI
    G,1,0))>0
    2)= Q
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.3611,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.361)):^(.361),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,1)_":",2),$C(59),1)'="VERIFIED"
    2.4)= S DIH=$S($D(^DPT(DIV(0),.361)):^(.361),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(.361)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3616 D ^DICR:$N(^DD(DIH,DI
    G,1,0))>0
    CREATE CONDITION)= ELIG STATUS="VERIFIED"
    CREATE VALUE)= S X=$S(($D(DUZ)#2):DUZ,1:"")
    DELETE CONDITION)= ELIG STATUS'="VERIFIED"
    DELETE VALUE)= NO EFFECT
    FIELD)= ELIGIBILITY STATUS ENTERED BY
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3612
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.361)):^(.361),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(2,.3611,1,2,1.4)
    1.4)= S DIH=$S($D(^DPT(DIV(0),.361)):^(.361),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(.361)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3612 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= TODAY
    DELETE VALUE)= NO EFFECT
    FIELD)= ELIGIBILITY STATUS DATE
  • CROSS-REFERENCE:  2^AENR3611^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.3612 ELIGIBILITY STATUS DATE .361;2 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) D EK^DGLOCK
  • LAST EDITED:  NOV 06, 1991
  • HELP-PROMPT:  Enter the date the current eligibility status was determined.
  • DESCRIPTION:  
    Enter the effective date of the eligibility status (ELIG STATUS prompt).  Only users who hold the designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= D EK^DGLOCK I '$D(X)
  • GROUP:  ECD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ELIGIBILITY STATUS field of the VA PATIENT File
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3616
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.361)):^(.361),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$S(($D(DUZ)#2):DUZ,1:"") X ^DD(2,.3612,1,1,1.4)
    1.4)= S DIH=$S($D(^DPT(DIV(0),.361)):^(.361),1:""),DIV=X S $P(^(.361),U,6)=DIV,DIH=2,DIG=.3616 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=$S(($D(DUZ)#2):DUZ,1:"")
    DELETE VALUE)= NO EFFECT
    FIELD)= ELIGIBILITY STATUS ENTER
    When the ELIGIBILITY STATUS DATE is updated through any option, the user entering the new date will be automatically put into the ELIGIBILITY STATUS ENTERED BY field (field .3616).
  • CROSS-REFERENCE:  2^AENR3612^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.3613 ELIGIBILITY VERIF. SOURCE .361;3 SET
  • 'H' FOR HEC;
  • 'V' FOR VISTA;

  • LAST EDITED:  NOV 15, 2000
  • HELP-PROMPT:  The entity verifying the eligibility of the patient.
  • DESCRIPTION:  
    This field is used to restrict site ability to edit certain data elements when HEC has verified eligibility data.
.3614 ELIGIBILITY INTERIM RESPONSE .361;4 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) D EK^DGLOCK
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Enter the response concerning this aplicant's eligibility status.
  • DESCRIPTION:  
    If an interim response has been received concerning this applicant's eligibility status enter the date received.  Only users who hold the designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= D EK^DGLOCK I '$D(X)
  • GROUP:  ECD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.3615 ELIGIBILITY VERIF. METHOD .361;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<2) X I $D(X) D EK^DGLOCK
  • LAST EDITED:  JUL 28, 1986
  • HELP-PROMPT:  Enter the method by which this patient's eligibility was verified [2-50 characters].
  • DESCRIPTION:  
    Enter the method in which the eligibility for this applicant was verified [between 2-50 characters].  Only users who hold the designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= D EK^DGLOCK I '$D(X)
  • GROUP:  ECD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AENR3615^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.3616 ELIGIBILITY STATUS ENTERED BY .361;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 06, 1990
  • HELP-PROMPT:  The name of the user who certified this patient's current eligibility status.
  • DESCRIPTION:  
    When eligibility is verified (ELIG STATUS="VERIFIED") the name of the user who certified the verification.
    WRITE AUTHORITY:  ^
  • GROUP:  ECD
  • NOTES:  TRIGGERED by the ELIGIBILITY STATUS field of the VA PATIENT File
    TRIGGERED by the ELIGIBILITY STATUS DATE field of the VA PATIENT File
.3617 USER ENROLLEE VALID THROUGH .361;7 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=$E(Y,1,3)_"0000" K:Y<1 X
  • LAST EDITED:  MAR 13, 2003
  • HELP-PROMPT:  Enter valid Fiscal Year
  • DESCRIPTION:  
    This field contains the Fiscal Year that the veteran's User Enrollee Status is valid through. This field is populated by the system, no user input is required.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AENR3617^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.3618 USER ENROLLEE SITE .361;8 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  FEB 25, 2003
  • HELP-PROMPT:  Enter Valid Site
  • DESCRIPTION:  
    This field contains the Site that determined the User Enrollee information for the Veteran. This field is populated by the system, no user input is required.
  • CROSS-REFERENCE:  2^AENR3618^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.362 DISABILITY RET. FROM MILITARY? .36;2 SET
************************REQUIRED FIELD************************
  • '0' FOR NO;
  • '1' FOR YES, RECEIVING MILITARY RETIREMENT;
  • '2' FOR YES, RECEIVING MILITARY RETIREMENT IN LIEU OF VA COMPENSATION;
  • '3' FOR UNKNOWN;

  • INPUT TRANSFORM:  S DFN=DA D SV^DGLOCK
  • LAST EDITED:  JUN 30, 1997
  • HELP-PROMPT:  Was this patient retired from the U.S. Armed forces due to an disability incurred while serving?
  • DESCRIPTION:  Enter 'Y' if this veteran applicant was retired from the military as a result of a disability, 'N' if not, or 'U' if unknown. Once eligibility has been verified this field will no longer be editable to any user who does
    not hold the designated security key.
  • TECHNICAL DESCR:  
  • EXECUTABLE HELP:  D HLPMLDS^DGRPU
  • GROUP:  SVC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AH^MUMPS
    1)= S DFN=DA D EN^DGMTR K DGREQF
    2)= Q
  • CROSS-REFERENCE:  2^AENR362^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference is used to update the patient's current Patient Enrollment record.
.36205 RECEIVING A&A BENEFITS? .362;12 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • INPUT TRANSFORM:  S DFN=DA D MV^DGLOCK I $D(X) S DFN=DA D EV^DGLOCK
  • LAST EDITED:  JUL 15, 1997
  • HELP-PROMPT:  Is this applicant receiving Aid and Attendance benefits?
  • DESCRIPTION:  
    For this veteran applicant enter 'Y' if s/he is on A&A, 'N' if not, or 'U' if unknown.  Once monetary benefits have been verified only users who hold the designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= S DFN=DA D MV^DGLOCK I '$D(X)
  • GROUP:  MB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3621
    1)= X ^DD(2,.36205,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.36205,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(.362)=DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3621 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= X ^DD(2,.36205,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,1,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.36205,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,12)_":",2),$C(59),1)=""
    2.4)= S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(.362)=DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3621 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= #.36205="NO"
    CREATE VALUE)= @
    DELETE CONDITION)= #.36205=""
    DELETE VALUE)= @
    FIELD)= #.3621
  • CROSS-REFERENCE:  2^AJ^MUMPS
    1)= S DFN=DA D EN^DGMTCOR K DGMTCOR
    2)= S DFN=DA D EN^DGMTCOR K DGMTCOR
    This cross reference acts like a trigger.  It 'triggers' the status field in file 408.31 (ANNUAL MEANS TEST) for the co-pay exemption test.  It will update the field to 'NO LONGER APPLICABLE' if appropriate.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.36295
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,3,1.4)
    1.4)= S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,3,2.4)
    2.4)= S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= S X='$$TOTCHK^DGLOCK2(DA)
    CREATE VALUE)= @
    DELETE CONDITION)= S X='$$TOTCHK^DGLOCK2(DA)
    DELETE VALUE)= @
    FIELD)= #.36295
  • CROSS-REFERENCE:  2^AENR36205^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference is used to update the patient's current Patient Enrollment record.
.3621 AMOUNT OF AID & ATTENDANCE .362;1 NUMBER

  • INPUT TRANSFORM:  D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<0) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X),$D(^DPT(DA,.362)),$P(^(.362),U,12)'="Y" W !?4,"Receipt of A&A Benefits not indicated." K X
    9.2 = I $D(^DPT(DA,.362)),$P(^(.362),U,12)="Y" W !?4,*7,"Delete by answering 'ARE YOU IN RECEIPT OF A&A' prompt NO." K X
  • LAST EDITED:  SEP 23, 1988
  • HELP-PROMPT:  If this applicant is in receipt of A&A benefits enter the dollar amount received per year.
  • DESCRIPTION:  For this veteran applicant who is receiving A&A benefits (ARE YOU IN RECEIPT OF A&A prompt must be answered YES) enter the amount received [numeric 0-99999]. Once monetary benefits are verified only users who hold the
    designated security key may enter/edit this field.  Any dollar amount on file cannot be deleted as long as receipt of A&A benefits is indicated.
    f you wish to enter a monthly amount either preceed or follow the dollar figure with an asterisk and I'll multiply it out for you.
  • DELETE TEST:  1,0)= S DFN=DA D MV^DGLOCK X ^DD(2,.3621,9.2):$D(X) I '$D(X)
  • GROUP:  MB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the RECEIVING A&A BENEFITS? field of the VA PATIENT File
.36215 RECEIVING HOUSEBOUND BENEFITS? .362;13 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • INPUT TRANSFORM:  S DFN=DA D MV^DGLOCK I $D(X) S DFN=DA D EV^DGLOCK
  • LAST EDITED:  JUL 15, 1997
  • HELP-PROMPT:  Is this applicant in receipt of housebound benefits?
  • DESCRIPTION:  
    For this veteran applicant enter 'Y' if s/he is housebound, 'N' if not, or 'U' if unknown.  Once monetary benefits have been verified only users who hold the designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= S DFN=DA D MV^DGLOCK I '$D(X)
  • GROUP:  MB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3622
    1)= X ^DD(2,.36215,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.36215,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(.362)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3622 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= X ^DD(2,.36215,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,1,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.36215,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,13)_":",2),$C(59),1)=""
    2.4)= S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(.362)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3622 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= #.36215="NO"
    CREATE VALUE)= @
    DELETE CONDITION)= #.36215=""
    DELETE VALUE)= @
    FIELD)= #.3622
  • CROSS-REFERENCE:  2^AL^MUMPS
    1)= S DFN=DA D EN^DGMTCOR K DGMTCOR
    2)= S DFN=DA D EN^DGMTCOR K DGMTCOR
    This cross reference acts like a trigger.  It 'triggers' the status field in file 408.31 (ANNUAL MEANS TEST) for the co-pay exemption test.  It will update the field to 'NO LONGER APPLICABLE' if appropriate.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.36295
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,3,1.4)
    1.4)= S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,3,2.4)
    2.4)= S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= S X='$$TOTCHK^DGLOCK2(DA)
    CREATE VALUE)= @
    DELETE CONDITION)= S X='$$TOTCHK^DGLOCK2(DA)
    DELETE VALUE)= @
    FIELD)= #.36295
  • CROSS-REFERENCE:  2^AENR36215^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference is used to update the patient's current Patient Enrollment record.
.3622 AMOUNT OF HOUSEBOUND .362;2 NUMBER

  • INPUT TRANSFORM:  D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<0) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X),$D(^DPT(DA,.362)),$P(^(.362),U,13)'="Y" W !?4,*7,"Receipt of Housebound Benefits not indicated." K X
    9.2 = I $D(^DPT(DA,.362)),$P(^(.362),U,13)="Y" W !?4,*7,"Delete by answering 'IN RECEIPT OF HB BENEFITS' prompt NO." K X
  • LAST EDITED:  SEP 23, 1988
  • HELP-PROMPT:  If this applicant is in receipt of housebound benefits enter the dollars amount received per year.
  • DESCRIPTION:  For this veteran applicant who is housebound (ARE YOU IN RECEIPT OF HB BENEFITS prompt must be answered YES) enter the amount received [a number between 0-99999]. Once monetary benefits are verified only users who hold
    the designated security key may enter/edit this field.  This field cannot be deleted as long as receipt of housebound benefits is indicated.
    If you wish to enter a monthly amount either preceed of follow it with an asterisk and I'll multiply it out for you.
  • DELETE TEST:  1,0)= S DFN=DA D MV^DGLOCK X ^DD(2,.3622,9.2):$D(X) I '$D(X)
  • GROUP:  MB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the RECEIVING HOUSEBOUND BENEFITS? field of the VA PATIENT File
.36225 RECEIVING SOCIAL SECURITY? .362;15 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • INPUT TRANSFORM:  S DFN=DA D MV^DGLOCK Q
  • LAST EDITED:  AUG 06, 1986
  • HELP-PROMPT:  Is this patient in receipt of Social Security benefits?
  • DESCRIPTION:  For this veteran applicant enter 'Y' is s/he is in receipt of social security benefits, 'N' if not, or 'U' if unknown. Once monetary benefits have been verified only users who hold the designated security key may
    enter/edit this field.
  • DELETE TEST:  1,0)= S DFN=DA D MV^DGLOCK I '$D(X)
  • GROUP:  MB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3623
    1)= X ^DD(2,.36225,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(2,.36225,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.36225,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(.362)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3623 D ^DICR:$N(^DD(DIH,DI
    G,1,0))>0
    2)= X ^DD(2,.36225,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(2,.36225,1,1,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.36225,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,15)_":",2),$C(59),1)=""
    2.4)= S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(.362)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3623 D ^DICR:$N(^DD(DIH,DI
    G,1,0))>0
    CREATE CONDITION)= #.36225="NO"
    CREATE VALUE)= @
    DELETE CONDITION)= #.36225=""
    DELETE VALUE)= @
    FIELD)= #.3623
.3623 *AMOUNT OF SOCIAL SECURITY .362;3 NUMBER

  • INPUT TRANSFORM:  D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<0) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X) X ^DD(2,.3623,9.2)
    9.2 = I $D(^DPT(DA,.362)),$P(^(.362),U,15)'="Y" W !?4,*7,"Not in receipt of Social Security benefits." K X
    9.3 = I $D(^DPT(DA,.362)),$P(^(.362),U,15)="Y" W !?4,*7,"Delete by answering 'IN RECEIPT OF SOCIAL SECURITY' prompt NO." K X
  • LAST EDITED:  JUN 09, 1993
  • HELP-PROMPT:  If this applicant is in receipt of Social Security benefits enter the dollar amount received per year.
  • DESCRIPTION:  For this veteran applicant who is in receipt of social security insurance (IN RECEIPT OF SOCIAL SECURITY prompt must be answered YES) enter the amount received [a number between 0-99999]. Once monetary benefits are
    verified only users who hold the designated security key may enter/edit this field.  This field may not be deleted as long as receipt of social security benefits is indicated.
    If you wish to enter a monthly amount either preceed or follow it with an asterisk and I'll multiply it out for you.
  • DELETE TEST:  1,0)= S DFN=DA D MV^DGLOCK X ^DD(2,.3623,9.3):$D(X) I '$D(X)
  • GROUP:  MB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the RECEIVING SOCIAL SECURITY? field of the VA PATIENT File
.36235 RECEIVING A VA PENSION? .362;14 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • INPUT TRANSFORM:  S DFN=DA D MV^DGLOCK
  • LAST EDITED:  MAR 27, 1997
  • HELP-PROMPT:  Is this patient receiving a VA pension?
  • DESCRIPTION:  For this veteran applicant enter 'Y' if s/he is in receipt of a pension from the Dept of Veterans Affairs, 'N' if not, or 'U' if unknown. Once monetary benefits have been verified only users holding the designated
    security key may enter/edit this field.
  • DELETE TEST:  1,0)= S DFN=DA D MV^DGLOCK I '$D(X)
  • GROUP:  MB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3624
    1)= X ^DD(2,.36235,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.36235,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(.362)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3624 D ^DICR:$N(^DD(DIH,DI
    G,1,0))>0
    2)= X ^DD(2,.36235,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,1,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.36235,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,14)_":",2),$C(59),1)=""
    2.4)= S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(.362)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3624 D ^DICR:$N(^DD(DIH,DI
    G,1,0))>0
    CREATE CONDITION)= #.36235="NO"
    CREATE VALUE)= @
    DELETE CONDITION)= #.36235=""
    DELETE VALUE)= @
    FIELD)= #.3624
  • CROSS-REFERENCE:  2^AM^MUMPS
    1)= S DFN=DA D EN^DGMTCOR K DGMTCOR
    2)= S DFN=DA D EN^DGMTCOR K DGMTCOR
    This cross reference acts like a trigger.  It 'triggers' the status field in file 408.31 (ANNUAL MEANS TEST) for the co-pay exemption test.  It will update the field to 'NO LONGER APPLICABLE' if appropriate.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.36295
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,3,1.4)
    1.4)= S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,3,2.4)
    2.4)= S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= S X='$$TOTCHK^DGLOCK2(DA)
    CREATE VALUE)= @
    DELETE CONDITION)= S X='$$TOTCHK^DGLOCK2(DA)
    DELETE VALUE)= @
    FIELD)= #.36295
  • CROSS-REFERENCE:  2^AENR36235^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference is used to update the patient's current Patient Enrollment record.
.3624 AMOUNT OF VA PENSION .362;4 NUMBER

  • INPUT TRANSFORM:  D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<0) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X) X ^DD(2,.3624,9.3)
    9.2 = I $D(^DPT(DA,.362)),$P(^(.362),U,14)="Y" W !?4,*7,"Delete by answering 'ARE YOU RECEIVING A VA PENSION' prompt NO." K X
    9.3 = X ^DD(2,.3624,9.4) I $D(X),$D(^DPT(DFN,.3)),$P(^(.3),U,3)]"" W !?4,*7,"Already receiving Disability payment monies...Can't receive both!!" K X Q
    9.4 = I $D(^DPT(DFN,.362)),$P(^(.362),U,14)'="Y" W !?4,*7,"Receipt of VA Pension benefits not indicated." K X Q
  • LAST EDITED:  SEP 23, 1988
  • HELP-PROMPT:  If this applicant is receiving a VA pension enter the dollar amount received per year.
  • DESCRIPTION:  For this veteran applicant who is in receipt of a pension from the Dept of Veterans Affairs (ARE YOU RECEIVING A VA PENSION prompt must be answered YES) enter the amount received [a number between 0-99999]. Once monetary
    benefits are verified only users who hold the designated security key may enter/edit this field.  This field may not be deleted as long as receipt of VA pension is indicated.
    If you wish to enter a monthly amount either precede or follow it with an asterisk and I'll multiply it out for you.
  • DELETE TEST:  1,0)= S DFN=DA D MV^DGLOCK X ^DD(2,.3624,9.2):$D(X) I '$D(X)
  • GROUP:  MB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the RECEIVING A VA PENSION? field of the VA PATIENT File
.3625 *AMOUNT OF MILITARY RETIREMENT .362;5 NUMBER

  • INPUT TRANSFORM:  D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<0) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X),$D(^DPT(DA,.362)),$P(^(.362),U,16)'="Y" W !?4,*7,"Not in receipt of Military Retirement benefits." K X
    9.2 = I $D(^DPT(DA,.362)),$P(^(.362),U,14)="Y" W !?4,*7,"Delete by answering 'IN RECEIPT OF MILITARY RETIREMENT' prompt NO." K X
  • LAST EDITED:  SEP 23, 1988
  • HELP-PROMPT:  If this applicant is receiving military retirement enter the dollar amount received per year.
  • DESCRIPTION:  For this veteran who is in receipt of military retirement (IN RECEIPT OF MILIT RETIREMENT prompt must be answered YES) enter the amount received [a number between 0-99999]. Once monetary benefits are verified only users
    who hold the designated security key may enter/edit this field.  This field cannot be deleted as long as receipt of military retirement is indicated.
    If you wish to enter a monthly amount either preceed or follow it with an asterisk and I'll multiply it out for you.
  • DELETE TEST:  1,0)= S DFN=DA D MV^DGLOCK X ^DD(2,.3625,9.2):$D(X) I '$D(X)
  • GROUP:  MB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the RECEIVING MILITARY RETIREMENT? field of the VA PATIENT File
.36255 RECEIVING MILITARY RETIREMENT? .362;16 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • INPUT TRANSFORM:  S DFN=DA D MV^DGLOCK Q
  • LAST EDITED:  AUG 06, 1986
  • HELP-PROMPT:  Is this patient receiving military retirement?
  • DESCRIPTION:  For this veteran applicant enter 'Y' if s/he receives a military retirement, 'N' if not, or 'U' if unknown. Once monetary benefits have been verified only users who hold the designated security key may enter/edit this
    field.
  • DELETE TEST:  1,0)= S DFN=DA D MV^DGLOCK I '$D(X)
  • GROUP:  MB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3625
    1)= X ^DD(2,.36255,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(2,.36255,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.36255,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(.362)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3625 D ^DICR:$N(^DD(DIH,DI
    G,1,0))>0
    2)= X ^DD(2,.36255,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(2,.36255,1,1,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.36255,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,16)_":",2),$C(59),1)=""
    2.4)= S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(.362)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3625 D ^DICR:$N(^DD(DIH,DI
    G,1,0))>0
    CREATE CONDITION)= #.36255="NO"
    CREATE VALUE)= @
    DELETE CONDITION)= #.36255=""
    DELETE VALUE)= @
    FIELD)= #.3625
.3626 AMOUNT OF GI INSURANCE .362;6 NUMBER

  • INPUT TRANSFORM:  D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<1) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X),$D(^DPT(DA,.362)),$P(^(.362),U,17)'="Y" W !?4,*7,"Applicant doesn't have GI Insurance." K X
    9.2 = I $D(^DPT(DA,.362)),$P(^(.362),U,17)="Y" W !?4,*7,"Delete by answering 'DO YOU HAVE GI INSURANCE' prompt NO." K X
  • LAST EDITED:  SEP 23, 1988
  • HELP-PROMPT:  If this applicant does have GI Insurance enter the amount for which insured.
  • DESCRIPTION:  For this veteran applicant who does have GI insurance (DO YOU HAVE GI INSURANCE prompt must be answered YES) enter the amount received [a number between 1 and 999999]. Once monetary benefits are verified only users who
    hold the designated security key may enter/edit this field.  This field cannot be deleted as long as the veteran is identified as holding GI insurance.
    If you wish to enter a monthly amount either preceed or follow it with an asterisk and I'll multiply it out for you.
  • DELETE TEST:  1,0)= S DFN=DA D MV^DGLOCK X ^DD(2,.3626,9.2):$D(X) I '$D(X)
  • GROUP:  MB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the GI INSURANCE POLICY? field of the VA PATIENT File
.36265 GI INSURANCE POLICY? .362;17 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • INPUT TRANSFORM:  S DFN=DA D MV^DGLOCK Q
  • LAST EDITED:  AUG 06, 1986
  • HELP-PROMPT:  Does this applicant have a GI Insurance policy?
  • DESCRIPTION:  
    For this veteran applicant enter 'Y' if s/he has GI insurance, 'N' if not, or 'U' if unknown.  Once monetary benefits have been verified only users who hold the designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= S DFN=DA D MV^DGLOCK I '$D(X)
  • GROUP:  MB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.3626
    1)= X ^DD(2,.36265,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(2,.36265,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.36265,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(.362)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3626 D ^DICR:$N(^DD(DIH,DI
    G,1,0))>0
    2)= X ^DD(2,.36265,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(2,.36265,1,1,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.36265,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,17)_":",2),$C(59),1)=""
    2.4)= S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(.362)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3626 D ^DICR:$N(^DD(DIH,DI
    G,1,0))>0
    CREATE CONDITION)= #.36265="NO"
    CREATE VALUE)= @
    DELETE CONDITION)= #.36265=""
    DELETE VALUE)= @
    FIELD)= #.3626
.3627 AMOUNT OF SSI .362;7 NUMBER

  • INPUT TRANSFORM:  D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<1) X I $D(X) S DFN=DA D MV^DGLOCK
  • LAST EDITED:  SEP 23, 1988
  • HELP-PROMPT:  If this applicant is receiving Supplemental Security Income (SSI) enter the dollar amount received per year.
  • DESCRIPTION:  For this veteran applicant enter the dollar amount of social security insurance s/he receives [a number between 1-99999]. Leave blank if none received. Once monetary benefits have been verified only users who hold the
    designated security key may enter/edit this field.
    If you wish to enter a monthly amount either preceed or follow it with an asterisk and I'll multiply it out for you.
  • DELETE TEST:  1,0)= S DFN=DA D MV^DGLOCK I '$D(X)
  • GROUP:  MB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.36275 RECEIVING SUP. SECURITY (SSI)? .362;19 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • LAST EDITED:  JUN 01, 1988
  • HELP-PROMPT:  Does this patient receive Supplemental Security Income (SSI)?
  • DESCRIPTION:  This field contains a yes or no reponse indicating whether this patient receives supplemental social security insurance. This field is being *'d for deletion and will be removed in a future release of MAS. This data is
    no longer updated by the MAS package.
  • GROUP:  MB
.3628 AMOUNT OF OTHER RETIREMENT .362;8 NUMBER

  • INPUT TRANSFORM:  D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<1) X I $D(X) S DFN=DA D MV^DGLOCK
  • LAST EDITED:  SEP 23, 1988
  • HELP-PROMPT:  If this patient receives retirment from another source enter the dollar amount received per year.
  • DESCRIPTION:  For this veteran applicant enter the amount of other retirement s/he is in receipt of [a number between 1-99999]. Leave blank if none received. Once monetary benefits have been verified only users who hold the designated
    security key may enter/edit this field.
    If you wish to enter a monthly amount either preceed or follow it with an asterisk and I'll multiple it out for you.
  • DELETE TEST:  1,0)= S DFN=DA D MV^DGLOCK I '$D(X)
  • GROUP:  MB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.36285 TYPE OF OTHER RETIREMENT .362;18 SET
  • 'B' FOR BLACK LUNG;
  • 'M' FOR MILITARY;
  • 'C' FOR CIVIL;
  • 'R' FOR RAILROAD;
  • 'O' FOR OTHER;
  • 'X' FOR COMBINATIONS OF TYPES;

  • INPUT TRANSFORM:  S DFN=DA D MV^DGLOCK Q
  • LAST EDITED:  JUL 28, 1986
  • HELP-PROMPT:  If this patient receives retirement from another source choose from the available listing the source of that retirement.
  • DESCRIPTION:  For this veteran applicant choose from the available list the type of other retirement s/he is in receipt of, if any. Once monetary benefits have been verified only users who hold the designated security key may
    enter/edit this field.
  • DELETE TEST:  1,0)= S DFN=DA D MV^DGLOCK I '$D(X)
  • GROUP:  MB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.3629 AMOUNT OF OTHER INCOME .362;9 NUMBER

  • INPUT TRANSFORM:  D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<1) X
  • LAST EDITED:  SEP 23, 1988
  • HELP-PROMPT:  If applicable, enter the dollar amount of other income received per year.
  • DESCRIPTION:  For this veteran applicant enter the amount of other personal income s/he is in receipt of [a number between 1-999999]. Leave blank if none. Once monetary benefits have been verified only users who hold the designated
    security key may enter/edit this field.
    If you wish to enter a monthly amount either preceed or follow it with an asterisk and I'll multiply it out for you.
  • GROUP:  MB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.36295 TOTAL ANNUAL VA CHECK AMOUNT .362;20 NUMBER

  • INPUT TRANSFORM:  D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<0) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X),('$$TOTCHK^DGLOCK2(DFN)) D TOTCKMSG^DGLOCK2 K X
  • LAST EDITED:  SEP 02, 1997
  • HELP-PROMPT:  Enter the total annual VA Check amount for A&A, Housebound, Pension, and Disability.
  • DESCRIPTION:  If this applicant is receiving A&A, Housebound, Pension, and/or Disability payments from the VA (at least one of the YES/NO questions relating to the above must be answered YES), enter the annual amount received (0-99999).
    Once monetary benefits are verified, only users who hold the designated security key may enter/edit this field.  This field may not be deleted as long as recipt of VA funds is indicated by one of the four fields related to
    A&A, Housebound, Pension, and Disability.  If you wish to enter a monthly amount either precede or follow it with an asterisk and I'll multiply it out for you.
  • TECHNICAL DESCR:  
    Contains the total annual benefit amount for A&A, Housebound, Pension and Disabilty.
  • DELETE TEST:  1,0)= S DFN=DA D MV^DGLOCK D:$D(X) TOTCKDEL^DGLOCK2 I '$D(X)
  • GROUP:  MB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the RECEIVING VA DISABILITY? field of the VA PATIENT File
    TRIGGERED by the RECEIVING A&A BENEFITS? field of the VA PATIENT File
    TRIGGERED by the RECEIVING HOUSEBOUND BENEFITS? field of the VA PATIENT File
    TRIGGERED by the RECEIVING A VA PENSION? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AQ^MUMPS
    1)= S DFN=DA D EN^DGMTR K DGREQF
    2)= S DFN=DA D EN^DGMTR K DGREQF
    This cross-reference is used to determine whether or not a means test is required.
  • CROSS-REFERENCE:  2^AENR36295^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference is used to update the patient's current Patient Enrollment record.
.363 PRIMARY LONG ID .36;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  JUN 03, 1996
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  This field contains the patient's long ID associated with the patient's PRIMARY ELIGIBILITY CODE. For most patients this is the Social Security Number.
    No user input is needed for this field. It is automatically updated when the PRIMARY ELIGIBILITY CODE field is entered and edited.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the LONG ID field of the PATIENT ELIGIBILITIES sub-field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AHL7^MUMPS
    1)= N NX,REG,VAFHDFN S VAFHDFN=DA,NX=X,X="VAFHDD" X ^%ZOSF("TEST") I $T S REG=$$EN^VAFHREG() D:REG=0 SET^VAFHUTL2 S X=NX,DA=VAFHDFN
    2)= N NX,REG,VAFHDFN S VAFHDFN=DA,NX=X,X="VAFHDD" X ^%ZOSF("TEST") I $T S REG=$$EN^VAFHREG() D:REG=0 KILL^VAFHUTL2(DA,NX) S:REG'=0 VAFHMRG="",VAFHBEF=NX S X=NX,DA=VAFHDFN
    This x-ref is used to catch changes to the Primary Long ID It will cause an A34 (Merge) HL7 message to be fired.  The A34 message will not be generated during patient registration.
.364 PRIMARY SHORT ID .36;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • LAST EDITED:  OCT 04, 1991
  • HELP-PROMPT:  Answer must be 1-7 characters in length.
  • DESCRIPTION:  This field contains the patient's short ID associated with the patient's PRIMARY ELIGIBILITY CODE. For most patients this is the last four digits of the Social Security Number.
    No user input is needed for this field. It is automatically updated when the PRIMARY ELIGIBILITY CODE field is entered and edited.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the SHORT ID field of the PATIENT ELIGIBILITIES sub-field of the VA PATIENT File
.368 SERVICE DENTAL INJURY? .36;8 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • HELP-PROMPT:  Did this patient incur a dental injury while serving in the military?
  • DESCRIPTION:  For this veteran applicant enter 'Y' if a dental injury was incurred while serving in the U.S. Armed Forces, or 'N' if not. Once the service record is verified only users who hold the designated security key may
    enter/edit this field.
  • GROUP:  SVC
.369 SERVICE TEETH EXTRACTED? .36;9 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • HELP-PROMPT:  Did this patient have teeth extracted while in military service?
  • DESCRIPTION:  For this veteran applicant enter 'Y' if teeth were extracted while serving in the U.S. Armed Forces, or 'N' if not. Once the service record is verified only users who hold the designated security key may enter/edit this
    field.
  • GROUP:  SVC
.37 DATE OF DENTAL TREATMENT .37;0 DATE Multiple #2.11 2.11

  • HELP-PROMPT:  If this patient had a dental injury or teeth extracted while in service enter the date(s) of treatment.
  • DESCRIPTION:  For this veteran applicant who either incurred a dental injury (DENTAL INJURY IN SERVICE prompt must be answered YES) or had teeth extracted (TEETH EXTRACTED IN SERVICE prompt must be answered YES) while serving in the
    U.S. Armed Forces enter the date of dental treatment received.  Once the service record is verified only users who hold the designated security key may enter/edit this field.
  • GROUP:  SVC
.3721 RATED DISABILITIES (VA) .372;0 POINTER Multiple #2.04 2.04

  • HELP-PROMPT:  Choose from the available listing those disabilities fro which this patient has been rated by the VA.
  • DESCRIPTION:  
    From the available listing choose and enter conditions for which the applicant has been verified as being service connected.  Only users who hold the designated security key may enter/edit this field.
  • GROUP:  DIS1
  • INDEXED BY:  RATED DISABILITIES (VA) & DISABILITY % & SERVICE CONNECTED (ARD)
.3731 SERVICE CONNECTED CONDITIONS .373;0 Multiple #2.05 2.05

  • HELP-PROMPT:  Enter those conditions [1-30 characters] for which patient claims service connection.
  • DESCRIPTION:  
    Enter conditions as stated by applicant for which s/he claims service connection [1-30 characters].
  • GROUP:  DIS1
.381 ELIGIBLE FOR MEDICAID? .38;1 SET
************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 15, 1997
  • HELP-PROMPT:  Is this patient eligible to receive medicaid coverage?
  • DESCRIPTION:  
    Enter yes if this patient is eligible to receive medicaid coverage.  Otherwise, answer no.
  • TECHNICAL DESCR:  
    If yes is answered to this question, a means test will NOT be required.
  • CROSS-REFERENCE:  2^AMT^MUMPS
    1)= S DFN=DA D EN^DGMTR K DGREQF
    2)= Q
    This cross-ref calls the means test software.  If answered yes, a means test is not required.
  • CROSS-REFERENCE:  2^AENR381^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference is used to update the patient's current Patient Enrollment record.
.382 DATE MEDICAID LAST ASKED .38;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 08, 1994
  • HELP-PROMPT:  Type a date indicating the date the 'ELIGIBLE FOR MEDICAID' question was last asked of this patient.
  • DESCRIPTION:  Enter the date/time the 'ELIGIBLE FOR MEDICAID' question was last asked of this veteran. This data must be asked on a yearly basis as it affects the requirement for a means test (a negative response results in a means
    test not being required).
    This field will be stored automatically by the MAS module when editing data on registration or load/edit screen 7.  It will not appear for editing.
  • CROSS-REFERENCE:  2^AENR382^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.383 MEDICAID NUMBER .38;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 21, 1999
  • HELP-PROMPT:  Enter the patient's assigned MEDICAID Number, must be 3-30 characters in length.
  • DESCRIPTION:  
    This is the patient's assigned MEDICAID number.
  • CROSS-REFERENCE:  2^ADGRU383^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
.39 VETERAN CATASTROPHICALLY DISABLED? .39;6 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JUN 18, 1999
  • DESCRIPTION:  
    This field states whether or not the patient is a veteran who has been determined to meet the criteria for CATASTROPHICALLY DISABLED.
  • CROSS-REFERENCE:  2^VCD^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    This cross-reference is used to auto-update the patients PATIENT ENROLLMENT (#27.11) record.
.391 DECIDED BY .39;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
  • LAST EDITED:  MAY 20, 1997
  • HELP-PROMPT:  Enter the name of the VA staff physician who made the decision that the patient was catastrophically disabled.
  • DESCRIPTION:  
    The name of the VA staff physician who made the determination that the patient was catastrophically disabled.
  • CROSS-REFERENCE:  2^AENR391^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.392 DATE OF DECISION .39;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X K:($G(DT)&($G(X)>$G(DT))) X
  • LAST EDITED:  AUG 20, 1997
  • HELP-PROMPT:  Enter the date the decision was made.
  • DESCRIPTION:  
    The date the catastrophic disability determination was made.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AENR392^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.393 FACILITY MAKING DETERMINATION .39;3 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  MAY 20, 1997
  • HELP-PROMPT:  Enter the VAMC that made the catastrophic disability determination.
  • DESCRIPTION:  
    The VAMC that made the catastrophic disability determination.
  • CROSS-REFERENCE:  2^AENR393^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.394 REVIEW DATE .39;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 20, 1997
  • HELP-PROMPT:  Enter the date the catastrophic disability determination was made.
  • DESCRIPTION:  
    The date that a review to determine Catastrophic Disability was made. This review may be a medical record review or physical exam review.
  • CROSS-REFERENCE:  2^AENR394^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.395 METHOD OF DETERMINATION .39;5 SET
  • '2' FOR MEDICAL RECORD REVIEW;
  • '3' FOR PHYSICAL EXAMINATION;

  • LAST EDITED:  JUN 29, 1999
  • DESCRIPTION:  Added in order to document the review method of how the decision to assign a CD status was determined.
    Determination may be made by reviewing the veteran's medical record or by performing a physical examination of the veteran.  In the future, the capability to fully automate the record review process will be added to the
    system.
  • CROSS-REFERENCE:  2^AENR395^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.3951 DATE VETERAN REQUESTED CD EVAL .39;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 30, 2005
  • CROSS-REFERENCE:  2^AENR3951^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.3952 DATE FACILITY INITIATED REVIEW .39;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 30, 2005
  • CROSS-REFERENCE:  2^AENR3952^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.3953 DATE VETERAN WAS NOTIFIED .39;9 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 30, 2005
  • CROSS-REFERENCE:  2^AENR3953^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.396 CD STATUS DIAGNOSES .396;0 POINTER Multiple #2.396 2.396

  • SCREEN:  S DIC("S")="I $P(^DGEN(27.17,Y,0),U,2)=""D"""
  • EXPLANATION:  Must point to a CD REASON that is a diagnosis.
.397 CD STATUS PROCEDURES .397;0 POINTER Multiple #2.397 2.397

  • SCREEN:  S DIC("S")="I $P(^DGEN(27.17,Y,0),U,2)=""P"""
  • EXPLANATION:  Must select a CD REASON that is a valid procedure.
.398 CD STATUS CONDITIONS .398;0 POINTER Multiple #2.398 2.398

  • SCREEN:  S DIC("S")="I $P(^DGEN(27.17,Y,0),U,2)=""C"""
  • EXPLANATION:  Must specify a CD REASON that is a condition.
.399 CD HISTORY DATE .399;0 DATE Multiple #2.399 2.399
.525 POW STATUS INDICATED? .52;5 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • INPUT TRANSFORM:  S DFN=DA D SV^DGLOCK
  • LAST EDITED:  SEP 27, 1997
  • HELP-PROMPT:  Was this patient a Prisoner of War?
  • DESCRIPTION:  
    For this veteran applicant enter 'Y' if s/he was confined as a prisoner of war, 'N' if not, or 'U' if unknown.  Once the service record is verified only users who hold the designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • GROUP:  PW
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.526
    1)= X ^DD(2,.525,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$S('$D(^DIC(22,+$P(Y(1),U,6),0)):"",1:$P(^(0),U,1)) S DIU=X K Y S X=DIV S X="" X ^DD(2,.525,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.525,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(.52)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.526 D ^DICR:$N(^DD(DIH,DIG,1,
    0))>0
    2)= Q
    CREATE CONDITION)= WERE YOU A PRISONER OF WAR="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= POW WAR
  • CROSS-REFERENCE:  ^^TRIGGER^2^.527
    1)= X ^DD(2,.525,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$P(Y(1),U,7) S DIU=X K Y S X=DIV S X="" X ^DD(2,.525,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.525,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,6,99))  S DIH=DIH_U" S %=$P(DIH,U,8,999),DIU=$P(DIH,U,7),^(.52)=$P(DIH,U,1,6)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.527 D ^DICR:$N(^DD(DIH,DIG,1,
    0))>0
    2)= Q
    CREATE CONDITION)= #.525="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= POW FROM DATE
  • CROSS-REFERENCE:  ^^TRIGGER^2^.528
    1)= X ^DD(2,.525,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$P(Y(1),U,8) S DIU=X K Y S X=DIV S X="" X ^DD(2,.525,1,3,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.525,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99))  S DIH=DIH_U" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(.52)=$P(DIH,U,1,7)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.528 D ^DICR:$N(^DD(DIH,DIG,1,
    0))>0
    2)= Q
    CREATE CONDITION)= #.525="NO"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.528
  • CROSS-REFERENCE:  2^AENR525^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference is used to update the patient's current Patient Enrollment record.
  • CROSS-REFERENCE:  2^AMTR^MUMPS
    1)= S DFN=DA D EN^DGMTR K DGREQF
    2)= S DFN=DA D EN^DGMTR K DGREQF
    This cross-reference is used to determine whether or not a means test is required.
  • CROSS-REFERENCE:  2^AENRL525^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the POW STATUS INDICATED? field.
  • FIELD INDEX:  AVAFC525 (#332) MUMPS I ACTION
    Short Descr:  This x-ref calls the DG FIELD MONITOR event point.
    Description:  This cross reference activates the DG FIELD MONITOR event point.  Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
    occur.  Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
    Set Logic:  D FC^DGFCPROT(.DA,2,.525,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic:  D FC^DGFCPROT(.DA,2,.525,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    X(1):  POW STATUS INDICATED?  (2,.525)  (forwards)
.526 POW CONFINEMENT LOCATION .52;6 POINTER TO POW PERIOD FILE (#22) POW PERIOD(#22)

  • INPUT TRANSFORM:  S DFN=DA D POW^DGLOCK
  • LAST EDITED:  AUG 06, 1986
  • HELP-PROMPT:  For this former POW enter the war in which confined.
  • DESCRIPTION:  For this veteran applicant who was confined as a prisoner of war (WERE YOU A PRISONER OF WAR prompt must be answered YES) enter the war during which confined. Once the service record is verified only those users who hold
    the designated security key may enter/edit this field.  This field cannot be deleted as long as applicant is identified as a former POW.
  • DELETE TEST:  1,0)= S DFN=DA D POWD^DGLOCK1 I '$D(X)
  • GROUP:  PW
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the POW STATUS INDICATED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR526^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the POW CONFINEMENT LOCATION field.
.527 POW FROM DATE .52;7 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DTX) X I $D(X) S DFN=DA D POW^DGLOCK I $D(X) D DOB^DGHELP
  • LAST EDITED:  JAN 16, 1991
  • HELP-PROMPT:  For this former POW enter the date confinement commenced.
  • DESCRIPTION:  For this veteran applicant who was confined as a prisoner of war (WERE YOU A PRISONER OF WAR prompt must be answered YES) enter the date on which confinement commenced. Once the service record is verified only those users
    who hold the designated security key may enter/edit this field.  This field cannot be deleted as long as applicant is identified as a former POW.
  • DELETE TEST:  1,0)= S DFN=DA D POWD^DGLOCK1 I '$D(X)
  • GROUP:  PW
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the POW STATUS INDICATED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR527^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the POW FROM DATE field.
.528 POW TO DATE .52;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DTX) X I $D(X) S DFN=DA D POW^DGLOCK I $D(X) D DOB^DGHELP
  • LAST EDITED:  JAN 16, 1991
  • HELP-PROMPT:  For this former POW enter the date confinement ended.
  • DESCRIPTION:  For this veteran applicant who was confined as a prisoner of war (WERE YOU A PRISONER OF WAR prompt must be answered YES) enter the date on which confinement ended. Once the service record is verified only those users who
    hold the designated security key may enter/edit this field.  This field cannot be deleted as long as applicant is identified as a former POW.
  • DELETE TEST:  1,0)= S DFN=DA D POWD^DGLOCK1 I '$D(X)
  • GROUP:  PW
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the POW STATUS INDICATED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR528^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the POW TO DATE field.
.5291 COMBAT SERVICE INDICATED? .52;11 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • INPUT TRANSFORM:  S DFN=DA D SV^DGLOCK
  • LAST EDITED:  JAN 30, 1987
  • HELP-PROMPT:  Did this patient serve in combat?
  • DESCRIPTION:  
    For this veteran applicant enter 'Y' if s/he served in a combat zone, or 'N' if not.  Once the service record is verified only users who hold the designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= S DFN=DA D SV^DGLOCK I '$D(X)
  • GROUP:  CS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2^.5292
    1)= X ^DD(2,.5291,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$S('$D(^DIC(22,+$P(Y(1),U,12),0)):"",1:$P(^(0),U,1)) S DIU=X K Y S X=DIV S X="" X ^DD(2,.5291,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.5291,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,11,99))  S DIH=DIH_U" S %=$P(DIH,U,13,999),DIU=$P(DIH,U,12),^(.52)=$P(DIH,U,1,11)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.5292 D ^DICR:$N(^DD(DIH,D
    IG,1,0))>0
    2)= Q
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.5291,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_":",2),$C(59),1)=""
    2.4)= S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,11,99))  S DIH=DIH_U" S %=$P(DIH,U,13,999),DIU=$P(DIH,U,12),^(.52)=$P(DIH,U,1,11)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.5292 D ^DICR:$N(^DD(DIH,D
    IG,1,0))>0
    CREATE CONDITION)= IN COMBAT="NO"
    CREATE VALUE)= @
    DELETE CONDITION)= IN COMBAT=""
    DELETE VALUE)= NO EFFECT
    FIELD)= COMBAT WHERE
  • CROSS-REFERENCE:  ^^TRIGGER^2^.5293
    1)= X ^DD(2,.5291,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$P(Y(1),U,13) S DIU=X K Y S X=DIV S X="" X ^DD(2,.5291,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.5291,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,12,99))  S DIH=DIH_U" S %=$P(DIH,U,14,999),DIU=$P(DIH,U,13),^(.52)=$P(DIH,U,1,12)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.5293 D ^DICR:$N(^DD(DIH,D
    IG,1,0))>0
    2)= Q
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.5291,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_":",2),$C(59),1)=""
    2.4)= S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,12,99))  S DIH=DIH_U" S %=$P(DIH,U,14,999),DIU=$P(DIH,U,13),^(.52)=$P(DIH,U,1,12)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.5293 D ^DICR:$N(^DD(DIH,D
    IG,1,0))>0
    CREATE CONDITION)= IN COMBAT="NO"
    CREATE VALUE)= @
    DELETE CONDITION)= IN COMBAT=""
    DELETE VALUE)= NO EFFECT
    FIELD)= COMBAT FRO
  • CROSS-REFERENCE:  ^^TRIGGER^2^.5294
    1)= X ^DD(2,.5291,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$P(Y(1),U,14) S DIU=X K Y S X=DIV S X="" X ^DD(2,.5291,1,3,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.5291,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,13,99))  S DIH=DIH_U" S %=$P(DIH,U,15,999),DIU=$P(DIH,U,14),^(.52)=$P(DIH,U,1,13)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.5294 D ^DICR:$N(^DD(DIH,D
    IG,1,0))>0
    2)= Q
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.5291,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_":",2),$C(59),1)=""
    2.4)= S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,13,99))  S DIH=DIH_U" S %=$P(DIH,U,15,999),DIU=$P(DIH,U,14),^(.52)=$P(DIH,U,1,13)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.5294 D ^DICR:$N(^DD(DIH,D
    IG,1,0))>0
    CREATE CONDITION)= IN COMBAT="NO"
    CREATE VALUE)= @
    DELETE CONDITION)= IN COMBAT=""
    DELETE VALUE)= NO EFFECT
    FIELD)= COMBAT TO DATE
  • CROSS-REFERENCE:  2^AENR5291^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the COMBAT SERVICE INDICATED? field.
  • CROSS-REFERENCE:  2^AI^MUMPS
    1)= D CSI1010^DGENDD(DA)
    2)= Q
    This MUMPS xref will trigger an update to the COMBAT INDICATED ON 1010EZ field (2/1010.157), so that when COMBAT SERVICE INDICATED? is "NO," COMBAT INDICATED ON 1010EZ is set to "NO."
  • RECORD INDEXES:  ACVCOM (#313)
.5292 COMBAT SERVICE LOCATION .52;12 POINTER TO POW PERIOD FILE (#22) POW PERIOD(#22)

  • INPUT TRANSFORM:  S DFN=DA D COM^DGLOCK
  • LAST EDITED:  AUG 06, 1986
  • HELP-PROMPT:  For this combat veteran enter the war in which combat service was incurred.
  • DESCRIPTION:  For this veteran applicant who served in a combat zone (IN COMBAT prompt must be answered YES) enter the zone in which s/he served. Once the service record is verified only those users who hold the designated security key
    may enter/edit this field.  This field cannot be deleted as long as combat service is indicated.
  • DELETE TEST:  1,0)= S DFN=DA D COMD^DGLOCK1 I '$D(X)
  • GROUP:  CS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the COMBAT SERVICE INDICATED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR5292^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the COMBAT SERVICE LOCATION field.
.5293 COMBAT FROM DATE .52;13 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DTX) X I $D(X) S DFN=DA D COM^DGLOCK I $D(X) D DOB^DGHELP
  • LAST EDITED:  JAN 16, 1991
  • HELP-PROMPT:  For this combat veteran enter the date combat service commenced.
  • DESCRIPTION:  For this veteran who served in a combat zone (IN COMBAT prompt must be answered YES) enter the date on which combat service commenced. Once the service record is verified only those users who hold the designated security
    key may enter/edit this field.  This field cannot be deleted as long as combat service is indicated.
  • DELETE TEST:  1,0)= S DFN=DA D COMD^DGLOCK1 I '$D(X)
  • GROUP:  CS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the COMBAT SERVICE INDICATED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR5293^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the COMBAT FROM DATE field.
.5294 COMBAT TO DATE .52;14 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DTX) X I $D(X) S DFN=DA D COM^DGLOCK I $D(X) D DOB^DGHELP
  • LAST EDITED:  JAN 16, 1991
  • HELP-PROMPT:  For this combat veteran enter the date combat service ended.
  • DESCRIPTION:  For this veteran who served in a combat zone (IN COMBAT prompt must be answered YES) enter the date on which combat service ended. Once the service record is verified only those users who hold the designated security key
    may enter/edit this field.  This field cannot be deleted as long as combat service is indicated.
  • DELETE TEST:  1,0)= S DFN=DA D COMD^DGLOCK1 I '$D(X)
  • GROUP:  CS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the COMBAT SERVICE INDICATED? field of the VA PATIENT File
  • CROSS-REFERENCE:  2^AENR5294^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    This MUMPS cross-reference is used to notify HEC of changes to the COMBAT TO DATE field.
  • CROSS-REFERENCE:  2^AK^MUMPS
    1)= D CTD1010^DGENDD(DA)
    2)= Q
    This MUMPS xref will trigger an update to the COMBAT INDICATED ON 1010EZ field (2/1010.157), so that when COMBAT SERVICE INDICATED? (2/.5291) is "YES" and COMBAT TO DATE (2/.5294) is greater that 11/11/1998, COMBAT
    INDICATED ON 1010EZ is set to "YES."
    Conversely, if COMBAT TO DATE is less than or equal to 11/11/1998, COMBAT INDICATED ON 1010EZ will be set to "NO."
  • RECORD INDEXES:  ACVCOM (#313)
.5295 COMBAT VETERAN END DATE .52;15 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 08, 2004
  • DESCRIPTION:  This field represents the last day for combat vet eligibility. This field will only be populated by cross-reference when the veteran's combat vet eligibility has been determined. This value will remain after the combat vet
    eligibility period has expired.
  • GROUP:  CS
  • CROSS-REFERENCE:  2^AENR5295^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes to the COMBAT VETERAN END DATE field.
  • CROSS-REFERENCE:  ^^TRIGGER^2^.5296
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^DPT(DIV(0),.52)),DIV=X S $P(^(.52),U,16)=DIV,DIH=2,DIG=.5296 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^DPT(DIV(0),.52)),DIV=X S $P(^(.52),U,16)=DIV,DIH=2,DIG=.5296 D ^DICR
    CREATE VALUE)= S X=DT
    DELETE VALUE)= S X=DT
    FIELD)= CV
    This trigger x-ref is used to update the date stamp when the CV Eligibility End date is edited.
  • CROSS-REFERENCE:  2^AENR52951^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference is used to update the patient's current Patient Enrollment record.
.5296 CV DATE EDITED .52;16 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 11, 2003
  • DESCRIPTION:  
    The CV DATE EDITED field will be stuffed with the current date whenever the COMBAT VET END DATE field (.5295) is changed.
  • NOTES:  TRIGGERED by the COMBAT VETERAN END DATE field of the VA PATIENT File
  • CROSS-REFERENCE:  2^E
    1)= S ^DPT("E",$E(X,1,30),DA)=""
    2)= K ^DPT("E",$E(X,1,30),DA)
    This cross reference will be used for a Lookup of the CV Date Edited field, so that veterans assigned CV Status Eligibility sduring certain time frames can be pulled into a report.
.531 CURRENT PH INDICATOR .53;1 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • INPUT TRANSFORM:  S DFN=DA D VET^DGLOCK
  • LAST EDITED:  SEP 26, 2000
  • HELP-PROMPT:  Enter 'Yes' if patient is a Purple Heart Recipient and is a veteran.
  • DESCRIPTION:  
    This field can be entered by the local site if currently null.  Subsequent editing can be done only by the HEC.  A response of 'Yes' can be entered only if the patient is a veteran,
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^D
    1)= S ^DPT("D",$E(X,1,30),DA)=""
    2)= K ^DPT("D",$E(X,1,30),DA)
    Cross-reference on Current PH Indicator to be used for look-ups and sorting.
  • CROSS-REFERENCE:  2^AENR531^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference is used to update the patient's current Patient Enrollment record.
.532 CURRENT PURPLE HEART STATUS .53;2 SET
  • '1' FOR PENDING;
  • '2' FOR IN PROCESS;
  • '3' FOR CONFIRMED;

  • LAST EDITED:  NOV 22, 2000
  • DESCRIPTION:  This field cannot be edited locally. If Current Purple Heart Indicator is set to 'Yes' by the local site, a Current Purple Heart Status of 'Pending' will be stuffed into the field. Other editing or updating is done by
    the HEC.
  • CROSS-REFERENCE:  2^C
    1)= S ^DPT("C",$E(X,1,30),DA)=""
    2)= K ^DPT("C",$E(X,1,30),DA)
    Cross-reference on Current PH Status, to be used for look-ups.
  • CROSS-REFERENCE:  2^AENR532^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC that may affect enrollment.
.533 CURRENT PURPLE HEART REMARKS .53;3 SET
  • '1' FOR UNACCEPTABLE DOCUMENTATION;
  • '2' FOR NO DOCUMENTATION REC'D;
  • '3' FOR ENTERED IN ERROR;
  • '4' FOR UNSUPPORTED PURPLE HEART;
  • '5' FOR VAMC;
  • '6' FOR UNDELIVERABLE MAIL;

  • LAST EDITED:  DEC 15, 2000
  • DESCRIPTION:  This field cannot be edited locally. If Current Purple Heart Indicator isset to 'No' by the local site, a Current Purple Heart Remarks of 'VAMC' will be stuffed into the field. Other editing or updating is done by the
    HEC.
  • CROSS-REFERENCE:  2^AENR533^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.535 PH DIVISION .53;4 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  FEB 09, 2001
  • DESCRIPTION:  
    When site enters a value for CURRENT PH Indicator, a prompt for PH Division will appear.  This field will point to the INSTITUTION file (#4), and will hold the division where the PH request was initiated.
.6 TEST PATIENT INDICATOR 0;21 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  OCT 26, 1995
  • HELP-PROMPT:  THIS FIELD IS USED TO INDENTIFY TEST PATIENTS
  • DESCRIPTION:  
    This field is set by the 'ATP' cross reference on the Social Security Number field (.09) when an SSN containing five leading zeros is entered.
  • TECHNICAL DESCR:  
    This field is used to indentify test patients in the Patient file (#2). It is not editable from any options, it is set by the 'ATP' cross reference on the SSN field (.09) for all SSNs with five leading zeros.
    WRITE AUTHORITY:  ^
    UNEDITABLE
  • CROSS-REFERENCE:  2^ATEST^MUMPS
    1)= I X S ^DPT("ATEST",DA)=""
    2)= K ^DPT("ATEST",DA)
    This cross reference is set for test patients only. If the SSN of a patient has five leading zeros then this cross reference is set. Otherwise, no cross reference will be created. This field is populated by the 'ATP' cross
    reference on the SSN field (.09).
1 ALIAS .01;0 Multiple #2.01 2.01

  • HELP-PROMPT:  If this patient is known by another name enter that name.
  • DESCRIPTION:  
    If this applicant is known by any name other than that entered in the NAME field enter that/those other name(s) here.  Any entry to this field will be cross-referenced and the applicant may be called up using this alias.
  • GROUP:  IHS
1.01 NAME COMPONENTS NAME;1 POINTER TO NAME COMPONENTS FILE (#20) NAME COMPONENTS(#20)

  • LAST EDITED:  APR 19, 2002
  • HELP-PROMPT:  This field contains a pointer to the NAME COMPONENTS record associated with field #.01.
    WRITE AUTHORITY:  ^
    UNEDITABLE
1.02 K-NAME COMPONENTS NAME;2 POINTER TO NAME COMPONENTS FILE (#20) NAME COMPONENTS(#20)

  • LAST EDITED:  APR 19, 2002
  • HELP-PROMPT:  This field contains a pointer to the NAME COMPONENTS record associated with field #.211.
    WRITE AUTHORITY:  ^
    UNEDITABLE
1.03 K2-NAME COMPONENTS NAME;3 POINTER TO NAME COMPONENTS FILE (#20) NAME COMPONENTS(#20)

  • LAST EDITED:  APR 19, 2002
  • HELP-PROMPT:  This field contains a pointer to the NAME COMPONENTS record associated with field #.2191.
    WRITE AUTHORITY:  ^
    UNEDITABLE
1.04 FATHER'S NAME COMPONENTS NAME;4 POINTER TO NAME COMPONENTS FILE (#20) NAME COMPONENTS(#20)

  • LAST EDITED:  APR 19, 2002
  • HELP-PROMPT:  This field contains a pointer to the NAME COMPONENTS record associated with field #.2401.
    WRITE AUTHORITY:  ^
    UNEDITABLE
1.05 MOTHER'S NAME COMPONENTS NAME;5 POINTER TO NAME COMPONENTS FILE (#20) NAME COMPONENTS(#20)

  • LAST EDITED:  JUL 25, 2002
  • HELP-PROMPT:  This field contains a pointer to the NAME COMPONENTS record associated with field #.2402.
    WRITE AUTHORITY:  ^
    UNEDITABLE
1.06 MOTHERS MAIDEN NAME COMPONENTS NAME;6 POINTER TO NAME COMPONENTS FILE (#20) NAME COMPONENTS(#20)

  • LAST EDITED:  APR 19, 2002
  • HELP-PROMPT:  This field contains a pointer to the NAME COMPONENTS record associated with field #.2403.
    WRITE AUTHORITY:  ^
    UNEDITABLE
1.07 E-NAME COMPONENTS NAME;7 POINTER TO NAME COMPONENTS FILE (#20) NAME COMPONENTS(#20)

  • LAST EDITED:  APR 19, 2002
  • HELP-PROMPT:  This field contains a pointer to the NAME COMPONENTS record associated with field #.331.
    WRITE AUTHORITY:  ^
    UNEDITABLE
1.08 E2-NAME COMPONENTS NAME;8 POINTER TO NAME COMPONENTS FILE (#20) NAME COMPONENTS(#20)

  • LAST EDITED:  JUL 25, 2002
  • HELP-PROMPT:  This field contains a pointer to the NAME COMPONENTS record associated with field #.3311.
    WRITE AUTHORITY:  ^
    UNEDITABLE
1.09 D-NAME COMPONENTS NAME;9 POINTER TO NAME COMPONENTS FILE (#20) NAME COMPONENTS(#20)

  • LAST EDITED:  JUL 25, 2002
  • HELP-PROMPT:  This field contains a pointer to the NAME COMPONENTS record associated with field #.341.
    WRITE AUTHORITY:  ^
    UNEDITABLE
2 RACE INFORMATION .02;0 POINTER Multiple #2.02 2.02
3 ENROLLMENT CLINIC DE;0 POINTER Multiple #2.001 2.001

  • DESCRIPTION:  
    This multiple field contains the data relating to clinic enrollments for this patient.
  • GROUP:  IHS
6 ETHNICITY INFORMATION .06;0 POINTER Multiple #2.06 2.06

  • INDEXED BY:  ETHNICITY INFORMATION (AONLYONE)
27.01 CURRENT ENROLLMENT ENR;1 POINTER TO PATIENT ENROLLMENT FILE (#27.11) PATIENT ENROLLMENT(#27.11)

  • LAST EDITED:  JUL 24, 1997
  • HELP-PROMPT:  Enter the patient's current enrollment.
  • DESCRIPTION:  
    The patient's current enrollment.
    UNEDITABLE
  • CROSS-REFERENCE:  2^AENRC^MUMPS
    1)= D SET1^DGENDD(DA,X)
    2)= D KILL1^DGENDD(DA)
    3)= DO NOT DELETE
    This index sorts the patients by their current enrollment status.  The ENROLLMENT STATUS field of the PATIENT ENROLLMENT file also triggers this cross-reference.
    The format of the index is: ^DPT("AENRC",,)=""
27.02 PREFERRED FACILITY ENR;2 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • INPUT TRANSFORM:  S DIC("S")="I $$TF^XUAF4(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 16, 2001
  • HELP-PROMPT:  Enter the facility that the patient chooses to designate as his primary location for care.
  • DESCRIPTION:  
    The facility that the patient chooses to designate as his preferred location for care.
  • SCREEN:  S DIC("S")="I $$TF^XUAF4(Y)"
  • EXPLANATION:  Selected facility must be a treating facility.
  • CROSS-REFERENCE:  2^AENR2702^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
53 *REACTIONS PI;1 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
57.1 *HEIGHT(cm) 57;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>300)!(X<100)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 100 AND 300
57.2 *WEIGHT(kg) 57;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>150)!(X<40)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 40 AND 150
57.4 SPINAL CORD INJURY 57;4 SET
  • '1' FOR PARAPLEGIA-TRAUMATIC;
  • '2' FOR QUADRIPLEGIA-TRAUMATIC;
  • '3' FOR PARAPLEGIA-NONTRAUMATIC;
  • '4' FOR QUADRIPLEGIA-NONTRAUMATIC;
  • 'X' FOR NOT APPLICABLE;

  • LAST EDITED:  AUG 16, 1988
  • HELP-PROMPT:  Enter the appropriate code.
  • DESCRIPTION:  
    If this patient does not have a spinal cord injury, enter X for not applicable in this field.  Otherwise, if the patient does have a spinal cord injury, choose from the other available choices the one
63 LABORATORY REFERENCE LR;1 POINTER TO LAB DATA FILE (#63) LAB DATA(#63)

  • INPUT TRANSFORM:  K X
  • LAST EDITED:  DEC 05, 1983
  • HELP-PROMPT:  Any changes to this entry must be made from the lab data entry routines. This is the patient's record number in the lab file.
  • DESCRIPTION:  This field contains the internal entry number of this patient in the LAB DATA file. This data is entered and maintained by the laboratory package and must NOT be edited under any circumstances. Editing of this data could
    cause severe repercussions in the laboratory package.
  • GROUP:  IHS
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
67 LAB REFERRAL REF LRT;1 POINTER TO REFERRAL PATIENT FILE (#67) REFERRAL PATIENT(#67)

  • INPUT TRANSFORM:  K X
  • LAST EDITED:  JUN 22, 1997
  • DESCRIPTION:  This field contains the pointer reference to the Referral file of the Laboratory Package. This field is set by the laboratory accessioning software and should not be edited.
    Changing of this pointer will result IN misidentification of patients that could have dire medical repercussions.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
148 CNH CURRENT NHC;1 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 30, 1992
  • HELP-PROMPT:  Answer yes if the patient is in a contract nursing home now. Otherwise, answer no.
  • DESCRIPTION:  
    This field is used to denote when a patient is currently in a contract nursing home.  Answer yes if the patient is in a contract nursing home currently.  Otherwise, answer no.
220 DENTAL CLASSIFICATION DENT;1 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  JUL 31, 1985
  • DESCRIPTION:  
    For Dental Package
220.1 DENTAL ELIGIBILITY EXPIRATION DENT;2 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 31, 1985
  • DESCRIPTION:  
    For Dental Eligibility
361 PATIENT ELIGIBILITIES E;0 POINTER Multiple #2.0361 2.0361

  • HELP-PROMPT:  Choose from the available listing those eligibilities to which this patient might be entitled which are not his primary eligibility.
  • DESCRIPTION:  
    This multiple contains all eligibilities under which this patient can receive care.  This includes his primary eligibility and all other eligibilities he may have.
  • GROUP:  ECD
391 TYPE TYPE;1 POINTER TO TYPE OF PATIENT FILE (#391)
************************REQUIRED FIELD************************
TYPE OF PATIENT(#391)

  • LAST EDITED:  AUG 25, 2000
  • HELP-PROMPT:  Choose from the available listing the PATIENT TYPE which best classifies this patient.
  • DESCRIPTION:  Enter the patient type for this patient. This is selectable from the distributed entries in the TYPE OF PATIENT file. The type selected should be the primary one selectable. For example, if the patient is both an NSC
    veteran and an employee, the patient type should be NSC VETERAN, not employee.
    This field is used by the registration screen processor to determine which screens will be editable for this patient.  The selection of which screens can be viewed for which types of patients can be made through the
    'Patient Type Update' option.
  • TECHNICAL DESCR:  The type of patient is used to determine which screens in the registration process should be allowed for entry/edit. The 'Patient Type Update' option in MAS can be used to determine which screens are editable for each
    patient type.
  • GROUP:  ECD
  • CROSS-REFERENCE:  2^AVAFC391^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF="391;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF="391;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • FIELD INDEX:  APTYPE (#327) REGULAR R SORTING ONLY
    Short Descr:  Index TYPE OF PATIENT
    Set Logic:  S ^DPT("APTYPE",X,DA)=""
    Kill Logic:  K ^DPT("APTYPE",X,DA)
    Whole Kill:  K ^DPT("APTYPE")
    X(1):  TYPE  (2,391)  (Subscr 1)  (forwards)
401.3 CONDITION DAC;1 SET
  • 'S' FOR SERIOUSLY ILL;
  • 'D' FOR DO NOT RESUSCITATE;
  • 'B' FOR SI & DNR;

  • LAST EDITED:  SEP 15, 2000
  • HELP-PROMPT:  Enter one of the codes or '@' to delete off the list.
  • DESCRIPTION:  
    Enter 'S' if the patient is seriouslly ill and should be displayed on the Seriouslly Ill Roster.  Enter '@' to delete patient from seriouslly ill status.
  • TECHNICAL DESCR:  
    IHS/ANMC/LJF 9/15/2000: Added back in IHS code of D and B.  Will keep these until TIU is released in IHS.  That is the appropriate application for storing the DNR designation.
  • GROUP:  IHS
  • CROSS-REFERENCE:  2^AS
    1)= S ^DPT("AS",$E(X,1,30),DA)=""
    2)= K ^DPT("AS",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^2^401.4
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,"DAC")):^("DAC"),1:"") S X=$P(Y(1),U,2) S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=X X ^DD(2,401.3,1,2,1.4)
    1.4)= S DIH=$S($D(^DPT(DIV(0),"DAC")):^("DAC"),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^("DAC")=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=401.4 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,"DAC")):^("DAC"),1:"") S X=$P(Y(1),U,2) S DIU=X K Y S X=DIV S X="" X ^DD(2,401.3,1,2,2.4)
    2.4)= S DIH=$S($D(^DPT(DIV(0),"DAC")):^("DAC"),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^("DAC")=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=401.4 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= TODAY
    DELETE VALUE)= @
    FIELD)= DATE ENTERED ON SI LIST
  • CROSS-REFERENCE:  2^AODS7^MUMPS
    1)= S A1B2TAG="PAT" D ^A1B2XFR
    2)= S A1B2TAG="PAT" D ^A1B2XFR
401.4 DATE ENTERED ON SI LIST DAC;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 13, 1990
  • HELP-PROMPT:  For this seriouslly ill patient enter the date placed on the seriouslly ill roster.
  • DESCRIPTION:  
    Enter the date the patient was placed on the Seriouslly Ill list.
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the CONDITION field of the VA PATIENT File
404.01 *CURRENT PC PRACTITIONER PC;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $$SCREEN^DGPMDD(Y,DA)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 12, 1998
  • HELP-PROMPT:  This is the patient's Primary Care Practitioner.
  • DESCRIPTION:  
    This field stores the patient's Current Primary Care Practitioner.
  • TECHNICAL DESCR:  
    Programmers should use the input & output APIs for this field in order to be compatible with changes in the Primary Care Management Module Release in winter of 1995-1996.
  • SCREEN:  S DIC("S")="I $$SCREEN^DGPMDD(Y,DA)"
  • EXPLANATION:  Select active providers only.
  • EXECUTABLE HELP:  D HELP^DGPMDD(DA)
404.02 *CURRENT PC TEAM PC;2 POINTER TO TEAM FILE (#404.51) TEAM(#404.51)

  • LAST EDITED:  AUG 12, 1998
  • HELP-PROMPT:  This is the patient's Primary Care Team.
  • DESCRIPTION:  
    This field contains the patients's Primary Care Team.
  • TECHNICAL DESCR:  This field points to the TEAM (#404.51) File (distributed with SD*5.3*30). Programmers should use the input & output APIs for this field in order to be compatible with changes in the Primary Care Management Module Release
    in winter of 1995-1996.
534 PH DATE/TIME UPDATED PH;0 DATE Multiple #2.0534 2.0534
991.01 INTEGRATION CONTROL NUMBER MPI;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."1N.N)!('$D(RGRSICN)) X
  • LAST EDITED:  JUL 13, 2001
  • HELP-PROMPT:  This field can only be edited by MPI/PD!
  • DESCRIPTION:  
    Machine to machine identifier for a patient.
  • AUDIT:  YES, ALWAYS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AICN
    1)= S ^DPT("AICN",$E(X,1,30),DA)=""
    2)= K ^DPT("AICN",$E(X,1,30),DA)
    This is a non-lookup cross-reference for the Integration Control Number Field.
  • CROSS-REFERENCE:  2^AHICN^MUMPS
    1)= Q
    2)= I $T(ICN^VAFCHIS)'="" D ICN^VAFCHIS(X,DA)
    Used to create ICN History, ICN lookup capability.
  • CROSS-REFERENCE:  2^AR^MUMPS
    1)= I $T(KILL^VAFCMIS)'="" D KILL^VAFCMIS(DA)
    2)= Q
    Cross Reference is used to delete the 'AMPIMIS' cross reference denoting missing ICN.
  • CROSS-REFERENCE:  2^AENR99101^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)= DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • FIELD INDEX:  APRFEVT (#326) MUMPS ACTION
    Short Descr:  Record PRF HL7 event for new patients
    Description:  This trigger creates an entry in the PRF HL7 EVENT (#26.21) file when no entry exists and a national ICN is filed.
    Set Logic:  D EVENT^DGPFDD(DA)
    Kill Logic:  Q
    X(1):  INTEGRATION CONTROL NUMBER  (2,991.01)  (forwards)
991.02 ICN CHECKSUM MPI;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6) X
  • LAST EDITED:  FEB 15, 2001
  • HELP-PROMPT:  Answer must be 6 characters in length.
  • DESCRIPTION:  
    This checksum is the calculated checksum for the Integration Control Number. It verifies the integrity of the ICN.
  • AUDIT:  YES, ALWAYS
991.03 COORDINATING MASTER OF RECORD MPI;3 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  JUL 13, 2001
  • HELP-PROMPT:  Enter the coordinating site for the patient.
  • DESCRIPTION:  
    The coordinating site for the patient.
  • AUDIT:  YES, ALWAYS
  • CROSS-REFERENCE:  2^ACMOR
    1)= S ^DPT("ACMOR",$E(X,1,30),DA)=""
    2)= K ^DPT("ACMOR",$E(X,1,30),DA)
  • CROSS-REFERENCE:  2^AHCMOR^MUMPS
    1)= Q
    2)= I $T(CMOR^VAFCHIS)'="" D CMOR^VAFCHIS(X,DA)
    This cross-reference is used to create the MPICMOR history multiple for lookup capability.
991.04 LOCALLY ASSIGNED ICN MPI;4 SET
  • '1' FOR YES;

  • LAST EDITED:  SEP 12, 1996
  • HELP-PROMPT:  This field will be 1 or YES if a LOCAL ICN has been assigned.
  • DESCRIPTION:  
    DESIGNATES THAT THE ICN BELONGING TO THIS PATIENT IS LOCAL
  • CROSS-REFERENCE:  2^AICNL
    1)= S ^DPT("AICNL",$E(X,1,30),DA)=""
    2)= K ^DPT("AICNL",$E(X,1,30),DA)
    INDICATES THE ICN WAS LOCALLY ASSIGNED
991.05 SUBSCRIPTION CONTROL NUMBER MPI;5 POINTER TO SUBSCRIPTION CONTROL FILE (#774) SUBSCRIPTION CONTROL(#774)

  • LAST EDITED:  JUN 09, 1998
  • HELP-PROMPT:  Enter the patient's Subscription Control Number.
  • DESCRIPTION:  This field points to a list of subscribers to this patient's data. For example, see details of the MPI/PD messaging implementation. The subscriber list is specific to this patient. Do not change the subscription control
    number without remembering to update the current subscriber list in file 774 (SUBSCRIPTION CONTROL). Use only documented API calls to create a new subscription control number for a patient.
    UNEDITABLE
  • CROSS-REFERENCE:  2^ASCN^MUMPS
    1)= Q
    2)= I '$D(DIU(0)) N DA,DIK S DIK="^HLS(774,",DA=X D ^DIK
    The kill logic on this cross-reference is used to selectively delete entries from the Subscription Control File for patient merges and deletions. Re-indexing the patient file will not affect the Subscription Control file.
  • CROSS-REFERENCE:  2^ASCN2
    1)= S ^DPT("ASCN2",$E(X,1,30),DA)=""
    2)= K ^DPT("ASCN2",$E(X,1,30),DA)
    3)= MPI/PD XREF - DO NOT DELETE!
    This cross-reference is used by Master Patient Index/ Patient Demographics (MPI/PD) for various data validation and reporting functions.
991.06 CMOR ACTIVITY SCORE MPI;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1.N) X
  • LAST EDITED:  JUL 13, 2001
  • HELP-PROMPT:  Type a number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    This score is used to determine the Coordinating Master of Record.
  • CROSS-REFERENCE:  2^ACMORS^MUMPS
    1)= S ^DPT("ACMORS",(9999999-X),DA)=""
    2)= K ^DPT("ACMORS",(9999999-X),DA)
    This inverse cross-reference allows patients with the highest CMOR activity score to receive priority processing. The CMOR activity score collating sequence is reversed to process from highest to lowest scores.  This
    cross-reference reads: ^DPT('ACMORS',INVERSE CMOR ACTIVITY SCORE,DA)=''
991.07 SCORE CALCULATION DATE MPI;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 30, 1997
  • HELP-PROMPT:  This is the last date that the CMOR Activity Score was calculated at this site.
  • DESCRIPTION:  
    This is the last date that the CMOR ACTIVITY SCORE was calculated at this site.
992 ICN HISTORY MPIFHIS;0 Multiple #2.0992 2.0992
993 CMOR HISTORY MPICMOR;0 Multiple #2.0993 2.0993
994 MULTIPLE BIRTH INDICATOR MPIMB;1 SET
  • 'N' FOR NO;
  • 'Y' FOR *MULTIPLE BIRTH*;

  • LAST EDITED:  MAY 14, 2003
  • HELP-PROMPT:  Is the patient part of a multiple birth?
  • DESCRIPTION:  
    The MULTIPLE BIRTH INDICATOR will designate whether or not the patient is part of a multiple birth (i.e. to identify twins, etc.).
  • AUDIT:  YES, ALWAYS
999 ABSENCE DIVISION COMPUTED

  • MUMPS CODE:  S X=$S($D(^UTILITY($J,"DG",D0)):^(D0),1:0),X=$S($D(^DIC(42,+$P(X,U,4),0)):$P(^(0),U,11),1:0),X=$S($D(^DG(40.8,+X,0)):$P(^(0),U,1),1:"")
  • ALGORITHM:  S X=$S($D(^UTILITY($J,"DG",D0)):^(D0),1:0),X=$S($D(^DIC(42,+$P(X,U,4),0)):$P(^(0),U,11),1:0),X=$S($D(^DG(40.8,+X,0)):$P(^(0),U,1),1:"")
  • LAST EDITED:  JUL 18, 1985
  • DESCRIPTION:  
    Computed field used in Absence list. For programmers only.
999.1 INPATIENT WARD COMPUTED

  • MUMPS CODE:  S X=$S($D(^UTILITY($J,"DG",D0)):^(D0),1:0),X=$S($D(^DIC(42,+$P(X,U,4),0)):$P(^(0),U,1),1:"")
  • ALGORITHM:  S X=$S($D(^UTILITY($J,"DG",D0)):^(D0),1:0),X=$S($D(^DIC(42,+$P(X,U,4),0)):$P(^(0),U,1),1:"")
  • LAST EDITED:  AUG 08, 1985
  • DESCRIPTION:  
    For use in historical inpatient list. For programmers only
999.2 LAST MEANS TEST COMPUTED

  • MUMPS CODE:  S X1=$$LST^DGMTU(D0),Y=$P(X1,U,2) D DD^%DT S X=Y
  • ALGORITHM:  S X1=$$LST^DGMTU(D0),Y=$P(X1,U,2) D DD^%DT S X=Y
  • LAST EDITED:  APR 23, 1993
1000 DISPOSITION LOG-IN DATE/TIME DIS;0 DATE Multiple #2.101 2.101

  • HELP-PROMPT:  Enter the date/time this patient was registered for care.
  • DESCRIPTION:  The date/time at which this applicant applied for medical benefits, e.g., was registered for care using the 'Registration' option of ADT.
    This multiple contains information on each registration entered for this patient including the date of registration, date of disposition, and type of disposition.
  • TECHNICAL DESCR:  The date/time at which this applicant applied for medical benefits, e.g., was registered for care using the 'Registration' option of ADT.
    This multiple contains information on each registration entered for this patient including the date of registration, date of disposition, and type of disposition.
1010.15 RECEIVED VA CARE PREVIOUSLY? 1010.15;5 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JAN 20, 1987
  • HELP-PROMPT:  Has this patient received care in a VA previously.
  • DESCRIPTION:  
    Enter 'Y' if this veteran has previously received care in another VA facility, otherwise enter 'N'.
  • CROSS-REFERENCE:  ^^TRIGGER^2^1010.151
    1)= X ^DD(2,1010.15,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,1010.15,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,1010.15,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)'["Y"
    1.4)= S DIH=$S($D(^DPT(DIV(0),1010.15)):^(1010.15),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(1010.15)=DIV_$S(%]"":U_%,1:""),DIH=2,DIG=1010.151 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,1010.15,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_":",2),$C(59),1)'["Y"
    2.4)= S DIH=$S($D(^DPT(DIV(0),1010.15)):^(1010.15),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(1010.15)=DIV_$S(%]"":U_%,1:""),DIH=2,DIG=1010.151 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= #1010.15'["Y"
    CREATE VALUE)= @
    DELETE CONDITION)= #1010.15'["Y"
    DELETE VALUE)= NO EFFECT
    FIELD)= #1010.151
1010.151 MOST RECENT DATE OF CARE 1010.15;1 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Enter the most recent date of care in a VA facility.
  • DESCRIPTION:  
    If this veteran has previously received care in another VA facility enter the date of care in that facility.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the RECEIVED VA CARE PREVIOUSLY? field of the VA PATIENT File
  • CROSS-REFERENCE:  ^^TRIGGER^2^1010.152
    1)= Q
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15),1:"") S X=$P(Y(1),U,1)="" I X S X=DIV S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,101
    0.151,1,1,2.4)
    2.4)= S DIH=$S($D(^DPT(DIV(0),1010.15)):^(1010.15),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(1010.15)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=1010.152 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE CONDITION)= MOST RECENT DATE OF CARE=""
    DELETE VALUE)= @
    FIELD)= MOST RECENT LOCATION OF CARE
  • CROSS-REFERENCE:  ^^TRIGGER^2^1010.153
    1)= Q
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15),1:"") S X=$P(Y(1),U,1)="" I X S X=DIV S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(2,101
    0.151,1,2,2.4)
    2.4)= S DIH=$S($D(^DPT(DIV(0),1010.15)):^(1010.15),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(1010.15)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=1010.153 D ^DICR:$
    N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE CONDITION)= MOST RECENT DATE OF CARE=""
    DELETE VALUE)= @
    FIELD)= 2ND MOST RECENT DATE OF CARE
1010.1511 APPOINTMENT REQUEST DATE 1010.15;11 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 18, 2004
  • HELP-PROMPT:  Enter date VA was notified the enrolling patient is requesting an appointment.
  • DESCRIPTION:  
    This field contains the date the VA enrolling a patient for the first time was notified that the patient requests an appointment with a provider.
  • CROSS-REFERENCE:  2^AENR10101511^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • CROSS-REFERENCE:  2^AEACL
    1)= S ^DPT("AEACL",$E(X,1,30),DA)=""
    2)= K ^DPT("AEACL",$E(X,1,30),DA)
    This cross reference is used for Enrollee Appt. Call List
1010.152 MOST RECENT LOCATION OF CARE 1010.15;2 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  MAR 13, 1984
  • HELP-PROMPT:  Enter the VA in which care was received most recently.
  • DESCRIPTION:  
    If this veteran have previously received care in another VA facility select from the available listing the name of the facility (or facility number) in which care was rendered most recently.
  • NOTES:  TRIGGERED by the MOST RECENT DATE OF CARE field of the VA PATIENT File
1010.153 2ND MOST RECENT DATE OF CARE 1010.15;3 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 18, 1990
  • HELP-PROMPT:  Enter the date of care this patient received care in another VA facility.
  • DESCRIPTION:  
    If this applicant has received care in more than one other VA facility enter the date of care received in the next to most recent facility.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the MOST RECENT DATE OF CARE field of the VA PATIENT File
  • CROSS-REFERENCE:  ^^TRIGGER^2^1010.154
    1)= Q
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15),1:"") S X=$P(Y(1),U,3)="" I X S X=DIV S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(2,101
    0.153,1,1,2.4)
    2.4)= S DIH=$S($D(^DPT(DIV(0),1010.15)):^(1010.15),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(1010.15)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=1010.154 D ^DICR:$
    N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE CONDITION)= 2ND MOST RECENT DATE OF CARE=""
    DELETE VALUE)= @
    FIELD)= #1010.154
1010.154 2ND MOST RECENT LOCATION 1010.15;4 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  MAR 13, 1984
  • HELP-PROMPT:  Enter the location of care (VA facility) this patient received other care.
  • DESCRIPTION:  
    If this veteran has received care in more than one other VA facility select from the available listing the name of the facility (or facility number) in which the next to most recent care was received.
  • NOTES:  TRIGGERED by the 2ND MOST RECENT DATE OF CARE field of the VA PATIENT File
1010.156 MOST RECENT 1010EZ 1010.15;6 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  APR 20, 2004
  • DESCRIPTION:  This field was added via patch DG*5.3*597, distributed with EAS*1.0*51.
    The purpose of this field is to link the PATIENT file record with the Veteran's latest 1010EZ Application to this site.  The 1010EZ data is retained in 1010EZ HOLDING File (#712).  The internal entry number to file #712 is
    stored in the MOST RECENT 1010EZ field.
    UNEDITABLE
1010.157 COMBAT INDICATED ON 1010EZ 1010.15;7 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  APR 16, 2004
  • DESCRIPTION:  This field was added via patch DG*5.3*597, distributed with EAS*1.0*51.
    The purpose of this field is to store within the PATIENT file the applicant's answer to the 1010EZ question:
    DID YOU SERVE IN COMBAT AFTER 11/11/1998?
    This field may contain any of the following:
    0 for "NO"
    1 for "YES"
    null (i.e., not answered)
1010.158 DISABILITY DISCHARGE ON 1010EZ 1010.15;8 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  APR 16, 2004
  • DESCRIPTION:  This field was added via patch DG*5.3*597, distributed with EAS*1.0*51.
    The purpose of this field is to store within the PATIENT file the applicant's answer to the 1010EZ question:
    WAS DISCHARGE FROM MILITARY FOR A DISABILITY INCURRED OR AGGRAVATED IN THE LINE OF DUTY?
    This field may contain any of the following:
    0 for "NO"
    1 for "YES"
    null (i.e., not answered)
1010.159 APPOINTMENT REQUEST ON 1010EZ 1010.15;9 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JAN 12, 2005
  • HELP-PROMPT:  Enter 'Y' if the veteran applicant has requested an appointment with a VA doctor/provider.
  • DESCRIPTION:  Enter a 'Y' if the veteran applicant has requested an appointment with a VA doctor or provider and wants to be seen as soon as one becomes available. Enter a 'N' if the veteran applicant has not requested an appointment.
    This question may ONLY be entered ONCE for the veteran.  The answer to this question CANNOT be changed after the initial entry.
  • TECHNICAL DESCR:  
    This field reflects the a request indicated on the patient's initial 1010EZ.
  • CROSS-REFERENCE:  2^AENR1010159^MUMPS
    1)= D EVENT^IVMPLOG(DA)
    2)= D EVENT^IVMPLOG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • FIELD INDEX:  AEAR (#322) REGULAR IR SORTING ONLY
    Short Descr:  Contains YES entries
    Description:  This cross reference contains 'yes' entries
    Set Logic:  S ^DPT("AEAR",X,DA)=""
    Set Cond:  S X=X(1)=1
    Kill Logic:  K ^DPT("AEAR",X,DA)
    Whole Kill:  K ^DPT("AEAR")
    X(1):  APPOINTMENT REQUEST ON 1010EZ  (2,1010.159)  (Subscr 1)  (forwards)
1100.01 FUGITIVE FELON FLAG FFP;1 SET
  • '1' FOR YES;

  • INPUT TRANSFORM:  I $D(X) D FFP^DGLOCK
  • LAST EDITED:  NOV 13, 2002
  • HELP-PROMPT:  Respond 'YES' if a Fugitive Felon warrent has been received for this patient
  • DESCRIPTION:  This field is in support of Pub. L. 107-103, section 505, and is used to flag a patient who has a fugitive felon warrant outstanding. This information will be provided to the appropriate personnel to enter. Access to
    this field requires the DGFFP ACCESS key.  This field should not be updated directly, but should be entered through the appropriate Fugitive Felon Program options.
  • DELETE TEST:  1,0)= D FFP^DGLOCK I '$D(X)
  • GROUP:  FFP
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AUFFP^MUMPS
    1)= S DGFFF=X,X="DGFFP01" X ^%ZOSF("TEST") D:$T DD^DGFFP01(DA) S X=DGFFF K DGFFF
    2)= S DGFFF=X,X="DGFFP01" X ^%ZOSF("TEST") D:$T DD^DGFFP01(DA) S X=DGFFF K DGFFF
    This cross-reference is used to set the following fields:
    FFF ENTERED BY (#1100.02)
    FFF DATE ENTERED (#1100.03)
    FFF REMOVED BY (#1100.04)
    FFF DATE REMOVED (#1100.05)
  • CROSS-REFERENCE:  2^AXFFP
    1)= S ^DPT("AXFFP",$E(X,1,30),DA)=""
    2)= K ^DPT("AXFFP",$E(X,1,30),DA)
    This cross-reference is used for sorting patients that have the Fugitive Felon Flag set.  If the flag is not set, a cross-reference will not exist for the patient.
1100.02 FFF ENTERED BY FFP;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 12, 2002
  • HELP-PROMPT:  Select the user who is setting the current Fugitive Felon Flag
  • DESCRIPTION:  
    This field contains the user who entered the current Fugtitive Felon Flag for this patient.  It is automatically entered when the FUGITIVE FELON FLAG field (#1100.01) is entered.
  • TECHNICAL DESCR:  
    This field can only be set by the appropriate option and cannot be set through Fileman.
    WRITE AUTHORITY:  ^
  • GROUP:  FFP
1100.03 FFF DATE ENTERED FFP;3 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  DEC 05, 2002
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  
    Date/Time the FUGITIVE FELON FLAG field (#1100.01) was entered.  This field is automatically set when the FUGITIVE FELON FLAG field (#1100.01) is set.
  • TECHNICAL DESCR:  
    This field can only be set through the appropriate option, it cannot be set through FileMan.
  • GROUP:  FFP
1100.04 FFF REMOVED BY FFP;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 12, 2002
  • HELP-PROMPT:  Select the user who removed the Fugitive Felon Flag
  • DESCRIPTION:  
    This field contains the user who removed the current Fugitive Felon Flag for this patient.  It is automatically entered when the FUGITIVE FELON FLAG field (#1100.01) is deleted.
  • TECHNICAL DESCR:  
    This field can only be modified through the appropriate options, it cannot be modified through FileMan.
    WRITE AUTHORITY:  ^
  • GROUP:  FFP
1100.05 FFF DATE REMOVED FFP;5 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 12, 2002
  • HELP-PROMPT:  Enter the date and time the Fugitive Felon Flag is removed
  • DESCRIPTION:  
    Date/Time the FUGITIVE FELON FLAG Field (#1100.01) was removed.  This field is automatically set when the FUGITIVE FELON FLAG field (#1100.01) is deleted.
  • TECHNICAL DESCR:  
    This field can only be set through the appropriate option and cannot be directly set.
    WRITE AUTHORITY:  ^
  • GROUP:  FFP
1100.09 FFF REMOVAL REMARKS FFP;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<2) X
  • LAST EDITED:  DEC 04, 2002
  • HELP-PROMPT:  Answer must be 2-80 characters in length. This is a short comment about clearing this flag.
  • DESCRIPTION:  
    If the FFF flag has been cleared for this patient, this field contains a short reason as to why the flag was cleared.  This is a free text field which allows up to 80 characters to be entered.
    WRITE AUTHORITY:  ^
1900 APPOINTMENT S;0 POINTER Multiple #2.98 2.98

  • DESCRIPTION:  
    This multiple contains information on appointments this patient has had or is scheduled to have.  This information includes the date/time of the appointment, the clinic, and the reason for the appointment.
    WRITE AUTHORITY:  ^
  • GROUP:  IHS
1901 VETERAN (Y/N)? VET;1 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • INPUT TRANSFORM:  I $D(X) S:'$D(DPTX) DFN=DA D:'$D(^XUSEC("DG ELIGIBILITY",DUZ)) VAGE^DGLOCK:X="Y" I $D(X) D:$D(DFN) EV^DGLOCK
  • LAST EDITED:  MAY 27, 2004
  • HELP-PROMPT:  Is this patient requesting care as a veteran of the U.S. Armed Forces?
  • DESCRIPTION:  Enter 'Y' if this applicant is over 17 years of age and is a veteran, 'N' if not. If applicant is under 17 years of age and is a veteran only those users holding the designated security may identify him/her as a veteran.
    Once eligibility is verified only those users who hold the designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= S DFN=DA D EV^DGLOCK I '$D(X)
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AN^MUMPS
    1)= S DFN=DA D EN^DGMTCOR K DGMTCOR
    2)= S DFN=DA D EN^DGMTCOR K DGMTCOR
    This cross reference acts like a trigger.  It 'triggers' the status field in file 408.31 (ANNUAL MEANS TEST) for the co-pay exemption test.  It will update the field to 'NO LONGER APPLICABLE' if appropriate.
  • CROSS-REFERENCE:  2^AN1^MUMPS
    1)= S DFN=DA D EN^DGRP7CC
    2)= S DFN=DA D EN^DGRP7CC
    THIS CROSS REFERENCE CONTAINS TRIGGERS TO DELETE DATA FROM SPECIFIED FIELDS WHEN THE 'VETERAN (Y/N)' FIELD IS CHANGED TO "NO".
  • CROSS-REFERENCE:  ^^TRIGGER^2^.301
    1)= X ^DD(2,1901,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X="N" X ^DD(2,1901,1,3,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,1901,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)'["Y"
    1.4)= S DIH=$S($D(^DPT(DIV(0),.3)):^(.3),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(.3)=DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.301 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #1901'["Y"
    CREATE VALUE)= "N"
    DELETE VALUE)= NO EFFECT
    FIELD)= #.301
  • CROSS-REFERENCE:  2^AENR1901^MUMPS
    1)= D AUTOUPD^DGENA2(DA)
    2)= D AUTOUPD^DGENA2(DA)
    3)= DO NOT DELETE
    This cross-reference will be used to update the patient's enrollment.
  • CROSS-REFERENCE:  2^AVAFC1901^MUMPS
    1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF="1901;" D AVAFC^VAFCDD01(DA)
    2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF="1901;" D AVAFC^VAFCDD01(DA)
    This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process.  Execution of this cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71) and
    mark it as requiring transmission of an HL7 ADT-A08 message.
    The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process.
    Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1.
    The local variable VAFCF is used to identify the field edited.  This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71).
  • CROSS-REFERENCE:  2^ADGRU1901^MUMPS
    1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) required for a vendor RAI/MDS COTS system.  Execution of this cross reference will create an entry in the
    ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.
    The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.
  • CROSS-REFERENCE:  2^AAVABDW14^MUMPS
    1)= D SET^AUPNDWXR(DA,"DEMO")
    2)= D KILL^AUPNDWXR(DA,"DEMO")
    Populates AUPNDWAF for the Data Warehouse export.  See routine AUPNDWXR for documentation.
1903 ARCHIVED DATA ARCH;0 SET Multiple #2.12 2.12

  • DESCRIPTION:  This multiple is not presently used by the MAS module. Archiving capabilities for the patient file are not yet available.
    This multiple was distributed in 1987, but the archiving routines were not distributed.
11500.01 INITIAL ODS TREATMENT RECEIVED ODS;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 12, 1991
  • HELP-PROMPT:  Enter the date/time this patient was initially seen for an ODS related treatment.
  • DESCRIPTION:  
    Enter the date/time this patient was initially entered as ODS.  This field will automatically be created when ODS is selected as the PERIOD OF SERVICE for this patient.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the PERIOD OF SERVICE field of the VA PATIENT File
11500.02 RECALLED TO ACTIVE DUTY ODS;2 SET
  • '0' FOR NO;
  • '1' FOR NATIONAL GUARD;
  • '2' FOR RESERVES;

  • LAST EDITED:  JAN 18, 1991
  • HELP-PROMPT:  Was this ODS patient recalled to active duty?
  • DESCRIPTION:  
    Was this operation desert shield patient recalled to active duty?  If so select from national guard or reserves.  If not, answer no.
  • CROSS-REFERENCE:  2^AODS6^MUMPS
    1)= S A1B2TAG="PAT" D ^A1B2XFR
    2)= S A1B2TAG="PAT" D ^A1B2XFR
11500.03 RANK ODS;3 POINTER ** TO AN UNDEFINED FILE **

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),""^"",4),(""^e^c^""[(""^""_$P(^(0),""^"",2)_""^""))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 17, 1991
  • HELP-PROMPT:  Enter the grade/rank of this ODS patient
  • DESCRIPTION:  
    Enter the grade/rank of this operation desert shield patient.
  • SCREEN:  S DIC("S")="I '$P(^(0),""^"",4),(""^e^c^""[(""^""_$P(^(0),""^"",2)_""^""))"
  • EXPLANATION:  Only active ranks (no federal employees)
  • CROSS-REFERENCE:  2^AODS5^MUMPS
    1)= S A1B2TAG="PAT" D ^A1B2XFR
    2)= S A1B2TAG="PAT" D ^A1B2XFR
537025 NETWORK IDENTIFIER 537025;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>33!($L(X)<1) X
  • LAST EDITED:  DEC 15, 1995
  • HELP-PROMPT:  Answer must be 1-33 characters in length.
  • DESCRIPTION:  
    This field holds the synonym values from the Network Health Exchange Authorized Site file indicating where a particular patient has been found to have data.
9999999.1402 ANMC HRCN COMPUTED

  • MUMPS CODE:  S X=$S($G(D0)&($D(DUZ(2))):$$HRCN^BIUTL1(D0,DUZ(2)),1:"")
  • ALGORITHM:  ANMC HRCN
999999999 HRCN COMPUTED

  • MUMPS CODE:  S Y(2,999999999,1)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(2,999999999,1),U,1),X=$S('$D(DUZ(2)):"",$D(^AUPNPAT(D0,41,DUZ(2),0)):$P(^(0),U,2),1:"")
  • ALGORITHM:  AFUN CHART(#.01)

Found Entries, Total: 2

NAME: MOUSE,MICKEY M    NAME: USER,TEST    

ICR, Total: 11

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #1624
  • OUTPATIENT PHARMACY
  • DATE OF DEATH (.351).
    Access: Read w/Fileman

    ^DD(2,.351,1,52,0) = 2^APSOD^MUMPS^DD(2,.351,1,52,1) = I $$VERSION^XPDUTL("PSO")>6 D APSOD^PSOCAN3(DA)^DD(2,.351,1,52,2) = I $$VERSION^XPDUTL("PSO")>6 D APSOD^PSOAUTOC(DA)^DD(2,.351,1,52,3) = Discontinues Outpatient Medications for v7.^DD(2,.351,1,52,"%D",0) = ^^2^2^2961024^^^^^DD(2,.351,1,52,"%D",1,0) = This xref is used to discontinue all activeoutpatient medications whenever^DD(2,.351,1,52,"%D",2,0) = a date of death is entered for the patient.^DD(2,.351,1,52,"%D",3,0) = This xref is used with v7 of Outpatient Pharmacy(DBIA #1624).^DD(2,.351,1,52,"%D",4,0) = Kill logic updated with DG*5.3*455. Mail messagesent to pharmacy when date^DD(2,.351,1,52,"%D",5,0) = of death is deleted to holders of PSORPH key.^DD(2,.351,1,52,"DT") = 2961023
    ICR #2483
  • WOMEN'S HEALTH
  • PHONE NUMBER [RESIDENCE] (.131).
    Access: Read w/Fileman

    STREET ADDRESS [LINE 1] (.111).
    Access: Read w/Fileman

    CITY (.114).
    Access: Read w/Fileman

    STATE (.115).
    Access: Read w/Fileman

    ZIP CODE (.116).
    Access: Read w/Fileman

    VETERAN (Y/N)? (1901).
    Access: Read w/Fileman

    ICR #2562
    ICR #2655
  • Clinical Information Resource Network
  • MASTER PATIENT INDEX VISTA
  • ICR #2787
  • LAB SERVICE
  • ICR #3101
  • PCE PATIENT CARE ENCOUNTER
  • Text Integration Utility
  • ICR #3339
  • Fee Basis
  • LAB SERVICE
  • NAME (.01).
    Access: Read w/Fileman

    SEX (.02).
    Access: Read w/Fileman

    DATE OF BIRTH (.03).
    Access: Read w/Fileman

    SOCIAL SECURITY NUMBER (.09).
    Access: Read w/Fileman

    SERVICE CONNECTED? (.301).
    Access: Read w/Fileman

    TYPE (391).
    Access: Read w/Fileman

    VETERAN (Y/N)? (1901).
    Access: Read w/Fileman

    ICR #4938
  • SPINAL CORD DYSFUNCTION
  • SPINAL CORD INJURY (57.4).
    Access: Direct Global Read & w/Fileman

    INTEGRATION CONTROL NUMBER (991.01).
    Access: Direct Global Read & w/Fileman

    Direct global access to the "AICN" cross-reference toidentify DFN based on a given ICN.
    ICR #5571
  • JAL FEDERAL HEALTH CARE CENTER
  • NAME (.01).
    Access: Both R/W w/Fileman

    SEX (.02).
    Access: Both R/W w/Fileman

    DATE OF BIRTH (.03).
    Access: Both R/W w/Fileman

    MARITAL STATUS (.05).
    Access: Both R/W w/Fileman

    RELIGIOUS PREFERENCE (.08).
    Access: Both R/W w/Fileman

    SOCIAL SECURITY NUMBER (.09).
    Access: Both R/W w/Fileman

    REMARKS (.091).
    Access: Both R/W w/Fileman

    PLACE OF BIRTH [CITY] (.092).
    Access: Both R/W w/Fileman

    PLACE OF BIRTH [STATE] (.093).
    Access: Both R/W w/Fileman

    STREET ADDRESS [LINE1] (.111).
    Access: Both R/W w/Fileman

    ZIP+4 (.1112).
    Access: Both R/W w/Fileman

    STREET ADDRESS [LINE2] (.112).
    Access: Both R/W w/Fileman

    STREET ADDRESS [LINE3] (.113).
    Access: Both R/W w/Fileman

    CITY (.114).
    Access: Both R/W w/Fileman

    STATE (.115).
    Access: Both R/W w/Fileman

    COUNTY (.117).
    Access: Both R/W w/Fileman

    COUNTRY (.1173).
    Access: Both R/W w/Fileman

    PHONE NUMBER [RESIDENCE] (.131).
    Access: Both R/W w/Fileman

    EMAIL ADDRESS (.133).
    Access: Both R/W w/Fileman

    PHONE NUMBER [CELLULAR] (.134).
    Access: Both R/W w/Fileman

    PAGER NUMBER (.135).
    Access: Both R/W w/Fileman

    K-NAME OF PRIMARY NOK (.211).
    Access: Both R/W w/Fileman

    K-RELATIONSHIP TO PATIENT (.212).
    Access: Both R/W w/Fileman

    K-STREET ADDRESS [LINE1] (.213).
    Access: Both R/W w/Fileman

    K-STREET ADDRESS [LINE2] (.214).
    Access: Both R/W w/Fileman

    K-STREET ADDRESS [LINE 3] (.215).
    Access: Both R/W w/Fileman

    K-CITY (.216).
    Access: Both R/W w/Fileman

    K-STATE (.217).
    Access: Both R/W w/Fileman

    K-PHONE NUMBER (.219).
    Access: Both R/W w/Fileman

    K-WORK PHONE NUMBER (.21011).
    Access: Both R/W w/Fileman

    K2-NAME OF SECONDARY NOK (.2191).
    Access: Both R/W w/Fileman

    K2-RELATIONSHIP TO PATIENT (.2192).
    Access: Both R/W w/Fileman

    K2-STREET ADDRESS [LINE 1] (.2193).
    Access: Both R/W w/Fileman

    K2-STREET ADDRESS [LINE 2] (.2194).
    Access: Both R/W w/Fileman

    K2-STREET ADDRESS [LINE 3] (.2195).
    Access: Both R/W w/Fileman

    K2-CITY (.2196).
    Access: Both R/W w/Fileman

    K2-STATE (.2197).
    Access: Both R/W w/Fileman

    K2-PHONE NUMBER (.2199).
    Access: Both R/W w/Fileman

    K2-WORK PHONE NUMBER (.211011).
    Access: Both R/W w/Fileman

    E-ZIP+4 (.2201).
    Access: Both R/W w/Fileman

    K2-ZIP+4 (.2203).
    Access: Both R/W w/Fileman

    E2-ZIP+4 (.2204).
    Access: Both R/W w/Fileman

    K-ZIP+4 (.2207).
    Access: Both R/W w/Fileman

    MOTHER'S MAIDEN NAME (.2403).
    Access: Both R/W w/Fileman

    RATED INCOMPETENT? (.293).
    Access: Both R/W w/Fileman

    SERVICE CONNECTED? (.301).
    Access: Both R/W w/Fileman

    SERVICE CONNECTED PERCENTAGE (.302).
    Access: Both R/W w/Fileman

    RECEIVING VA DISABILITY? (.3025).
    Access: Both R/W w/Fileman

    CLAIM NUMBER (.313).
    Access: Both R/W w/Fileman

    CLAIM FOLDER LOCATION (.314).
    Access: Both R/W w/Fileman

    PERIOD OF SERVICE (.323).
    Access: Both R/W w/Fileman

    E-WORK PHONE NUMBER (.33011).
    Access: Both R/W w/Fileman

    E-NAME (.331).
    Access: Both R/W w/Fileman

    E-RELATIONSHIP TO PATIENT (.332).
    Access: Both R/W w/Fileman

    E-STREET ADDRESS [LINE 1] (.333).
    Access: Both R/W w/Fileman

    E-STREET ADDRESS [LINE 2] (.334).
    Access: Both R/W w/Fileman

    E-STREET ADDRESS [LINE 3] (.335).
    Access: Both R/W w/Fileman

    E-CITY (.336).
    Access: Both R/W w/Fileman

    E-STATE (.337).
    Access: Both R/W w/Fileman

    E-PHONE NUMBER (.339).
    Access: Both R/W w/Fileman

    E2-WORK PHONE NUMBER (.331011).
    Access: Both R/W w/Fileman

    E2-NAME OF SECONDARY CONTACT (.3311).
    Access: Both R/W w/Fileman

    E2-RELATIONSHIP TO PATIENT (.3312).
    Access: Both R/W w/Fileman

    E2-STREET ADDRESS [LINE 1] (.3313).
    Access: Both R/W w/Fileman

    E2-STREET ADDRESS [LINE 2] (.3314).
    Access: Both R/W w/Fileman

    E2-STREET ADDRESS [LINE 3] (.3315).
    Access: Both R/W w/Fileman

    E2-CITY (.3316).
    Access: Both R/W w/Fileman

    E2-STATE (.3317).
    Access: Both R/W w/Fileman

    E2-PHONE NUMBER (.3319).
    Access: Both R/W w/Fileman

    PRIMARY ELIGIBILITY CODE (.361).
    Access: Both R/W w/Fileman

    AMOUNT OF GI INSURANCE (.3626).
    Access: Both R/W w/Fileman

    RECEIVING A&A BENEFITS? (.36205).
    Access: Both R/W w/Fileman

    RECEIVING HOUSEBOUND BENEFITS? (.36215).
    Access: Both R/W w/Fileman

    RECEIVING A VA PENSION? (.36235).
    Access: Both R/W w/Fileman

    GI INSURANCE POLICY? (.36265).
    Access: Both R/W w/Fileman

    TOTAL ANNUAL VA CHECK AMOUNT (.36295).
    Access: Both R/W w/Fileman

    TYPE (391).
    Access: Both R/W w/Fileman

    INTEGRATION CONTROL NUMBER (991.01).
    Access: Both R/W w/Fileman

    ICN CHECKSUM (991.02).
    Access: Both R/W w/Fileman

    MULTIPLE BIRTH INDICATOR (994).
    Access: Both R/W w/Fileman

    VETERAN (Y/N)? (1901).
    Access: Both R/W w/Fileman

    ICR #5597
  • SCHEDULING
  • VIRTUAL PATIENT RECORD
  • OUTPATIENT PHARMACY
  • PHONE NUMBER [CELLULAR] (.134).
    Access: Read w/Fileman

    K-WORK PHONE NUMBER (.21011).
    Access: Read w/Fileman

    K2-WORK PHONE NUMBER (.211011).
    Access: Read w/Fileman

    E-WORK PHONE NUMBER (.33011).
    Access: Read w/Fileman

    E2-WORK PHONE NUMBER (.331011).
    Access: Read w/Fileman

    ICR #6053
  • MOBILE SCHEDULING APPLICATIONS SUITE
  • CLINIC (.01).
    Access: Direct Global R/W & w/Fileman

    PURPOSE OF VISIT (9).
    Access: Direct Global R/W & w/Fileman

    APPOINTMENT TYPE (9.5).
    Access: Direct Global R/W & w/Fileman

    DATE APPT MADE (20).
    Access: Direct Global R/W & w/Fileman

    LAB DATE/TIME (5).
    Access: Direct Global R/W & w/Fileman

    X-RAY DATE/TIME (6).
    Access: Direct Global R/W & w/Fileman

    EKG DATE/TIME (7).
    Access: Direct Global R/W & w/Fileman

    DATA ENTRY CLERK (19).
    Access: Direct Global R/W & w/Fileman

    APPOINTMENT TYPE SUB CATEGORY (24).
    Access: Direct Global R/W & w/Fileman

    SCHEDULING REQUEST TYPE (25).
    Access: Direct Global R/W & w/Fileman

    NEXT AVA. APPT INDICATORY (26).
    Access: Direct Global R/W & w/Fileman

    NO-SHOW/CANCELLED BY (14).
    Access: Direct Global R/W & w/Fileman

    NO-SHOW/CANCEL DATE/TIME (15).
    Access: Direct Global R/W & w/Fileman

    CANCELLATION REASON (16).
    Access: Direct Global R/W & w/Fileman

    COLLATERAL VISIT (13).
    Access: Direct Global Read & w/Fileman

    STATUS (3).
    Access: Direct Global R/W & w/Fileman

    ROUTING SLIP PRINTED (8).
    Access: Direct Global Read & w/Fileman

    SPECIAL SURVEY DISPOSITION (10).
    Access: Direct Global Read & w/Fileman

    NUMBER OF COLLATERAL SEEN (11).
    Access: Direct Global Read & w/Fileman

    AUTO-REBOOKED APPT. DATE/TIME (12).
    Access: Direct Global Read & w/Fileman

    ROUTING SLIP PRINT DATE (8.5).
    Access: Direct Global Read & w/Fileman

    OUTPATIENT ENCOUNTER (21).
    Access: Direct Global Read & w/Fileman

    ENCOUNTER FORMS PRINTED (22).
    Access: Direct Global Read & w/Fileman

    ENCOUNTER FORMS AS ADD-ONS (23).
    Access: Direct Global Read & w/Fileman

    ENCOUNTER CONVERSION STATUS (23.1).
    Access: Direct Global Read & w/Fileman

    CANCELLATION REMARKS (17).
    Access: Both R/W w/Fileman

    External References

    Name Field # of Occurrence
    ^%DT .03+1, .097+1, .118+1, .12113+1, .1217+1, .1218+1, .1312+1, .136+1, .139+1, .14112+1
    , .1417+1, .1418+1, .152+1, .153+1, .21012+1, .211012+1, .2516+1, .291+1, .292+1, .3012+1
    , .3014+1, .306+1, .31116+1, .32104+1, .32105+1, .32107+1, .32108+1, .32109+1, .32111+1, .322+1
    , .322011+1, .322012+1, .322014+1, .322015+1, .322017+1, .322018+1, .32202+1, .322021+1, .3222+1, .3223+1
    , .3225+1, .3226+1, .3228+1, .3229+1, .326+1, .327+1, .3292+1, .3293+1, .3297+1, .3298+1
    , .33012+1, .33112+1, .3412+1, .351+1, .354+1, .3612+1, .3614+1, .3617+1, .382+1, .392+1
    , .394+1, .3951+1, .3952+1, .3953+1, .527+1, .528+1, .5293+1, .5294+1, .5295+1, .5296+1
    , 220.1+1, 401.4+1, 991.07+1, 1010.151+1, 1010.1511+1, 1010.153+1, 1100.03+1, 1100.05+1, 11500.01+1
    DD^%DT 999.2+1
    NOW^%DTC .323(XREF 2n1.1), .3611(XREF 2S), 401.3(XREF 2S)
    ^A1B2XFR .01(XREF 4S), .01(XREF 4K), .03(XREF 3S), .03(XREF 3K), .09(XREF 4S), .09(XREF 4K), .111(XREF 2S), .111(XREF 2K), .112(XREF 2S), .112(XREF 2K)
    .113(XREF 1S), .113(XREF 1K), .114(XREF 1S), .114(XREF 1K), .115(XREF 2S), .115(XREF 2K), .116(XREF 1S), .116(XREF 1K), .117(XREF 1S), .117(XREF 1K)
    .325(XREF 1S), .325(XREF 1K), 401.3(XREF 3S), 401.3(XREF 3K), 11500.02(XREF 1S), 11500.02(XREF 1K), 11500.03(XREF 1S), 11500.03(XREF 1K)
    KILL^AUPNDWXR .01(XREF 999999902K), .02(XREF 999999903K), .03(XREF 999999901K), .09(XREF 999999901K), .097(XREF 999999901K), .111(XREF 999999901K), .114(XREF 999999901K), .115(XREF 999999901K), .116(XREF 999999901K), .2401(XREF 999999901K)
    .2403(XREF 999999904K), .351(XREF 999999901K), 1901(XREF 999999901K)
    SET^AUPNDWXR .01(XREF 999999902S), .02(XREF 999999903S), .03(XREF 999999901S), .09(XREF 999999901S), .097(XREF 999999901S), .111(XREF 999999901S), .114(XREF 999999901S), .115(XREF 999999901S), .116(XREF 999999901S), .2401(XREF 999999901S)
    .2403(XREF 999999904S), .351(XREF 999999901S), 1901(XREF 999999901S)
    ^AUPNLKID IDIHS0+1
    $$HRCN^BIUTL1 9999999.1402+1
    EN^DDIOL .06+1
    ^DGDDC .111(XREF 1K), .112(XREF 1K), .12105(XREF 1K), .1211(XREF 1K), .1212(XREF 1K), .14105(XREF 1K), .1411(XREF 1K), .1412(XREF 1K), .152(XREF 3K), .153(XREF 1K)
    .211(XREF 1K), .213(XREF 1K), .214(XREF 1K), .2191(XREF 1K), .2193(XREF 1K), .2194(XREF 1K), .251(XREF 1K), .252(XREF 1K), .253(XREF 1K), .3111(XREF 1K)
    .3113(XREF 1K), .3114(XREF 1K), .325(XREF 4K), .3285(XREF 1S), .3291(XREF 3K), .32945(XREF 1S), .3296(XREF 4K), .331(XREF 1K), .3311(XREF 1K), .3313(XREF 1K)
    .3314(XREF 1K), .333(XREF 1K), .334(XREF 1K), .341(XREF 1K), .343(XREF 1K), .344(XREF 1K), .361(XREF 3K)
    DEL^DGDEATH .351(XREF 3K)
    XFR^DGDEATH .351(XREF 3S)
    KILL^DGDEPINA .351(XREF 8K)
    SET^DGDEPINA .351(XREF 8S)
    AUTOUPD^DGENA2 .152(XREF 2S), .152(XREF 2K), .301(XREF 3S), .301(XREF 3K), .302(XREF 2S), .302(XREF 2K), .305(XREF 1S), .305(XREF 1K), .32102(XREF 4S), .32102(XREF 4K)
    .32103(XREF 3S), .32103(XREF 3K), .32115(XREF 1S), .32115(XREF 1K), .3212(XREF 1S), .3212(XREF 1K), .3213(XREF 1S), .3213(XREF 1K), .322013(XREF 3S), .322013(XREF 3K)
    .351(XREF 9S), .351(XREF 9K), .3602(XREF 2S), .3602(XREF 2K), .3603(XREF 2S), .3603(XREF 2K), .361(XREF 5S), .361(XREF 5K), .362(XREF 2S), .362(XREF 2K)
    .36205(XREF 4S), .36205(XREF 4K), .36215(XREF 4S), .36215(XREF 4K), .36235(XREF 4S), .36235(XREF 4K), .36295(XREF 2S), .36295(XREF 2K), .381(XREF 2S), .381(XREF 2K)
    .39(XREF 1S), .39(XREF 1K), .525(XREF 4S), .525(XREF 4K), .5295(XREF 3S), .5295(XREF 3K), .531(XREF 2S), .531(XREF 2K), 1901(XREF 4S), 1901(XREF 4K)
    CSI1010^DGENDD .5291(XREF 5S)
    CTD1010^DGENDD .5294(XREF 2S)
    KILL1^DGENDD 27.01(XREF 1K)
    SET1^DGENDD 27.01(XREF 1S)
    DD^DGFFP01 1100.01(XREF 1S), 1100.01(XREF 1K)
    DOB^DGHELP .32107+1, .32111+1, .527+1, .528+1, .5293+1, .5294+1
    UP^DGHELP .112+1
    CAT^DGINP .31+1
    POS^DGINP .326+1, .3292+1, .3297+1
    PS^DGINP .327+1, .3293+1, .3298+1
    SSN^DGINP .09+1
    AO^DGLOCK .32107+1, .32108+1, .32109+1, .3211+1
    COM^DGLOCK .5292+1, .5293+1, .5294+1
    EC^DGLOCK .322014+1, .322015+1
    EK^DGLOCK .152+1, .152DEL1+1, .306+1, .306DEL1+1, .307+1, .307DEL1+1, .322+1, .322DEL1+1, .3611DEL1+1, .3612+1
    , .3612DEL1+1, .3614+1, .3614DEL1+1, .3615+1, .3615DEL1+1
    EV^DGLOCK .301DEL1+1, .302+1, .302DEL1+1, .309DEL1+1, .313+1, .313DEL1+1, .361+1, .361DEL1+1, 1901DEL1+1
    FFP^DGLOCK 1100.01DEL1+1
    INE^DGLOCK .1653+1, .1654+1, .1656+1
    IR^DGLOCK .32111+1
    MV^DGLOCK .3025DEL1+1, .303+1, .303DEL1+1, .36205DEL1+1, .3621+1, .3621DEL1+1, .36215DEL1+1, .3622+1, .3622DEL1+1, .36225DEL1+1
    , .3623+1, .3623DEL1+1, .36235DEL1+1, .3624+1, .3624DEL1+1, .3625+1, .3625DEL1+1, .36255DEL1+1, .3626+1, .3626DEL1+1
    , .36265DEL1+1, .3627+1, .3627DEL1+1, .3628+1, .3628DEL1+1, .36285DEL1+1, .36295+1, .36295DEL1+1
    POW^DGLOCK .526+1, .527+1, .528+1
    SER1^DGLOCK .329+1, .3291+1, .3292+1, .3293+1, .3294+1
    SER2^DGLOCK .3295+1, .3296+1, .3297+1, .3298+1, .3299+1
    SV^DGLOCK .32101DEL1+1, .32201DEL1+1, .3221DEL1+1, .3224DEL1+1, .3227DEL1+1, .324+1, .324DEL1+1, .325+1, .325DEL1+1, .326+1
    , .326DEL1+1, .327+1, .327DEL1+1, .328+1, .328DEL1+1, .3285DEL1+1, .329DEL1+1, .3291DEL1+1, .3292DEL1+1, .3293DEL1+1
    , .3294DEL1+1, .32945DEL1+1, .3295DEL1+1, .3296DEL1+1, .3297DEL1+1, .3298DEL1+1, .3299DEL1+1, .525DEL1+1, .5291DEL1+1
    SV1^DGLOCK .323DEL1+1
    SVED^DGLOCK .322011+1, .322012+1, .322017+1, .322018+1, .32202+1, .322021+1, .3222+1, .3223+1, .3225+1, .3226+1
    , .3228+1, .3229+1
    TAD^DGLOCK .1211+1, .12112+1, .1212+1, .1213+1, .1214+1, .1215+1, .1216+1, .1217+1, .1218+1, .1219+1
    VN^DGLOCK .32104+1, .32105+1
    AOD^DGLOCK1 .32107DEL1+1, .32108DEL1+1, .32109DEL1+1, .3211DEL1+1, .3213DEL1+1
    COMD^DGLOCK1 .5292DEL1+1, .5293DEL1+1, .5294DEL1+1
    ECD^DGLOCK1 .361+1, .361SCR+1
    INED^DGLOCK1 .1651DEL1+1, .1653DEL1+1, .1654DEL1+1, .1656DEL1+1
    IRD^DGLOCK1 .32111DEL1+1, .3212DEL1+1
    POS^DGLOCK1 .323+1
    POWD^DGLOCK1 .526DEL1+1, .527DEL1+1, .528DEL1+1
    SC^DGLOCK1 .3012+1
    SVDEL^DGLOCK1 .322011DEL1+1, .322012DEL1+1, .3222DEL1+1, .3223DEL1+1, .3225DEL1+1, .3226DEL1+1, .3228DEL1+1, .3229DEL1+1
    TADD^DGLOCK1 .1211DEL1+1, .12112DEL1+1, .1214DEL1+1, .1215DEL1+1, .1216DEL1+1, .1217DEL1+1, .1218DEL1+1
    VND^DGLOCK1 .32104DEL1+1, .32105DEL1+1
    $$TOTCHK^DGLOCK2 .3025(XREF 2S), .3025(XREF 2K), .36205(XREF 3S), .36205(XREF 3K), .36215(XREF 3S), .36215(XREF 3K), .36235(XREF 3S), .36235(XREF 3K), .36295+1
    AAC^DGLOCK2 .309+1
    D^DGLOCK2 .2202+1, .342+1, .343+1, .344+1, .345+1, .346+1, .347+1, .348+1, .349+1
    DD^DGLOCK2 .2202DEL1+1, .342DEL1+1, .343DEL1+1, .346DEL1+1, .347DEL1+1, .348DEL1+1
    DOL^DGLOCK2 .303+1, .3621+1, .3622+1, .3623+1, .3624+1, .3625+1, .3626+1, .3627+1, .3628+1, .3629+1
    , .36295+1
    E1^DGLOCK2 .2201+1, .3311+1, .332+1, .333+1, .334+1, .335+1, .336+1, .337+1, .338+1, .339+1
    E1D^DGLOCK2 .2201DEL1+1, .332DEL1+1, .333DEL1+1, .336DEL1+1, .337DEL1+1, .338DEL1+1
    E2^DGLOCK2 .2204+1, .3312+1, .3313+1, .3314+1, .3315+1, .3316+1, .3317+1, .3318+1, .3319+1
    E2D^DGLOCK2 .2204DEL1+1, .3312DEL1+1, .3313DEL1+1, .3316DEL1+1, .3317DEL1+1, .3318DEL1+1
    EM^DGLOCK2 .3111+1
    EM1^DGLOCK2 .2205+1, .3113+1, .3114+1, .3115+1, .3116+1, .3117+1, .3118+1, .3119+1
    EMD^DGLOCK2 .2205DEL1+1, .3112DEL1+1, .3113DEL1+1, .3116DEL1+1, .3117DEL1+1, .3118DEL1+1
    K1^DGLOCK2 .212+1, .213+1, .214+1, .215+1, .216+1, .217+1, .218+1, .219+1, .2191+1, .2207+1
    K1D^DGLOCK2 .212DEL1+1, .2125DEL1+1, .213DEL1+1, .216DEL1+1, .217DEL1+1, .218DEL1+1, .2207DEL1+1
    K2^DGLOCK2 .2192+1, .2193+1, .2194+1, .2195+1, .2196+1, .2197+1, .2198+1, .2199+1, .2203+1
    K2D^DGLOCK2 .2192DEL1+1, .2193DEL1+1, .2196DEL1+1, .2197DEL1+1, .2198DEL1+1, .2203DEL1+1
    MAR^DGLOCK2 .251+1
    SE^DGLOCK2 .2206+1, .252+1, .253+1, .254+1, .255+1, .256+1, .257+1, .258+1
    SED^DGLOCK2 .2206DEL1+1, .252DEL1+1, .255DEL1+1, .256DEL1+1, .257DEL1+1
    TOTCKDEL^DGLOCK2 .36295DEL1+1
    TOTCKMSG^DGLOCK2 .36295+1
    CAD^DGLOCK3 .1411+1, .1412+1, .1413+1, .1414+1, .1415+1, .1416+1, .1417+1, .1418+1
    CADD1^DGLOCK3 .1411DEL1+1, .1414DEL1+1, .1415DEL1+1, .1416DEL1+1, .1417DEL1+1, .1418DEL1+1
    EN^DGMTCOR .305(XREF 2S), .305(XREF 2K), .36205(XREF 2S), .36205(XREF 2K), .36215(XREF 2S), .36215(XREF 2K), .36235(XREF 2S), .36235(XREF 2K), 1901(XREF 1S), 1901(XREF 1K)
    133^DGMTDD5 .133(HELP )
    START^DGMTDELS .351(XREF 10S)
    EN^DGMTR .302(XREF 3S), .3602(XREF 1S), .3603(XREF 1S), .361(XREF 1S), .362(XREF 1S), .36295(XREF 1S), .36295(XREF 1K), .381(XREF 1S), .525(XREF 5S), .525(XREF 5K)
    $$LST^DGMTU 999.2+1
    $$GETSITE^DGMTU4 .119(XREF 1S), .119(XREF 1K), .1311(XREF 1S), .1311(XREF 1K), .1313(XREF 1S), .1313(XREF 1K), .137(XREF 1S), .137(XREF 1K), .14112(XREF 2S), .14112(XREF 2K)
    DEATH^DGOERNOT .351(XREF 5S)
    ^DGPATN .01(XREF 5K)
    HELP^DGPMDD .104(HELP ), .1041(HELP ), 404.01(HELP )
    CN^DGPMDDCN .1(XREF 1S)
    LD^DGPMDDLD .107(XREF 1S)
    CFL2^DGREGDD .312(XREF 1S), .312(XREF 1K)
    CFL4^DGREGDD .314(XREF 1S), .314(XREF 1K)
    KILL^DGREGDD1 .09(XREF 5K), .1112(XREF 1K), .116(XREF 2K), .12112(XREF 1K), .1216(XREF 1K), .218(XREF 1K), .2198(XREF 1K), .2201(XREF 1K), .2202(XREF 1K), .2203(XREF 1K)
    .2204(XREF 1K), .2205(XREF 1K), .2206(XREF 1K), .2207(XREF 1K), .257(XREF 1K), .290012(XREF 1K), .29013(XREF 1K), .2918(XREF 1K), .2928(XREF 1K), .3118(XREF 1K)
    .312(XREF 1K), .314(XREF 1K), .3318(XREF 1K), .338(XREF 1K), .348(XREF 1K)
    SET^DGREGDD1 .09(XREF 5S), .1112(XREF 1S), .116(XREF 2S), .12112(XREF 1S), .1216(XREF 1S), .218(XREF 1S), .2198(XREF 1S), .2201(XREF 1S), .2202(XREF 1S), .2203(XREF 1S)
    .2204(XREF 1S), .2205(XREF 1S), .2206(XREF 1S), .2207(XREF 1S), .257(XREF 1S), .290012(XREF 1S), .29013(XREF 1S), .2918(XREF 1S), .2928(XREF 1S), .3118(XREF 1S)
    .312(XREF 1S), .314(XREF 1S), .3318(XREF 1S), .338(XREF 1S), .348(XREF 1S)
    EN^DGRP7CC 1901(XREF 2S), 1901(XREF 2K)
    $$EECONF^DGRPCTRG .14105(XREF 2S), .14105(XREF 2K), .14112(XREF 1S), .14112(XREF 1K)
    INPUT^DGRPDD1 .01TPL+1
    FVP^DGRPMS .325(XREF 2K), .3291(XREF 1K), .3296(XREF 1K)
    HLP3602^DGRPU .3602(HELP )
    HLP3603^DGRPU .3603(HELP )
    HLPMLDS^DGRPU .362(HELP )
    ADGRU^DGRUDD01 .01(XREF 993S), .01(XREF 993K), .02(XREF 992S), .02(XREF 992K), .03(XREF 992S), .03(XREF 992K), .05(XREF 992S), .05(XREF 992K), .06(XREF 992S), .06(XREF 992K)
    .07(XREF 992S), .07(XREF 992K), .08(XREF 992S), .08(XREF 992K), .09(XREF 992S), .09(XREF 992K), .092(XREF 992S), .092(XREF 992K), .093(XREF 992S), .093(XREF 992K)
    .111(XREF 992S), .111(XREF 992K), .1112(XREF 992S), .1112(XREF 992K), .112(XREF 992S), .112(XREF 992K), .113(XREF 992S), .113(XREF 992K), .114(XREF 992S), .114(XREF 992K)
    .115(XREF 992S), .115(XREF 992K), .131(XREF 992S), .131(XREF 992K), .132(XREF 992S), .132(XREF 992K), .211(XREF 992S), .211(XREF 992K), .212(XREF 992S), .212(XREF 992K)
    .213(XREF 992S), .213(XREF 992K), .214(XREF 992S), .214(XREF 992K), .216(XREF 992S), .216(XREF 992K), .217(XREF 992S), .217(XREF 992K), .219(XREF 992S), .219(XREF 992K)
    .301(XREF 992S), .301(XREF 992K), .302(XREF 992S), .302(XREF 992K), .326(XREF 992S), .326(XREF 992K), .327(XREF 992S), .327(XREF 992K), .351(XREF 992S), .351(XREF 992K)
    .383(XREF 992S), .383(XREF 992K), 1901(XREF 992S), 1901(XREF 992K)
    H^DGUTL .351+1
    ^DIC .102+1, .104+1, .1041+1, .105+1, .117+1, .117(HELP ), .12111+1, .12111(HELP ), .14111+1, .14111(HELP )
    , .19OF9.2+1, .314+1, .3601+1, .361(XREF 2n89.4), .361(XREF 2n99.3), 27.02+1, 404.01+1, 11500.03+1
    ^DICR .01(XREF 999999901S), .02(XREF 999999901S), .03(XREF 2n1.4), .09(XREF 2n1.4), .09(XREF 10n1.4), .111(XREF 4S), .111(XREF 4K), .1112(XREF 3S), .1112(XREF 3K), .112(XREF 4S)
    .112(XREF 4K), .113(XREF 3S), .113(XREF 3K), .114(XREF 3S), .114(XREF 3K), .115(XREF 1n2.4), .115(XREF 4S), .115(XREF 4K), .116(XREF 3S), .116(XREF 3K)
    .118(XREF 1S), .118(XREF 1K), .118(XREF 2S), .118(XREF 2K), .119(XREF 1S), .119(XREF 1n1.4), .119(XREF 1K), .119(XREF 1n2.4), .121(XREF 2S), .121(XREF 2K)
    .1311(XREF 1n1.4), .1311(XREF 1n2.4), .1312(XREF 1S), .1312(XREF 1K), .1313(XREF 1n1.4), .1313(XREF 1n2.4), .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K)
    .135(XREF 1S), .135(XREF 1K), .136(XREF 1S), .136(XREF 1K), .137(XREF 1n1.4), .137(XREF 1n2.4), .139(XREF 1S), .139(XREF 1K), .14112(XREF 2n1.4), .14112(XREF 2n2.4)
    .152(XREF 1n1.4), .152(XREF 1n2.4), .2403(XREF 999999901S), .2515(XREF 1n1.4), .2515(XREF 1n2.4), .2515(XREF 2S), .2515(XREF 2K), .301(XREF 1n1.4), .301(XREF 2n1.4), .3025(XREF 1n1.4)
    .3025(XREF 1n2.4), .3025(XREF 2n1.4), .3025(XREF 2n2.4), .31115(XREF 1S), .31115(XREF 1K), .31115(XREF 2n1.4), .31115(XREF 2n2.4), .32101(XREF 1n1.4), .32101(XREF 2n1.4), .32102(XREF 1n1.4)
    .32102(XREF 2n1.4), .32102(XREF 3n1.4), .32102(XREF 5S), .32103(XREF 1n1.4), .32103(XREF 2n1.4), .32201(XREF 1n1.4), .32201(XREF 2n1.4), .32201(XREF 3n1.4), .32201(XREF 3n2.4), .322013(XREF 1n1.4)
    .322013(XREF 1n2.4), .322013(XREF 2n1.4), .322013(XREF 2n2.4), .322016(XREF 1n1.4), .322016(XREF 2n1.4), .322016(XREF 3n1.4), .322016(XREF 3n2.4), .322019(XREF 1n1.4), .322019(XREF 2n1.4), .3221(XREF 1n1.4)
    .3221(XREF 2n1.4), .3224(XREF 1n1.4), .3224(XREF 2n1.4), .3227(XREF 1n1.4), .3227(XREF 2n1.4), .323(XREF 2n1.4), .3285(XREF 2n1.4), .3285(XREF 3n1.4), .3285(XREF 3K), .32945(XREF 2S)
    .32945(XREF 2K), .3296(XREF 3S), .3296(XREF 3K), .351(XREF 1n1.4), .351(XREF 1n2.4), .351(XREF 2n1.4), .361(XREF 2n1.4), .3611(XREF 1n1.4), .3611(XREF 1n2.4), .3611(XREF 2n1.4)
    .3612(XREF 1n1.4), .36205(XREF 1n1.4), .36205(XREF 1n2.4), .36205(XREF 3n1.4), .36205(XREF 3n2.4), .36215(XREF 1n1.4), .36215(XREF 1n2.4), .36215(XREF 3n1.4), .36215(XREF 3n2.4), .36225(XREF 1n1.4)
    .36225(XREF 1n2.4), .36235(XREF 1n1.4), .36235(XREF 1n2.4), .36235(XREF 3n1.4), .36235(XREF 3n2.4), .36255(XREF 1n1.4), .36255(XREF 1n2.4), .36265(XREF 1n1.4), .36265(XREF 1n2.4), .525(XREF 1n1.4)
    .525(XREF 2n1.4), .525(XREF 3n1.4), .5291(XREF 1n1.4), .5291(XREF 1n2.4), .5291(XREF 2n1.4), .5291(XREF 2n2.4), .5291(XREF 3n1.4), .5291(XREF 3n2.4), .5295(XREF 2S), .5295(XREF 2K)
    401.3(XREF 2n1.4), 401.3(XREF 2n2.4), 1010.15(XREF 1n1.4), 1010.15(XREF 1n2.4), 1010.151(XREF 1n2.4), 1010.151(XREF 2n2.4), 1010.153(XREF 1n2.4), 1901(XREF 3n1.4)
    ^DIK .361(XREF 2K), 991.05(XREF 1K)
    $$FORMAT^DPTNAME .01+1, .211+1, .2191+1, .2401+1, .2402+1, .2403+1, .331+1, .3311+1, .341+1
    EVENT^IVMPLOG .01(XREF 3S), .01(XREF 3K), .02(XREF 2S), .02(XREF 2K), .03(XREF 4S), .03(XREF 4K), .05(XREF 993S), .05(XREF 993K), .09(XREF 6S), .09(XREF 6K)
    .111(XREF 3S), .111(XREF 3K), .1112(XREF 2S), .1112(XREF 2K), .112(XREF 3S), .112(XREF 3K), .113(XREF 2S), .113(XREF 2K), .114(XREF 2S), .114(XREF 2K)
    .115(XREF 3S), .115(XREF 3K), .117(XREF 2S), .117(XREF 2K), .118(XREF 3S), .118(XREF 3K), .121(XREF 1S), .121(XREF 1K), .12111(XREF 1S), .12111(XREF 1K)
    .12113(XREF 1S), .12113(XREF 1K), .1219(XREF 1S), .1219(XREF 1K), .131(XREF 1S), .131(XREF 1K), .132(XREF 1S), .132(XREF 1K), .14105(XREF 2S), .14105(XREF 2K)
    .14111(XREF 1S), .14111(XREF 1K), .14112(XREF 1S), .14112(XREF 1K), .1656(XREF 1S), .1656(XREF 1K), .181(XREF 2S), .181(XREF 2K), .21012(XREF 1S), .21012(XREF 1K)
    .293(XREF 1S), .293(XREF 1K), .3025(XREF 3S), .3025(XREF 3K), .304(XREF 1S), .304(XREF 1K), .307(XREF 1S), .307(XREF 1K), .3111(XREF 2S), .3111(XREF 2K)
    .31115(XREF 992S), .31115(XREF 992K), .312(XREF 2S), .312(XREF 2K), .313(XREF 992S), .313(XREF 992K), .3192(XREF 1S), .3192(XREF 1K), .32101(XREF 3S), .32101(XREF 3K)
    .32104(XREF 1S), .32104(XREF 1K), .32105(XREF 1S), .32105(XREF 1K), .3214(XREF 1S), .3214(XREF 1K), .32201(XREF 4S), .32201(XREF 4K), .322011(XREF 1S), .322011(XREF 1K)
    .322012(XREF 1S), .322012(XREF 1K), .322016(XREF 4S), .322016(XREF 4K), .322017(XREF 1S), .322017(XREF 1K), .322018(XREF 1S), .322018(XREF 1K), .322019(XREF 3S), .322019(XREF 3K)
    .32202(XREF 1S), .32202(XREF 1K), .322021(XREF 1S), .322021(XREF 1K), .3221(XREF 3S), .3221(XREF 3K), .3222(XREF 1S), .3222(XREF 1K), .3223(XREF 1S), .3223(XREF 1K)
    .3224(XREF 3S), .3224(XREF 3K), .3225(XREF 1S), .3225(XREF 1K), .3226(XREF 1S), .3226(XREF 1K), .3227(XREF 3S), .3227(XREF 3K), .3228(XREF 1S), .3228(XREF 1K)
    .3229(XREF 1S), .3229(XREF 1K), .323(XREF 992S), .323(XREF 992K), .324(XREF 1S), .324(XREF 1K), .325(XREF 3S), .325(XREF 3K), .326(XREF 2S), .326(XREF 2K)
    .327(XREF 1S), .327(XREF 1K), .328(XREF 1S), .328(XREF 1K), .329(XREF 1S), .329(XREF 1K), .3291(XREF 2S), .3291(XREF 2K), .32911(XREF 1S), .32911(XREF 1K)
    .32912(XREF 1S), .32912(XREF 1K), .32913(XREF 1S), .32913(XREF 1K), .3292(XREF 2S), .3292(XREF 2K), .3293(XREF 1S), .3293(XREF 1K), .3294(XREF 1S), .3294(XREF 1K)
    .3295(XREF 1S), .3295(XREF 1K), .3296(XREF 2S), .3296(XREF 2K), .3297(XREF 1S), .3297(XREF 1K), .3298(XREF 1S), .3298(XREF 1K), .3299(XREF 1S), .3299(XREF 1K)
    .353(XREF 1S), .353(XREF 1K), .354(XREF 1S), .354(XREF 1K), .3611(XREF 3S), .3611(XREF 3K), .3612(XREF 2S), .3612(XREF 2K), .3615(XREF 1S), .3615(XREF 1K)
    .3617(XREF 1S), .3617(XREF 1K), .3618(XREF 1S), .3618(XREF 1K), .382(XREF 1S), .382(XREF 1K), .391(XREF 1S), .391(XREF 1K), .392(XREF 1S), .392(XREF 1K)
    .393(XREF 1S), .393(XREF 1K), .394(XREF 1S), .394(XREF 1K), .395(XREF 1S), .395(XREF 1K), .3951(XREF 1S), .3951(XREF 1K), .3952(XREF 1S), .3952(XREF 1K)
    .3953(XREF 1S), .3953(XREF 1K), .525(XREF 6S), .525(XREF 6K), .526(XREF 1S), .526(XREF 1K), .527(XREF 1S), .527(XREF 1K), .528(XREF 1S), .528(XREF 1K)
    .5291(XREF 4S), .5291(XREF 4K), .5292(XREF 1S), .5292(XREF 1K), .5293(XREF 1S), .5293(XREF 1K), .5294(XREF 1S), .5294(XREF 1K), .5295(XREF 1S), .5295(XREF 1K)
    .532(XREF 2S), .532(XREF 2K), .533(XREF 1S), .533(XREF 1K), 27.02(XREF 1S), 27.02(XREF 1K), 991.01(XREF 4S), 991.01(XREF 4K), 1010.1511(XREF 1S), 1010.1511(XREF 1K)
    1010.159(XREF 1S), 1010.159(XREF 1K)
    DPT^IVMPXFR .01(XREF 301S), .01(XREF 301K), .02(XREF 301S), .02(XREF 301K), .03(XREF 301S), .03(XREF 301K), .09(XREF 301S), .09(XREF 301K), .111(XREF 301S), .111(XREF 301K)
    .1112(XREF 301S), .1112(XREF 301K), .112(XREF 301S), .112(XREF 301K), .113(XREF 301S), .113(XREF 301K), .114(XREF 301S), .114(XREF 301K), .115(XREF 301S), .115(XREF 301K)
    .117(XREF 301S), .117(XREF 301K), .131(XREF 301S), .131(XREF 301K), .132(XREF 301S), .132(XREF 301K), .351(XREF 301S), .351(XREF 301K)
    EN1^NURSCPL .1(XREF 3S)
    EN2^NURSCPL .1(XREF 3K)
    KNSSN^PPPFMX .09(XREF 9K)
    SNSSN^PPPFMX .09(XREF 9S)
    END^PSJADT .351(XREF 6S)
    APSOD^PSOCAN3 .351(XREF 52S)
    KILLSSN^PXXDPT .09(XREF 800K)
    SETSSN^PXXDPT .09(XREF 800S)
    ERR^RCAMDTH .351(XREF 7K)
    SET^RCAMDTH .351(XREF 7S)
    KILL^VADPT6 .09(XREF 8K)
    SET^VADPT6 .09(XREF 8S)
    ZIPIN^VAFADDR .1112+1, .12112+1, .1416+1, .2201+1, .2202+1, .2203+1, .2204+1, .2205+1, .2206+1, .2207+1
    , .290012+1, .29013+1
    ZIPOUT^VAFADDR .1112OT+1, .12112OT+1, .1416OT+1, .2201OT+1, .2202OT+1, .2203OT+1, .2204OT+1, .2205OT+1, .2206OT+1, .2207OT+1
    , .290012OT+1, .29013OT+1
    AVAFC^VAFCDD01 .01(XREF 991S), .01(XREF 991K), .02(XREF 991S), .02(XREF 991K), .03(XREF 991S), .03(XREF 991K), .05(XREF 991S), .05(XREF 991K), .06(XREF 991S), .06(XREF 991K)
    .08(XREF 991S), .08(XREF 991K), .09(XREF 991S), .09(XREF 991K), .092(XREF 991S), .092(XREF 991K), .093(XREF 991S), .093(XREF 991K), .111(XREF 991S), .111(XREF 991K)
    .1112(XREF 991S), .1112(XREF 991K), .112(XREF 991S), .112(XREF 991K), .113(XREF 991S), .113(XREF 991K), .114(XREF 991S), .114(XREF 991K), .115(XREF 991S), .115(XREF 991K)
    .117(XREF 991S), .117(XREF 991K), .131(XREF 991S), .131(XREF 991K), .132(XREF 991S), .132(XREF 991K), .211(XREF 991S), .211(XREF 991K), .219(XREF 991S), .219(XREF 991K)
    .2403(XREF 991S), .2403(XREF 991K), .301(XREF 991S), .301(XREF 991K), .302(XREF 991S), .302(XREF 991K), .31115(XREF 991S), .31115(XREF 991K), .313(XREF 991S), .313(XREF 991K)
    .323(XREF 991S), .323(XREF 991K), .351(XREF 991S), .351(XREF 991K), 391(XREF 991S), 391(XREF 991K), 1901(XREF 991S), 1901(XREF 991K)
    CMOR^VAFCHIS 991.03(XREF 2K)
    ICN^VAFCHIS 991.01(XREF 2K)
    KILL^VAFCMIS .01(XREF 992K), 991.01(XREF 3S)
    SET^VAFCMIS .01(XREF 992S)
    $$EN^VAFHREG .363(XREF 391S), .363(XREF 391K)
    KILL^VAFHUTL2 .363(XREF 391K)
    SET^VAFHUTL2 .363(XREF 391S)
    $$NOW^XLFDT .111(XREF 4S), .111(XREF 4K), .1112(XREF 3S), .1112(XREF 3K), .112(XREF 4S), .112(XREF 4K), .113(XREF 3S), .113(XREF 3K), .114(XREF 3S), .114(XREF 3K)
    .115(XREF 4S), .115(XREF 4K), .116(XREF 3S), .116(XREF 3K), .121(XREF 2S), .121(XREF 2K), .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K)
    .135(XREF 1S), .135(XREF 1K)
    $$VERSION^XPDUTL .351(XREF 52S)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" .01(XREF 301S), .01(XREF 301K), .02(XREF 301S), .02(XREF 301K), .03(XREF 301S), .03(XREF 301K), .09(XREF 9S), .09(XREF 9K), .09(XREF 301S), .09(XREF 301K)
    .09(XREF 800S), .09(XREF 800K), .1(XREF 3S), .1(XREF 3K), .111(XREF 301S), .111(XREF 301K), .1112(XREF 301S), .1112(XREF 301K), .112(XREF 301S), .112(XREF 301K)
    .113(XREF 301S), .113(XREF 301K), .114(XREF 301S), .114(XREF 301K), .115(XREF 301S), .115(XREF 301K), .117(XREF 301S), .117(XREF 301K), .131(XREF 301S), .131(XREF 301K)
    .132(XREF 301S), .132(XREF 301K), .351(XREF 3S), .351(XREF 6S), .351(XREF 7S), .351(XREF 7K), .351(XREF 301S), .351(XREF 301K), .363(XREF 391S), .363(XREF 391K)
    1100.01(XREF 1S), 1100.01(XREF 1K)
    ^AUPNPAT - [#9000001] 999999999+1
    ^DD( .03(XREF 2n1.4), .09(XREF 2n1.4), .152(XREF 1n1.4), .152(XREF 1n2.4), .2515(XREF 1n1.4), .2515(XREF 1n2.4), .301(XREF 1n1.4), .301(XREF 2n1.4), .3025(XREF 1n1.4), .3025(XREF 1n2.4)
    .3025(XREF 2n1.4), .3025(XREF 2n2.4), .31115(XREF 2n1.4), .31115(XREF 2n2.4), .32101(XREF 1n1.4), .32101(XREF 2n1.4), .32102(XREF 1n1.4), .32102(XREF 2n1.4), .32102(XREF 3n1.4), .32103(XREF 1n1.4)
    .32103(XREF 2n1.4), .32201(XREF 1n1.4), .32201(XREF 2n1.4), .32201(XREF 3n1.4), .32201(XREF 3n2.4), .322013(XREF 1n1.4), .322013(XREF 1n2.4), .322013(XREF 2n1.4), .322013(XREF 2n2.4), .322016(XREF 1n1.4)
    .322016(XREF 2n1.4), .322016(XREF 3n1.4), .322016(XREF 3n2.4), .322019(XREF 1n1.4), .322019(XREF 2n1.4), .3221(XREF 1n1.4), .3221(XREF 2n1.4), .3224(XREF 1n1.4), .3224(XREF 2n1.4), .3227(XREF 1n1.4)
    .3227(XREF 2n1.4), .323(XREF 2n1.4), .3285(XREF 2n1.4), .351(XREF 1n1.4), .351(XREF 1n2.4), .351(XREF 2n1.4), .361(XREF 2n1.4), .3611(XREF 1n1.4), .3611(XREF 1n2.4), .3611(XREF 2n1.4)
    .3612(XREF 1n1.4), .36205(XREF 1n1.4), .36205(XREF 1n2.4), .36205(XREF 3n1.4), .36205(XREF 3n2.4), .36215(XREF 1n1.4), .36215(XREF 1n2.4), .36215(XREF 3n1.4), .36215(XREF 3n2.4), .36225(XREF 1n1.4)
    .36225(XREF 1n2.4), .36235(XREF 1n1.4), .36235(XREF 1n2.4), .36235(XREF 3n1.4), .36235(XREF 3n2.4), .36255(XREF 1n1.4), .36255(XREF 1n2.4), .36265(XREF 1n1.4), .36265(XREF 1n2.4), .525(XREF 1n1.4)
    .525(XREF 2n1.4), .525(XREF 3n1.4), .5291(XREF 1n1.4), .5291(XREF 1n2.4), .5291(XREF 2n1.4), .5291(XREF 2n2.4), .5291(XREF 3n1.4), .5291(XREF 3n2.4), 401.3(XREF 2n1.4), 401.3(XREF 2n2.4)
    1010.15(XREF 1n1.4), 1010.15(XREF 1n2.4), 1010.151(XREF 1n2.4), 1010.151(XREF 2n2.4), 1010.153(XREF 1n2.4), 1901(XREF 3n1.4)
    ^DD(2 .03(XREF 2S), .033+1, .033OF9.3+1, .033OF9.4+1, .033OF9.5+1, .09(XREF 2S), .09(XREF 10S), .0905+1, .115(XREF 1K), .119(XREF 1S)
    .119(XREF 1n1.3), .119(XREF 1K), .119(XREF 1n2.3), .1311(XREF 1S), .1311(XREF 1n1.3), .1311(XREF 1K), .1311(XREF 1n2.3), .1313(XREF 1S), .1313(XREF 1n1.3), .1313(XREF 1K)
    .1313(XREF 1n2.3), .137(XREF 1S), .137(XREF 1n1.3), .137(XREF 1K), .137(XREF 1n2.3), .14112(XREF 2S), .14112(XREF 2K), .152(XREF 1S), .152(XREF 1K), .152(XREF 1n2.1)
    , .19+1, .2515(XREF 1S), .2515(XREF 1K), .2515(XREF 2S), .2515(XREF 2n1.3), .301(XREF 1S), .301(XREF 1n1.3), .301(XREF 2S), .301(XREF 2n1.3), .3025(XREF 1S)
    .3025(XREF 1n1.3), .3025(XREF 1K), .3025(XREF 1n2.3), .3025(XREF 2S), .3025(XREF 2K), .303+1, .303OF9.3+1, .303DEL1+1, .31115(XREF 1S), .31115(XREF 1n1.3)
    .31115(XREF 1K), .31115(XREF 1n2.3), .31115(XREF 2S), .31115(XREF 2K), .32101(XREF 1S), .32101(XREF 1n1.3), .32101(XREF 2S), .32101(XREF 2n1.3), .32102(XREF 1S), .32102(XREF 1n1.3)
    .32102(XREF 2S), .32102(XREF 2n1.3), .32102(XREF 3S), .32102(XREF 3n1.3), .32102(XREF 5S), .32102(XREF 5n1.3), .32103(XREF 1S), .32103(XREF 1n1.3), .32103(XREF 2S), .32103(XREF 2n1.3)
    .32201(XREF 1S), .32201(XREF 1n1.3), .32201(XREF 2S), .32201(XREF 2n1.3), .32201(XREF 3S), .32201(XREF 3K), .32201(XREF 3n69.2), .32201(XREF 3n69.3), .32201(XREF 3n79.2), .32201(XREF 3n79.3)
    .322013(XREF 1S), .322013(XREF 1n1.3), .322013(XREF 1K), .322013(XREF 2S), .322013(XREF 2n1.3), .322013(XREF 2K), .322016(XREF 1S), .322016(XREF 1n1.3), .322016(XREF 2S), .322016(XREF 2n1.3)
    .322016(XREF 3S), .322016(XREF 3K), .322016(XREF 3n69.2), .322016(XREF 3n69.3), .322016(XREF 3n79.2), .322016(XREF 3n79.3), .322019(XREF 1S), .322019(XREF 1n1.3), .322019(XREF 2S), .322019(XREF 2n1.3)
    .3221(XREF 1S), .3221(XREF 1n1.3), .3221(XREF 2S), .3221(XREF 2n1.3), .3224(XREF 1S), .3224(XREF 1n1.3), .3224(XREF 2S), .3224(XREF 2n1.3), .3227(XREF 1S), .3227(XREF 1n1.3)
    .3227(XREF 2S), .3227(XREF 2n1.3), .323(XREF 2S), .3285(XREF 2S), .3285(XREF 2n1.3), .3285(XREF 3S), .3285(XREF 3K), .3285(XREF 3n2.3), .32945(XREF 2S), .32945(XREF 2n1.3)
    .32945(XREF 2K), .32945(XREF 2n2.3), .351(XREF 1S), .351(XREF 1n1.1), .351(XREF 1K), .351(XREF 1n2.1), .351(XREF 2S), .361(XREF 2S), .361(XREF 2K), .361(XREF 2n2.2)
    .361(XREF 2n89.3), .361(XREF 2n89.4), .361(XREF 2n99.3), .3611(XREF 1S), .3611(XREF 1n1.3), .3611(XREF 1n2.3), .3611(XREF 2S), .3612(XREF 1S), .36205(XREF 1S), .36205(XREF 1n1.3)
    .36205(XREF 1K), .36205(XREF 1n2.3), .36205(XREF 3S), .36205(XREF 3K), .3621DEL1+1, .36215(XREF 1S), .36215(XREF 1n1.3), .36215(XREF 1K), .36215(XREF 1n2.3), .36215(XREF 3S)
    .36215(XREF 3K), .3622DEL1+1, .36225(XREF 1S), .36225(XREF 1n1.3), .36225(XREF 1K), .36225(XREF 1n2.3), .3623+1, .3623DEL1+1, .36235(XREF 1S), .36235(XREF 1n1.3)
    .36235(XREF 1K), .36235(XREF 1n2.3), .36235(XREF 3S), .36235(XREF 3K), .3624+1, .3624OF9.3+1, .3624DEL1+1, .3625DEL1+1, .36255(XREF 1S), .36255(XREF 1n1.3)
    .36255(XREF 1K), .36255(XREF 1n2.3), .3626DEL1+1, .36265(XREF 1S), .36265(XREF 1n1.3), .36265(XREF 1K), .36265(XREF 1n2.3), .525(XREF 1S), .525(XREF 1n1.3), .525(XREF 2S)
    .525(XREF 2n1.3), .525(XREF 3S), .525(XREF 3n1.3), .5291(XREF 1S), .5291(XREF 1n1.3), .5291(XREF 1n2.3), .5291(XREF 2S), .5291(XREF 2n1.3), .5291(XREF 2n2.3), .5291(XREF 3S)
    .5291(XREF 3n1.3), .5291(XREF 3n2.3), 401.3(XREF 2S), 401.3(XREF 2K), 1010.15(XREF 1S), 1010.15(XREF 1n1.3), 1010.15(XREF 1n2.3), 1010.151(XREF 1K), 1010.151(XREF 2K), 1010.153(XREF 1K)
    1901(XREF 3S), 1901(XREF 3n1.3)
    ^DG(40.8 - [#40.8] .19+1, 999+1
    ^DG(43 - [#43] .326+1, .327+1, .3292+1, .3293+1, .3297+1, .3298+1
    ^DIC(21 - [#21] .323(XREF 2n1.3)
    ^DIC(22 - [#22] .525(XREF 1S), .5291(XREF 1S)
    ^DIC(4 - [#4] .1311(XREF 1S), .1311(XREF 1K), .1313(XREF 1S), .1313(XREF 1K), .137(XREF 1S), .137(XREF 1K), .14112(XREF 2S), .14112(XREF 2K)
    ^DIC(42 - [#42] .19+1, 999+1, 999.1+1
    ^DIC(5 - [#5] .117+1, .117OT+1, .117(HELP ), .12111+1, .12111OT+1, .12111(HELP ), .14111+1, .14111OT+1, .14111(HELP )
    ^DIC(8 - [#8] .361(XREF 2S), .361(XREF 2n2.2), .361(XREF 3K)
    ^DPT - [#2] .01(XREF 2S), .01(XREF 2K), .01(XREF 999999901S), .02(XREF 999999901S), .03(XREF 2S), .03(XREF 2n1.4), .033OF9.2+1, .033OF9.4+1, .06(XREF 9991S), .06(XREF 9991K)
    .09(XREF 2S), .09(XREF 2n1.4), .09(XREF 3S), .09(XREF 3K), .09(XREF 10S), .09(XREF 10n1.4), .0901+1, .0905OF9.2+1, .111(XREF 4S), .111(XREF 4K)
    .1112(XREF 3S), .1112(XREF 3K), .112(XREF 4S), .112(XREF 4K), .113(XREF 3S), .113(XREF 3K), .114(XREF 3S), .114(XREF 3K), .115(XREF 1K), .115(XREF 1n2.4)
    .115(XREF 4S), .115(XREF 4K), .116(XREF 3S), .116(XREF 3K), .117+1, .117OT+1, .117(HELP ), .118(XREF 1S), .118(XREF 1K), .118(XREF 2S)
    .118(XREF 2K), .119(XREF 1S), .119(XREF 1n1.4), .119(XREF 1K), .119(XREF 1n2.3), .119(XREF 1n2.4), .121(XREF 2S), .121(XREF 2K), .12111+1, .12111OT+1
    .12111(HELP ), .1218+1, .1311(XREF 1S), .1311(XREF 1n1.4), .1311(XREF 1K), .1311(XREF 1n2.3), .1311(XREF 1n2.4), .1312(XREF 1S), .1312(XREF 1K), .1313(XREF 1S)
    .1313(XREF 1n1.4), .1313(XREF 1K), .1313(XREF 1n2.3), .1313(XREF 1n2.4), .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K), .135(XREF 1S), .135(XREF 1K)
    .136(XREF 1S), .136(XREF 1K), .137(XREF 1S), .137(XREF 1n1.4), .137(XREF 1K), .137(XREF 1n2.3), .137(XREF 1n2.4), .139(XREF 1S), .139(XREF 1K), .14111+1
    , .14111OT+1, .14111(HELP ), .14112(XREF 2S), .14112(XREF 2n1.4), .14112(XREF 2K), .14112(XREF 2n2.4), .1418+1, .152(XREF 1S), .152(XREF 1n1.4), .152(XREF 1K)
    .152(XREF 1n2.4), .19OF9.2+1, .2403(XREF 999999901S), .2515(XREF 1S), .2515(XREF 1n1.4), .2515(XREF 1K), .2515(XREF 1n2.4), .2515(XREF 2S), .2515(XREF 2K), .2516+1
    .301(XREF 1S), .301(XREF 1n1.4), .301(XREF 2S), .301(XREF 2n1.4), .302+1, .302DEL1+1, .3025(XREF 1S), .3025(XREF 1n1.4), .3025(XREF 1K), .3025(XREF 1n2.3)
    .3025(XREF 1n2.4), .3025(XREF 2S), .3025(XREF 2n1.4), .3025(XREF 2K), .3025(XREF 2n2.4), .303OF9.2+1, .303OF9.3+1, .303OF9.4+1, .309SCR+1, .31115(XREF 1S)
    .31115(XREF 1K), .31115(XREF 2S), .31115(XREF 2n1.4), .31115(XREF 2K), .31115(XREF 2n2.4), .31116+1, .313+1, .32101(XREF 1S), .32101(XREF 1n1.4), .32101(XREF 2S)
    .32101(XREF 2n1.4), .32102(XREF 1S), .32102(XREF 1n1.4), .32102(XREF 2S), .32102(XREF 2n1.4), .32102(XREF 3S), .32102(XREF 3n1.4), .32102(XREF 5S), .32103(XREF 1S), .32103(XREF 1n1.4)
    .32103(XREF 2S), .32103(XREF 2n1.4), .32201(XREF 1S), .32201(XREF 1n1.4), .32201(XREF 2S), .32201(XREF 2n1.4), .32201(XREF 3S), .32201(XREF 3n1.4), .32201(XREF 3K), .32201(XREF 3n2.4)
    .32201(XREF 3n69.2), .32201(XREF 3n79.2), .322011+1, .322012+1, .322013(XREF 1S), .322013(XREF 1n1.4), .322013(XREF 1K), .322013(XREF 1n2.4), .322013(XREF 2S), .322013(XREF 2n1.4)
    .322013(XREF 2K), .322013(XREF 2n2.4), .322016(XREF 1S), .322016(XREF 1n1.4), .322016(XREF 2S), .322016(XREF 2n1.4), .322016(XREF 3S), .322016(XREF 3n1.4), .322016(XREF 3K), .322016(XREF 3n2.4)
    .322016(XREF 3n69.2), .322016(XREF 3n79.2), .322017+1, .322018+1, .322019(XREF 1S), .322019(XREF 1n1.4), .322019(XREF 2S), .322019(XREF 2n1.4), .32202+1, .322021+1
    .3221(XREF 1S), .3221(XREF 1n1.4), .3221(XREF 2S), .3221(XREF 2n1.4), .3222+1, .3223+1, .3224(XREF 1S), .3224(XREF 1n1.4), .3224(XREF 2S), .3224(XREF 2n1.4)
    , .3225+1, .3226+1, .3227(XREF 1S), .3227(XREF 1n1.4), .3227(XREF 2S), .3227(XREF 2n1.4), .3228+1, .3229+1, .323(XREF 2S), .323(XREF 2n1.3)
    .323(XREF 2n1.4), .325(XREF 2K), .328+1, .3285(XREF 2S), .3285(XREF 2n1.4), .3285(XREF 3S), .3285(XREF 3n1.4), .3285(XREF 3K), .3285(XREF 3n2.3), .3291(XREF 1K)
    , .3294+1, .32945(XREF 2S), .32945(XREF 2K), .32945(XREF 2n2.3), .3296(XREF 1K), .3296(XREF 3S), .3296(XREF 3K), .3299+1, .351+1, .351(XREF 1S)
    .351(XREF 1n1.4), .351(XREF 1K), .351(XREF 1n2.4), .351(XREF 2S), .351(XREF 2n1.4), .361(XREF 2S), .361(XREF 2n1.4), .361(XREF 2n89.2), .361(XREF 2n99.3), .361(XREF 3K)
    .3611(XREF 1S), .3611(XREF 1n1.4), .3611(XREF 1n2.3), .3611(XREF 1n2.4), .3611(XREF 2S), .3611(XREF 2n1.4), .3612(XREF 1S), .3612(XREF 1n1.4), .36205(XREF 1S), .36205(XREF 1n1.4)
    .36205(XREF 1K), .36205(XREF 1n2.3), .36205(XREF 1n2.4), .36205(XREF 3S), .36205(XREF 3n1.4), .36205(XREF 3K), .36205(XREF 3n2.4), .3621+1, .3621OF9.2+1, .36215(XREF 1S)
    .36215(XREF 1n1.4), .36215(XREF 1K), .36215(XREF 1n2.3), .36215(XREF 1n2.4), .36215(XREF 3S), .36215(XREF 3n1.4), .36215(XREF 3K), .36215(XREF 3n2.4), .3622+1, .3622OF9.2+1
    .36225(XREF 1S), .36225(XREF 1n1.4), .36225(XREF 1K), .36225(XREF 1n2.3), .36225(XREF 1n2.4), .3623OF9.2+1, .3623OF9.3+1, .36235(XREF 1S), .36235(XREF 1n1.4), .36235(XREF 1K)
    .36235(XREF 1n2.3), .36235(XREF 1n2.4), .36235(XREF 3S), .36235(XREF 3n1.4), .36235(XREF 3K), .36235(XREF 3n2.4), .3624OF9.2+1, .3624OF9.3+1, .3624OF9.4+1, .3625+1
    , .3625OF9.2+1, .36255(XREF 1S), .36255(XREF 1n1.4), .36255(XREF 1K), .36255(XREF 1n2.3), .36255(XREF 1n2.4), .3626+1, .3626OF9.2+1, .36265(XREF 1S), .36265(XREF 1n1.4)
    .36265(XREF 1K), .36265(XREF 1n2.3), .36265(XREF 1n2.4), .525(XREF 1S), .525(XREF 1n1.4), .525(XREF 2S), .525(XREF 2n1.4), .525(XREF 3S), .525(XREF 3n1.4), .5291(XREF 1S)
    .5291(XREF 1n1.4), .5291(XREF 1n2.3), .5291(XREF 1n2.4), .5291(XREF 2S), .5291(XREF 2n1.4), .5291(XREF 2n2.3), .5291(XREF 2n2.4), .5291(XREF 3S), .5291(XREF 3n1.4), .5291(XREF 3n2.3)
    .5291(XREF 3n2.4), .5295(XREF 2S), .5295(XREF 2K), 401.3(XREF 2S), 401.3(XREF 2n1.4), 401.3(XREF 2K), 401.3(XREF 2n2.4), 1010.15(XREF 1S), 1010.15(XREF 1n1.4), 1010.15(XREF 1n2.3)
    1010.15(XREF 1n2.4), 1010.151(XREF 1K), 1010.151(XREF 1n2.4), 1010.151(XREF 2K), 1010.151(XREF 2n2.4), 1010.153(XREF 1K), 1010.153(XREF 1n2.4), 1901(XREF 3S), 1901(XREF 3n1.4), 999999999+1
    ^DPT("AAP" .1041(XREF 1S), .1041(XREF 1K)
    ^DPT("ACA" .105(XREF 1S), .105(XREF 1K)
    ^DPT("ACB" .31(XREF 1S), .31(XREF 1K)
    ^DPT("ACMOR" 991.03(XREF 1S), 991.03(XREF 1K)
    ^DPT("ACMORS" 991.06(XREF 1S), 991.06(XREF 1K)
    ^DPT("ACN" .1(XREF 2S), .1(XREF 2K)
    ^DPT("ACOL" .3601(XREF 1S), .3601(XREF 1K)
    ^DPT("ACS" .14(XREF 1S), .14(XREF 1K)
    ^DPT("ADOB" .03(XREF 1S), .03(XREF 1K)
    ^DPT("AEACL" 1010.1511(XREF 2S), 1010.1511(XREF 2K)
    ^DPT("AEL" .361(XREF 4S), .361(XREF 4K)
    ^DPT("AERI" .181(XREF 1S), .181(XREF 1K)
    ^DPT("AEXP1" .351(XREF 4S), .351(XREF 4K)
    ^DPT("AICN" 991.01(XREF 1S), 991.01(XREF 1K)
    ^DPT("AICNL" 991.04(XREF 1S), 991.04(XREF 1K)
    ^DPT("AIHS3601" .3601(XREF 999999901S), .3601(XREF 999999901K)
    ^DPT("ANEW" .083(XREF 1S), .083(XREF 1K)
    ^DPT("APOS" .323(XREF 1S), .323(XREF 1K)
    ^DPT("APR" .104(XREF 1S), .104(XREF 1K)
    ^DPT("AS" 401.3(XREF 1S), 401.3(XREF 1K)
    ^DPT("ASCN2" 991.05(XREF 2S), 991.05(XREF 2K)
    ^DPT("ASX" .02(XREF 1S), .02(XREF 1K)
    ^DPT("ATEST" .6(XREF 1S), .6(XREF 1K)
    ^DPT("ATR" .103(XREF 1S), .103(XREF 1K)
    ^DPT("AXFFP" 1100.01(XREF 2S), 1100.01(XREF 2K)
    ^DPT("B" .01(XREF 1S), .01(XREF 1K)
    ^DPT("BS" .09(XREF 1S), .09(XREF 1K)
    ^DPT("BS5" .01(XREF 2S), .01(XREF 2K), .09(XREF 3S), .09(XREF 3K)
    ^DPT("C" .532(XREF 1S), .532(XREF 1K)
    ^DPT("CN" .1(XREF 1K)
    ^DPT("D" .531(XREF 1S), .531(XREF 1K)
    ^DPT("E" .5296(XREF 1S), .5296(XREF 1K)
    ^DPT("LD" .107(XREF 1K)
    ^DPT("RM" .101(XREF 1S), .101(XREF 1K)
    ^DPT("SSN" .09(XREF 7S), .09(XREF 7K)
    ^UTILITY($J 999+1, 999.1+1
    ^VA(15 - [#15] .081+1

    Naked Globals

    Name Field # of Occurrence
    ^( .033OF9.2+1, .033OF9.4+1, .111(XREF 4S), .111(XREF 4K), .1112(XREF 3S), .1112(XREF 3K), .112(XREF 4S), .112(XREF 4K), .113(XREF 3S), .113(XREF 3K)
    .114(XREF 3S), .114(XREF 3K), .115(XREF 1K), .115(XREF 1n2.4), .115(XREF 4S), .115(XREF 4K), .116(XREF 3S), .116(XREF 3K), .117+1, .117OT+1
    .117(HELP ), .118(XREF 1S), .118(XREF 1K), .118(XREF 2S), .118(XREF 2K), .119(XREF 1S), .119(XREF 1n1.4), .119(XREF 1K), .119(XREF 1n2.3), .119(XREF 1n2.4)
    .121(XREF 2S), .121(XREF 2K), .12111+1, .12111OT+1, .12111(HELP ), .1311(XREF 1S), .1311(XREF 1n1.4), .1311(XREF 1K), .1311(XREF 1n2.3), .1311(XREF 1n2.4)
    .1312(XREF 1S), .1312(XREF 1K), .1313(XREF 1S), .1313(XREF 1n1.4), .1313(XREF 1K), .1313(XREF 1n2.3), .1313(XREF 1n2.4), .133(XREF 1S), .133(XREF 1K), .134(XREF 1S)
    .134(XREF 1K), .135(XREF 1S), .135(XREF 1K), .136(XREF 1S), .136(XREF 1K), .137(XREF 1S), .137(XREF 1n1.4), .137(XREF 1K), .137(XREF 1n2.3), .137(XREF 1n2.4)
    .139(XREF 1S), .139(XREF 1K), .14112(XREF 2S), .14112(XREF 2n1.4), .14112(XREF 2K), .14112(XREF 2n2.4), .19OF9.2+1, .2515(XREF 1S), .2515(XREF 1n1.4), .2515(XREF 1K)
    .2515(XREF 1n2.4), .2515(XREF 2S), .2515(XREF 2K), .301(XREF 1S), .301(XREF 1n1.4), .301(XREF 2S), .301(XREF 2n1.4), .302+1, .302DEL1+1, .3025(XREF 1S)
    .3025(XREF 1n1.4), .3025(XREF 1K), .3025(XREF 1n2.3), .3025(XREF 1n2.4), .3025(XREF 2S), .3025(XREF 2n1.4), .3025(XREF 2K), .3025(XREF 2n2.4), .303OF9.2+1, .303OF9.3+1
    , .303OF9.4+1, .31115(XREF 1S), .31115(XREF 1K), .31115(XREF 2S), .31115(XREF 2n1.4), .31115(XREF 2K), .31115(XREF 2n2.4), .32101(XREF 1S), .32101(XREF 1n1.4), .32101(XREF 2S)
    .32101(XREF 2n1.4), .32102(XREF 1S), .32102(XREF 1n1.4), .32102(XREF 2S), .32102(XREF 2n1.4), .32102(XREF 3S), .32102(XREF 3n1.4), .32102(XREF 5S), .32103(XREF 1S), .32103(XREF 1n1.4)
    .32103(XREF 2S), .32103(XREF 2n1.4), .32201(XREF 1S), .32201(XREF 1n1.4), .32201(XREF 2S), .32201(XREF 2n1.4), .32201(XREF 3S), .32201(XREF 3n1.4), .32201(XREF 3K), .32201(XREF 3n2.4)
    .32201(XREF 3n69.2), .32201(XREF 3n79.2), .322011+1, .322013(XREF 1S), .322013(XREF 1n1.4), .322013(XREF 1K), .322013(XREF 1n2.4), .322013(XREF 2S), .322013(XREF 2n1.4), .322013(XREF 2K)
    .322013(XREF 2n2.4), .322016(XREF 1S), .322016(XREF 1n1.4), .322016(XREF 2S), .322016(XREF 2n1.4), .322016(XREF 3S), .322016(XREF 3n1.4), .322016(XREF 3K), .322016(XREF 3n2.4), .322016(XREF 3n69.2)
    .322016(XREF 3n79.2), .322017+1, .322019(XREF 1S), .322019(XREF 1n1.4), .322019(XREF 2S), .322019(XREF 2n1.4), .3221(XREF 1S), .3221(XREF 1n1.4), .3221(XREF 2S), .3221(XREF 2n1.4)
    , .3222+1, .3224(XREF 1S), .3224(XREF 1n1.4), .3224(XREF 2S), .3224(XREF 2n1.4), .3225+1, .3227(XREF 1S), .3227(XREF 1n1.4), .3227(XREF 2S), .3227(XREF 2n1.4)
    , .3228+1, .3285(XREF 2S), .3285(XREF 2n1.4), .3285(XREF 3S), .3285(XREF 3n1.4), .3285(XREF 3K), .3285(XREF 3n2.3), .32945(XREF 2S), .32945(XREF 2K), .32945(XREF 2n2.3)
    .3296(XREF 3S), .3296(XREF 3K), .351(XREF 2S), .351(XREF 2n1.4), .361(XREF 2n89.2), .361(XREF 3K), .3611(XREF 1S), .3611(XREF 1n1.4), .3611(XREF 1n2.3), .3611(XREF 1n2.4)
    .3611(XREF 2S), .3611(XREF 2n1.4), .3612(XREF 1S), .3612(XREF 1n1.4), .36205(XREF 1S), .36205(XREF 1n1.4), .36205(XREF 1K), .36205(XREF 1n2.3), .36205(XREF 1n2.4), .36205(XREF 3S)
    .36205(XREF 3n1.4), .36205(XREF 3K), .36205(XREF 3n2.4), .3621+1, .3621OF9.2+1, .36215(XREF 1S), .36215(XREF 1n1.4), .36215(XREF 1K), .36215(XREF 1n2.3), .36215(XREF 1n2.4)
    .36215(XREF 3S), .36215(XREF 3n1.4), .36215(XREF 3K), .36215(XREF 3n2.4), .3622+1, .3622OF9.2+1, .36225(XREF 1S), .36225(XREF 1n1.4), .36225(XREF 1K), .36225(XREF 1n2.3)
    .36225(XREF 1n2.4), .3623OF9.2+1, .3623OF9.3+1, .36235(XREF 1S), .36235(XREF 1n1.4), .36235(XREF 1K), .36235(XREF 1n2.3), .36235(XREF 1n2.4), .36235(XREF 3S), .36235(XREF 3n1.4)
    .36235(XREF 3K), .36235(XREF 3n2.4), .3624OF9.2+1, .3624OF9.3+1, .3624OF9.4+1, .3625+1, .3625OF9.2+1, .36255(XREF 1S), .36255(XREF 1n1.4), .36255(XREF 1K)
    .36255(XREF 1n2.3), .36255(XREF 1n2.4), .3626+1, .3626OF9.2+1, .36265(XREF 1S), .36265(XREF 1n1.4), .36265(XREF 1K), .36265(XREF 1n2.3), .36265(XREF 1n2.4), .525(XREF 1S)
    .525(XREF 1n1.4), .525(XREF 2S), .525(XREF 2n1.4), .525(XREF 3S), .525(XREF 3n1.4), .5291(XREF 1S), .5291(XREF 1n1.4), .5291(XREF 1n2.3), .5291(XREF 1n2.4), .5291(XREF 2S)
    .5291(XREF 2n1.4), .5291(XREF 2n2.3), .5291(XREF 2n2.4), .5291(XREF 3S), .5291(XREF 3n1.4), .5291(XREF 3n2.3), .5291(XREF 3n2.4), .5295(XREF 2S), .5295(XREF 2K), 999+1
    , 999.1+1, 1901(XREF 3S), 1901(XREF 3n1.4)
    ^("DAC" 401.3(XREF 2S), 401.3(XREF 2n1.4), 401.3(XREF 2K), 401.3(XREF 2n2.4)
    ^("ODS" .323(XREF 2S), .323(XREF 2n1.3), .323(XREF 2n1.4)
    ^("SSN" .09(XREF 10S), .09(XREF 10n1.4)
    ^("VET" .309SCR+1
    ^(0 W+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 999999901S), .02(XREF 999999901S), .03(XREF 2S), .03(XREF 2n1.4), .033OF9.2+1, .06(XREF 9991S), .06(XREF 9991K)
    .09(XREF 2S), .09(XREF 2n1.4), .0901+1, .0905OF9.2+1, .117OT+1, .12111OT+1, .152(XREF 1S), .152(XREF 1n1.4), .152(XREF 1K), .152(XREF 1n2.4)
    , .19+1, .2403(XREF 999999901S), .301(XREF 1n1.3), .301(XREF 2n1.3), .3025(XREF 1n1.3), .3025(XREF 1n2.3), .309SCR+1, .313+1, .32101(XREF 1n1.3), .32101(XREF 2n1.3)
    .32102(XREF 1n1.3), .32102(XREF 2n1.3), .32102(XREF 3n1.3), .32103(XREF 1S), .32103(XREF 1n1.3), .32103(XREF 2n1.3), .32201(XREF 1n1.3), .32201(XREF 2n1.3), .32201(XREF 3n69.2), .32201(XREF 3n79.2)
    .322013(XREF 1n1.3), .322013(XREF 2n1.3), .322016(XREF 1n1.3), .322016(XREF 2n1.3), .322016(XREF 3n69.2), .322016(XREF 3n79.2), .322019(XREF 1n1.3), .322019(XREF 2n1.3), .3221(XREF 1n1.3), .3221(XREF 2n1.3)
    .3224(XREF 1n1.3), .3224(XREF 2n1.3), .3227(XREF 1n1.3), .3227(XREF 2n1.3), .323(XREF 2n1.3), .328+1, .3285(XREF 2n1.3), .3294+1, .3299+1, .351(XREF 1S)
    .351(XREF 1n1.4), .351(XREF 1K), .351(XREF 1n2.4), .361(XREF 2S), .361(XREF 2n1.4), .361(XREF 2n2.2), .361(XREF 2n99.3), .361(XREF 3K), .3611(XREF 1n1.3), .3611(XREF 1n2.3)
    .36205(XREF 1n1.3), .36205(XREF 1n2.3), .36215(XREF 1n1.3), .36215(XREF 1n2.3), .36225(XREF 1n1.3), .36225(XREF 1n2.3), .36235(XREF 1n1.3), .36235(XREF 1n2.3), .36255(XREF 1n1.3), .36255(XREF 1n2.3)
    .36265(XREF 1n1.3), .36265(XREF 1n2.3), .525(XREF 1S), .525(XREF 1n1.3), .525(XREF 2n1.3), .525(XREF 3n1.3), .5291(XREF 1S), .5291(XREF 1n1.3), .5291(XREF 1n2.3), .5291(XREF 2n1.3)
    .5291(XREF 2n2.3), .5291(XREF 3n1.3), .5291(XREF 3n2.3), 999+1, 999.1+1, 1010.15(XREF 1n1.3), 1010.15(XREF 1n2.3), 1901(XREF 3n1.3), 999999999+1
    ^(1010.15 1010.15(XREF 1S), 1010.15(XREF 1n1.4), 1010.15(XREF 1n2.3), 1010.15(XREF 1n2.4), 1010.151(XREF 1K), 1010.151(XREF 1n2.4), 1010.151(XREF 2K), 1010.151(XREF 2n2.4), 1010.153(XREF 1K), 1010.153(XREF 1n2.4)
    ^(2 .115(XREF 1K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % .03(XREF 2n1.4), .09(XREF 2n1.4), .0901+1*, .115(XREF 1n2.4), .152(XREF 1n1.4), .152(XREF 1n2.4), .301(XREF 1n1.4), .3025(XREF 1n1.4), .3025(XREF 1n2.4), .31115(XREF 2n1.4)
    .31115(XREF 2n2.4), .32101(XREF 1n1.4), .32101(XREF 2n1.4), .32102(XREF 1n1.4), .32102(XREF 2n1.4), .32102(XREF 3n1.4), .32103(XREF 1n1.4), .32103(XREF 2n1.4), .323(XREF 2n1.1), .3285(XREF 2n1.4)
    .351(XREF 2n1.4), .3611(XREF 1n1.4), .3611(XREF 1n2.4), .3611(XREF 2S), .3611(XREF 2n1.4), .36205(XREF 1n1.4), .36205(XREF 1n2.4), .36215(XREF 1n1.4), .36215(XREF 1n2.4), .36225(XREF 1n1.4)
    .36225(XREF 1n2.4), .36235(XREF 1n1.4), .36235(XREF 1n2.4), .36255(XREF 1n1.4), .36255(XREF 1n2.4), .36265(XREF 1n1.4), .36265(XREF 1n2.4), .525(XREF 1n1.4), .525(XREF 2n1.4), .525(XREF 3n1.4)
    .5291(XREF 1n1.4), .5291(XREF 1n2.4), .5291(XREF 2n1.4), .5291(XREF 2n2.4), .5291(XREF 3n1.4), .5291(XREF 3n2.4), 401.3(XREF 2S), 401.3(XREF 2n1.4), 401.3(XREF 2n2.4), 1010.15(XREF 1n1.4)
    1010.15(XREF 1n2.4), 1010.151(XREF 1n2.4), 1010.151(XREF 2n2.4), 1010.153(XREF 1n2.4), 1901(XREF 3n1.4)
    %DT .03+1*, .097+1*, .118+1*, .12113+1*, .1217+1*, .1218+1*, .1312+1*, .136+1*, .139+1*, .14112+1*
    , .1417+1*, .1418+1*, .152+1*!, .153+1*!, .21012+1*, .211012+1*, .2516+1*, .291+1*, .292+1*, .3012+1*
    , .3014+1*, .306+1*!, .31116+1*, .32104+1*, .32105+1*, .32107+1*!, .32108+1*!, .32109+1*!, .32111+1*!, .322+1*!
    , .322011+1*, .322012+1*, .322014+1*, .322015+1*, .322017+1*, .322018+1*, .32202+1*, .322021+1*, .3222+1*, .3223+1*
    , .3225+1*, .3226+1*, .3228+1*, .3229+1*, .326+1*!, .327+1*!, .3292+1*!, .3293+1*!, .3297+1*!, .3298+1*!
    , .33012+1*, .33112+1*, .3412+1*, .351+1*, .354+1*, .3612+1*!, .3614+1*!, .3617+1*, .382+1*, .392+1*
    , .394+1*, .3951+1*, .3952+1*, .3953+1*, .527+1*, .528+1*, .5293+1*, .5294+1*, .5295+1*, .5296+1*
    , 220.1+1*, 401.4+1*, 991.07+1*, 1010.151+1*!, 1010.1511+1*, 1010.153+1*!, 1100.03+1*, 1100.05+1*, 11500.01+1*
    %DT(0 .1417+1*, .152+1*, .153+1*, .306+1*, .32107+1*, .32108+1*, .32109+1*, .32111+1*, .322+1*, .322014+1*
    , .322015+1*, .326+1*, .327+1*, .3292+1*, .3293+1*, .3297+1*, .3298+1*, .3612+1*, .3614+1*, 401.4+1*
    , 1010.151+1*, 1010.153+1*
    %H .323(XREF 2n1.1), .3611(XREF 2S), 401.3(XREF 2S)
    %I .323(XREF 2n1.1), .3611(XREF 2S), 401.3(XREF 2S)
    >> %X .1(XREF 3S), .1(XREF 3K), .351(XREF 3S)
    >> %Z .309SCR+1*
    >> %Z1 .309SCR+1*
    >> A1B2TAG .01(XREF 4S), .01(XREF 4K), .03(XREF 3S), .03(XREF 3K), .09(XREF 4S), .09(XREF 4K), .111(XREF 2S), .111(XREF 2K), .112(XREF 2S), .112(XREF 2K)
    .113(XREF 1S), .113(XREF 1K), .114(XREF 1S), .114(XREF 1K), .115(XREF 2S), .115(XREF 2K), .116(XREF 1S), .116(XREF 1K), .117(XREF 1S), .117(XREF 1K)
    .325(XREF 1S), .325(XREF 1K), 401.3(XREF 3S), 401.3(XREF 3K), 11500.02(XREF 1S), 11500.02(XREF 1K), 11500.03(XREF 1S), 11500.03(XREF 1K)
    CHR .134+1~*, .135+1~*
    CTR .134+1~*, .135+1~*
    >> D .117(HELP ), .12111(HELP ), .361(XREF 2n89.4), .361(XREF 2n99.3)
    >> D0 .01(XREF 999999901S), .02(XREF 999999901S), .03(XREF 2S), .033OF9.2+1, .033OF9.4+1, .09(XREF 2S), .09(XREF 10S), .0901+1, .0905OF9.2+1, .111(XREF 4S)
    .111(XREF 4K), .1112(XREF 3S), .1112(XREF 3K), .112(XREF 4S), .112(XREF 4K), .113(XREF 3S), .113(XREF 3K), .114(XREF 3S), .114(XREF 3K), .115(XREF 1K)
    .115(XREF 4S), .115(XREF 4K), .116(XREF 3S), .116(XREF 3K), .117+1, .117OT+1, .117(HELP ), .118(XREF 1S), .118(XREF 1K), .118(XREF 2S)
    .118(XREF 2K), .119(XREF 1S), .119(XREF 1n1.3), .119(XREF 1K), .119(XREF 1n2.3), .121(XREF 2S), .121(XREF 2K), .12111+1, .12111OT+1, .12111(HELP )
    .1311(XREF 1S), .1311(XREF 1n1.3), .1311(XREF 1K), .1311(XREF 1n2.3), .1312(XREF 1S), .1312(XREF 1K), .1313(XREF 1S), .1313(XREF 1n1.3), .1313(XREF 1K), .1313(XREF 1n2.3)
    .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K), .135(XREF 1S), .135(XREF 1K), .136(XREF 1S), .136(XREF 1K), .137(XREF 1S), .137(XREF 1n1.3)
    .137(XREF 1K), .137(XREF 1n2.3), .139(XREF 1S), .139(XREF 1K), .14111+1, .14111OT+1, .14111(HELP ), .14112(XREF 2S), .14112(XREF 2K), .152(XREF 1S)
    .152(XREF 1K), .19+1*, .19OF9.2+1*, .2403(XREF 999999901S), .2515(XREF 1S), .2515(XREF 1K), .2515(XREF 2S), .2515(XREF 2n1.3), .2515(XREF 2K), .301(XREF 1S)
    .301(XREF 1n1.3), .301(XREF 2S), .301(XREF 2n1.3), .3025(XREF 1S), .3025(XREF 1n1.3), .3025(XREF 1K), .3025(XREF 1n2.3), .3025(XREF 2S), .3025(XREF 2K), .31115(XREF 1S)
    .31115(XREF 1n1.3), .31115(XREF 1K), .31115(XREF 1n2.3), .31115(XREF 2S), .31115(XREF 2K), .32101(XREF 1S), .32101(XREF 1n1.3), .32101(XREF 2S), .32101(XREF 2n1.3), .32102(XREF 1S)
    .32102(XREF 1n1.3), .32102(XREF 2S), .32102(XREF 2n1.3), .32102(XREF 3S), .32102(XREF 3n1.3), .32102(XREF 5S), .32102(XREF 5n1.3), .32103(XREF 1S), .32103(XREF 1n1.3), .32103(XREF 2S)
    .32103(XREF 2n1.3), .32201(XREF 1S), .32201(XREF 1n1.3), .32201(XREF 2S), .32201(XREF 2n1.3), .32201(XREF 3S), .32201(XREF 3K), .32201(XREF 3n69.2), .32201(XREF 3n79.2), .322013(XREF 1S)
    .322013(XREF 1n1.3), .322013(XREF 1K), .322013(XREF 2S), .322013(XREF 2n1.3), .322013(XREF 2K), .322016(XREF 1S), .322016(XREF 1n1.3), .322016(XREF 2S), .322016(XREF 2n1.3), .322016(XREF 3S)
    .322016(XREF 3K), .322016(XREF 3n69.2), .322016(XREF 3n79.2), .322019(XREF 1S), .322019(XREF 1n1.3), .322019(XREF 2S), .322019(XREF 2n1.3), .3221(XREF 1S), .3221(XREF 1n1.3), .3221(XREF 2S)
    .3221(XREF 2n1.3), .3224(XREF 1S), .3224(XREF 1n1.3), .3224(XREF 2S), .3224(XREF 2n1.3), .3227(XREF 1S), .3227(XREF 1n1.3), .3227(XREF 2S), .3227(XREF 2n1.3), .323(XREF 2S)
    .323(XREF 2n1.3), .3285(XREF 2S), .3285(XREF 2n1.3), .3285(XREF 3S), .3285(XREF 3K), .3285(XREF 3n2.3), .32945(XREF 2S), .32945(XREF 2n1.3), .32945(XREF 2K), .32945(XREF 2n2.3)
    .3296(XREF 3S), .3296(XREF 3K), .351(XREF 1S), .351(XREF 1K), .351(XREF 2S), .361(XREF 2S), .361(XREF 2K), .361(XREF 2n2.2), .361(XREF 2n89.2), .361(XREF 2n89.4)
    .361(XREF 2n99.2), .361(XREF 2n99.3), .3611(XREF 1S), .3611(XREF 1n1.3), .3611(XREF 1n2.3), .3611(XREF 2S), .3612(XREF 1S), .36205(XREF 1S), .36205(XREF 1n1.3), .36205(XREF 1K)
    .36205(XREF 1n2.3), .36205(XREF 3S), .36205(XREF 3K), .36215(XREF 1S), .36215(XREF 1n1.3), .36215(XREF 1K), .36215(XREF 1n2.3), .36215(XREF 3S), .36215(XREF 3K), .36225(XREF 1S)
    .36225(XREF 1n1.3), .36225(XREF 1K), .36225(XREF 1n2.3), .36235(XREF 1S), .36235(XREF 1n1.3), .36235(XREF 1K), .36235(XREF 1n2.3), .36235(XREF 3S), .36235(XREF 3K), .36255(XREF 1S)
    .36255(XREF 1n1.3), .36255(XREF 1K), .36255(XREF 1n2.3), .36265(XREF 1S), .36265(XREF 1n1.3), .36265(XREF 1K), .36265(XREF 1n2.3), .525(XREF 1S), .525(XREF 1n1.3), .525(XREF 2S)
    .525(XREF 2n1.3), .525(XREF 3S), .525(XREF 3n1.3), .5291(XREF 1S), .5291(XREF 1n1.3), .5291(XREF 1n2.3), .5291(XREF 2S), .5291(XREF 2n1.3), .5291(XREF 2n2.3), .5291(XREF 3S)
    .5291(XREF 3n1.3), .5291(XREF 3n2.3), .5295(XREF 2S), .5295(XREF 2K), 401.3(XREF 2S), 401.3(XREF 2K), 999+1, 999.1+1, 999.2+1, 1010.15(XREF 1S)
    1010.15(XREF 1n1.3), 1010.15(XREF 1n2.3), 1010.151(XREF 1K), 1010.151(XREF 2K), 1010.153(XREF 1K), 1901(XREF 3S), 1901(XREF 3n1.3), 9999999.1402+1, 999999999+1
    >> D1 .361(XREF 2S), .361(XREF 2n2.2), .361(XREF 2n89.2), .361(XREF 2n89.4), .361(XREF 2n99.2), .361(XREF 2n99.3)
    DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 5K), .01(XREF 991S), .01(XREF 991K), .01(XREF 992S)
    .01(XREF 992K), .01(XREF 993S), .01(XREF 993K), .01(XREF 999999901S), .01(XREF 999999902S), .01(XREF 999999902K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
    .02(XREF 991S), .02(XREF 991K), .02(XREF 992S), .02(XREF 992K), .02(XREF 999999901S), .02(XREF 999999903S), .02(XREF 999999903K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S)
    .03(XREF 4S), .03(XREF 4K), .03(XREF 991S), .03(XREF 991K), .03(XREF 992S), .03(XREF 992K), .03(XREF 999999901S), .03(XREF 999999901K), .05(XREF 991S), .05(XREF 991K)
    .05(XREF 992S), .05(XREF 992K), .05(XREF 993S), .05(XREF 993K), .06(XREF 991S), .06(XREF 991K), .06(XREF 992S), .06(XREF 992K), .06(XREF 9991S), .06(XREF 9991K)
    .07(XREF 992S), .07(XREF 992K), .08(XREF 991S), .08(XREF 991K), .08(XREF 992S), .08(XREF 992K), .081+1, .083(XREF 1S), .083(XREF 1K), .09+1
    .09(XREF 1S), .09(XREF 1K), .09(XREF 2S), .09(XREF 3S), .09(XREF 3K), .09(XREF 5S), .09(XREF 5K), .09(XREF 6S), .09(XREF 6K), .09(XREF 7S)
    .09(XREF 7K), .09(XREF 8S), .09(XREF 8K), .09(XREF 10S), .09(XREF 991S), .09(XREF 991K), .09(XREF 992S), .09(XREF 992K), .09(XREF 999999901S), .09(XREF 999999901K)
    .092(XREF 991S), .092(XREF 991K), .092(XREF 992S), .092(XREF 992K), .093(XREF 991S), .093(XREF 991K), .093(XREF 992S), .093(XREF 992K), .097(XREF 999999901S), .097(XREF 999999901K)
    .1(XREF 1K), .1(XREF 2S), .1(XREF 2K), .101(XREF 1S), .101(XREF 1K), .103(XREF 1S), .103(XREF 1K), .104(HELP ), .104(XREF 1S), .104(XREF 1K)
    .1041(HELP ), .1041(XREF 1S), .1041(XREF 1K), .105(XREF 1S), .105(XREF 1K), .107(XREF 1K), .111(XREF 3S), .111(XREF 3K), .111(XREF 4S), .111(XREF 4K)
    .111(XREF 991S), .111(XREF 991K), .111(XREF 992S), .111(XREF 992K), .111(XREF 999999901S), .111(XREF 999999901K), .1112(XREF 1S), .1112(XREF 1K), .1112(XREF 2S), .1112(XREF 2K)
    .1112(XREF 3S), .1112(XREF 3K), .1112(XREF 991S), .1112(XREF 991K), .1112(XREF 992S), .1112(XREF 992K), .112(XREF 3S), .112(XREF 3K), .112(XREF 4S), .112(XREF 4K)
    .112(XREF 991S), .112(XREF 991K), .112(XREF 992S), .112(XREF 992K), .113(XREF 2S), .113(XREF 2K), .113(XREF 3S), .113(XREF 3K), .113(XREF 991S), .113(XREF 991K)
    .113(XREF 992S), .113(XREF 992K), .114(XREF 2S), .114(XREF 2K), .114(XREF 3S), .114(XREF 3K), .114(XREF 991S), .114(XREF 991K), .114(XREF 992S), .114(XREF 992K)
    .114(XREF 999999901S), .114(XREF 999999901K), .115(XREF 1K), .115(XREF 3S), .115(XREF 3K), .115(XREF 4S), .115(XREF 4K), .115(XREF 991S), .115(XREF 991K), .115(XREF 992S)
    .115(XREF 992K), .115(XREF 999999901S), .115(XREF 999999901K), .116(XREF 2S), .116(XREF 2K), .116(XREF 3S), .116(XREF 3K), .116(XREF 999999901S), .116(XREF 999999901K), .117(XREF 2S)
    .117(XREF 2K), .117(XREF 991S), .117(XREF 991K), .118(XREF 1S), .118(XREF 1K), .118(XREF 2S), .118(XREF 2K), .118(XREF 3S), .118(XREF 3K), .119(XREF 1n1.3)
    .119(XREF 1n2.3), .121(XREF 1S), .121(XREF 1K), .121(XREF 2S), .121(XREF 2K), .1211+1, .1211DEL1+1, .12111(XREF 1S), .12111(XREF 1K), .12112+1
    , .12112DEL1+1, .12112(XREF 1S), .12112(XREF 1K), .12113(XREF 1S), .12113(XREF 1K), .1212+1, .1213+1, .1214+1, .1214DEL1+1, .1215+1
    , .1215DEL1+1, .1216+1, .1216DEL1+1, .1216(XREF 1S), .1216(XREF 1K), .1217+1, .1217DEL1+1, .1218+1, .1218DEL1+1, .1219+1
    .1219(XREF 1S), .1219(XREF 1K), .131(XREF 1S), .131(XREF 1K), .131(XREF 991S), .131(XREF 991K), .131(XREF 992S), .131(XREF 992K), .1311(XREF 1n1.3), .1311(XREF 1n2.3)
    .1312(XREF 1S), .1312(XREF 1K), .1313(XREF 1n1.3), .1313(XREF 1n2.3), .132(XREF 1S), .132(XREF 1K), .132(XREF 991S), .132(XREF 991K), .132(XREF 992S), .132(XREF 992K)
    .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K), .135(XREF 1S), .135(XREF 1K), .136(XREF 1S), .136(XREF 1K), .137(XREF 1n1.3), .137(XREF 1n2.3)
    .139(XREF 1S), .139(XREF 1K), .14(XREF 1S), .14(XREF 1K), .14105(XREF 2S), .14105(XREF 2K), .1411+1, .1411DEL1+1, .14111(XREF 1S), .14111(XREF 1K)
    .14112(XREF 1S), .14112(XREF 1K), .14112(XREF 2S), .14112(XREF 2K), .1412+1, .1413+1, .1414+1, .1414DEL1+1, .1415+1, .1415DEL1+1
    , .1416+1, .1416DEL1+1, .1417+1, .1417DEL1+1, .1418+1, .1418DEL1+1, .152(XREF 1S), .152(XREF 1K), .152(XREF 2S), .152(XREF 2K)
    , .1651DEL1+1, .1653+1, .1653DEL1+1, .1654+1, .1654DEL1+1, .1656+1, .1656DEL1+1, .1656(XREF 1S), .1656(XREF 1K), .181(XREF 1S)
    .181(XREF 1K), .181(XREF 2S), .181(XREF 2K), .21012(XREF 1S), .21012(XREF 1K), .211(XREF 991S), .211(XREF 991K), .211(XREF 992S), .211(XREF 992K), .212+1
    , .212DEL1+1, .212(XREF 992S), .212(XREF 992K), .2125DEL1+1, .213+1, .213DEL1+1, .213(XREF 992S), .213(XREF 992K), .214+1, .214(XREF 992S)
    .214(XREF 992K), .215+1, .216+1, .216DEL1+1, .216(XREF 992S), .216(XREF 992K), .217+1, .217DEL1+1, .217(XREF 992S), .217(XREF 992K)
    , .218+1, .218DEL1+1, .218(XREF 1S), .218(XREF 1K), .219+1, .219(XREF 991S), .219(XREF 991K), .219(XREF 992S), .219(XREF 992K), .2192+1
    , .2192DEL1+1, .2193+1, .2193DEL1+1, .2194+1, .2195+1, .2196+1, .2196DEL1+1, .2197+1, .2197DEL1+1, .2198+1
    , .2198DEL1+1, .2198(XREF 1S), .2198(XREF 1K), .2199+1, .2201+1, .2201DEL1+1, .2201(XREF 1S), .2201(XREF 1K), .2202+1, .2202DEL1+1
    .2202(XREF 1S), .2202(XREF 1K), .2203+1, .2203DEL1+1, .2203(XREF 1S), .2203(XREF 1K), .2204+1, .2204DEL1+1, .2204(XREF 1S), .2204(XREF 1K)
    , .2205+1, .2205DEL1+1, .2205(XREF 1S), .2205(XREF 1K), .2206+1, .2206DEL1+1, .2206(XREF 1S), .2206(XREF 1K), .2207+1, .2207DEL1+1
    .2207(XREF 1S), .2207(XREF 1K), .2401(XREF 999999901S), .2401(XREF 999999901K), .2403(XREF 991S), .2403(XREF 991K), .2403(XREF 999999901S), .2403(XREF 999999904S), .2403(XREF 999999904K), .251+1
    .2515(XREF 1S), .2515(XREF 1K), .2515(XREF 2n1.3), .2515(XREF 2K), .2516+1, .252+1, .252DEL1+1, .253+1, .254+1, .255+1
    , .255DEL1+1, .256+1, .256DEL1+1, .257+1, .257DEL1+1, .257(XREF 1S), .257(XREF 1K), .258+1, .290012(XREF 1S), .290012(XREF 1K)
    .29013(XREF 1S), .29013(XREF 1K), .2918(XREF 1S), .2918(XREF 1K), .2928(XREF 1S), .2928(XREF 1K), .293(XREF 1S), .293(XREF 1K), .301DEL1+1, .301(XREF 1n1.3)
    .301(XREF 2n1.3), .301(XREF 3S), .301(XREF 3K), .301(XREF 991S), .301(XREF 991K), .301(XREF 992S), .301(XREF 992K), .3012+1, .302+1, .302DEL1+1
    .302(XREF 2S), .302(XREF 2K), .302(XREF 3S), .302(XREF 991S), .302(XREF 991K), .302(XREF 992S), .302(XREF 992K), .3025DEL1+1, .3025(XREF 1n1.3), .3025(XREF 1n2.3)
    .3025(XREF 2S), .3025(XREF 2K), .3025(XREF 3S), .3025(XREF 3K), .303+1, .303OF9.2+1, .303DEL1+1, .304(XREF 1S), .304(XREF 1K), .305(XREF 1S)
    .305(XREF 1K), .305(XREF 2S), .305(XREF 2K), .307(XREF 1S), .307(XREF 1K), .309+1, .309SCR+1, .309DEL1+1, .31(XREF 1S), .31(XREF 1K)
    .3111(XREF 2S), .3111(XREF 2K), .31115(XREF 1n1.3), .31115(XREF 1n2.3), .31115(XREF 2S), .31115(XREF 2K), .31115(XREF 991S), .31115(XREF 991K), .31115(XREF 992S), .31115(XREF 992K)
    , .31116+1, .3112DEL1+1, .3113+1, .3113DEL1+1, .3114+1, .3115+1, .3116+1, .3116DEL1+1, .3117+1, .3117DEL1+1
    , .3118+1, .3118DEL1+1, .3118(XREF 1S), .3118(XREF 1K), .3119+1, .312(XREF 1S), .312(XREF 1K), .312(XREF 2S), .312(XREF 2K), .313+1
    , .313DEL1+1, .313(XREF 991S), .313(XREF 991K), .313(XREF 992S), .313(XREF 992K), .314(XREF 1S), .314(XREF 1K), .3192(XREF 1S), .3192(XREF 1K), .32101DEL1+1
    .32101(XREF 1n1.3), .32101(XREF 2n1.3), .32101(XREF 3S), .32101(XREF 3K), .32102(XREF 1n1.3), .32102(XREF 2n1.3), .32102(XREF 3n1.3), .32102(XREF 4S), .32102(XREF 4K), .32102(XREF 5n1.3)
    .32103(XREF 1n1.3), .32103(XREF 2n1.3), .32103(XREF 3S), .32103(XREF 3K), .32104+1, .32104DEL1+1, .32104(XREF 1S), .32104(XREF 1K), .32105+1, .32105DEL1+1
    .32105(XREF 1S), .32105(XREF 1K), .32107+1, .32107DEL1+1, .32108+1, .32108DEL1+1, .32109+1, .32109DEL1+1, .3211+1, .3211DEL1+1
    , .32111+1, .32111DEL1+1, .32115(XREF 1S), .32115(XREF 1K), .3212DEL1+1, .3212(XREF 1S), .3212(XREF 1K), .3213DEL1+1, .3213(XREF 1S), .3213(XREF 1K)
    .3214(XREF 1S), .3214(XREF 1K), .32201DEL1+1, .32201(XREF 1n1.3), .32201(XREF 2n1.3), .32201(XREF 3S), .32201(XREF 3K), .32201(XREF 4S), .32201(XREF 4K), .322011+1
    , .322011DEL1+1, .322011(XREF 1S), .322011(XREF 1K), .322012+1, .322012DEL1+1, .322012(XREF 1S), .322012(XREF 1K), .322013(XREF 1n1.3), .322013(XREF 1K), .322013(XREF 2n1.3)
    .322013(XREF 2K), .322013(XREF 3S), .322013(XREF 3K), .322014+1, .322016(XREF 1n1.3), .322016(XREF 2n1.3), .322016(XREF 3S), .322016(XREF 3K), .322016(XREF 4S), .322016(XREF 4K)
    , .322017+1, .322017(XREF 1S), .322017(XREF 1K), .322018+1, .322018(XREF 1S), .322018(XREF 1K), .322019(XREF 1n1.3), .322019(XREF 2n1.3), .322019(XREF 3S), .322019(XREF 3K)
    , .32202+1, .32202(XREF 1S), .32202(XREF 1K), .322021+1, .322021(XREF 1S), .322021(XREF 1K), .3221DEL1+1, .3221(XREF 1n1.3), .3221(XREF 2n1.3), .3221(XREF 3S)
    .3221(XREF 3K), .3222+1, .3222DEL1+1, .3222(XREF 1S), .3222(XREF 1K), .3223+1, .3223DEL1+1, .3223(XREF 1S), .3223(XREF 1K), .3224DEL1+1
    .3224(XREF 1n1.3), .3224(XREF 2n1.3), .3224(XREF 3S), .3224(XREF 3K), .3225+1, .3225DEL1+1, .3225(XREF 1S), .3225(XREF 1K), .3226+1, .3226DEL1+1
    .3226(XREF 1S), .3226(XREF 1K), .3227DEL1+1, .3227(XREF 1n1.3), .3227(XREF 2n1.3), .3227(XREF 3S), .3227(XREF 3K), .3228+1, .3228DEL1+1, .3228(XREF 1S)
    .3228(XREF 1K), .3229+1, .3229DEL1+1, .3229(XREF 1S), .3229(XREF 1K), .323+1, .323DEL1+1, .323(XREF 1S), .323(XREF 1K), .323(XREF 2n1.3)
    .323(XREF 991S), .323(XREF 991K), .323(XREF 992S), .323(XREF 992K), .324+1, .324DEL1+1, .324(XREF 1S), .324(XREF 1K), .325+1, .325DEL1+1
    .325(XREF 2K), .325(XREF 3S), .325(XREF 3K), .326+1, .326DEL1+1, .326(XREF 2S), .326(XREF 2K), .326(XREF 992S), .326(XREF 992K), .327+1
    , .327DEL1+1, .327(XREF 1S), .327(XREF 1K), .327(XREF 992S), .327(XREF 992K), .328+1, .328DEL1+1, .328(XREF 1S), .328(XREF 1K), .3285DEL1+1
    .3285(XREF 2n1.3), .3285(XREF 3S), .3285(XREF 3n2.3), .329+1, .329DEL1+1, .329(XREF 1S), .329(XREF 1K), .3291+1, .3291DEL1+1, .3291(XREF 1K)
    .3291(XREF 2S), .3291(XREF 2K), .32911(XREF 1S), .32911(XREF 1K), .32912(XREF 1S), .32912(XREF 1K), .32913(XREF 1S), .32913(XREF 1K), .3292+1, .3292DEL1+1
    .3292(XREF 2S), .3292(XREF 2K), .3293+1, .3293DEL1+1, .3293(XREF 1S), .3293(XREF 1K), .3294+1, .3294DEL1+1, .3294(XREF 1S), .3294(XREF 1K)
    , .32945DEL1+1, .32945(XREF 2n1.3), .32945(XREF 2n2.3), .3295+1, .3295DEL1+1, .3295(XREF 1S), .3295(XREF 1K), .3296+1, .3296DEL1+1, .3296(XREF 1K)
    .3296(XREF 2S), .3296(XREF 2K), .3296(XREF 3S), .3296(XREF 3K), .3297+1, .3297DEL1+1, .3297(XREF 1S), .3297(XREF 1K), .3298+1, .3298DEL1+1
    .3298(XREF 1S), .3298(XREF 1K), .3299+1, .3299DEL1+1, .3299(XREF 1S), .3299(XREF 1K), .3312+1, .3312DEL1+1, .3313+1, .3313DEL1+1
    , .3314+1, .3315+1, .3316+1, .3316DEL1+1, .3317+1, .3317DEL1+1, .3318+1, .3318DEL1+1, .3318(XREF 1S), .3318(XREF 1K)
    , .3319+1, .332+1, .332DEL1+1, .333+1, .333DEL1+1, .334+1, .335+1, .336+1, .336DEL1+1, .337+1
    , .337DEL1+1, .338+1, .338DEL1+1, .338(XREF 1S), .338(XREF 1K), .339+1, .342+1, .342DEL1+1, .343+1, .343DEL1+1
    , .344+1, .345+1, .346+1, .346DEL1+1, .347+1, .347DEL1+1, .348+1, .348DEL1+1, .348(XREF 1S), .348(XREF 1K)
    , .349+1, .351+1, .351(XREF 1S), .351(XREF 1K), .351(XREF 2S), .351(XREF 3S), .351(XREF 4S), .351(XREF 4K), .351(XREF 9S), .351(XREF 9K)
    .351(XREF 10S), .351(XREF 52S), .351(XREF 991S), .351(XREF 991K), .351(XREF 992S), .351(XREF 992K), .351(XREF 999999901S), .351(XREF 999999901K), .353(XREF 1S), .353(XREF 1K)
    .354(XREF 1S), .354(XREF 1K), .3601(XREF 1S), .3601(XREF 1K), .3601(XREF 999999901S), .3601(XREF 999999901K), .3602(XREF 1S), .3602(XREF 2S), .3602(XREF 2K), .3603(XREF 1S)
    .3603(XREF 2S), .3603(XREF 2K), .361+1, .361SCR+1, .361DEL1+1, .361(XREF 1S), .361(XREF 2S), .361(XREF 2K), .361(XREF 3K), .361(XREF 4S)
    .361(XREF 4K), .361(XREF 5S), .361(XREF 5K), .3611(XREF 1S), .3611(XREF 1n1.3), .3611(XREF 1n2.3), .3611(XREF 2S), .3611(XREF 3S), .3611(XREF 3K), .3612(XREF 1S)
    .3612(XREF 2S), .3612(XREF 2K), .3615(XREF 1S), .3615(XREF 1K), .3617(XREF 1S), .3617(XREF 1K), .3618(XREF 1S), .3618(XREF 1K), .362(XREF 1S), .362(XREF 2S)
    .362(XREF 2K), .36205DEL1+1, .36205(XREF 1n1.3), .36205(XREF 1n2.3), .36205(XREF 2S), .36205(XREF 2K), .36205(XREF 3S), .36205(XREF 3K), .36205(XREF 4S), .36205(XREF 4K)
    , .3621+1, .3621OF9.2+1, .3621DEL1+1, .36215DEL1+1, .36215(XREF 1n1.3), .36215(XREF 1n2.3), .36215(XREF 2S), .36215(XREF 2K), .36215(XREF 3S), .36215(XREF 3K)
    .36215(XREF 4S), .36215(XREF 4K), .3622+1, .3622OF9.2+1, .3622DEL1+1, .36225DEL1+1, .36225(XREF 1n1.3), .36225(XREF 1n2.3), .3623+1, .3623OF9.2+1
    , .3623OF9.3+1, .3623DEL1+1, .36235DEL1+1, .36235(XREF 1n1.3), .36235(XREF 1n2.3), .36235(XREF 2S), .36235(XREF 2K), .36235(XREF 3S), .36235(XREF 3K), .36235(XREF 4S)
    .36235(XREF 4K), .3624+1, .3624OF9.2+1, .3624DEL1+1, .3625+1, .3625OF9.2+1, .3625DEL1+1, .36255DEL1+1, .36255(XREF 1n1.3), .36255(XREF 1n2.3)
    , .3626+1, .3626OF9.2+1, .3626DEL1+1, .36265DEL1+1, .36265(XREF 1n1.3), .36265(XREF 1n2.3), .3627+1, .3627DEL1+1, .3628+1, .3628DEL1+1
    , .36285DEL1+1, .36295+1, .36295DEL1+1, .36295(XREF 1S), .36295(XREF 1K), .36295(XREF 2S), .36295(XREF 2K), .363(XREF 391S), .363(XREF 391K), .381(XREF 1S)
    .381(XREF 2S), .381(XREF 2K), .382(XREF 1S), .382(XREF 1K), .383(XREF 992S), .383(XREF 992K), .39(XREF 1S), .39(XREF 1K), .391(XREF 1S), .391(XREF 1K)
    .392(XREF 1S), .392(XREF 1K), .393(XREF 1S), .393(XREF 1K), .394(XREF 1S), .394(XREF 1K), .395(XREF 1S), .395(XREF 1K), .3951(XREF 1S), .3951(XREF 1K)
    .3952(XREF 1S), .3952(XREF 1K), .3953(XREF 1S), .3953(XREF 1K), .525DEL1+1, .525(XREF 1n1.3), .525(XREF 2n1.3), .525(XREF 3n1.3), .525(XREF 4S), .525(XREF 4K)
    .525(XREF 5S), .525(XREF 5K), .525(XREF 6S), .525(XREF 6K), .526+1, .526DEL1+1, .526(XREF 1S), .526(XREF 1K), .527+1, .527DEL1+1
    .527(XREF 1S), .527(XREF 1K), .528+1, .528DEL1+1, .528(XREF 1S), .528(XREF 1K), .5291DEL1+1, .5291(XREF 1n1.3), .5291(XREF 1n2.3), .5291(XREF 2n1.3)
    .5291(XREF 2n2.3), .5291(XREF 3n1.3), .5291(XREF 3n2.3), .5291(XREF 4S), .5291(XREF 4K), .5291(XREF 5S), .5292+1, .5292DEL1+1, .5292(XREF 1S), .5292(XREF 1K)
    , .5293+1, .5293DEL1+1, .5293(XREF 1S), .5293(XREF 1K), .5294+1, .5294DEL1+1, .5294(XREF 1S), .5294(XREF 1K), .5294(XREF 2S), .5295(XREF 1S)
    .5295(XREF 1K), .5295(XREF 2S), .5295(XREF 2K), .5295(XREF 3S), .5295(XREF 3K), .5296(XREF 1S), .5296(XREF 1K), .531(XREF 1S), .531(XREF 1K), .531(XREF 2S)
    .531(XREF 2K), .532(XREF 1S), .532(XREF 1K), .532(XREF 2S), .532(XREF 2K), .533(XREF 1S), .533(XREF 1K), .6(XREF 1S), .6(XREF 1K), 27.01(XREF 1S)
    27.01(XREF 1K), 27.02(XREF 1S), 27.02(XREF 1K), 391(XREF 991S), 391(XREF 991K), 401.3(XREF 1S), 401.3(XREF 1K), 401.3(XREF 2S), 401.3(XREF 2K), 404.01(HELP )
    991.01(XREF 1S), 991.01(XREF 1K), 991.01(XREF 2K), 991.01(XREF 3S), 991.01(XREF 4S), 991.01(XREF 4K), 991.03(XREF 1S), 991.03(XREF 1K), 991.03(XREF 2K), 991.04(XREF 1S)
    991.04(XREF 1K), 991.05(XREF 1K), 991.05(XREF 2S), 991.05(XREF 2K), 991.06(XREF 1S), 991.06(XREF 1K), 1010.15(XREF 1n1.3), 1010.15(XREF 1n2.3), 1010.151(XREF 1K), 1010.151(XREF 2K)
    1010.1511(XREF 1S), 1010.1511(XREF 1K), 1010.1511(XREF 2S), 1010.1511(XREF 2K), 1010.153(XREF 1K), 1010.159(XREF 1S), 1010.159(XREF 1K), 1100.01(XREF 1S), 1100.01(XREF 1K), 1100.01(XREF 2S)
    1100.01(XREF 2K), 1901DEL1+1, 1901(XREF 1S), 1901(XREF 1K), 1901(XREF 2S), 1901(XREF 2K), 1901(XREF 3n1.3), 1901(XREF 4S), 1901(XREF 4K), 1901(XREF 991S)
    1901(XREF 991K), 1901(XREF 992S), 1901(XREF 992K), 1901(XREF 999999901S), 1901(XREF 999999901K)
    DA(1 .361(XREF 2K), .361(XREF 2n89.4)
    DFN .01(XREF 5K), .01(XREF 991S), .09+1*, .1211+1*, .1211DEL1+1*, .12112+1*, .12112DEL1+1*, .1212+1*, .1213+1*, .1214+1*
    , .1214DEL1+1*, .1215+1*, .1215DEL1+1*, .1216+1*, .1216DEL1+1*, .1217+1*, .1217DEL1+1*, .1218+1*, .1218DEL1+1*, .1219+1*
    .14105(XREF 2S), .14105(XREF 2K), .1411+1*, .1411DEL1+1*, .14112(XREF 1S), .14112(XREF 1K), .1412+1*, .1413+1*, .1414+1*, .1414DEL1+1*
    , .1415+1*, .1415DEL1+1*, .1416+1*, .1416DEL1+1*, .1417+1*, .1417DEL1+1*, .1418+1*, .1418DEL1+1*, .1651DEL1+1*, .1653+1*
    , .1653DEL1+1*, .1654+1*, .1654DEL1+1*, .1656+1*, .1656DEL1+1*, .212+1*, .212DEL1+1*, .2125DEL1+1*, .213+1*, .213DEL1+1*
    , .214+1*, .215+1*, .216+1*, .216DEL1+1*, .217+1*, .217DEL1+1*, .218+1*, .218DEL1+1*, .219+1*, .2192+1*
    , .2192DEL1+1*, .2193+1*, .2193DEL1+1*, .2194+1*, .2195+1*, .2196+1*, .2196DEL1+1*, .2197+1*, .2197DEL1+1*, .2198+1*
    , .2198DEL1+1*, .2199+1*, .2201+1*, .2201DEL1+1*, .2202+1*, .2202DEL1+1*, .2203+1*, .2203DEL1+1*, .2204+1*, .2204DEL1+1*
    , .2205+1*, .2205DEL1+1*, .2206+1*, .2206DEL1+1*, .2207+1*, .2207DEL1+1*, .251+1*, .252+1*, .252DEL1+1*, .253+1*
    , .254+1*, .255+1*, .255DEL1+1*, .256+1*, .256DEL1+1*, .257+1*, .257DEL1+1*, .258+1*, .301DEL1+1*, .3012+1~*
    , .302+1*, .302DEL1+1*, .302(XREF 3S), .3025DEL1+1*, .303+1*, .303OF9.3+1, .303OF9.4+1, .303DEL1+1*, .305(XREF 2S), .305(XREF 2K)
    , .309+1*, .309DEL1+1*, .3112DEL1+1*, .3113+1*, .3113DEL1+1*, .3114+1*, .3115+1*, .3116+1*, .3116DEL1+1*, .3117+1*
    , .3117DEL1+1*, .3118+1*, .3118DEL1+1*, .3119+1*, .313+1*, .313DEL1+1*, .32101DEL1+1*, .32104+1*, .32104DEL1+1*, .32105+1*
    , .32105DEL1+1*, .32107+1*, .32107DEL1+1*, .32108+1*, .32108DEL1+1*, .32109+1*, .32109DEL1+1*, .3211+1*, .3211DEL1+1*, .32111+1*
    , .32111DEL1+1*, .3212DEL1+1*, .3213DEL1+1*, .32201DEL1+1*, .322011+1*, .322011DEL1+1*, .322012+1*, .322012DEL1+1*, .322014+1*, .322017+1*
    , .322018+1*, .32202+1*, .322021+1*, .3221DEL1+1*, .3222+1*, .3222DEL1+1*, .3223+1*, .3223DEL1+1*, .3224DEL1+1*, .3225+1*
    , .3225DEL1+1*, .3226+1*, .3226DEL1+1*, .3227DEL1+1*, .3228+1*, .3228DEL1+1*, .3229+1*, .3229DEL1+1*, .323+1*, .323DEL1+1*
    , .324+1*, .324DEL1+1*, .325+1*, .325DEL1+1*, .326+1*, .326DEL1+1*, .327+1*, .327DEL1+1*, .328+1*, .328DEL1+1*
    , .3285DEL1+1*, .329+1*, .329DEL1+1*, .3291+1*, .3291DEL1+1*, .3292+1*, .3292DEL1+1*, .3293+1*, .3293DEL1+1*, .3294+1*
    , .3294DEL1+1*, .32945DEL1+1*, .3295+1*, .3295DEL1+1*, .3296+1*, .3296DEL1+1*, .3297+1*, .3297DEL1+1*, .3298+1*, .3298DEL1+1*
    , .3299+1*, .3299DEL1+1*, .3312+1*, .3312DEL1+1*, .3313+1*, .3313DEL1+1*, .3314+1*, .3315+1*, .3316+1*, .3316DEL1+1*
    , .3317+1*, .3317DEL1+1*, .3318+1*, .3318DEL1+1*, .3319+1*, .332+1*, .332DEL1+1*, .333+1*, .333DEL1+1*, .334+1*
    , .335+1*, .336+1*, .336DEL1+1*, .337+1*, .337DEL1+1*, .338+1*, .338DEL1+1*, .339+1*, .342+1*, .342DEL1+1*
    , .343+1*, .343DEL1+1*, .344+1*, .345+1*, .346+1*, .346DEL1+1*, .347+1*, .347DEL1+1*, .348+1*, .348DEL1+1*
    , .349+1*, .351(XREF 3S), .3602(XREF 1S), .3603(XREF 1S), .361+1*, .361SCR+1*, .361DEL1+1*, .361(XREF 1S), .362(XREF 1S), .36205DEL1+1*
    .36205(XREF 2S), .36205(XREF 2K), .3621+1*, .3621DEL1+1*, .36215DEL1+1*, .36215(XREF 2S), .36215(XREF 2K), .3622+1*, .3622DEL1+1*, .36225DEL1+1*
    , .3623+1*, .3623DEL1+1*, .36235DEL1+1*, .36235(XREF 2S), .36235(XREF 2K), .3624+1*, .3624OF9.3+1, .3624OF9.4+1, .3624DEL1+1*, .3625+1*
    , .3625DEL1+1*, .36255DEL1+1*, .3626+1*, .3626DEL1+1*, .36265DEL1+1*, .3627+1*, .3627DEL1+1*, .3628+1*, .3628DEL1+1*, .36285DEL1+1*
    , .36295+1*, .36295DEL1+1*, .36295(XREF 1S), .36295(XREF 1K), .381(XREF 1S), .525DEL1+1*, .525(XREF 5S), .525(XREF 5K), .526+1*, .526DEL1+1*
    , .527+1*, .527DEL1+1*, .528+1*, .528DEL1+1*, .5291DEL1+1*, .5292+1*, .5292DEL1+1*, .5293+1*, .5293DEL1+1*, .5294+1*
    , .5294DEL1+1*, 1901DEL1+1*, 1901(XREF 1S), 1901(XREF 1K), 1901(XREF 2S), 1901(XREF 2K)
    DG20NAME .01+1!*, .211+1!*, .2191+1!*, .2401+1!*, .2402+1!*, .2403+1!*, .331+1!*, .3311+1!*, .341+1!*
    DGDATE .351+1!
    DGFFF 1100.01(XREF 1S), 1100.01(XREF 1K)
    DGMTCOR .305(XREF 2S), .305(XREF 2K), .36205(XREF 2S), .36205(XREF 2K), .36215(XREF 2S), .36215(XREF 2K), .36235(XREF 2S), .36235(XREF 2K), 1901(XREF 1S), 1901(XREF 1K)
    DGNEWVAL .01+1*, .01(XREF 5S), .01(XREF 5K)
    DGREQF .302(XREF 3S), .3602(XREF 1S), .3603(XREF 1S), .361(XREF 1S), .362(XREF 1S), .36295(XREF 1S), .36295(XREF 1K), .381(XREF 1S), .525(XREF 5S), .525(XREF 5K)
    DGTIME .351+1!
    DGX .312(XREF 1S), .312(XREF 1K), .314(XREF 1S), .314(XREF 1K), .322011+1*, .322011DEL1+1*, .322012+1*, .322012DEL1+1*, .322017+1*, .322018+1*
    , .32202+1*, .322021+1*, .3222+1*, .3222DEL1+1*, .3223+1*, .3223DEL1+1*, .3225+1*, .3225DEL1+1*, .3226+1*, .3226DEL1+1*
    , .3228+1*, .3228DEL1+1*, .3229+1*, .3229DEL1+1*
    >> DGXRF .111(XREF 1K), .112(XREF 1K), .12105(XREF 1K), .1211(XREF 1K), .1212(XREF 1K), .14105(XREF 1K), .1411(XREF 1K), .1412(XREF 1K), .152(XREF 3K), .153(XREF 1K)
    .211(XREF 1K), .213(XREF 1K), .214(XREF 1K), .2191(XREF 1K), .2193(XREF 1K), .2194(XREF 1K), .251(XREF 1K), .252(XREF 1K), .253(XREF 1K), .3111(XREF 1K)
    .3113(XREF 1K), .3114(XREF 1K), .325(XREF 4K), .3285(XREF 1S), .3291(XREF 3K), .32945(XREF 1S), .3296(XREF 4K), .331(XREF 1K), .3311(XREF 1K), .3313(XREF 1K)
    .3314(XREF 1K), .333(XREF 1K), .334(XREF 1K), .341(XREF 1K), .343(XREF 1K), .344(XREF 1K), .361(XREF 3K)
    DIC .102+1!*, .104+1!*, .1041+1!*, .105+1!*, .117+1*!, .117(HELP ), .12111+1*!, .12111(HELP ), .14111+1~*, .14111(HELP )
    , .19OF9.2+1!*, .314+1!*, .3601+1!*, .361(XREF 2n89.4), .361(XREF 2n99.3), 27.02+1!*, 404.01+1!*, 11500.03+1!*
    DIC("P" .361(XREF 2n89.4)
    DIC("S" .102+1*, .102SCR+1*, .104+1*, .104SCR+1*, .1041+1*, .1041SCR+1*, .105+1*, .105SCR+1*, .121SCR+1*, .309SCR+1*
    , .314+1*, .314SCR+1*, .323SCR+1*, .32911SCR+1*, .32912SCR+1*, .32913SCR+1*, .3601+1*, .3601SCR+1*, 27.02+1*, 27.02SCR+1*
    , 404.01+1*, 404.01SCR+1*, 11500.03+1*, 11500.03SCR+1*
    DIC(0 .117+1*, .117(HELP ), .12111+1*, .12111(HELP ), .14111+1*, .14111(HELP ), .19OF9.2+1*, .361(XREF 2n89.4), .361(XREF 2n99.3)
    >> DIE .102+1, .104+1, .1041+1, .105+1, .117(HELP ), .12111(HELP ), .314+1, .3601+1, 27.02+1, 404.01+1
    , 11500.03+1
    >> DIG .01(XREF 999999901S), .02(XREF 999999901S), .03(XREF 2n1.4), .09(XREF 2n1.4), .09(XREF 10n1.4), .111(XREF 4S), .111(XREF 4K), .1112(XREF 3S), .1112(XREF 3K), .112(XREF 4S)
    .112(XREF 4K), .113(XREF 3S), .113(XREF 3K), .114(XREF 3S), .114(XREF 3K), .115(XREF 1n2.4), .115(XREF 4S), .115(XREF 4K), .116(XREF 3S), .116(XREF 3K)
    .118(XREF 1S), .118(XREF 1K), .118(XREF 2S), .118(XREF 2K), .119(XREF 1S), .119(XREF 1n1.4), .119(XREF 1K), .119(XREF 1n2.4), .121(XREF 2S), .121(XREF 2K)
    .1311(XREF 1n1.4), .1311(XREF 1n2.4), .1312(XREF 1S), .1312(XREF 1K), .1313(XREF 1n1.4), .1313(XREF 1n2.4), .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K)
    .135(XREF 1S), .135(XREF 1K), .136(XREF 1S), .136(XREF 1K), .137(XREF 1n1.4), .137(XREF 1n2.4), .139(XREF 1S), .139(XREF 1K), .14112(XREF 2n1.4), .14112(XREF 2n2.4)
    .152(XREF 1n1.4), .152(XREF 1n2.4), .2403(XREF 999999901S), .2515(XREF 1n1.4), .2515(XREF 1n2.4), .2515(XREF 2S), .2515(XREF 2K), .301(XREF 1n1.4), .301(XREF 2n1.4), .3025(XREF 1n1.4)
    .3025(XREF 1n2.4), .3025(XREF 2n1.4), .3025(XREF 2n2.4), .31115(XREF 1S), .31115(XREF 1K), .31115(XREF 2n1.4), .31115(XREF 2n2.4), .32101(XREF 1n1.4), .32101(XREF 2n1.4), .32102(XREF 1n1.4)
    .32102(XREF 2n1.4), .32102(XREF 3n1.4), .32102(XREF 5S), .32103(XREF 1n1.4), .32103(XREF 2n1.4), .32201(XREF 1n1.4), .32201(XREF 2n1.4), .32201(XREF 3n1.4), .32201(XREF 3n2.4), .322013(XREF 1n1.4)
    .322013(XREF 1n2.4), .322013(XREF 2n1.4), .322013(XREF 2n2.4), .322016(XREF 1n1.4), .322016(XREF 2n1.4), .322016(XREF 3n1.4), .322016(XREF 3n2.4), .322019(XREF 1n1.4), .322019(XREF 2n1.4), .3221(XREF 1n1.4)
    .3221(XREF 2n1.4), .3224(XREF 1n1.4), .3224(XREF 2n1.4), .3227(XREF 1n1.4), .3227(XREF 2n1.4), .323(XREF 2n1.4), .3285(XREF 2n1.4), .3285(XREF 3n1.4), .3285(XREF 3K), .32945(XREF 2S)
    .32945(XREF 2K), .3296(XREF 3S), .3296(XREF 3K), .351(XREF 1n1.4), .351(XREF 1n2.4), .351(XREF 2n1.4), .361(XREF 2n1.4), .3611(XREF 1n1.4), .3611(XREF 1n2.4), .3611(XREF 2n1.4)
    .3612(XREF 1n1.4), .36205(XREF 1n1.4), .36205(XREF 1n2.4), .36205(XREF 3n1.4), .36205(XREF 3n2.4), .36215(XREF 1n1.4), .36215(XREF 1n2.4), .36215(XREF 3n1.4), .36215(XREF 3n2.4), .36225(XREF 1n1.4)
    .36225(XREF 1n2.4), .36235(XREF 1n1.4), .36235(XREF 1n2.4), .36235(XREF 3n1.4), .36235(XREF 3n2.4), .36255(XREF 1n1.4), .36255(XREF 1n2.4), .36265(XREF 1n1.4), .36265(XREF 1n2.4), .525(XREF 1n1.4)
    .525(XREF 2n1.4), .525(XREF 3n1.4), .5291(XREF 1n1.4), .5291(XREF 1n2.4), .5291(XREF 2n1.4), .5291(XREF 2n2.4), .5291(XREF 3n1.4), .5291(XREF 3n2.4), .5295(XREF 2S), .5295(XREF 2K)
    401.3(XREF 2n1.4), 401.3(XREF 2n2.4), 1010.15(XREF 1n1.4), 1010.15(XREF 1n2.4), 1010.151(XREF 1n2.4), 1010.151(XREF 2n2.4), 1010.153(XREF 1n2.4), 1901(XREF 3n1.4)
    >> DIH .01(XREF 999999901S), .02(XREF 999999901S), .03(XREF 2n1.4), .09(XREF 2n1.4), .09(XREF 10n1.4), .111(XREF 4S), .111(XREF 4K), .1112(XREF 3S), .1112(XREF 3K), .112(XREF 4S)
    .112(XREF 4K), .113(XREF 3S), .113(XREF 3K), .114(XREF 3S), .114(XREF 3K), .115(XREF 1n2.4), .115(XREF 4S), .115(XREF 4K), .116(XREF 3S), .116(XREF 3K)
    .118(XREF 1S), .118(XREF 1K), .118(XREF 2S), .118(XREF 2K), .119(XREF 1S), .119(XREF 1n1.4), .119(XREF 1K), .119(XREF 1n2.4), .121(XREF 2S), .121(XREF 2K)
    .1311(XREF 1n1.4), .1311(XREF 1n2.4), .1312(XREF 1S), .1312(XREF 1K), .1313(XREF 1n1.4), .1313(XREF 1n2.4), .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K)
    .135(XREF 1S), .135(XREF 1K), .136(XREF 1S), .136(XREF 1K), .137(XREF 1n1.4), .137(XREF 1n2.4), .139(XREF 1S), .139(XREF 1K), .14112(XREF 2n1.4), .14112(XREF 2n2.4)
    .152(XREF 1n1.4), .152(XREF 1n2.4), .2403(XREF 999999901S), .2515(XREF 1n1.4), .2515(XREF 1n2.4), .2515(XREF 2S), .2515(XREF 2K), .301(XREF 1n1.4), .301(XREF 2n1.4), .3025(XREF 1n1.4)
    .3025(XREF 1n2.4), .3025(XREF 2n1.4), .3025(XREF 2n2.4), .31115(XREF 1S), .31115(XREF 1K), .31115(XREF 2n1.4), .31115(XREF 2n2.4), .32101(XREF 1n1.4), .32101(XREF 2n1.4), .32102(XREF 1n1.4)
    .32102(XREF 2n1.4), .32102(XREF 3n1.4), .32102(XREF 5S), .32103(XREF 1n1.4), .32103(XREF 2n1.4), .32201(XREF 1n1.4), .32201(XREF 2n1.4), .32201(XREF 3n1.4), .32201(XREF 3n2.4), .322013(XREF 1n1.4)
    .322013(XREF 1n2.4), .322013(XREF 2n1.4), .322013(XREF 2n2.4), .322016(XREF 1n1.4), .322016(XREF 2n1.4), .322016(XREF 3n1.4), .322016(XREF 3n2.4), .322019(XREF 1n1.4), .322019(XREF 2n1.4), .3221(XREF 1n1.4)
    .3221(XREF 2n1.4), .3224(XREF 1n1.4), .3224(XREF 2n1.4), .3227(XREF 1n1.4), .3227(XREF 2n1.4), .323(XREF 2n1.4), .3285(XREF 2n1.4), .3285(XREF 3n1.4), .3285(XREF 3K), .32945(XREF 2S)
    .32945(XREF 2K), .3296(XREF 3S), .3296(XREF 3K), .351(XREF 1n1.4), .351(XREF 1n2.4), .351(XREF 2n1.4), .361(XREF 2n1.4), .3611(XREF 1n1.4), .3611(XREF 1n2.4), .3611(XREF 2n1.4)
    .3612(XREF 1n1.4), .36205(XREF 1n1.4), .36205(XREF 1n2.4), .36205(XREF 3n1.4), .36205(XREF 3n2.4), .36215(XREF 1n1.4), .36215(XREF 1n2.4), .36215(XREF 3n1.4), .36215(XREF 3n2.4), .36225(XREF 1n1.4)
    .36225(XREF 1n2.4), .36235(XREF 1n1.4), .36235(XREF 1n2.4), .36235(XREF 3n1.4), .36235(XREF 3n2.4), .36255(XREF 1n1.4), .36255(XREF 1n2.4), .36265(XREF 1n1.4), .36265(XREF 1n2.4), .525(XREF 1n1.4)
    .525(XREF 2n1.4), .525(XREF 3n1.4), .5291(XREF 1n1.4), .5291(XREF 1n2.4), .5291(XREF 2n1.4), .5291(XREF 2n2.4), .5291(XREF 3n1.4), .5291(XREF 3n2.4), .5295(XREF 2S), .5295(XREF 2K)
    401.3(XREF 2n1.4), 401.3(XREF 2n2.4), 1010.15(XREF 1n1.4), 1010.15(XREF 1n2.4), 1010.151(XREF 1n2.4), 1010.151(XREF 2n2.4), 1010.153(XREF 1n2.4), 1901(XREF 3n1.4)
    DIK .361(XREF 2K), 991.05(XREF 1K)
    DIK(0 .361(XREF 2K)
    >> DIU .01(XREF 999999901S), .02(XREF 999999901S), .03(XREF 2S), .03(XREF 2n1.4), .09(XREF 2S), .09(XREF 2n1.4), .09(XREF 10S), .111(XREF 4S), .111(XREF 4K), .1112(XREF 3S)
    .1112(XREF 3K), .112(XREF 4S), .112(XREF 4K), .113(XREF 3S), .113(XREF 3K), .114(XREF 3S), .114(XREF 3K), .115(XREF 1K), .115(XREF 4S), .115(XREF 4K)
    .116(XREF 3S), .116(XREF 3K), .118(XREF 1S), .118(XREF 1K), .118(XREF 2S), .118(XREF 2K), .119(XREF 1S), .119(XREF 1K), .121(XREF 2S), .121(XREF 2K)
    .1311(XREF 1S), .1311(XREF 1K), .1312(XREF 1S), .1312(XREF 1K), .1313(XREF 1S), .1313(XREF 1K), .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K)
    .135(XREF 1S), .135(XREF 1K), .136(XREF 1S), .136(XREF 1K), .137(XREF 1S), .137(XREF 1K), .139(XREF 1S), .139(XREF 1K), .14112(XREF 2S), .14112(XREF 2K)
    .152(XREF 1S), .152(XREF 1n1.1), .152(XREF 1n1.4), .152(XREF 1K), .152(XREF 1n2.4), .2403(XREF 999999901S), .2515(XREF 1S), .2515(XREF 1K), .2515(XREF 2S), .2515(XREF 2K)
    .301(XREF 1S), .301(XREF 1n1.4), .301(XREF 2S), .3025(XREF 1S), .3025(XREF 1n1.4), .3025(XREF 1K), .3025(XREF 1n2.4), .3025(XREF 2S), .3025(XREF 2K), .31115(XREF 1S)
    .31115(XREF 1K), .31115(XREF 2S), .31115(XREF 2n1.4), .31115(XREF 2K), .31115(XREF 2n2.4), .32101(XREF 1S), .32101(XREF 1n1.4), .32101(XREF 2S), .32101(XREF 2n1.4), .32102(XREF 1S)
    .32102(XREF 1n1.4), .32102(XREF 2S), .32102(XREF 2n1.4), .32102(XREF 3S), .32102(XREF 3n1.4), .32102(XREF 5S), .32103(XREF 1S), .32103(XREF 1n1.4), .32103(XREF 2S), .32103(XREF 2n1.4)
    .32201(XREF 1S), .32201(XREF 2S), .32201(XREF 3S), .32201(XREF 3K), .322013(XREF 1S), .322013(XREF 1K), .322013(XREF 2S), .322013(XREF 2K), .322016(XREF 1S), .322016(XREF 2S)
    .322016(XREF 3S), .322016(XREF 3K), .322019(XREF 1S), .322019(XREF 2S), .3221(XREF 1S), .3221(XREF 2S), .3224(XREF 1S), .3224(XREF 2S), .3227(XREF 1S), .3227(XREF 2S)
    .323(XREF 2S), .3285(XREF 2S), .3285(XREF 2n1.4), .3285(XREF 3S), .3285(XREF 3K), .32945(XREF 2S), .32945(XREF 2K), .3296(XREF 3S), .3296(XREF 3K), .351(XREF 1S)
    .351(XREF 1K), .351(XREF 1n49.2), .351(XREF 1n59.2), .351(XREF 2S), .351(XREF 2n1.4), .361(XREF 2S), .361(XREF 2n2.2), .3611(XREF 1S), .3611(XREF 1n1.4), .3611(XREF 1n2.4)
    .3611(XREF 2S), .3611(XREF 2n1.4), .3612(XREF 1S), .36205(XREF 1S), .36205(XREF 1n1.4), .36205(XREF 1K), .36205(XREF 1n2.4), .36205(XREF 3S), .36205(XREF 3K), .36215(XREF 1S)
    .36215(XREF 1n1.4), .36215(XREF 1K), .36215(XREF 1n2.4), .36215(XREF 3S), .36215(XREF 3K), .36225(XREF 1S), .36225(XREF 1n1.4), .36225(XREF 1K), .36225(XREF 1n2.4), .36235(XREF 1S)
    .36235(XREF 1n1.4), .36235(XREF 1K), .36235(XREF 1n2.4), .36235(XREF 3S), .36235(XREF 3K), .36255(XREF 1S), .36255(XREF 1n1.4), .36255(XREF 1K), .36255(XREF 1n2.4), .36265(XREF 1S)
    .36265(XREF 1n1.4), .36265(XREF 1K), .36265(XREF 1n2.4), .525(XREF 1S), .525(XREF 1n1.4), .525(XREF 2S), .525(XREF 2n1.4), .525(XREF 3S), .525(XREF 3n1.4), .5291(XREF 1S)
    .5291(XREF 1n1.4), .5291(XREF 1n2.4), .5291(XREF 2S), .5291(XREF 2n1.4), .5291(XREF 2n2.4), .5291(XREF 3S), .5291(XREF 3n1.4), .5291(XREF 3n2.4), .5295(XREF 2S), .5295(XREF 2K)
    401.3(XREF 2S), 401.3(XREF 2n1.4), 401.3(XREF 2K), 401.3(XREF 2n2.4), 1010.15(XREF 1S), 1010.15(XREF 1n1.4), 1010.15(XREF 1n2.4), 1010.151(XREF 1K), 1010.151(XREF 1n2.4), 1010.151(XREF 2K)
    1010.151(XREF 2n2.4), 1010.153(XREF 1K), 1010.153(XREF 1n2.4), 1901(XREF 3S), 1901(XREF 3n1.4)
    >> DIU(0 991.05(XREF 1K)
    >> DIU(1 .361(XREF 2n89.4)
    DIV .01(XREF 999999901S), .02(XREF 999999901S), .03(XREF 2S), .03(XREF 2n1.4), .09(XREF 2S), .09(XREF 2n1.4), .09(XREF 10S), .09(XREF 10n1.4), .111(XREF 4S), .111(XREF 4K)
    .1112(XREF 3S), .1112(XREF 3K), .112(XREF 4S), .112(XREF 4K), .113(XREF 3S), .113(XREF 3K), .114(XREF 3S), .114(XREF 3K), .115(XREF 1K), .115(XREF 1n2.4)
    .115(XREF 4S), .115(XREF 4K), .116(XREF 3S), .116(XREF 3K), .118(XREF 1S), .118(XREF 1K), .118(XREF 2S), .118(XREF 2K), .119(XREF 1S), .119(XREF 1n1.3)
    .119(XREF 1n1.4), .119(XREF 1K), .119(XREF 1n2.3), .119(XREF 1n2.4), .121(XREF 2S), .121(XREF 2K), .1311(XREF 1S), .1311(XREF 1n1.3), .1311(XREF 1n1.4), .1311(XREF 1K)
    .1311(XREF 1n2.3), .1311(XREF 1n2.4), .1312(XREF 1S), .1312(XREF 1K), .1313(XREF 1S), .1313(XREF 1n1.3), .1313(XREF 1n1.4), .1313(XREF 1K), .1313(XREF 1n2.3), .1313(XREF 1n2.4)
    .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K), .135(XREF 1S), .135(XREF 1K), .136(XREF 1S), .136(XREF 1K), .137(XREF 1S), .137(XREF 1n1.3)
    .137(XREF 1n1.4), .137(XREF 1K), .137(XREF 1n2.3), .137(XREF 1n2.4), .139(XREF 1S), .139(XREF 1K), .14112(XREF 2S), .14112(XREF 2n1.4), .14112(XREF 2K), .14112(XREF 2n2.4)
    .152(XREF 1S), .152(XREF 1n1.1), .152(XREF 1n1.4), .152(XREF 1K), .152(XREF 1n2.1), .152(XREF 1n2.4), .2403(XREF 999999901S), .2515(XREF 1S), .2515(XREF 1n1.4), .2515(XREF 1K)
    .2515(XREF 1n2.4), .2515(XREF 2S), .2515(XREF 2n1.3), .2515(XREF 2K), .301(XREF 1S), .301(XREF 1n1.3), .301(XREF 1n1.4), .301(XREF 2S), .301(XREF 2n1.3), .301(XREF 2n1.4)
    .3025(XREF 1S), .3025(XREF 1n1.3), .3025(XREF 1n1.4), .3025(XREF 1K), .3025(XREF 1n2.3), .3025(XREF 1n2.4), .3025(XREF 2S), .3025(XREF 2n1.4), .3025(XREF 2K), .3025(XREF 2n2.4)
    .31115(XREF 1S), .31115(XREF 1n1.3), .31115(XREF 1K), .31115(XREF 1n2.3), .31115(XREF 2S), .31115(XREF 2n1.4), .31115(XREF 2K), .31115(XREF 2n2.4), .32101(XREF 1S), .32101(XREF 1n1.3)
    .32101(XREF 1n1.4), .32101(XREF 2S), .32101(XREF 2n1.3), .32101(XREF 2n1.4), .32102(XREF 1S), .32102(XREF 1n1.3), .32102(XREF 1n1.4), .32102(XREF 2S), .32102(XREF 2n1.3), .32102(XREF 2n1.4)
    .32102(XREF 3S), .32102(XREF 3n1.3), .32102(XREF 3n1.4), .32102(XREF 5S), .32102(XREF 5n1.3), .32103(XREF 1S), .32103(XREF 1n1.3), .32103(XREF 1n1.4), .32103(XREF 2S), .32103(XREF 2n1.3)
    .32103(XREF 2n1.4), .32201(XREF 1S), .32201(XREF 1n1.3), .32201(XREF 1n1.4), .32201(XREF 2S), .32201(XREF 2n1.3), .32201(XREF 2n1.4), .32201(XREF 3S), .32201(XREF 3n1.4), .32201(XREF 3K)
    .32201(XREF 3n2.4), .322013(XREF 1S), .322013(XREF 1n1.3), .322013(XREF 1n1.4), .322013(XREF 1K), .322013(XREF 1n2.4), .322013(XREF 2S), .322013(XREF 2n1.3), .322013(XREF 2n1.4), .322013(XREF 2K)
    .322013(XREF 2n2.4), .322016(XREF 1S), .322016(XREF 1n1.3), .322016(XREF 1n1.4), .322016(XREF 2S), .322016(XREF 2n1.3), .322016(XREF 2n1.4), .322016(XREF 3S), .322016(XREF 3n1.4), .322016(XREF 3K)
    .322016(XREF 3n2.4), .322019(XREF 1S), .322019(XREF 1n1.3), .322019(XREF 1n1.4), .322019(XREF 2S), .322019(XREF 2n1.3), .322019(XREF 2n1.4), .3221(XREF 1S), .3221(XREF 1n1.3), .3221(XREF 1n1.4)
    .3221(XREF 2S), .3221(XREF 2n1.3), .3221(XREF 2n1.4), .3224(XREF 1S), .3224(XREF 1n1.3), .3224(XREF 1n1.4), .3224(XREF 2S), .3224(XREF 2n1.3), .3224(XREF 2n1.4), .3227(XREF 1S)
    .3227(XREF 1n1.3), .3227(XREF 1n1.4), .3227(XREF 2S), .3227(XREF 2n1.3), .3227(XREF 2n1.4), .323(XREF 2S), .323(XREF 2n1.1), .323(XREF 2n1.3), .323(XREF 2n1.4), .3285(XREF 2S)
    .3285(XREF 2n1.3), .3285(XREF 2n1.4), .3285(XREF 3S), .3285(XREF 3n1.4), .3285(XREF 3K), .3285(XREF 3n2.3), .32945(XREF 2S), .32945(XREF 2n1.3), .32945(XREF 2K), .32945(XREF 2n2.3)
    .3296(XREF 3S), .3296(XREF 3K), .351(XREF 1S), .351(XREF 1n1.1), .351(XREF 1n1.4), .351(XREF 1K), .351(XREF 1n2.1), .351(XREF 1n2.4), .351(XREF 1n49.2), .351(XREF 2S)
    .351(XREF 2n1.1), .351(XREF 2n1.4), .361(XREF 2S), .361(XREF 2n1.4), .361(XREF 2K), .361(XREF 2n99.2), .3611(XREF 1S), .3611(XREF 1n1.1), .3611(XREF 1n1.3), .3611(XREF 1n1.4)
    .3611(XREF 1n2.3), .3611(XREF 1n2.4), .3611(XREF 2S), .3611(XREF 2n1.4), .3612(XREF 1S), .3612(XREF 1n1.4), .36205(XREF 1S), .36205(XREF 1n1.3), .36205(XREF 1n1.4), .36205(XREF 1K)
    .36205(XREF 1n2.3), .36205(XREF 1n2.4), .36205(XREF 3S), .36205(XREF 3n1.4), .36205(XREF 3K), .36205(XREF 3n2.4), .36215(XREF 1S), .36215(XREF 1n1.3), .36215(XREF 1n1.4), .36215(XREF 1K)
    .36215(XREF 1n2.3), .36215(XREF 1n2.4), .36215(XREF 3S), .36215(XREF 3n1.4), .36215(XREF 3K), .36215(XREF 3n2.4), .36225(XREF 1S), .36225(XREF 1n1.3), .36225(XREF 1n1.4), .36225(XREF 1K)
    .36225(XREF 1n2.3), .36225(XREF 1n2.4), .36235(XREF 1S), .36235(XREF 1n1.3), .36235(XREF 1n1.4), .36235(XREF 1K), .36235(XREF 1n2.3), .36235(XREF 1n2.4), .36235(XREF 3S), .36235(XREF 3n1.4)
    .36235(XREF 3K), .36235(XREF 3n2.4), .36255(XREF 1S), .36255(XREF 1n1.3), .36255(XREF 1n1.4), .36255(XREF 1K), .36255(XREF 1n2.3), .36255(XREF 1n2.4), .36265(XREF 1S), .36265(XREF 1n1.3)
    .36265(XREF 1n1.4), .36265(XREF 1K), .36265(XREF 1n2.3), .36265(XREF 1n2.4), .525(XREF 1S), .525(XREF 1n1.3), .525(XREF 1n1.4), .525(XREF 2S), .525(XREF 2n1.3), .525(XREF 2n1.4)
    .525(XREF 3S), .525(XREF 3n1.3), .525(XREF 3n1.4), .5291(XREF 1S), .5291(XREF 1n1.3), .5291(XREF 1n1.4), .5291(XREF 1n2.3), .5291(XREF 1n2.4), .5291(XREF 2S), .5291(XREF 2n1.3)
    .5291(XREF 2n1.4), .5291(XREF 2n2.3), .5291(XREF 2n2.4), .5291(XREF 3S), .5291(XREF 3n1.3), .5291(XREF 3n1.4), .5291(XREF 3n2.3), .5291(XREF 3n2.4), .5295(XREF 2S), .5295(XREF 2K)
    401.3(XREF 2S), 401.3(XREF 2n1.4), 401.3(XREF 2K), 401.3(XREF 2n2.4), 1010.15(XREF 1S), 1010.15(XREF 1n1.3), 1010.15(XREF 1n1.4), 1010.15(XREF 1n2.3), 1010.15(XREF 1n2.4), 1010.151(XREF 1K)
    1010.151(XREF 1n2.4), 1010.151(XREF 2K), 1010.151(XREF 2n2.4), 1010.153(XREF 1K), 1010.153(XREF 1n2.4), 1901(XREF 3S), 1901(XREF 3n1.3), 1901(XREF 3n1.4)
    DIV(0 .01(XREF 999999901S), .02(XREF 999999901S), .03(XREF 2S), .03(XREF 2n1.4), .09(XREF 2S), .09(XREF 2n1.4), .09(XREF 10S), .09(XREF 10n1.4), .111(XREF 4S), .111(XREF 4K)
    .1112(XREF 3S), .1112(XREF 3K), .112(XREF 4S), .112(XREF 4K), .113(XREF 3S), .113(XREF 3K), .114(XREF 3S), .114(XREF 3K), .115(XREF 1K), .115(XREF 1n2.4)
    .115(XREF 4S), .115(XREF 4K), .116(XREF 3S), .116(XREF 3K), .118(XREF 1S), .118(XREF 1K), .118(XREF 2S), .118(XREF 2K), .119(XREF 1S), .119(XREF 1n1.3)
    .119(XREF 1n1.4), .119(XREF 1K), .119(XREF 1n2.3), .119(XREF 1n2.4), .121(XREF 2S), .121(XREF 2K), .1311(XREF 1n1.3), .1311(XREF 1n1.4), .1311(XREF 1n2.3), .1311(XREF 1n2.4)
    .1312(XREF 1S), .1312(XREF 1K), .1313(XREF 1n1.3), .1313(XREF 1n1.4), .1313(XREF 1n2.3), .1313(XREF 1n2.4), .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K)
    .135(XREF 1S), .135(XREF 1K), .136(XREF 1S), .136(XREF 1K), .137(XREF 1n1.3), .137(XREF 1n1.4), .137(XREF 1n2.3), .137(XREF 1n2.4), .139(XREF 1S), .139(XREF 1K)
    .14112(XREF 2S), .14112(XREF 2n1.4), .14112(XREF 2K), .14112(XREF 2n2.4), .152(XREF 1S), .152(XREF 1n1.4), .152(XREF 1K), .152(XREF 1n2.4), .2403(XREF 999999901S), .2515(XREF 1S)
    .2515(XREF 1n1.4), .2515(XREF 1K), .2515(XREF 1n2.4), .2515(XREF 2S), .2515(XREF 2n1.3), .2515(XREF 2K), .301(XREF 1n1.3), .301(XREF 1n1.4), .301(XREF 2n1.3), .301(XREF 2n1.4)
    .3025(XREF 1n1.3), .3025(XREF 1n1.4), .3025(XREF 1n2.3), .3025(XREF 1n2.4), .3025(XREF 2S), .3025(XREF 2n1.4), .3025(XREF 2K), .3025(XREF 2n2.4), .31115(XREF 1S), .31115(XREF 1n1.3)
    .31115(XREF 1K), .31115(XREF 1n2.3), .31115(XREF 2S), .31115(XREF 2n1.4), .31115(XREF 2K), .31115(XREF 2n2.4), .32101(XREF 1n1.3), .32101(XREF 1n1.4), .32101(XREF 2n1.3), .32101(XREF 2n1.4)
    .32102(XREF 1n1.3), .32102(XREF 1n1.4), .32102(XREF 2n1.3), .32102(XREF 2n1.4), .32102(XREF 3n1.3), .32102(XREF 3n1.4), .32102(XREF 5S), .32102(XREF 5n1.3), .32103(XREF 1n1.3), .32103(XREF 1n1.4)
    .32103(XREF 2n1.3), .32103(XREF 2n1.4), .32201(XREF 1n1.3), .32201(XREF 1n1.4), .32201(XREF 2n1.3), .32201(XREF 2n1.4), .32201(XREF 3S), .32201(XREF 3n1.4), .32201(XREF 3K), .32201(XREF 3n2.4)
    .322013(XREF 1n1.3), .322013(XREF 1n1.4), .322013(XREF 1K), .322013(XREF 1n2.4), .322013(XREF 2n1.3), .322013(XREF 2n1.4), .322013(XREF 2K), .322013(XREF 2n2.4), .322016(XREF 1n1.3), .322016(XREF 1n1.4)
    .322016(XREF 2n1.3), .322016(XREF 2n1.4), .322016(XREF 3S), .322016(XREF 3n1.4), .322016(XREF 3K), .322016(XREF 3n2.4), .322019(XREF 1n1.3), .322019(XREF 1n1.4), .322019(XREF 2n1.3), .322019(XREF 2n1.4)
    .3221(XREF 1n1.3), .3221(XREF 1n1.4), .3221(XREF 2n1.3), .3221(XREF 2n1.4), .3224(XREF 1n1.3), .3224(XREF 1n1.4), .3224(XREF 2n1.3), .3224(XREF 2n1.4), .3227(XREF 1n1.3), .3227(XREF 1n1.4)
    .3227(XREF 2n1.3), .3227(XREF 2n1.4), .323(XREF 2n1.3), .323(XREF 2n1.4), .3285(XREF 2n1.3), .3285(XREF 2n1.4), .3285(XREF 3S), .3285(XREF 3n1.4), .3285(XREF 3K), .3285(XREF 3n2.3)
    .32945(XREF 2S), .32945(XREF 2n1.3), .32945(XREF 2K), .32945(XREF 2n2.3), .3296(XREF 3S), .3296(XREF 3K), .351(XREF 1S), .351(XREF 1n1.4), .351(XREF 1K), .351(XREF 1n2.4)
    .351(XREF 2S), .351(XREF 2n1.4), .361(XREF 2S), .361(XREF 2n1.4), .361(XREF 2K), .3611(XREF 1S), .3611(XREF 1n1.3), .3611(XREF 1n1.4), .3611(XREF 1n2.3), .3611(XREF 1n2.4)
    .3611(XREF 2S), .3611(XREF 2n1.4), .3612(XREF 1S), .3612(XREF 1n1.4), .36205(XREF 1n1.3), .36205(XREF 1n1.4), .36205(XREF 1n2.3), .36205(XREF 1n2.4), .36205(XREF 3S), .36205(XREF 3n1.4)
    .36205(XREF 3K), .36205(XREF 3n2.4), .36215(XREF 1n1.3), .36215(XREF 1n1.4), .36215(XREF 1n2.3), .36215(XREF 1n2.4), .36215(XREF 3S), .36215(XREF 3n1.4), .36215(XREF 3K), .36215(XREF 3n2.4)
    .36225(XREF 1n1.3), .36225(XREF 1n1.4), .36225(XREF 1n2.3), .36225(XREF 1n2.4), .36235(XREF 1n1.3), .36235(XREF 1n1.4), .36235(XREF 1n2.3), .36235(XREF 1n2.4), .36235(XREF 3S), .36235(XREF 3n1.4)
    .36235(XREF 3K), .36235(XREF 3n2.4), .36255(XREF 1n1.3), .36255(XREF 1n1.4), .36255(XREF 1n2.3), .36255(XREF 1n2.4), .36265(XREF 1n1.3), .36265(XREF 1n1.4), .36265(XREF 1n2.3), .36265(XREF 1n2.4)
    .525(XREF 1n1.3), .525(XREF 1n1.4), .525(XREF 2n1.3), .525(XREF 2n1.4), .525(XREF 3n1.3), .525(XREF 3n1.4), .5291(XREF 1n1.3), .5291(XREF 1n1.4), .5291(XREF 1n2.3), .5291(XREF 1n2.4)
    .5291(XREF 2n1.3), .5291(XREF 2n1.4), .5291(XREF 2n2.3), .5291(XREF 2n2.4), .5291(XREF 3n1.3), .5291(XREF 3n1.4), .5291(XREF 3n2.3), .5291(XREF 3n2.4), .5295(XREF 2S), .5295(XREF 2K)
    401.3(XREF 2S), 401.3(XREF 2n1.4), 401.3(XREF 2K), 401.3(XREF 2n2.4), 1010.15(XREF 1n1.3), 1010.15(XREF 1n1.4), 1010.15(XREF 1n2.3), 1010.15(XREF 1n2.4), 1010.151(XREF 1K), 1010.151(XREF 1n2.4)
    1010.151(XREF 2K), 1010.151(XREF 2n2.4), 1010.153(XREF 1K), 1010.153(XREF 1n2.4), 1901(XREF 3n1.3), 1901(XREF 3n1.4)
    DIV(1 .361(XREF 2n1.4), .361(XREF 2K), .361(XREF 2n89.4), .361(XREF 2n99.3)
    >> DPTX .09+1
    DT .03+1, .033OF9.2+1, .033OF9.4+1, .104(HELP ), .1041(HELP ), .1417+1, .152+1, .153+1, .2516+1, .3014+1
    , .306+1, .31116+1, .32107+1, .32108+1, .32109+1, .32111+1, .322+1, .322011+1, .322012+1, .322014+1
    , .322015+1, .32202+1, .322021+1, .326+1, .327+1, .3292+1, .3293+1, .3297+1, .3298+1, .3612+1
    , .3614+1, .392+1, .527+1, .528+1, .5293+1, .5294+1, .5295(XREF 2S), .5295(XREF 2K), 1010.151+1, 1010.153+1
    DUZ .118(XREF 2S), .118(XREF 2K), .119(XREF 1S), .119(XREF 1K), .1311(XREF 1S), .1311(XREF 1K), .1313(XREF 1S), .1313(XREF 1K), .137(XREF 1S), .137(XREF 1K)
    .14112(XREF 2S), .14112(XREF 2K), .351(XREF 2n1.1), .3611(XREF 1n1.1), .3612(XREF 1S)
    DUZ(2 9999999.1402+1, 999999999+1
    >> I(0 .19+1, .19OF9.2+1*, .361(XREF 2S), .361(XREF 2n2.2), .361(XREF 2n89.2), .361(XREF 2n99.2)
    >> I(1 .361(XREF 2S), .361(XREF 2n2.2), .361(XREF 2n89.2), .361(XREF 2n99.2)
    IVMKILL .02(XREF 301K), .03(XREF 301K), .09(XREF 301K)
    IVMX .01(XREF 301S), .01(XREF 301K), .02(XREF 301S), .02(XREF 301K), .03(XREF 301S), .03(XREF 301K), .09(XREF 301S), .09(XREF 301K), .111(XREF 301S), .111(XREF 301K)
    .1112(XREF 301S), .1112(XREF 301K), .112(XREF 301S), .112(XREF 301K), .113(XREF 301S), .113(XREF 301K), .114(XREF 301S), .114(XREF 301K), .115(XREF 301S), .115(XREF 301K)
    .117(XREF 301S), .117(XREF 301K), .131(XREF 301S), .131(XREF 301K), .132(XREF 301S), .132(XREF 301K), .351(XREF 301S), .351(XREF 301K)
    >> L .313+1*, .328+1*, .3294+1*, .3299+1*
    NX .363(XREF 391S), .363(XREF 391K)
    PPP .09(XREF 9S), .09(XREF 9K)
    PX .09(XREF 800S), .09(XREF 800K)
    RCX .351(XREF 7S), .351(XREF 7K)
    REG .363(XREF 391S), .363(XREF 391K)
    >> RGRSICN 991.01+1
    >> SD1 .326+1*, .327+1*, .3292+1*, .3293+1*, .3297+1*, .3298+1*
    U W+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 999999901S), .02(XREF 999999901S), .03(XREF 2S), .03(XREF 2n1.4), .033OF9.3+1, .033OF9.5+1, .09(XREF 2S)
    .09(XREF 2n1.4), .09(XREF 10S), .09(XREF 10n1.4), .0901+1, .0905OF9.2+1, .111(XREF 4S), .111(XREF 4K), .1112(XREF 3S), .1112(XREF 3K), .112(XREF 4S)
    .112(XREF 4K), .113(XREF 3S), .113(XREF 3K), .114(XREF 3S), .114(XREF 3K), .115(XREF 1K), .115(XREF 1n2.4), .115(XREF 4S), .115(XREF 4K), .116(XREF 3S)
    .116(XREF 3K), .117(HELP ), .118(XREF 1S), .118(XREF 1K), .118(XREF 2S), .118(XREF 2K), .119(XREF 1S), .119(XREF 1n1.3), .119(XREF 1n1.4), .119(XREF 1K)
    .119(XREF 1n2.3), .119(XREF 1n2.4), .121(XREF 2S), .121(XREF 2K), .1311(XREF 1S), .1311(XREF 1n1.3), .1311(XREF 1n1.4), .1311(XREF 1K), .1311(XREF 1n2.3), .1311(XREF 1n2.4)
    .1312(XREF 1S), .1312(XREF 1K), .1313(XREF 1S), .1313(XREF 1n1.3), .1313(XREF 1n1.4), .1313(XREF 1K), .1313(XREF 1n2.3), .1313(XREF 1n2.4), .133(XREF 1S), .133(XREF 1K)
    .134(XREF 1S), .134(XREF 1K), .135(XREF 1S), .135(XREF 1K), .136(XREF 1S), .136(XREF 1K), .137(XREF 1S), .137(XREF 1n1.3), .137(XREF 1n1.4), .137(XREF 1K)
    .137(XREF 1n2.3), .137(XREF 1n2.4), .139(XREF 1S), .139(XREF 1K), .14112(XREF 2S), .14112(XREF 2n1.4), .14112(XREF 2K), .14112(XREF 2n2.4), .152(XREF 1S), .152(XREF 1n1.4)
    .152(XREF 1K), .152(XREF 1n2.4), .19+1, .2403(XREF 999999901S), .2515(XREF 1S), .2515(XREF 1n1.4), .2515(XREF 1K), .2515(XREF 1n2.4), .2515(XREF 2S), .2515(XREF 2n1.3)
    .2515(XREF 2K), .301(XREF 1S), .301(XREF 1n1.3), .301(XREF 1n1.4), .301(XREF 2S), .301(XREF 2n1.3), .301(XREF 2n1.4), .302+1, .302DEL1+1, .3025(XREF 1S)
    .3025(XREF 1n1.3), .3025(XREF 1n1.4), .3025(XREF 1K), .3025(XREF 1n2.3), .3025(XREF 1n2.4), .3025(XREF 2S), .3025(XREF 2n1.4), .3025(XREF 2K), .3025(XREF 2n2.4), .303OF9.2+1
    , .303OF9.3+1, .303OF9.4+1, .309SCR+1, .31115(XREF 1S), .31115(XREF 1n1.3), .31115(XREF 1K), .31115(XREF 1n2.3), .31115(XREF 2S), .31115(XREF 2n1.4), .31115(XREF 2K)
    .31115(XREF 2n2.4), .313+1, .32101(XREF 1S), .32101(XREF 1n1.3), .32101(XREF 1n1.4), .32101(XREF 2S), .32101(XREF 2n1.3), .32101(XREF 2n1.4), .32102(XREF 1S), .32102(XREF 1n1.3)
    .32102(XREF 1n1.4), .32102(XREF 2S), .32102(XREF 2n1.3), .32102(XREF 2n1.4), .32102(XREF 3S), .32102(XREF 3n1.3), .32102(XREF 3n1.4), .32102(XREF 5S), .32102(XREF 5n1.3), .32103(XREF 1S)
    .32103(XREF 1n1.3), .32103(XREF 1n1.4), .32103(XREF 2S), .32103(XREF 2n1.3), .32103(XREF 2n1.4), .32201(XREF 1S), .32201(XREF 1n1.3), .32201(XREF 1n1.4), .32201(XREF 2S), .32201(XREF 2n1.3)
    .32201(XREF 2n1.4), .32201(XREF 3S), .32201(XREF 3n1.4), .32201(XREF 3K), .32201(XREF 3n2.4), .32201(XREF 3n69.2), .32201(XREF 3n69.3), .32201(XREF 3n79.2), .32201(XREF 3n79.3), .322013(XREF 1S)
    .322013(XREF 1n1.3), .322013(XREF 1n1.4), .322013(XREF 1K), .322013(XREF 1n2.4), .322013(XREF 2S), .322013(XREF 2n1.3), .322013(XREF 2n1.4), .322013(XREF 2K), .322013(XREF 2n2.4), .322016(XREF 1S)
    .322016(XREF 1n1.3), .322016(XREF 1n1.4), .322016(XREF 2S), .322016(XREF 2n1.3), .322016(XREF 2n1.4), .322016(XREF 3S), .322016(XREF 3n1.4), .322016(XREF 3K), .322016(XREF 3n2.4), .322016(XREF 3n69.2)
    .322016(XREF 3n69.3), .322016(XREF 3n79.2), .322016(XREF 3n79.3), .322017+1, .322019(XREF 1S), .322019(XREF 1n1.3), .322019(XREF 1n1.4), .322019(XREF 2S), .322019(XREF 2n1.3), .322019(XREF 2n1.4)
    , .32202+1, .3221(XREF 1S), .3221(XREF 1n1.3), .3221(XREF 1n1.4), .3221(XREF 2S), .3221(XREF 2n1.3), .3221(XREF 2n1.4), .3224(XREF 1S), .3224(XREF 1n1.3), .3224(XREF 1n1.4)
    .3224(XREF 2S), .3224(XREF 2n1.3), .3224(XREF 2n1.4), .3227(XREF 1S), .3227(XREF 1n1.3), .3227(XREF 1n1.4), .3227(XREF 2S), .3227(XREF 2n1.3), .3227(XREF 2n1.4), .323(XREF 2S)
    .323(XREF 2n1.4), .325(XREF 2K), .328+1, .3285(XREF 2S), .3285(XREF 2n1.3), .3285(XREF 2n1.4), .3285(XREF 3S), .3285(XREF 3n1.4), .3285(XREF 3K), .3285(XREF 3n2.3)
    .3291(XREF 1K), .3294+1, .32945(XREF 2S), .32945(XREF 2n1.3), .32945(XREF 2K), .32945(XREF 2n2.3), .3296(XREF 1K), .3296(XREF 3S), .3296(XREF 3K), .3299+1
    .351(XREF 1S), .351(XREF 1n1.4), .351(XREF 1K), .351(XREF 1n2.4), .351(XREF 2S), .351(XREF 2n1.4), .361(XREF 2S), .361(XREF 2n1.4), .361(XREF 2n2.2), .361(XREF 2n89.2)
    .361(XREF 2n99.2), .3611(XREF 1S), .3611(XREF 1n1.3), .3611(XREF 1n1.4), .3611(XREF 1n2.3), .3611(XREF 1n2.4), .3611(XREF 2S), .3611(XREF 2n1.4), .3612(XREF 1S), .3612(XREF 1n1.4)
    .36205(XREF 1S), .36205(XREF 1n1.3), .36205(XREF 1n1.4), .36205(XREF 1K), .36205(XREF 1n2.3), .36205(XREF 1n2.4), .36205(XREF 3S), .36205(XREF 3n1.4), .36205(XREF 3K), .36205(XREF 3n2.4)
    , .3621+1, .3621OF9.2+1, .36215(XREF 1S), .36215(XREF 1n1.3), .36215(XREF 1n1.4), .36215(XREF 1K), .36215(XREF 1n2.3), .36215(XREF 1n2.4), .36215(XREF 3S), .36215(XREF 3n1.4)
    .36215(XREF 3K), .36215(XREF 3n2.4), .3622+1, .3622OF9.2+1, .36225(XREF 1S), .36225(XREF 1n1.3), .36225(XREF 1n1.4), .36225(XREF 1K), .36225(XREF 1n2.3), .36225(XREF 1n2.4)
    , .3623OF9.2+1, .3623OF9.3+1, .36235(XREF 1S), .36235(XREF 1n1.3), .36235(XREF 1n1.4), .36235(XREF 1K), .36235(XREF 1n2.3), .36235(XREF 1n2.4), .36235(XREF 3S), .36235(XREF 3n1.4)
    .36235(XREF 3K), .36235(XREF 3n2.4), .3624OF9.2+1, .3624OF9.3+1, .3624OF9.4+1, .3625+1, .3625OF9.2+1, .36255(XREF 1S), .36255(XREF 1n1.3), .36255(XREF 1n1.4)
    .36255(XREF 1K), .36255(XREF 1n2.3), .36255(XREF 1n2.4), .3626+1, .3626OF9.2+1, .36265(XREF 1S), .36265(XREF 1n1.3), .36265(XREF 1n1.4), .36265(XREF 1K), .36265(XREF 1n2.3)
    .36265(XREF 1n2.4), .525(XREF 1S), .525(XREF 1n1.3), .525(XREF 1n1.4), .525(XREF 2S), .525(XREF 2n1.3), .525(XREF 2n1.4), .525(XREF 3S), .525(XREF 3n1.3), .525(XREF 3n1.4)
    .5291(XREF 1S), .5291(XREF 1n1.3), .5291(XREF 1n1.4), .5291(XREF 1n2.3), .5291(XREF 1n2.4), .5291(XREF 2S), .5291(XREF 2n1.3), .5291(XREF 2n1.4), .5291(XREF 2n2.3), .5291(XREF 2n2.4)
    .5291(XREF 3S), .5291(XREF 3n1.3), .5291(XREF 3n1.4), .5291(XREF 3n2.3), .5291(XREF 3n2.4), .5295(XREF 2S), .5295(XREF 2K), 401.3(XREF 2S), 401.3(XREF 2n1.4), 401.3(XREF 2K)
    401.3(XREF 2n2.4), 999+1, 999.1+1, 999.2+1, 1010.15(XREF 1S), 1010.15(XREF 1n1.3), 1010.15(XREF 1n1.4), 1010.15(XREF 1n2.3), 1010.15(XREF 1n2.4), 1010.151(XREF 1K)
    1010.151(XREF 1n2.4), 1010.151(XREF 2K), 1010.151(XREF 2n2.4), 1010.153(XREF 1K), 1010.153(XREF 1n2.4), 1901(XREF 3S), 1901(XREF 3n1.3), 1901(XREF 3n1.4), 999999999+1
    VADFN .09(XREF 8S), .09(XREF 8K)
    >> VAFCF .01(XREF 991S), .01(XREF 991K), .02(XREF 991S), .02(XREF 991K), .03(XREF 991S), .03(XREF 991K), .05(XREF 991S), .05(XREF 991K), .08(XREF 991S), .08(XREF 991K)
    .09(XREF 991S), .09(XREF 991K), .092(XREF 991S), .092(XREF 991K), .093(XREF 991S), .093(XREF 991K), .111(XREF 991S), .111(XREF 991K), .1112(XREF 991S), .1112(XREF 991K)
    .112(XREF 991S), .112(XREF 991K), .113(XREF 991S), .113(XREF 991K), .114(XREF 991S), .114(XREF 991K), .115(XREF 991S), .115(XREF 991K), .117(XREF 991S), .117(XREF 991K)
    .131(XREF 991S), .131(XREF 991K), .132(XREF 991S), .132(XREF 991K), .211(XREF 991S), .211(XREF 991K), .219(XREF 991S), .219(XREF 991K), .2403(XREF 991S), .2403(XREF 991K)
    .301(XREF 991S), .301(XREF 991K), .31115(XREF 991S), .31115(XREF 991K), .313(XREF 991S), .313(XREF 991K), .323(XREF 991S), .323(XREF 991K), .351(XREF 991S), .351(XREF 991K)
    391(XREF 991S), 391(XREF 991K), 1901(XREF 991S), 1901(XREF 991K)
    >> VAFCNO .01(XREF 992S), .01(XREF 992K)
    >> VAFHBEF .363(XREF 391K)
    VAFHDFN .363(XREF 391S), .363(XREF 391K)
    >> VAFHMRG .363(XREF 391K)
    VAR .134+1~*, .135+1~*
    X .01+1!*, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 301S), .01(XREF 301K), .01(XREF 999999901S), .02(XREF 1S), .02(XREF 1K)
    .02(XREF 301S), .02(XREF 301K), .02(XREF 999999901S), .03+1*!, .03OT+1*, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2n1.4), .03(XREF 301S)
    .03(XREF 301K), .033+1*, .033OF9.2+1*, .033OF9.3+1*, .033OF9.4+1*, .033OF9.5+1*, .06+1!, .06(XREF 9991S), .06(XREF 9991K), .07+1!
    , .081+1*, .09+1!, .09(XREF 1S), .09(XREF 1K), .09(XREF 2S), .09(XREF 2n1.4), .09(XREF 3S), .09(XREF 3K), .09(XREF 5S), .09(XREF 7S)
    .09(XREF 7K), .09(XREF 9S), .09(XREF 9K), .09(XREF 10S), .09(XREF 10n1.4), .09(XREF 301S), .09(XREF 301K), .09(XREF 800S), .09(XREF 800K), .0901+1*
    , .0905+1*, .0905OF9.2+1*, .091+1!, .092+1!, .097+1*!, .1+1!, .1(XREF 1K), .1(XREF 2S), .1(XREF 2K), .1(XREF 3S)
    .1(XREF 3K), .101+1!, .101(XREF 1S), .101(XREF 1K), .102+1*!, .103(XREF 1S), .103(XREF 1K), .104+1*!, .104(XREF 1S), .104(XREF 1K)
    , .1041+1*!, .1041(XREF 1S), .1041(XREF 1K), .105+1*!, .105(XREF 1S), .105(XREF 1K), .106+1!, .107+1!, .107(XREF 1K), .111+1!
    .111(XREF 4S), .111(XREF 4K), .111(XREF 301S), .111(XREF 301K), .1112+1!, .1112(XREF 1S), .1112(XREF 1K), .1112(XREF 3S), .1112(XREF 3K), .1112(XREF 301S)
    .1112(XREF 301K), .112+1!, .112(XREF 4S), .112(XREF 4K), .112(XREF 301S), .112(XREF 301K), .113+1!, .113(XREF 3S), .113(XREF 3K), .113(XREF 301S)
    .113(XREF 301K), .114+1!, .114(XREF 3S), .114(XREF 3K), .114(XREF 301S), .114(XREF 301K), .115(XREF 1K), .115(XREF 1n2.4), .115(XREF 4S), .115(XREF 4K)
    .115(XREF 301S), .115(XREF 301K), .116+1!, .116(XREF 2S), .116(XREF 2K), .116(XREF 3S), .116(XREF 3K), .117+1!*, .117(HELP ), .117(XREF 301S)
    .117(XREF 301K), .118+1*!, .118(XREF 1S), .118(XREF 1K), .118(XREF 2S), .118(XREF 2K), .119(XREF 1S), .119(XREF 1n1.3), .119(XREF 1n1.4), .119(XREF 1K)
    .119(XREF 1n2.3), .119(XREF 1n2.4), .121(XREF 2S), .121(XREF 2K), .1211+1!, .1211DEL1+1, .12111+1!*, .12111(HELP ), .12112+1!, .12112DEL1+1
    .12112(XREF 1S), .12112(XREF 1K), .12113+1*!, .1212+1!, .1213+1!, .1214+1!, .1214DEL1+1, .1215DEL1+1, .1216+1!, .1216DEL1+1
    .1216(XREF 1S), .1216(XREF 1K), .1217+1*!, .1217DEL1+1, .1218+1*!, .1218DEL1+1, .1219+1!, .131+1!, .131(XREF 301S), .131(XREF 301K)
    .1311(XREF 1S), .1311(XREF 1n1.3), .1311(XREF 1n1.4), .1311(XREF 1K), .1311(XREF 1n2.3), .1311(XREF 1n2.4), .1312+1*!, .1312(XREF 1S), .1312(XREF 1K), .1313(XREF 1S)
    .1313(XREF 1n1.3), .1313(XREF 1n1.4), .1313(XREF 1K), .1313(XREF 1n2.3), .1313(XREF 1n2.4), .132+1!, .132(XREF 301S), .132(XREF 301K), .133+1!, .133(XREF 1S)
    .133(XREF 1K), .134+1!, .134(XREF 1S), .134(XREF 1K), .135+1!, .135(XREF 1S), .135(XREF 1K), .136+1*!, .136(XREF 1S), .136(XREF 1K)
    .137(XREF 1S), .137(XREF 1n1.3), .137(XREF 1n1.4), .137(XREF 1K), .137(XREF 1n2.3), .137(XREF 1n2.4), .139+1*!, .139(XREF 1S), .139(XREF 1K), .14(XREF 1S)
    .14(XREF 1K), .1411+1!, .1411DEL1+1, .14111+1!*, .14111(HELP ), .14112+1*!, .14112(XREF 2S), .14112(XREF 2n1.4), .14112(XREF 2K), .14112(XREF 2n2.4)
    , .1412+1!, .1413+1!, .1414+1!, .1414DEL1+1, .1415DEL1+1, .1416+1!, .1416DEL1+1, .1417+1*!, .1417DEL1+1, .1418+1*!
    , .1418DEL1+1, .152+1*!, .152DEL1+1, .152(XREF 1S), .152(XREF 1n1.1), .152(XREF 1n1.4), .152(XREF 1K), .152(XREF 1n2.1), .152(XREF 1n2.4), .153+1*!
    , .1651DEL1+1, .1653+1!, .1653DEL1+1, .1654DEL1+1, .1656+1!, .1656DEL1+1, .1658+1!, .181(XREF 1S), .181(XREF 1K), .19+1*
    , .19OF9.2+1*, .21011+1!, .21012+1*!, .211+1!*, .211011+1!, .211012+1*!, .212+1!, .212DEL1+1, .2125DEL1+1, .213+1!
    , .213DEL1+1, .214+1!, .215+1!, .216+1!, .216DEL1+1, .217+1, .217DEL1+1, .218+1!, .218DEL1+1, .218(XREF 1S)
    .218(XREF 1K), .219+1!, .2191+1!*, .2192+1!, .2192DEL1+1, .2193+1!, .2193DEL1+1, .2194+1!, .2195+1!, .2196+1!
    , .2196DEL1+1, .2197+1, .2197DEL1+1, .2198+1!, .2198DEL1+1, .2198(XREF 1S), .2198(XREF 1K), .2199+1!, .2201+1!, .2201DEL1+1
    .2201(XREF 1S), .2201(XREF 1K), .2202+1!, .2202DEL1+1, .2202(XREF 1S), .2202(XREF 1K), .2203+1!, .2203DEL1+1, .2203(XREF 1S), .2203(XREF 1K)
    , .2204+1!, .2204DEL1+1, .2204(XREF 1S), .2204(XREF 1K), .2205+1!, .2205DEL1+1, .2205(XREF 1S), .2205(XREF 1K), .2206+1!, .2206DEL1+1
    .2206(XREF 1S), .2206(XREF 1K), .2207+1!, .2207DEL1+1, .2207(XREF 1S), .2207(XREF 1K), .2401+1!*, .2402+1!*, .2403+1!*, .2403(XREF 999999901S)
    , .251+1!, .2514+1!, .2515(XREF 1S), .2515(XREF 1n1.4), .2515(XREF 1K), .2515(XREF 1n2.4), .2515(XREF 2S), .2515(XREF 2n1.3), .2515(XREF 2K), .2516+1*!
    , .252+1!, .252DEL1+1, .253+1!, .254+1!, .255+1!, .255DEL1+1, .256DEL1+1, .257+1!, .257DEL1+1, .257(XREF 1S)
    .257(XREF 1K), .258+1!, .290012+1!, .290012(XREF 1S), .290012(XREF 1K), .29013+1!, .29013(XREF 1S), .29013(XREF 1K), .291+1*!, .2912+1!
    , .2913+1!, .2914+1!, .2915+1!, .2916+1!, .2918+1!, .2918(XREF 1S), .2918(XREF 1K), .2919+1!, .292+1*!, .2921+1!
    , .2922+1!, .2923+1!, .2924+1!, .2925+1!, .2926+1!, .2928+1!, .2928(XREF 1S), .2928(XREF 1K), .2929+1!, .301DEL1+1
    .301(XREF 1S), .301(XREF 1n1.3), .301(XREF 1n1.4), .301(XREF 2S), .301(XREF 2n1.3), .301(XREF 2n1.4), .3012+1*!, .3014+1*!, .302+1!, .302DEL1+1!
    , .3025DEL1+1, .3025(XREF 1S), .3025(XREF 1n1.3), .3025(XREF 1n1.4), .3025(XREF 1K), .3025(XREF 1n2.3), .3025(XREF 1n2.4), .3025(XREF 2S), .3025(XREF 2n1.4), .3025(XREF 2K)
    .3025(XREF 2n2.4), .303+1!, .303OF9.2+1!, .303OF9.3+1!, .303OF9.4+1!, .303DEL1+1, .306+1*!, .306DEL1+1, .307+1!, .307DEL1+1
    , .309DEL1+1, .31(XREF 1S), .31(XREF 1K), .3111+1!, .31115(XREF 1S), .31115(XREF 1n1.3), .31115(XREF 1K), .31115(XREF 1n2.3), .31115(XREF 2S), .31115(XREF 2n1.4)
    .31115(XREF 2K), .31115(XREF 2n2.4), .31116+1*!, .3112DEL1+1, .3113+1!, .3113DEL1+1, .3114+1!, .3115+1!, .3116+1!, .3116DEL1+1
    , .3117+1, .3117DEL1+1, .3118+1!, .3118DEL1+1, .3118(XREF 1S), .3118(XREF 1K), .3119+1!, .312+1!, .313+1*!, .313DEL1+1
    , .314+1*!, .32101DEL1+1, .32101(XREF 1S), .32101(XREF 1n1.3), .32101(XREF 1n1.4), .32101(XREF 2S), .32101(XREF 2n1.3), .32101(XREF 2n1.4), .32102(XREF 1S), .32102(XREF 1n1.3)
    .32102(XREF 1n1.4), .32102(XREF 2S), .32102(XREF 2n1.3), .32102(XREF 2n1.4), .32102(XREF 3S), .32102(XREF 3n1.3), .32102(XREF 3n1.4), .32102(XREF 5S), .32102(XREF 5n1.3), .32103(XREF 1S)
    .32103(XREF 1n1.3), .32103(XREF 1n1.4), .32103(XREF 2S), .32103(XREF 2n1.3), .32103(XREF 2n1.4), .32104+1*!, .32104DEL1+1, .32105+1*!, .32105DEL1+1, .32107+1*!
    , .32107DEL1+1, .32108+1*!, .32108DEL1+1, .32109+1*!, .32109DEL1+1, .3211+1!, .3211DEL1+1, .32111+1*!, .32111DEL1+1, .3212DEL1+1
    , .3213DEL1+1, .322+1*!, .322DEL1+1, .32201DEL1+1, .32201(XREF 1S), .32201(XREF 1n1.3), .32201(XREF 1n1.4), .32201(XREF 2S), .32201(XREF 2n1.3), .32201(XREF 2n1.4)
    .32201(XREF 3S), .32201(XREF 3n1.4), .32201(XREF 3K), .32201(XREF 3n2.4), .32201(XREF 3n69.3), .32201(XREF 3n79.3), .322011+1*!, .322011DEL1+1, .322012+1*!, .322012DEL1+1
    .322013(XREF 1S), .322013(XREF 1n1.3), .322013(XREF 1n1.4), .322013(XREF 1K), .322013(XREF 1n2.4), .322013(XREF 2S), .322013(XREF 2n1.3), .322013(XREF 2n1.4), .322013(XREF 2K), .322013(XREF 2n2.4)
    , .322014+1*!, .322015+1*!, .322016(XREF 1S), .322016(XREF 1n1.3), .322016(XREF 1n1.4), .322016(XREF 2S), .322016(XREF 2n1.3), .322016(XREF 2n1.4), .322016(XREF 3S), .322016(XREF 3n1.4)
    .322016(XREF 3K), .322016(XREF 3n2.4), .322016(XREF 3n69.3), .322016(XREF 3n79.3), .322017+1*!, .322018+1*!, .322019(XREF 1S), .322019(XREF 1n1.3), .322019(XREF 1n1.4), .322019(XREF 2S)
    .322019(XREF 2n1.3), .322019(XREF 2n1.4), .32202+1*!, .322021+1*!, .3221DEL1+1, .3221(XREF 1S), .3221(XREF 1n1.3), .3221(XREF 1n1.4), .3221(XREF 2S), .3221(XREF 2n1.3)
    .3221(XREF 2n1.4), .3222+1*!, .3222DEL1+1, .3223+1*!, .3223DEL1+1, .3224DEL1+1, .3224(XREF 1S), .3224(XREF 1n1.3), .3224(XREF 1n1.4), .3224(XREF 2S)
    .3224(XREF 2n1.3), .3224(XREF 2n1.4), .3225+1*!, .3225DEL1+1, .3226+1*!, .3226DEL1+1, .3227DEL1+1, .3227(XREF 1S), .3227(XREF 1n1.3), .3227(XREF 1n1.4)
    .3227(XREF 2S), .3227(XREF 2n1.3), .3227(XREF 2n1.4), .3228+1*!, .3228DEL1+1, .3229+1*!, .3229DEL1+1, .323DEL1+1, .323(XREF 1S), .323(XREF 1K)
    .323(XREF 2S), .323(XREF 2n1.1), .323(XREF 2n1.3), .323(XREF 2n1.4), .324DEL1+1, .325DEL1+1, .326+1*!, .326DEL1+1, .327+1*!, .327DEL1+1
    , .328+1*!, .328DEL1+1, .3285DEL1+1, .3285(XREF 1S), .3285(XREF 2S), .3285(XREF 2n1.3), .3285(XREF 2n1.4), .3285(XREF 3S), .3285(XREF 3n1.4), .3285(XREF 3K)
    .3285(XREF 3n2.3), .329DEL1+1, .3291DEL1+1, .3292+1*!, .3292DEL1+1, .3293+1*!, .3293DEL1+1, .3294+1*!, .3294DEL1+1, .32945DEL1+1
    .32945(XREF 1S), .32945(XREF 2S), .32945(XREF 2n1.3), .32945(XREF 2K), .32945(XREF 2n2.3), .3295DEL1+1, .3296DEL1+1, .3296(XREF 3S), .3296(XREF 3K), .3297+1*!
    , .3297DEL1+1, .3298+1*!, .3298DEL1+1, .3299+1*!, .3299DEL1+1, .33011+1!, .33012+1*!, .331+1!*, .331011+1!, .3311+1!*
    , .33112+1*!, .3312+1!, .3312DEL1+1, .3313+1!, .3313DEL1+1, .3314+1!, .3315+1!, .3316+1!, .3316DEL1+1, .3317+1
    , .3317DEL1+1, .3318+1!, .3318DEL1+1, .3318(XREF 1S), .3318(XREF 1K), .3319+1!, .332+1!, .332DEL1+1, .333+1!, .333DEL1+1
    , .334+1!, .335+1!, .336+1!, .336DEL1+1, .337+1, .337DEL1+1, .338+1!, .338DEL1+1, .338(XREF 1S), .338(XREF 1K)
    , .339+1!, .34011+1!, .341+1!*, .3412+1*!, .342+1!, .342DEL1+1, .343+1!, .343DEL1+1, .344+1!, .345+1!
    , .346+1!, .346DEL1+1, .347+1, .347DEL1+1, .348+1!, .348DEL1+1, .348(XREF 1S), .348(XREF 1K), .349+1!, .351+1*!
    .351(XREF 1S), .351(XREF 1n1.1), .351(XREF 1n1.4), .351(XREF 1K), .351(XREF 1n2.1), .351(XREF 1n2.4), .351(XREF 1n49.2), .351(XREF 1n59.2), .351(XREF 2S), .351(XREF 2n1.1)
    .351(XREF 2n1.4), .351(XREF 3S), .351(XREF 4S), .351(XREF 4K), .351(XREF 6S), .351(XREF 7S), .351(XREF 7K), .351(XREF 301S), .351(XREF 301K), .354+1*!
    , .3601+1*!, .3601(XREF 1S), .3601(XREF 1K), .3601(XREF 999999901S), .3601(XREF 999999901K), .361+1, .361DEL1+1, .361(XREF 2S), .361(XREF 2n1.4), .361(XREF 2K)
    .361(XREF 2n2.2), .361(XREF 2n89.2), .361(XREF 2n89.3), .361(XREF 2n99.2), .361(XREF 2n99.3), .361(XREF 3K), .361(XREF 4S), .361(XREF 4K), .3611DEL1+1, .3611(XREF 1S)
    .3611(XREF 1n1.1), .3611(XREF 1n1.3), .3611(XREF 1n1.4), .3611(XREF 1n2.3), .3611(XREF 1n2.4), .3611(XREF 2S), .3611(XREF 2n1.4), .3612+1*!, .3612DEL1+1, .3612(XREF 1S)
    .3612(XREF 1n1.4), .3614+1*!, .3614DEL1+1, .3615+1!, .3615DEL1+1, .3617+1*!, .36205DEL1+1, .36205(XREF 1S), .36205(XREF 1n1.3), .36205(XREF 1n1.4)
    .36205(XREF 1K), .36205(XREF 1n2.3), .36205(XREF 1n2.4), .36205(XREF 3S), .36205(XREF 3n1.4), .36205(XREF 3K), .36205(XREF 3n2.4), .3621+1!, .3621OF9.2+1!, .3621DEL1+1
    , .36215DEL1+1, .36215(XREF 1S), .36215(XREF 1n1.3), .36215(XREF 1n1.4), .36215(XREF 1K), .36215(XREF 1n2.3), .36215(XREF 1n2.4), .36215(XREF 3S), .36215(XREF 3n1.4), .36215(XREF 3K)
    .36215(XREF 3n2.4), .3622+1!, .3622OF9.2+1!, .3622DEL1+1, .36225DEL1+1, .36225(XREF 1S), .36225(XREF 1n1.3), .36225(XREF 1n1.4), .36225(XREF 1K), .36225(XREF 1n2.3)
    .36225(XREF 1n2.4), .3623+1!, .3623OF9.2+1!, .3623OF9.3+1!, .3623DEL1+1, .36235DEL1+1, .36235(XREF 1S), .36235(XREF 1n1.3), .36235(XREF 1n1.4), .36235(XREF 1K)
    .36235(XREF 1n2.3), .36235(XREF 1n2.4), .36235(XREF 3S), .36235(XREF 3n1.4), .36235(XREF 3K), .36235(XREF 3n2.4), .3624+1!, .3624OF9.2+1!, .3624OF9.3+1!, .3624OF9.4+1!
    , .3624DEL1+1, .3625+1!, .3625OF9.2+1!, .3625DEL1+1, .36255DEL1+1, .36255(XREF 1S), .36255(XREF 1n1.3), .36255(XREF 1n1.4), .36255(XREF 1K), .36255(XREF 1n2.3)
    .36255(XREF 1n2.4), .3626+1!, .3626OF9.2+1!, .3626DEL1+1, .36265DEL1+1, .36265(XREF 1S), .36265(XREF 1n1.3), .36265(XREF 1n1.4), .36265(XREF 1K), .36265(XREF 1n2.3)
    .36265(XREF 1n2.4), .3627+1!, .3627DEL1+1, .3628+1!, .3628DEL1+1, .36285DEL1+1, .3629+1!, .36295+1!, .36295DEL1+1, .363+1!
    .363(XREF 391S), .363(XREF 391K), .364+1!, .382+1*!, .383+1!, .391+1!, .392+1*!, .394+1*!, .3951+1*!, .3952+1*!
    , .3953+1*!, .525DEL1+1, .525(XREF 1S), .525(XREF 1n1.3), .525(XREF 1n1.4), .525(XREF 2S), .525(XREF 2n1.3), .525(XREF 2n1.4), .525(XREF 3S), .525(XREF 3n1.3)
    .525(XREF 3n1.4), .526DEL1+1, .527+1*!, .527DEL1+1, .528+1*!, .528DEL1+1, .5291DEL1+1, .5291(XREF 1S), .5291(XREF 1n1.3), .5291(XREF 1n1.4)
    .5291(XREF 1n2.3), .5291(XREF 1n2.4), .5291(XREF 2S), .5291(XREF 2n1.3), .5291(XREF 2n1.4), .5291(XREF 2n2.3), .5291(XREF 2n2.4), .5291(XREF 3S), .5291(XREF 3n1.3), .5291(XREF 3n1.4)
    .5291(XREF 3n2.3), .5291(XREF 3n2.4), .5292DEL1+1, .5293+1*!, .5293DEL1+1, .5294+1*!, .5294DEL1+1, .5295+1*!, .5295(XREF 2S), .5295(XREF 2K)
    , .5296+1*!, .5296(XREF 1S), .5296(XREF 1K), .531(XREF 1S), .531(XREF 1K), .532(XREF 1S), .532(XREF 1K), .6(XREF 1S), 27.01(XREF 1S), 27.02+1*!
    , 57.1+1!, 57.2+1!, 63+1!, 67+1!, 220.1+1*!, 401.3(XREF 1S), 401.3(XREF 1K), 401.3(XREF 2S), 401.3(XREF 2n1.4), 401.3(XREF 2K)
    401.3(XREF 2n2.4), 401.4+1*!, 404.01+1*!, 991.01+1!, 991.01(XREF 1S), 991.01(XREF 1K), 991.01(XREF 2K), 991.02+1!, 991.03(XREF 1S), 991.03(XREF 1K)
    991.03(XREF 2K), 991.04(XREF 1S), 991.04(XREF 1K), 991.05(XREF 1K), 991.05(XREF 2S), 991.05(XREF 2K), 991.06+1!, 991.06(XREF 1S), 991.06(XREF 1K), 991.07+1*!
    , 999+1*, 999.1+1*, 999.2+1*, 1010.15(XREF 1S), 1010.15(XREF 1n1.3), 1010.15(XREF 1n1.4), 1010.15(XREF 1n2.3), 1010.15(XREF 1n2.4), 1010.151+1*!, 1010.151(XREF 1K)
    1010.151(XREF 1n2.4), 1010.151(XREF 2K), 1010.151(XREF 2n2.4), 1010.1511+1*!, 1010.1511(XREF 2S), 1010.1511(XREF 2K), 1010.153+1*!, 1010.153(XREF 1K), 1010.153(XREF 1n2.4), 1100.01DEL1+1
    1100.01(XREF 1S), 1100.01(XREF 1K), 1100.01(XREF 2S), 1100.01(XREF 2K), 1100.03+1*!, 1100.05+1*!, 1100.09+1!, 1901DEL1+1, 1901(XREF 3S), 1901(XREF 3n1.3)
    1901(XREF 3n1.4), 11500.01+1*!, 11500.03+1*!, 537025+1!, 9999999.1402+1*, 999999999+1*
    >> X1 999.2+1*
    XX .351(XREF 6S)
    Y .01(XREF 999999901S), .02(XREF 999999901S), .03+1, .03OT+1*, .03(XREF 2S), .033+1*, .033OF9.3+1*, .09OT+1*, .09(XREF 2S), .09(XREF 10S)
    , .0905+1*, .097+1, .102+1, .104+1, .1041+1, .105+1, .111(XREF 4S), .111(XREF 4K), .1112OT+1, .1112(XREF 3S)
    .1112(XREF 3K), .112(XREF 4S), .112(XREF 4K), .113(XREF 3S), .113(XREF 3K), .114(XREF 3S), .114(XREF 3K), .115(XREF 1K), .115(XREF 4S), .115(XREF 4K)
    .116(XREF 3S), .116(XREF 3K), .117+1, .117OT+1*, .118+1, .118(XREF 1S), .118(XREF 1K), .118(XREF 2S), .118(XREF 2K), .119(XREF 1S)
    .119(XREF 1K), .121(XREF 2S), .121(XREF 2K), .12111+1, .12111OT+1*, .12112OT+1, .12113+1, .1217+1, .1218+1, .1311(XREF 1S)
    .1311(XREF 1K), .1312+1, .1312(XREF 1S), .1312(XREF 1K), .1313(XREF 1S), .1313(XREF 1K), .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K)
    .135(XREF 1S), .135(XREF 1K), .136+1, .136(XREF 1S), .136(XREF 1K), .137(XREF 1S), .137(XREF 1K), .139+1, .139(XREF 1S), .139(XREF 1K)
    , .14111+1, .14111OT+1*, .14112+1, .14112(XREF 2S), .14112(XREF 2K), .1416OT+1, .1417+1, .1418+1, .152+1, .152(XREF 1S)
    .152(XREF 1K), .152(XREF 1n2.1), .153+1, .19OF9.2+1, .21012+1, .211012+1, .2201OT+1, .2202OT+1, .2203OT+1, .2204OT+1
    , .2205OT+1, .2206OT+1, .2207OT+1, .2403(XREF 999999901S), .2515(XREF 1S), .2515(XREF 1K), .2515(XREF 2S), .2515(XREF 2K), .2516+1, .290012OT+1
    , .29013OT+1, .291+1, .292+1, .301(XREF 1S), .301(XREF 2S), .3012+1, .3014+1, .3025(XREF 1S), .3025(XREF 1K), .3025(XREF 2S)
    .3025(XREF 2K), .306+1, .31115(XREF 1S), .31115(XREF 1K), .31115(XREF 2S), .31115(XREF 2K), .31116+1, .313OT+1*, .314+1, .32101(XREF 1S)
    .32101(XREF 2S), .32102(XREF 1S), .32102(XREF 2S), .32102(XREF 3S), .32102(XREF 5S), .32103(XREF 1S), .32103(XREF 2S), .32104+1, .32105+1, .32107+1
    , .32108+1, .32109+1, .32111+1, .322+1, .32201(XREF 1S), .32201(XREF 2S), .32201(XREF 3S), .32201(XREF 3K), .32201(XREF 3n69.3), .322011+1
    , .322012+1, .322013(XREF 1S), .322013(XREF 1K), .322013(XREF 2S), .322013(XREF 2K), .322014+1, .322015+1, .322016(XREF 1S), .322016(XREF 2S), .322016(XREF 3S)
    .322016(XREF 3K), .322017+1, .322018+1, .322019(XREF 1S), .322019(XREF 2S), .32202+1, .322021+1, .3221(XREF 1S), .3221(XREF 2S), .3222+1
    , .3223+1, .3224(XREF 1S), .3224(XREF 2S), .3225+1, .3226+1, .3227(XREF 1S), .3227(XREF 2S), .3228+1, .3229+1, .323(XREF 2S)
    , .326+1, .327+1, .3285(XREF 2S), .3285(XREF 3S), .3285(XREF 3K), .3292+1, .3293+1, .32945(XREF 2S), .32945(XREF 2K), .3296(XREF 3S)
    .3296(XREF 3K), .3297+1, .3298+1, .33012+1, .33112+1, .3412+1, .351+1, .351(XREF 1S), .351(XREF 1n1.1), .351(XREF 1K)
    .351(XREF 1n2.1), .351(XREF 1n49.2), .351(XREF 2S), .354+1, .3601+1, .361(XREF 2S), .361(XREF 2n2.2), .361(XREF 2n89.2), .361(XREF 2n89.3), .361(XREF 2n89.4)
    .361(XREF 2n99.2), .361(XREF 2n99.3), .3611(XREF 1S), .3611(XREF 2S), .3612+1, .3612(XREF 1S), .3614+1, .3617+1, .36205(XREF 1S), .36205(XREF 1K)
    .36205(XREF 3S), .36205(XREF 3K), .36215(XREF 1S), .36215(XREF 1K), .36215(XREF 3S), .36215(XREF 3K), .36225(XREF 1S), .36225(XREF 1K), .36235(XREF 1S), .36235(XREF 1K)
    .36235(XREF 3S), .36235(XREF 3K), .36255(XREF 1S), .36255(XREF 1K), .36265(XREF 1S), .36265(XREF 1K), .382+1, .392+1, .394+1, .3951+1
    , .3952+1, .3953+1, .525(XREF 1S), .525(XREF 2S), .525(XREF 3S), .527+1, .528+1, .5291(XREF 1S), .5291(XREF 2S), .5291(XREF 3S)
    , .5293+1, .5294+1, .5295+1, .5295(XREF 2S), .5295(XREF 2K), .5296+1, 27.02+1, 220.1+1, 401.3(XREF 2S), 401.3(XREF 2K)
    , 401.4+1, 404.01+1, 991.07+1, 999.2+1*, 1010.15(XREF 1S), 1010.151+1, 1010.151(XREF 1K), 1010.151(XREF 2K), 1010.1511+1, 1010.153+1
    1010.153(XREF 1K), 1100.03+1, 1100.05+1, 1901(XREF 3S), 11500.01+1, 11500.03+1
    Y( .0905+1, .0905OF9.2+1*
    Y(0 .03OT+1*, .09OT+1*, .09(XREF 10S), .1112OT+1*, .117OT+1*, .119(XREF 1n1.3), .119(XREF 1n2.3), .12111OT+1*, .12112OT+1*, .1311(XREF 1n1.3)
    .1311(XREF 1n2.3), .1313(XREF 1n1.3), .1313(XREF 1n2.3), .137(XREF 1n1.3), .137(XREF 1n2.3), .14111OT+1*, .1416OT+1*, .2201OT+1*, .2202OT+1*, .2203OT+1*
    , .2204OT+1*, .2205OT+1*, .2206OT+1*, .2207OT+1*, .2515(XREF 1S), .2515(XREF 1K), .2515(XREF 2n1.3), .290012OT+1*, .29013OT+1*, .301(XREF 1n1.3)
    .301(XREF 2n1.3), .3025(XREF 1n1.3), .3025(XREF 1n2.3), .3025(XREF 2S), .3025(XREF 2K), .31115(XREF 1n1.3), .31115(XREF 1n2.3), .31115(XREF 2S), .31115(XREF 2K), .313OT+1*
    .32101(XREF 1n1.3), .32101(XREF 2n1.3), .32102(XREF 1n1.3), .32102(XREF 2n1.3), .32102(XREF 3n1.3), .32102(XREF 5n1.3), .32103(XREF 1n1.3), .32103(XREF 2n1.3), .32201(XREF 1n1.3), .32201(XREF 2n1.3)
    .32201(XREF 3S), .32201(XREF 3K), .32201(XREF 3n69.3), .322013(XREF 1n1.3), .322013(XREF 2n1.3), .322016(XREF 1n1.3), .322016(XREF 2n1.3), .322016(XREF 3S), .322016(XREF 3K), .322016(XREF 3n69.3)
    .322019(XREF 1n1.3), .322019(XREF 2n1.3), .3221(XREF 1n1.3), .3221(XREF 2n1.3), .3224(XREF 1n1.3), .3224(XREF 2n1.3), .3227(XREF 1n1.3), .3227(XREF 2n1.3), .323(XREF 2n1.3), .3285(XREF 2n1.3)
    .3285(XREF 3S), .3285(XREF 3n2.3), .32945(XREF 2n1.3), .32945(XREF 2n2.3), .3611(XREF 1n1.3), .3611(XREF 1n2.3), .36205(XREF 1n1.3), .36205(XREF 1n2.3), .36205(XREF 3S), .36205(XREF 3K)
    .36215(XREF 1n1.3), .36215(XREF 1n2.3), .36215(XREF 3S), .36215(XREF 3K), .36225(XREF 1n1.3), .36225(XREF 1n2.3), .36235(XREF 1n1.3), .36235(XREF 1n2.3), .36235(XREF 3S), .36235(XREF 3K)
    .36255(XREF 1n1.3), .36255(XREF 1n2.3), .36265(XREF 1n1.3), .36265(XREF 1n2.3), .525(XREF 1n1.3), .525(XREF 2n1.3), .525(XREF 3n1.3), .5291(XREF 1n1.3), .5291(XREF 1n2.3), .5291(XREF 2n1.3)
    .5291(XREF 2n2.3), .5291(XREF 3n1.3), .5291(XREF 3n2.3), 1010.15(XREF 1n1.3), 1010.15(XREF 1n2.3), 1010.151(XREF 1K), 1010.151(XREF 2K), 1010.153(XREF 1K), 1901(XREF 3n1.3)
    Y(1 .01(XREF 999999901S), .02(XREF 999999901S), .03(XREF 2S), .09(XREF 2S), .09(XREF 10S), .111(XREF 4S), .111(XREF 4K), .1112(XREF 3S), .1112(XREF 3K), .112(XREF 4S)
    .112(XREF 4K), .113(XREF 3S), .113(XREF 3K), .114(XREF 3S), .114(XREF 3K), .115(XREF 1K), .115(XREF 4S), .115(XREF 4K), .116(XREF 3S), .116(XREF 3K)
    .118(XREF 1S), .118(XREF 1K), .118(XREF 2S), .118(XREF 2K), .119(XREF 1S), .119(XREF 1n1.3), .119(XREF 1K), .119(XREF 1n2.3), .121(XREF 2S), .121(XREF 2K)
    .1311(XREF 1S), .1311(XREF 1n1.3), .1311(XREF 1K), .1311(XREF 1n2.3), .1312(XREF 1S), .1312(XREF 1K), .1313(XREF 1S), .1313(XREF 1n1.3), .1313(XREF 1K), .1313(XREF 1n2.3)
    .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K), .135(XREF 1S), .135(XREF 1K), .136(XREF 1S), .136(XREF 1K), .137(XREF 1S), .137(XREF 1n1.3)
    .137(XREF 1K), .137(XREF 1n2.3), .139(XREF 1S), .139(XREF 1K), .14112(XREF 2S), .14112(XREF 2K), .152(XREF 1S), .152(XREF 1K), .2403(XREF 999999901S), .2515(XREF 1S)
    .2515(XREF 1K), .2515(XREF 2S), .2515(XREF 2n1.3), .2515(XREF 2K), .301(XREF 1S), .301(XREF 1n1.3), .301(XREF 2S), .301(XREF 2n1.3), .3025(XREF 1S), .3025(XREF 1n1.3)
    .3025(XREF 1K), .3025(XREF 1n2.3), .3025(XREF 2S), .3025(XREF 2K), .31115(XREF 1S), .31115(XREF 1n1.3), .31115(XREF 1K), .31115(XREF 1n2.3), .31115(XREF 2S), .31115(XREF 2K)
    .32101(XREF 1S), .32101(XREF 1n1.3), .32101(XREF 2S), .32101(XREF 2n1.3), .32102(XREF 1S), .32102(XREF 1n1.3), .32102(XREF 2S), .32102(XREF 2n1.3), .32102(XREF 3S), .32102(XREF 3n1.3)
    .32102(XREF 5S), .32102(XREF 5n1.3), .32103(XREF 1S), .32103(XREF 1n1.3), .32103(XREF 2S), .32103(XREF 2n1.3), .32201(XREF 1S), .32201(XREF 1n1.3), .32201(XREF 2S), .32201(XREF 2n1.3)
    .32201(XREF 3S), .32201(XREF 3K), .32201(XREF 3n69.2), .32201(XREF 3n69.3), .32201(XREF 3n79.2), .32201(XREF 3n79.3), .322013(XREF 1S), .322013(XREF 1n1.3), .322013(XREF 1K), .322013(XREF 2S)
    .322013(XREF 2n1.3), .322013(XREF 2K), .322016(XREF 1S), .322016(XREF 1n1.3), .322016(XREF 2S), .322016(XREF 2n1.3), .322016(XREF 3S), .322016(XREF 3K), .322016(XREF 3n69.2), .322016(XREF 3n69.3)
    .322016(XREF 3n79.2), .322016(XREF 3n79.3), .322019(XREF 1S), .322019(XREF 1n1.3), .322019(XREF 2S), .322019(XREF 2n1.3), .3221(XREF 1S), .3221(XREF 1n1.3), .3221(XREF 2S), .3221(XREF 2n1.3)
    .3224(XREF 1S), .3224(XREF 1n1.3), .3224(XREF 2S), .3224(XREF 2n1.3), .3227(XREF 1S), .3227(XREF 1n1.3), .3227(XREF 2S), .3227(XREF 2n1.3), .323(XREF 2S), .3285(XREF 2S)
    .3285(XREF 2n1.3), .3285(XREF 3S), .3285(XREF 3K), .3285(XREF 3n2.3), .32945(XREF 2S), .32945(XREF 2n1.3), .32945(XREF 2K), .32945(XREF 2n2.3), .3296(XREF 3S), .3296(XREF 3K)
    .351(XREF 1S), .351(XREF 1K), .351(XREF 1n49.2), .351(XREF 1n59.2), .351(XREF 2S), .361(XREF 2n89.2), .361(XREF 2n99.2), .3611(XREF 1S), .3611(XREF 1n1.3), .3611(XREF 1n2.3)
    .3611(XREF 2S), .3612(XREF 1S), .36205(XREF 1S), .36205(XREF 1n1.3), .36205(XREF 1K), .36205(XREF 1n2.3), .36205(XREF 3S), .36205(XREF 3K), .36215(XREF 1S), .36215(XREF 1n1.3)
    .36215(XREF 1K), .36215(XREF 1n2.3), .36215(XREF 3S), .36215(XREF 3K), .36225(XREF 1S), .36225(XREF 1n1.3), .36225(XREF 1K), .36225(XREF 1n2.3), .36235(XREF 1S), .36235(XREF 1n1.3)
    .36235(XREF 1K), .36235(XREF 1n2.3), .36235(XREF 3S), .36235(XREF 3K), .36255(XREF 1S), .36255(XREF 1n1.3), .36255(XREF 1K), .36255(XREF 1n2.3), .36265(XREF 1S), .36265(XREF 1n1.3)
    .36265(XREF 1K), .36265(XREF 1n2.3), .525(XREF 1S), .525(XREF 1n1.3), .525(XREF 2S), .525(XREF 2n1.3), .525(XREF 3S), .525(XREF 3n1.3), .5291(XREF 1S), .5291(XREF 1n1.3)
    .5291(XREF 1n2.3), .5291(XREF 2S), .5291(XREF 2n1.3), .5291(XREF 2n2.3), .5291(XREF 3S), .5291(XREF 3n1.3), .5291(XREF 3n2.3), .5295(XREF 2S), .5295(XREF 2K), 401.3(XREF 2S)
    401.3(XREF 2K), 1010.15(XREF 1S), 1010.15(XREF 1n1.3), 1010.15(XREF 1n2.3), 1010.151(XREF 1K), 1010.151(XREF 2K), 1010.153(XREF 1K), 1901(XREF 3S), 1901(XREF 3n1.3)
    Y(102 .361(XREF 2S), .361(XREF 2n2.2), .361(XREF 2n99.3)
    Y(2 .033+1, .033OF9.2+1*, .033OF9.3+1*, .033OF9.4+1*, .033OF9.5+1*, .119(XREF 1n2.3), .1311(XREF 1n2.3), .1313(XREF 1n2.3), .137(XREF 1n2.3), .19+1*
    , .19OF9.2+1*, .3025(XREF 1n2.3), .32103(XREF 1S), .32201(XREF 3n69.3), .32201(XREF 3n79.2), .32201(XREF 3n79.3), .322016(XREF 3S), .322016(XREF 3n69.3), .322016(XREF 3n79.2), .322016(XREF 3n79.3)
    .3285(XREF 3n2.3), .32945(XREF 2n2.3), .351(XREF 1n49.2), .351(XREF 1n59.2), .361(XREF 2n89.2), .361(XREF 2n99.2), .3611(XREF 1n2.3), .36205(XREF 1n2.3), .36215(XREF 1n2.3), .36225(XREF 1n2.3)
    .36235(XREF 1n2.3), .36255(XREF 1n2.3), .36265(XREF 1n2.3), .5291(XREF 1n2.3), .5291(XREF 2n2.3), .5291(XREF 3n2.3), 1010.15(XREF 1n2.3), 999999999+1*
    Y(3 .152(XREF 1n2.1), .32201(XREF 3K), .32201(XREF 3n69.2), .32201(XREF 3n69.3), .32201(XREF 3n79.3), .322016(XREF 3K), .322016(XREF 3n69.2), .322016(XREF 3n69.3), .322016(XREF 3n79.3), .351(XREF 1n2.1)
    .351(XREF 1n49.2), .351(XREF 1n59.2)
    Y(4 .152(XREF 1n2.1), .32201(XREF 3n69.2), .32201(XREF 3n69.3), .32201(XREF 3n79.2), .32201(XREF 3n79.3), .322016(XREF 3n69.2), .322016(XREF 3n69.3), .322016(XREF 3n79.2), .322016(XREF 3n79.3), .351(XREF 1n1.1)
    .351(XREF 1n49.2), .351(XREF 1n59.2)
    Y(5 .152(XREF 1n2.1), .351(XREF 1n1.1), .351(XREF 1n49.2), .351(XREF 1n59.2)
    Y(6 .152(XREF 1n2.1), .351(XREF 1n1.1), .351(XREF 1n49.2), .351(XREF 1n59.2)
    Y(7 .351(XREF 1n1.1), .351(XREF 1n2.1), .351(XREF 1n59.2)
    Y(8 .351(XREF 1n1.1), .351(XREF 1n2.1)
    Y(9 .351(XREF 1n1.1)
    Z0 .117+1*!, .117OT+1*, .117(HELP ), .12111+1*!, .12111OT+1*, .12111(HELP ), .14111+1~*, .14111OT+1~*, .14111(HELP )
    ZD .117(HELP ), .12111(HELP )

    Marked Items

    Name Field # of Occurrence
    $T(ADGRU^DGRUDD01 .01(XREF 993S), .01(XREF 993K), .02(XREF 992S), .02(XREF 992K), .03(XREF 992S), .03(XREF 992K), .05(XREF 992S), .05(XREF 992K), .06(XREF 992S), .06(XREF 992K)
    .07(XREF 992S), .07(XREF 992K), .08(XREF 992S), .08(XREF 992K), .09(XREF 992S), .09(XREF 992K), .092(XREF 992S), .092(XREF 992K), .093(XREF 992S), .093(XREF 992K)
    .111(XREF 992S), .111(XREF 992K), .1112(XREF 992S), .1112(XREF 992K), .112(XREF 992S), .112(XREF 992K), .113(XREF 992S), .113(XREF 992K), .114(XREF 992S), .114(XREF 992K)
    .115(XREF 992S), .115(XREF 992K), .131(XREF 992S), .131(XREF 992K), .132(XREF 992S), .132(XREF 992K), .211(XREF 992S), .211(XREF 992K), .212(XREF 992S), .212(XREF 992K)
    .213(XREF 992S), .213(XREF 992K), .214(XREF 992S), .214(XREF 992K), .216(XREF 992S), .216(XREF 992K), .217(XREF 992S), .217(XREF 992K), .219(XREF 992S), .219(XREF 992K)
    .301(XREF 992S), .301(XREF 992K), .302(XREF 992S), .302(XREF 992K), .326(XREF 992S), .326(XREF 992K), .327(XREF 992S), .327(XREF 992K), .351(XREF 992S), .351(XREF 992K)
    .383(XREF 992S), .383(XREF 992K), 1901(XREF 992S), 1901(XREF 992K)
    $T(AVAFC^VAFCDD01 .01(XREF 991S), .01(XREF 991K), .02(XREF 991S), .02(XREF 991K), .03(XREF 991S), .03(XREF 991K), .05(XREF 991S), .05(XREF 991K), .06(XREF 991S), .06(XREF 991K)
    .08(XREF 991S), .08(XREF 991K), .09(XREF 991S), .09(XREF 991K), .092(XREF 991S), .092(XREF 991K), .093(XREF 991S), .093(XREF 991K), .111(XREF 991S), .111(XREF 991K)
    .1112(XREF 991S), .1112(XREF 991K), .112(XREF 991S), .112(XREF 991K), .113(XREF 991S), .113(XREF 991K), .114(XREF 991S), .114(XREF 991K), .115(XREF 991S), .115(XREF 991K)
    .117(XREF 991S), .117(XREF 991K), .131(XREF 991S), .131(XREF 991K), .132(XREF 991S), .132(XREF 991K), .211(XREF 991S), .211(XREF 991K), .219(XREF 991S), .219(XREF 991K)
    .2403(XREF 991S), .2403(XREF 991K), .301(XREF 991S), .301(XREF 991K), .302(XREF 991S), .302(XREF 991K), .31115(XREF 991S), .31115(XREF 991K), .313(XREF 991S), .313(XREF 991K)
    .323(XREF 991S), .323(XREF 991K), .351(XREF 991S), .351(XREF 991K), 391(XREF 991S), 391(XREF 991K), 1901(XREF 991S), 1901(XREF 991K)
    $T(CMOR^VAFCHIS 991.03(XREF 2K)
    $T(ICN^VAFCHIS 991.01(XREF 2K)
    $T(KILL^VAFCMIS .01(XREF 992K), 991.01(XREF 3S)
    $T(SET^VAFCMIS .01(XREF 992S)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  Marked Items |  All