Global: ^DPT

FileMan FileNo	FileMan Filename	Package
2	VA PATIENT	Registration

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

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

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)[2, 3]
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, .02, 999999903] 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.03, 1.04]

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, .535, 27.02, 991.03, 1010.152, 1010.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.01, 1.02, 1.03, 1.04, 1.05, 1.06, 1.07, 1.08, 1.09, #2.01(100.03), #2.101(100.21)] NEW PERSON(#200)[.096, .104, .1041, .122, .352, .355, .3616, 404.01, 1100.02, 1100.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 DG5.3415." 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 AVA93.222: - 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 SD5.330). 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 DG5.3597, distributed with EAS1.051.` 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 DG5.3597, distributed with EAS1.051.` 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 DG5.3597, distributed with EAS1.051.` 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)`

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 DG5.3455. 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

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)

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

>>	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 )

Customize PDF page

Package: Registration

Global: ^DPT

Information

Description

Directly Accessed By Routines, Total: 5046

Accessed By FileMan Db Calls, Total: 993

Pointed To By FileMan Files, Total: 160

Pointer To FileMan Files, Total: 42

Fields, Total: 433

Found Entries, Total: 2

ICR, Total: 11

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Marked Items

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)

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)