Global: ^AUPNPAT

FileMan FileNo	FileMan Filename	Package
9000001	PATIENT	IHS Patient

Package	Total	Routines
IHS Patient Registration	166	AG0 AG1 AG2 AG2A AG2B AG3A AG6P14 AG6P15 AG6P16 AG6P17A AG6P17B AG71A AG71A1 AG71A11 AG71A2 AG71A3 AG71A4 AG71A5 AG71A8 AG7ENV AG8 AG8A AG8B AGACAL AGACT AGACXREF AGADDINF AGADDREG AGAGEB AGAGERP1 AGAGERP2 AGAGERP3 AGALPHA AGALPHA1 AGAPIS AGBADATA AGBENPRC AGBIC1A AGBIC1B AGBIC2 AGBIC2B AGBIC2C AGBIC2P AGBICEDZ AGBLDS AGCARD AGCHART AGCHLB AGCMATCH AGCNVAOB AGCNVBEN AGCNVMOD AGCNVROI AGCO AGCVT3 AGCVT6 AGDATCK AGDELPAT AGDOB AGED AGED1 AGED10A AGED10B AGED11 AGED11A AGED12 AGED13 AGED2 AGED4 AGED42 AGED4A AGED4PD AGED5 AGED6 AGED62 AGED6PD AGED7B AGED8 AGED9 AGEDBEG AGEDCHEK AGEDERR AGEDERR1 AGEDERR2 AGEDERR4 AGEDGUAR AGEDIT AGEDMCD1 AGEDNAME AGEDPRV AGEDPRVB AGEDPRVP AGEDPRVU AGELA AGELA1 AGELCHK AGELE2X2 AGELPHCK AGEMARP AGERRAUD AGEVC AGEVLM AGFACE AGFACE1 AGFACE11 AGFACE7 AGFACE9 AGFULAUD AGHL7 AGHOME AGIVDRIV AGKPAT AGLSSN AGLSSN2 AGMAN AGMANERS AGMCDP AGMCDPC AGMCDPCM AGMCDPN AGMCRP AGMCRP2 AGMCRP3 AGMCRP4 AGMCRP5 AGMCRP6 AGMSPFRM AGMSPINT AGNDXP AGOV64 AGPATCNT AGPHADDR AGPHROPT AGREPRT1 AGREPRT2 AGRHI1 AGRPTEMP AGRPTINS AGRPTPDP AGRPTPRV AGRPTVET AGRSSN1 AGSAMPG AGSCANP AGSS1 AGSSLBAT AGSSLPRT AGSSPRT AGSSPSDO AGSSPSZZ AGSSUNDO AGTMPMRG AGTMPP AGTRBL AGTX0 AGTX1 AGTX2 AGTX3 AGTXALL AGTXERP AGTXID AGTXRHRN AGUND18 AGUTILS AGUTL AGVALID
IHS GPRA Information System	144	BGP0D1 BGP0D26 BGP0DCI BGP0DPA1 BGP0DPAP BGP0DPE1 BGP0DPE2 BGP0EOUT BGP0EUTL BGP0GUA BGP0HUTL BGP0PUTL BGP0UTL BGP1D1 BGP1D26 BGP1DCI BGP1DPA1 BGP1DPAP BGP1DPE1 BGP1DPE2 BGP1EOUT BGP1EUTL BGP1GUA BGP1HUTL BGP1PUTL BGP1UTL BGP2D1 BGP2DCI BGP2DPA1 BGP2DPAP BGP2DPE1 BGP2DPE2 BGP2EOUT BGP2EUTL BGP2GUA BGP2HUTL BGP2PUTL BGP2UTL BGP3D1 BGP3DCI BGP3DPA1 BGP3DPAP BGP3DPE1 BGP3DPE2 BGP3EUTL BGP3GUA BGP3PUTL BGP3UTL BGP4D1 BGP4DCI BGP4DPA1 BGP4DPAP BGP4DPE1 BGP4DPE2 BGP4EUTL BGP4GUA BGP4HUTL BGP4PUTL BGP4UTL BGP5D1 BGP5DCI BGP5DPA1 BGP5DPAP BGP5DPE1 BGP5DPE2 BGP5EUTL BGP5GUA BGP5HUTL BGP5PUTL BGP5UTL BGP6D1 BGP6DCI BGP6DPA1 BGP6DPAP BGP6DPE1 BGP6DPE2 BGP6EUTL BGP6GUA BGP6HUTL BGP6PUTL BGP6UTL BGP7D1 BGP7DCI BGP7DPA1 BGP7DPAP BGP7DPE1 BGP7DPE2 BGP7EUTL BGP7GUA BGP7HUTL BGP7PUTL BGP7UTL BGP8D1 BGP8DCI BGP8DPA1 BGP8DPAP BGP8DPE1 BGP8DPE2 BGP8EOUT BGP8EUTL BGP8GUA BGP8HUTL BGP8PC1 BGP8PC13 BGP8PC16 BGP8PC17 BGP8PCUT BGP8PUTL BGP8UTL BGP9D1 BGP9DCI BGP9DPA1 BGP9DPAP BGP9DPE1 BGP9DPE2 BGP9EOUT BGP9EUTL BGP9GUA BGP9HUTL BGP9PUTL BGP9UTL BGPD1 BGPD12 BGPD13 BGPD14 BGPD1B BGPD2 BGPD22 BGPD23 BGPD24 BGPD29 BGPD3 BGPD30 BGPD4 BGPD5 BGPD6 BGPD7 BGPD8 BGPDA BGPDB BGPDC BGPDD BGPGP BGPMUEPD
Diabetes Registry	124	BDMD01 BDMD010 BDMD01E BDMD01G BDMD11 BDMD110 BDMD11E BDMD11G BDMD20 BDMD21 BDMD210 BDMD31 BDMD310 BDMD41 BDMD410 BDMD41E BDMD41G BDMD51 BDMD510 BDMD51E BDMD51G BDMD61 BDMD610 BDMD61E BDMD61G BDMD71 BDMD710 BDMD71E BDMD71G BDMD81 BDMD810 BDMD81E BDMD81G BDMD91 BDMD910 BDMD91E BDMD91G BDMD99 BDMDA1 BDMDA10 BDMDA1E BDMDA1G BDMDB1 BDMDB10 BDMDB1E BDMDB1G BDMDC1 BDMDC10 BDMDC1E BDMDC1G BDMDD1 BDMDD10 BDMDD1E BDMDD1G BDMDE1 BDMDE10 BDMDE1E BDMDE1G BDMDF1 BDMDF10 BDMDF1E BDMDF1G BDMDG1 BDMDG10 BDMDG1E BDMDG1G BDMDG1Y BDMDM5 BDMDR1 BDMDR2 BDMDR4 BDMDR6 BDMFUTIL BDMGRA BDMGRB BDMGRC BDMGRD BDMGRE BDMGRF BDMGRG BDMGRH BDMGRI BDMGRJ BDMGU BDMGUB BDMLET BDMP01 BDMP010 BDMP11 BDMP110 BDMP41 BDMP410 BDMP51 BDMP510 BDMP61 BDMP610 BDMP71 BDMP710 BDMP81 BDMP810 BDMP91 BDMP910 BDMPA1 BDMPA10 BDMPB1 BDMPB10 BDMPC1 BDMPC10 BDMPD1 BDMPD10 BDMPE1 BDMPE10 BDMPF1 BDMPF10 BDMPG1 BDMPG10 BDMPL BDMPOST BDMPROB BDMRMC BDMRML BDMS9B1 BDMVRL4 BDMVRL5
Patient Care Component Reports	104	APCL8A1 APCL8AP APCLACC2 APCLACG1 APCLADAP APCLAL1 APCLAL1A APCLAL31 APCLAPI7 APCLAUD2 APCLBP1 APCLBRH1 APCLBRH2 APCLBV1 APCLBV11 APCLBV2 APCLCAR1 APCLCH11 APCLCH21 APCLCPT1 APCLCV1 APCLD20 APCLD21 APCLD210 APCLD31 APCLD310 APCLD51 APCLD510 APCLD51E APCLD51G APCLD61 APCLD610 APCLD61E APCLD61G APCLD71 APCLD710 APCLD71E APCLD71G APCLD81 APCLD810 APCLD81E APCLD81G APCLD99 APCLDE1 APCLDE31 APCLDM5 APCLDOD1 APCLDOD2 APCLDP1P APCLDR1 APCLDR2 APCLDV31 APCLEL1 APCLEL2 APCLEL3 APCLEL4 APCLEM1 APCLEM2 APCLER1P APCLER2P APCLGVP APCLHCT2 APCLHH1 APCLIPC2 APCLLT APCLM1 APCLNJ12 APCLOS2 APCLOS21 APCLP51 APCLP510 APCLP61 APCLP610 APCLP71 APCLP710 APCLP81 APCLP810 APCLPCT2 APCLPDBL APCLPNP APCLPP21 APCLPS1 APCLPVC1 APCLRIN APCLRIN1 APCLRT1P APCLSIL1 APCLSIL2 APCLSILI APCLSILR APCLSMUN APCLV1 APCLV2 APCLVL1 APCLVLU APCLVLU1 APCLW11 APCLW21 APCLW61 APCLYV11 APCLYV22 APCLYV32 APCLYV51 APCLYV52
Third Party Billing	95	ABMAPAS1 ABMAPASS ABMDAST4 ABMDBADD ABMDBDIC ABMDBLK ABMDCCL1 ABMDCCL2 ABMDE1 ABMDE1X ABMDE1X1 ABMDE2X2 ABMDE2X3 ABMDE30 ABMDEAD2 ABMDEBIL ABMDECHK ABMDEDIC ABMDF1 ABMDF12A ABMDF14A ABMDF14C ABMDF18A ABMDF1E ABMDF25A ABMDF26A ABMDF27A ABMDF27C ABMDF28X ABMDF29B ABMDF2A ABMDF34B ABMDF35A ABMDF35C ABMDF3A ABMDF3C ABMDF4A ABMDICST ABMDLCK ABMDLCK2 ABMDRAL1 ABMDRAL2 ABMDRAL4 ABMDRBR1 ABMDRBR2 ABMDRCHK ABMDRCO1 ABMDREL1 ABMDREL2 ABMDREMP ABMDRPR1 ABMDRPR2 ABMDRPT1 ABMDRPT2 ABMDRSU1 ABMDRUN1 ABMDRUN2 ABMDRXC1 ABMDRXC2 ABMDTX0 ABMDTX3 ABMDUTL ABMDVSTH ABME3EA0 ABME520 ABMEBDSP ABMECDSP ABMEH20 ABMEH40 ABMER20 ABMER31A ABMERUTL ABMKIDS ABMM2ELG ABMMUEL1 ABMMUELG ABMMUFC2 ABMMUFC3 ABMMUFC4 ABMPPADJ ABMPTPOP ABMPTSMT ABMRMCRD ABMRPVET ABMRSPI1 ABMRSTI3 ABMRSTIN ABMRVTPB ABMTPYMT ABMUBLST ABMUCASH ABMUCUTL ABMUTL8 ABMUVBCH ABMZBDIC
Mental Health Social Services	65	AMHAPRB AMHBHAPI AMHBPL AMHBPL2 AMHBPL3 AMHBS AMHEGR AMHEXCP AMHEXD2 AMHEYC1 AMHEYCP AMHGBDSP AMHGOM AMHGP AMHLCD AMHLEDV AMHLEFP1 AMHLEFP2 AMHLEFPP AMHLEI3 AMHLEIV AMHLEIV3 AMHLEL AMHLEP1 AMHLEP2 AMHLETP3 AMHLETPP AMHLETR AMHLETR1 AMHLETR2 AMHLRDSP AMHPHQO AMHPL AMHPST AMHPVDSG AMHRAS1 AMHRAS31 AMHRBV1 AMHRBV2 AMHRC1P AMHRC3 AMHRC4 AMHRDE1 AMHRDE31 AMHRDV31 AMHRGADO AMHRLKUP AMHRLP3 AMHRLU AMHRLU1 AMHRP1 AMHRP4P AMHRP7 AMHRP8P AMHRP9P AMHRSB1 AMHRSR31 AMHUTIL AMHUTIL1 AMHUTIL3 AMHVD AMHVDL AMHVDSG AMHVDSG1 AMHVRL2
IHS Uniform Data System	57	BUD0RP6B BUD0RP7 BUD0RPTC BUD1RP6B BUD1RP7 BUD1RPC2 BUD1RPTC BUD2RP6B BUD2RP7 BUD2RPC2 BUD2RPC3 BUD2RPTC BUD5RPTC BUD6RPTC BUD7RPTC BUD8RP6B BUD8RP7 BUD8RPTC BUD9RP6B BUD9RP7 BUD9RPTC BUDARP6B BUDARP7 BUDARPC2 BUDARPC3 BUDARPTC BUDBRP6B BUDBRP7 BUDBRPC2 BUDBRPC3 BUDBRPTC BUDCRP6B BUDCRP7 BUDCRPC2 BUDCRPC3 BUDCRPTC BUDCRPTD BUDDRP6B BUDDRP7 BUDDRPC2 BUDDRPC3 BUDDRPTC BUDDRPTD BUDERP6B BUDERP7 BUDERPC2 BUDERPC3 BUDERPTC BUDERPTD BUDEUTL2 BUDHRP6B BUDHRP7 BUDHRPC2 BUDHRPC3 BUDHRPTC BUDHRPTD BUDHUTL2
IHS Changes To ADT	56	ADGAD1 ADGAD2 ADGAD3 ADGADSP2 ADGADSP4 ADGADSP5 ADGADSP6 ADGBULL1 ADGCEN31 ADGCRB0 ADGCRB1 ADGCRB3 ADGCRB6 ADGCRBL2 ADGDMM ADGDODP ADGDSAU ADGDSIP ADGDSN ADGDSQA ADGF ADGFTRP1 ADGICAL ADGICAL2 ADGICPQ ADGICUT ADGING21 ADGIP0 ADGLADP ADGLDCP ADGLOC1 ADGOASP ADGPCAC1 ADGPI ADGPTLC ADGPTLC1 ADGPTLP ADGPTLP0 ADGPTLP1 ADGRALP ADGRALP1 ADGSRVC ADGSRVL ADGSVC ADGT03 ADGT51 ADGT53 ADGT55 ^ADGAUTH ^ADGDS ADGWMM1 ADGWMM2 BDGF2 BDGILD63 ^ADGDSI ^ADGIC
Patient Care Component	53	APCDAALG APCDACP1 APCDALGP APCDALGQ APCDALGR APCDALV1 APCDALV2 APCDAMED APCDAPRB APCDCAF APCDCAF6 APCDDVC APCDDVD1 APCDEA APCDECC APCDEFG APCDEGP3 APCDEH APCDEL APCDEMDI APCDEWHA APCDEWHO APCDFH APCDFOAP APCDFPPV APCDFQAP APCDFQCP APCDFUNC APCDGAP2 APCDGAPI APCDKLVR APCDPG APCDPL APCDPL1 APCDR001 APCDR02 APCDRRQ APCDVDSB APCDVDSG APCDVLST APCHAAP1 APCHPWH1 APCHPWHG APCHS APCHS1 APCHS1A APCHS1B APCHS1C APCHS5A APCHSBRW APCHSM APCHSMU APCHSTP
iCare	39	BQI1POJB BQICAEXP BQICAVAL BQIDCAH BQIDCAH2 BQIDCAH3 BQIDCAH4 BQIDCAH5 BQIDCAH6 BQIDCAH7 BQIDCASN BQIDCMYC BQIGPRA5 BQIIPCCP BQIIPCCT BQIIPEMP BQIIPOTC BQIIPPNL BQIIPPRG BQIIPPRV BQIIPTST BQIMUSIT BQINIGH1 BQINIGH2 BQIPLADR BQIPTDDG BQIPTFHH BQIPTLKP BQIPTTR BQIRFCRQ BQIRMIZ BQISYDIV BQITASK BQITASK1 BQITD06 BQITD061 BQIUL1 BQIUL2 BQIULPT
Contract Health Management Information System	37	ACHS ACHS278 ACHS3PP2 ACHS3PPB ACHSA1 ACHSC6C ACHSCHF1 ACHSDA ACHSDADP ACHSDAR1 ACHSDAR4 ACHSDFDP ACHSDFL1 ACHSDN ACHSDNDP ACHSDNL2 ACHSDNS ACHSDOCR ACHSEDOC ACHSEPAT ACHSHLG ACHSMD0 ACHSMD2 ACHSMD2D ACHSRELG ACHSTX3 ACHSTX33 ACHSTX5 ACHSTX55 ACHSTX7 ACHSTX77 ACHSTX7A ACHSTX8 ACHSTXUT ACHSUDF ACHSVUR2 ACHSYPVR
Referred Care Information System	37	BMCADD1 BMCAL1 BMCALERT BMCALT BMCCLOS1 BMCFAHC1 BMCFAHC2 BMCFAHC3 BMCFUNC BMCFUNC1 BMCHELP BMCMINI BMCMM BMCMOD BMCOUTRP BMCRCHS2 BMCRCHS3 BMCRCRVP BMCRD BMCRINH BMCRLU1 BMCRPC3 BMCRPC4 BMCRR14P BMCRR18P BMCRR19P BMCRR1P BMCRR20P BMCRR2P BMCRR3P BMCRR7P BMCRR8P ^BMCCOM BMCRRSPP ^BMCDX ^BMCPROV ^BMCPX
Patient Care Component Table Maintiance	29	APCM11CI APCM11E1 APCM11E2 APCM11E5 APCM13CI APCM13E1 APCM13E2 APCM13E5 APCM14CI APCM14E1 APCM14E2 APCM14E4 APCM14E5 APCM14E9 APCM24CI APCM24E1 APCM24E2 APCM24E4 APCM24E5 APCM24E9 APCM25CI APCM25E1 APCM25E2 APCM25E4 APCM25E5 APCM25E9 APCM2ACI APCM2AE1 APCM2AE2
Patient Registration GUI	19	AGGCMTCH AGGDCUPD AGGLOCK AGGPALTR AGGPOTH AGGPS1P1 AGGPTADD AGGPTLKP AGGPTRGO AGGPTTRG AGGRFCRQ AGGRPRT1 AGGRPRT2 AGGRPTDP AGGUL1 AGGUL2 AGGWOTH AGGWTRIG AGGWVAL
Local Area Programs	17	AZAMED AZAMED15 AZAMED16 AZAMMED AZANED AZANED15 AZANED16 AZAXDPM2 AZHDPATC AZHZCL AZHZCL1 AZHZCL2 AZHZCLAG AZHZCLI AZPPTCP AZQ2RXP AZSDHIS
IHS Accounts Receivable	16	ITEM(S) ^BARTR(2906 BARRNBRA BARRPPS ^BARBL(2906 BAR276 BARDMLP BARDMLPR BARDMRE BARDMRQ BARDMRQN BARDUTL BARNCPDP BARPRMKP BARRCXL1 BARUP
Quality Assurance	14	AQACDCS AQALDG4 AQALNK AQALNKER AQAOCHK4 AQAOPR22 AQAOT55 AQAOT65 AQAOT68 AQAOT69 AQAOT84 AQAOT94 AQAQPR22 AQAQPR32
IHS Patient	13	AUPN9923 AUPN99P7 AUPNCPT AUPNLK AUPNLKID AUPNMBI AUPNPAT1 AUPNPAT2 AUPNPAT3 AUPNPCTR AUPNPOUT AUPNVSIT AUPNXFRC
PCC New Encounter Form	13	VENPCC10 VENPCC1A VENPCC1D VENPCC1G VENPCC2 VENPCC2A VENPCC3 VENPCCD VENPCCD1 VENPCCMF VENPCCQ VENPCCUR VENPCCYR
Women's Health	12	^AMCH(85 BWGRVLU BWGRVLU1 BWMDEU BWMDEX2 BWOLD BWRPPCD2 BWRPSCR1 BWUCVRC BWUINC BWUTL1 ^BWP
IHS RPMS CHR System	11	BCHDL1 BCHDLA1 BCHDLN1 BCHEXCP BCHRLU BCHRLU1 BCHRPWH BCHUARL BCHUFP BCHVD ^BCHR
Immunization Tracking	11	BIDUVLS2 BIEXPRT2 BIPATE BIPATVW BIRPC3 BIRPC4 BISCAN BIUTL1 BIUTL11 BIUTL6 BIUTLFIX
Patient Chart	11	BPCBISET BPCHSDSP BPCLALL BPCLIPL BPCMEAS BPCPCCUP BPCPCCVM BPCRC3 BPCRC8 BPCRC9 BPCSC2
Data Warehouse Export System	10	BDW1BLR BDWA1 BDWAID BDWBHL BDWDWPX BDWRDR BDWRDR2 BDWRDR21 BDWREDO BDWUTIL1
IHS Changes To Pharmacy	10	APSGFUNC APSKAMN0 APSPCP1 APSPCP2 APSPESG1 APSPFUNC APSPMED2 APSPMULT APSPSLBL APSQPINS
Pharmacy Point of Sale	10	ABSPOS26 ABSPOS28 ABSPOS34 ABSPOS57 ABSPOSCC ABSPOSQA ABSPOSR5 ABSPOSR7 ABSPOSRU ABSPOSRZ
IHS Designated Provider	9	BDPAPI BDPCOMA BDPDPEE BDPLINKI BDPNODP BDPPHXD BDPPLBC BDPPOST BDPUPDT
Clinical Scheduling for Windows	8	BSDX02 BSDX09 BSDX27 BSDX28 BSDX41A BSDX41B BSDX42 BSDX43
IHS Changes To Lab	8	BLRAG04 BLRAGUT BLRAGUT1 BLRDPT1 BLRDPT6 BLRMERG2 BLRORD1 BLRSHDRC
IHS Immunizations Interface	8	BYIMIMM BYIMIMM1 BYIMIMM2 BYIMIMM3 BYIMIMM5 BYIMMU2 BYIMSEG1 BYIMSEGS
IHS Mods To Text Integration Utilities	8	BTIUDOC BTIUDSC BTIUICL BTIULO BTIULO12 BTIULO9 BTIUPCC BTIUPUTP
M Transfer	8	BMXADE1 BMXADOI BMXADOV2 BMXRPC1 BMXRPC10 BMXRPC4 BMXRPC5 BMXUTL1
IHS Dental System	7	ADEGRL3 ADEKNT ADEPDFR ADEPDIN ADEPLV1 ADEPV1 ADEXSU1
PCE Patient Care Encounter	7	PXAIVSTV PXBGVST PXCAVST PXQGVST PXQMAIN2 PXRHS13 PXXDPT
Aberdeen GPRA Report	6	CIMGAGP1 CIMGAGP2 CIMGAGP3 CIMGAGP4 CIMGAGPR CIMGAGPX
Alcohol Chemical Dependency	6	ACDFLAT2 ACDFUL2 ACDPPFIX ACDREG ACDRLU ACDRLU1
Case Management System	6	ACMLCMS ACMRAGE ACMRDEM ACMRFM ACMRLU ACMRLU1
Emergency Room	6	AMER0 AMERAGED AMERCLP AMEREDTA AMERP AMERVSIT
IHS Patient Merge	6	BPMHRCN BPMKIDS BPMMRG BPMU BPMX3PB BPMXFIX
Lab Service	6	LRBLPC LRLISTE LRORD1GU LRUMI LRUTT LRXSAVE
Patient Care Component Data Transmission	6	APCPACHA APCPAH APCPDR21 APCPRCH1 APCPRPS1 APCPRPV1
Phoenix Devel Center	6	AZX2RXP AZXAPTRG AZXARD AZXBV1 AZXBV2 AZXZEMP
Registration	6	DPTDZCH DPTDZCMD DPTDZDCH DPTDZFCH ^DPT DPTDZPO
Third Party Tracking	6	ABPVDG03 ABPVEEC0 ABPVEEC2 ABPVOP03 ABPVPCC3 ABPVRX02
Electronic Dental Record	5	BADEASU BADEEVNT BADEHL1 BADEHLZ BADEPROV
Health Summary Components	5	BHSAAP1 BHSBDEM BHSDEM BHSDM1 BHSINSUR
IHS Changes To Scheduling	5	ASDAIU ASDREG ASDUT BSDREG BSDSCRPC
Patient Care Component Surveillance	5	APCSCERT APCSSIL1 APCSSIL2 APCSSILI APCSSLAB
Patient Registration MPI	5	AGMPHLEU AGMPHLU1 AGMPIHL1 AGMPIHLO AGMPIPID
IHS Release Of Information	4	BRNP01 BRNRD BRNRU11 ^BRNREC
Nursing Acuity	4	ANSEAD3 ANSEAV1 ANSQPP1 ANSQRP
PCC Medical Query	4	AMQQDO AMQQLXR AMQQMGR1 AMQQRMFF
GUI Objects	3	BGOREF BGOVHF BGOVPED
IHS Electronic Health Record	3	BEHOCCD BEHODCH BEHOPTCX
Text Integration Utility	3	TIUENV TIUPREL TIUR2
Asthma Tracking System	2	BATBLG BATRPT4
Automated Lab Instruments	2	LA7CQRY1 LA7MUPID
GUI Generic Tools	2	BGUCEKT BGUGPLK
IHS Emergency Dept Dashboard	2	BEDDADM BEDDPLKP
IHS Medicaid Eligibility Download	2	BME834 BMEMED
IHS Support HL7 Interfaces	2	BHLPID BHLPIDI
Outpatient Pharmacy	2	^PSRX PSODISP1
Phoenix	2	BZXLRSER BZXMIHDR
Portland Private Insurance package	2	AZP3RP AZP3RX
Utilities	2	AULMFICD AUPATLK
Adverse Reaction Tracking	1	GMRAPST6
Bemidji	1	BZDMCDAZ
Clinical Reminders	1	PXRMXXT
Comprehensive Diabetes Management	1	BCDMSNDR
Consult Request Tracking	1	GMRCMP
Ensemble Suite	1	BEEIASUF
Headquarters Dental	1	AZZDACK
IHS HIV Management System	1	BKMVUTL
IHS Mods To Patient Care Encounter	1	BPXRMASM
IHS Omnicell Pyxis Interface	1	BOPROC
IHS VA Utilities	1	XBPATC
IHS View Patient Record	1	BVPU
NCI Study Extract	1	CIMSNCI1
Scheduling	1	PATIENT
Table Maintenance	1	AUMXPORT
Taxonomy	1	ATXBULL
Toolkit	1	XDRHLP

Package	Total	Routines
IHS GPRA Information System	112	BGP0DPA BGP0DPA9 BGP0GUA BGP1DPA BGP1DPA9 BGP1GUA BGP2DPA BGP2DPA9 BGP2GUA BGP3DPA BGP3DPA9 BGP3GUA BGP4DPA BGP4DPA9 BGP4GUA BGP5DPA BGP5GUA BGP6DPA BGP6GUA BGP7DPA BGP7GUA BGP8DPA BGP8DPA9 BGP8GUA BGP9DPA BGP9DPA9 BGP9GUA BGPMUAD1 BGPMUAD2 BGPMUAD3 BGPMUAD4 BGPMUAD5 BGPMUAD6 BGPMUAD7 BGPMUAD8 BGPMUAP1 BGPMUAP2 BGPMUAP3 BGPMUAP4 BGPMUAP5 BGPMUAP6 BGPMUAP7 BGPMUAP8 BGPMUAP9 BGPMUBD1 BGPMUBD2 BGPMUBP1 BGPMUBP2 BGPMUCD1 BGPMUCP1 BGPMUDD1 BGPMUDD2 BGPMUDD3 BGPMUDD4 BGPMUDD5 BGPMUDD6 BGPMUDD7 BGPMUDP1 BGPMUDP2 BGPMUDP3 BGPMUDP4 BGPMUDP5 BGPMUDP6 BGPMUDP7 BGPMUFD1 BGPMUFD4 BGPMUFD5 BGPMUFD6 BGPMUFD7 BGPMUFD8 BGPMUFD9 BGPMUFP1 BGPMUFP4 BGPMUFP5 BGPMUFP6 BGPMUFP7 BGPMUFP8 BGPMUFP9 BGPMUGD1 BGPMUGD2 BGPMUGD3 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 BGPMUUTL BGPMUWD1 BGPMUWP1
IHS Patient Registration	65	AG AG0 AG1 AG2 AG2A AG2B AG3A AG4 AG6 AG71A9 AG8A AG8B AGACAL AGACALV AGADDREG AGAGERP1 AGAGERP2 AGAGERP3 AGAPIPAT AGBIC2 AGBIC2B AGBIC2C AGBIC2P AGBICEDZ AGCARD AGCVT3 AGDOB AGED AGED1 AGED10A AGED10B AGED11 AGED11A AGED12 AGED13 AGED2 AGED41 AGED61 AGED8 AGED9 AGEDERR2 AGEDERR4 AGEDPRVP AGEL1 AGELPHCK AGEMARP AGEVC AGFACE AGKPAT AGMAN AGMANERS AGNDXP AGOPT2 AGOV64 AGREPRT1 AGREPRT2 AGRPTVET AGRSSN2 AGSS1 AGSSKILL AGSSLPRT AGTEMPP AGTMEMRG AGUND18 AGUTILS
Patient Care Component	57	APCD3MT APCDACC APCDACCR APCDAPRB APCDCAF2 APCDCAFP APCDCVD APCDDISP APCDDMUP APCDEA APCDEA2 APCDEA3 APCDEAP APCDEAPC APCDEATC APCDEDTC APCDEFM APCDEH APCDEHI APCDEHI2 APCDEHTC APCDEL APCDELH APCDELM APCDELMP APCDEM APCDENV APCDEPO APCDETP APCDFH APCDFINQ APCDKUL APCDKULD APCDLES1 APCDLESF APCDLINK APCDPE2 APCDPG APCDPL APCDPL1 APCDRETR APCDRPOV APCDSFR APCDVDEL APCDVDP APCDVLST APCDVMDD APCDVMRG APCHAAP APCHGSUP APCHMT1 APCHPMH APCHPRE APCHPST APCHPWHT APCHS1 APCHSM04
Diabetes Registry	55	BDMD01 BDMD01E BDMD11 BDMD11E BDMD20 BDMD21 BDMD31 BDMD41 BDMD41E BDMD51 BDMD51E BDMD61 BDMD61E BDMD71 BDMD71E BDMD81 BDMD81E BDMD91 BDMD91E BDMD99 BDMDA1 BDMDA1E BDMDB1 BDMDB1E BDMDC1 BDMDC1E BDMDD1 BDMDD1E BDMDE1 BDMDE1E BDMDF1 BDMDF1E BDMDG1 BDMDG1E BDMDG1Y BDMDMSP BDMEDMUP BDMGU BDMLLT BDMP01 BDMP11 BDMP41 BDMP51 BDMP61 BDMP71 BDMP81 BDMP91 BDMPA1 BDMPB1 BDMPC1 BDMPD1 BDMPE1 BDMPF1 BDMPG1 BDMRMC
Mental Health Social Services	32	AMHBS AMHDLOG AMHDPEE AMHEGS AMHEHR AMHGDCM AMHGOM AMHLCD AMHLE2 AMHLEA AMHLEA2 AMHLEDV AMHLEER AMHLEGP1 AMHLELV AMHLENS AMHLEP2 AMHLEPAT AMHLESF AMHLESF1 AMHLETP AMHLETPU AMHPHQO AMHPL1 AMHPST AMHRDISP AMHRGADO AMHRNS AMHRP1 AMHVD AMHVDISP AMHVDL
iCare	26	BQICALRT BQICASPL BQICASUI BQIDCAH1 BQIDCMYC BQIFLGET BQIGPPL BQIGPRA1 BQIHEADR BQIIPPT BQIIPTST BQIMSPL BQIMTCRD BQINOTR BQIPLADR BQIPTDDG BQIPTDG BQIPTFHH BQIPTLKP BQIPTPR BQIRGDMT BQIRGPL BQIRMPL BQIRMREG BQITDLST BQIULPT
Patient Care Component Reports	22	APCLD20 APCLD21 APCLD31 APCLD51 APCLD51E APCLD61 APCLD61E APCLD71 APCLD71E APCLD81 APCLD81E APCLD99 APCLDMSP APCLLT APCLP51 APCLP61 APCLP71 APCLP81 APCLPLCV APCLSMU APCLSMU2 APCLVST
IHS Changes To ADT	20	ADGT03 BDGADD1 BDGADD2 BDGF2 BDGILD1 BDGILD3 BDGILD5 BDGIPL1 BDGIPL2 BDGIPL3 BDGIPL5 BDGIPL6 BDGIPL8 BDGIPL9 BDGLOC1 BDGM202A BDGOPL BDGPI BDGPI1 BDGVAH
Third Party Billing	19	ABMDBDIC ABMDBLK ABMDEADD ABMDEDIC ABMDESL1 ABMDRPCC ABMDRPT ABMDRSL1 ABMDTEMR ABMDVE04 ABMDVPAT ABME3DA0 ABME630 ABMEH30 ABMELGCK ABMER30 ABMKIDS ABMPTPOP ABMZBDIC
Patient Registration GUI	15	AGGETRIG AGGFMTRG AGGPTADD AGGPTDEL AGGPTLKP AGGPTNEW AGGPTPVI AGGPTRGO AGGPTTRG AGGPTUPD AGGRPRT1 AGGRPRT2 AGGUL1 AGGUL2 AGGUPMCR
IHS Accounts Receivable	14	BARBAD1 BARDINQ BARDUPBL BARMPAS BARMPAS3 BARPPY01 BARPT173 BARPT174 BARPUTL BARRAGE BARRAOI BARRCXL1 BARRNBRC BARRSL1
IHS Changes To Scheduling	12	BSDAIU BSDAL2 BSDAM BSDAM10 BSDFORM BSDLCA BSDLCA1 BSDPCP BSDPRV BSDREG BSDTLBP BSDU1
Alcohol Chemical Dependency	10	ACDDEGP ACDDEM ACDPCCLS ACDPCS1M ACDPDIF ACDPFACE ACDPSOT ACDPVDSP ACDPVH1M ACDPVHST
Contract Health Management Information System	8	ACHS ACHS3PP5 ACHS3PPQ ACHSDFLK ACHSDLK ACHSHLGQ ACHSTXUT ACHSUD
IHS Designated Provider	8	BDPADD BDPDEL BDPDPEE BDPIQ BDPLINKI BDPLMDSP BDPLMUPD BDPMOD
Referred Care Information System	8	BMCADD BMCADDFY BMCALT BMCLKID2 BMCMINI BMCRPC4 BMCRRNDA BMCSPDSP
Tracking Procedure Workflow	8	BTPWBTAD BTPWEVNT BTPWPDSP BTPWPEVF BTPWPEVT BTPWPLN1 BTPWPNLV BTPWPSNP
IHS Dental System	7	ADEATT ADEGRL1 ADEMNG1 ADENODE ADEPQA2 ADERVW ADERVW2
PCC New Encounter Form	7	VENPCC1A VENPCCD VENPCCD1 VENPCCQ VENPCCQ1 VENPCCQ2 VENPCCUR
IHS HIV Management System	6	BKMPLKP BKMQSSR BKMVA1 BKMVF3 BKMVSRP1 BKMVSSR
Data Warehouse Export System	5	BDW1BLR BDWDWPX BDWPRADD BDWRDR BDWUTIL1
IHS RPMS CHR System	5	BCHEGP1 BCHEGR2 BCHHS BCHUADD1 BCHVD
IHS Support HL7 Interfaces	5	BHLBCH2 BHLBPS1 BHLZP1I BHLZP3I BHLZP4I
IHS Changes To Pharmacy	4	APSPCP1 APSPDSC APSPES1 APSPORXA
IHS Release Of Information	4	BRNADD BRNFMTS BRNMLB BRNPTR
Asthma Tracking System	3	BATAAP BATAF BATLOP
IHS Electronic Health Record	3	BEHOOGP BEHOPTCX BEHOPTPC
IHS Emergency Dept Dashboard	3	BEDDEHRS BEDDPLKP BEDDUTIL
IHS Mods To Text Integration Utilities	3	BTIULO BTIULO2 BTIULO9
IHS Patient	3	AUPN9920 AUPNLK2 AUPNPCTR
Phoenix Devel Center	3	AZXAADD AZXAFMTS AZXAPTR
Registration	3	DGPATN DGPWBD DPTDZPO
Women's Health	3	BWPATE BWUINC BWUTL8
Automated Lab Instruments	2	LA7MUNK1 LA7MUPID
Case Management System	2	ACMEP ACMLPAT
Comprehensive Diabetes Management	2	BCDMFLDS BCDMSNDR
Electronic Dental Record	2	BADEHL1 BADEHLZ
Emergency Room	2	AMERAGED AMERLKP
Outpatient Pharmacy	2	PSOORUT2 PSORX1
PCC Medical Query	2	AMQQ33P1 AMQQ33P2
Pharmacy Point of Sale	2	ABSPOSCC ABSPOSM2
Third Party Tracking	2	ABPVEEC0 ABPVEEC2
Utilities	2	AUPATLK AUPATLKI
Health Summary Components	1	BHSDEM
IHS Immunizations Interface	1	BYIMMU2
IHS Medicaid Eligibility Download	1	BMEMED4
IHS Patient Merge	1	BPMMRG
IHS View Patient Record	1	BVPSD
Immunization Tracking	1	BIUTL8
Local Area Programs	1	AZAMED4
M Transfer	1	BMXRPC10
Nursing Acuity	1	ANSUPT
Order Entry Results Reporting	1	ORB3
Patient Registration MPI	1	AGMPIHL1
Problem List	1	GMPLX1
Table Maintenance	1	AUMXPORT

Package	Total	FileMan Files
IHS Patient	109	POLICY HOLDER(#9000003.1)[.02] ADVANCE DIRECTIVE(#9000040)[.01] PATIENT APPLICATIONS(#9000045)[.01] PRIOR AUTHORIZATIONS(#9000046)[.01] AUTO/LIABILITY(#9000031)[.02] BENEFIT COORDINATOR CASES(#9000044)[.01] BIRTH MEASUREMENT(#9000024)[.01, .21] CHART AUDIT NOTES(#9000095)[.02] SPENDDOWN INFORMATION(#9000047)[.01] CARE PLAN(#9000092)[.02] CLINICAL REMINDER(#9000009)[.01] DW AUDIT(#9000003.3)[.01] ELDER CARE(#9000023)[.01] FAMILY HISTORY(#9000014)[.02] FAMILY HISTORY FAMILY MEMBERS(#9000014.1)[.02] SCHEDULED ENCOUNTER(#9000007)[.02] PATIENT GOALS(#9000093)[.02] GUARANTOR(#9000043)[.01, #9000043.0101(.01)] HEALTH STATUS(#9000019)[.02] HEALTH REMINDER OVERRIDE(#9000025)[.02] HISTORY OF PROCEDURES(#9000016)[.02] CATEGORY PRIORITIZING(#9000035)[.02] INCOME STATUS(#9000026)[.02] PT LAB RELATED DATA(#9000020)[.01] MEDICAID ELIGIBLE(#9000004)[.01] MEDICARE ELIGIBLE(#9000003)[.01] MSP PATIENT(#9000037)[.02] PATIENT NAME CHANGES(#9000033)[.02] NOTICE OF PRIVACY PRACTICES(#9000038)[.01] OFFSPRING HISTORY(#9000012)[.02] OPIOID STATUS(#9000027)[.01] PRE-CERTIFICATION(#9000036)[.02] PATIENT EXPOSURES(#9000098)[.02] PERSONAL HISTORY(#9000013)[.02] PATIENT'S LEGAL DOCS(#9000034)[.02] PRENATAL(#9000002)[.01] OCCUPATIONAL HEALTH(#9000097)[.01] PRIMARY CARE PROVIDER CHANGE LOG(#9000096)[.01] PATIENT REFUSALS FOR SERVICE/NMI(#9000022)[.02] PROBLEM(#9000011)[.02] PRIVATE INSURANCE ELIGIBLE(#9000006)[.01] REPRODUCTIVE FACTORS(#9000017)[.01] RESTRICTED HEALTH INFORMATION(#9000039)[.01] RAILROAD ELIGIBLE(#9000005)[.01] IHS HL7 SUPPLY INTERFACE(#9000021)[.02] SURVEILLANCE(#9000008)[.01] TREATMENT PLAN(#9000094)[.02] THIRD PARTY LIABILITY(#9000041)[.01] UNMET SURGICAL NEED(#9000015)[.02] V ANTICOAGULATION(#9000010.51)[.02] VAMB ELIGIBLE(#9000006.02)[.01] V AMI(#9000010.62)[.02] V ASTHMA(#9000010.41)[.02] V BLOOD BANK(#9000010.31)[.02] V CHART AUDIT(#9000010.45)[.02] V CHS(#9000010.03)[.02] V CPT(#9000010.18)[.02] V DENTAL(#9000010.05)[.02] V DELIVERY(#9000010.64)[.02] V DIAGNOSTIC PROCEDURE RESULT(#9000010.21)[.02] V ELDER CARE(#9000010.35)[.02] V EMERGENCY VISIT RECORD(#9000010.29)[.02] V EYE GLASS(#9000010.04)[.02] V HEALTH FACTORS(#9000010.23)[.02] V INFANT FEEDING CHOICES(#9000010.44)[.02] V IMMUNIZATION(#9000010.11)[.02] V HOSPITALIZATION(#9000010.02)[.02] V LAB(#9000010.09)[.02] V LINE ITEM (GOODS&SERVICES)(#9000010.99)[.02] V MEDICATION(#9000010.14)[.02] V VA MOBILE EXAMS ORDERED(#9000010.706)[.02] V MICROBIOLOGY(#9000010.25)[.02] V VA MOBILE PRES ACTIONS(#9000010.703)[.02] V VA MOBILE REFER FOR OUTP(#9000010.704)[.02] V VA MOBILE SPECIALTY OF REFER(#9000010.705)[.02] V MEASUREMENT(#9000010.01)[.02] V VA MOBILE VISIT RELATED(#9000010.701)[.02] V VA MOBILE VISIT TYPES(#9000010.702)[.02] V NOTE(#9000010.28)[.02] V NARRATIVE TEXT(#9000010.34)[.02] V NUTRITION SCREENING(#9000010.49)[.02] V OB(#9000010.43)[.02] V PATIENT ED(#9000010.16)[.02] V PHN(#9000010.32)[.02] V PODIATRY(#9000010.42)[.02] V POV(#9000010.07)[.02] V PROCEDURE(#9000010.08)[.02] V PROVIDER(#9000010.06)[.02] V PHYSICAL THERAPY(#9000010.17)[.02] V PATHOLOGY(#9000010.24)[.02] V RADIOLOGY(#9000010.22)[.02] V REFERRAL(#9000010.59)[.02] V UPDATED/REVIEWED(#9000010.54)[.02] VISIT(#9000010)[.05] V SKIN TEST(#9000010.12)[.02] V STROKE(#9000010.63)[.02] V TRANSACTION CODES(#9000010.33)[.02] V TELEHEALTH(#9000010.48)[.02] V ACTIVITY TIME(#9000010.19)[.02] V TRANSACTION CHARGE(#9000010.37)[.02] V TREATMENT(#9000010.15)[.02] V TREATMENT CONTRACT(#9000010.39)[.02] V TREATMENT/REGIMEN(#9000010.61)[.02] V UNHF(#9000010.38)[.02] V VISIT INSTRUCTIONS(#9000010.58)[.02] V WELL CHILD(#9000010.46)[.02] V EXAM(#9000010.13)[.02] WORKMAN'S COMPENSATION(#9000042)[.01] WORKMAN'S COMP(#9000032)[.02]
Mental Health Social Services	26	MHSS GROUP(#9002011.67)[#9002011.6751(.01)] MHSS PATIENT DATA(#9002011.55)[.01] MHSS CASE DATES(#9002011.58)[.02] MHSS INTAKE(#9002011.07)[.01] MHSS PATIENT PERSONAL HX(#9002011.52)[.02] MHSS PATIENT PROBLEM LIST(#9002011.51)[.02] MHSS SUICIDE FORMS(#9002011.65)[.04] MHSS PATIENT TREATMENT NOTES(#9002011.53)[.02] MHSS PATIENT TP GOALS 2(#9002011.63)[.02] MHSS PATIENT TP METHODS(#9002011.64)[.02] MHSS PATIENT TP PROBLEMS(#9002011.62)[.02] MHSS PATIENT TREATMENT PLANS(#9002011.56)[.02] MHSS PATIENT TX PLAN METHODS(#9002011.57)[.02] BH CD STAGING TOOL(#9002011.06)[.02] MHSS RECORD(#9002011)[.08] MHSS RECORD PATIENT EDUCATION(#9002011.05)[.02] MHSS RECORD HEALTH FACTORS(#9002011.08)[.02] MHSS RECORD INTAKE(#9002011.13)[.02] MHSS RECORD MEASUREMENTS(#9002011.12)[.02] MHSS RECORD NAVAJO REFERRAL FORM(#9002011.11)[.02] MHSS RECORD PREVENTION ACTIVITES(#9002011.09)[.02] MHSS RECORD PROBLEMS (POVS)(#9002011.01)[.02] MHSS RECORD PROCEDURES (CPT)(#9002011.04)[.02] MHSS RECORD PROVIDERS(#9002011.02)[.02] MHSS RECORD UPDATED/REVIEWED(#9002011.14)[.02] MHSS RECORD TREATED MEDICAL PROBS(#9002011.03)[.02]
Case Management System	13	CMS REGISTER(#9002241)[.02] CMS COMPLICATION FOR THE CLIENT(#9002242)[.02] CMS INTERVENTION PLAN(#9002243)[.02] CMS DIAGNOSIS FOR THE CLIENT(#9002244)[.02] CMS RISK FACTOR FOR THE CLIENT(#9002245)[.02] CMS FAMILY MEMBERS(#9002246)[.01, .02] CMS SERVICE FOR THE CLIENT(#9002247)[.02] CMS CARE PLAN FOR THE CLIENT(#9002248)[.02] CMS APPOINTMENT(#9002249)[.02] CMS REGISTER CRITERIA FOR THE CLIENT(#9002251)[.02] CMS ETIOLOGY FOR THIS CLIENT(#9002253)[.02] CMS MEDICATIONS FOR THE CLIENT(#9002254)[.02] CMS MEASUREMENT(#9002257)[.02]
Quality Assurance	8	QA CHS ADMISSION(#9002157)[.02] QA IHS ADMISSION(#9002159)[.02] QI OCCURRENCE(#9002167)[.02] QI OCC CRITERIA(#9002166.5)[.03] QI OCC DRUG(#9002166.6)[.03] QI OCC PROVIDER(#9002166.7)[.03] QI OCC DIAGNOSIS(#9002166.8)[.03] QI OCC PROCEDURE(#9002166.9)[.03]
IHS Patient Registration	7	AG ACA LOG(#9009063.5)[.01] REGISTRATION MAILING LIST(#9009065)[#9009065.05(.01)] AG ELIGIBILITY UPLOAD LOG(#9009062.02)[#9009062.021(.01), #9009062.022(.01)] AG ERROR/WARNING AUDIT(#9009061.6)[#9009061.601(.01)] AGEV INSURANCE ELIGIBILITY HOLDING(#9009066)[.01] AG MESSAGE TRANSACTIONS(#9009063.1)[.02] AGVQ VERIQUEST PATIENT(#9009062.08)[.01]
IHS Accounts Receivable	6	A/R EDI 835 HOLDING(#90056.07)[.12] A/R ACCOUNTS/IHS(#90050.02)[.01, #90050.0211(.01)] A/R BILL/IHS(#90050.01)[101] A/R COLLECTION BATCH/IHS(#90051.01)[#90051.1101(5)] A/R PREPAYMENT(#90050.06)[.08] A/R TRANSACTIONS/IHS(#90050.03)[5]
IHS Changes To ADT	6	SCHEDULED VISIT-OLD(#9009013.1)[.01] CERTIFICATE OF LIVE BIRTH(#9009014)[.01] DAY SURGERY(#9009012)[.01] DS INCOMPLETE CHART(#9009012.5)[.01] INCOMPLETE CHART-OLD(#9009013)[.01] WAITING LIST CLINIC-OLD(#9009015)[#9009015.01(.01)]
Referred Care Information System	5	RCIS COMMENTS(#90001.03)[.02] RCIS DIAGNOSIS(#90001.01)[.02] RCIS SECONDARY REFERRAL(#90001.04)[.02] RCIS PROCEDURE(#90001.02)[.02] RCIS REFERRAL(#90001)[.03]
Contract Health Management Information System	4	CHS CHEF REGISTRY(#9002064.1)[#9002064.11(.02)] CHS DEFERRED SERVICE DATA(#9002066)[#9002066.01(6)] CHS DENIAL DATA(#9002071)[#9002071.01(7)] CHS FACILITY(#9002080)[#9002080.01(13.64), #9002080.02(2)]
IHS Dental System	4	DENTAL DEFERRED SVCS REGISTER(#9002003.4)[.01] DENTAL FOLLOWUP(#9002003.2)[.01] DENTAL PATIENT(#9002010.2)[.01] DENTAL PROCEDURE(#9002007)[.01]
IHS RPMS CHR System	4	BCH GROUP DEFINITION(#90002.67)[#90002.6751(.01)] CHR RECORD(#90002)[.04, 8901] CHR EDUCATION PROVIDED(#90002.02)[.02] CHR POV(#90002.01)[.02]
Immunization Tracking	4	BI PATIENT(#9002084)[.01] BI PATIENT CONTRAINDICATIONS(#9002084.11)[.01] BI PATIENT CONTRAINDICATIONS DELETED(#9002084.115)[.01] BI V IMMUNIZATIONS DELETED(#9002084.118)[.02]
Patient Care Component	4	PCC DATA ENTRY DM UPDATE(#9001002.2)[.01] PCC DATA ENTRY VISIT RELINKER LOG(#9001003.91)[.02] PCC PATIENT EDUCATION DUPLICATE DELETES(#9001040.16)[.02] HEALTH SUMMARY PWH LOG(#9001027)[.01]
iCare	4	ICARE REMINDER NOTIFICATIONS(#90509.4)[.01] ICARE USER(#90505)[#90505.04(.01)] ICARE DX CAT FACTORS(#90509.5)[.02] ICARE DX CAT REGISTRY(#90509)[.02]
Alcohol Chemical Dependency	3	CDMIS BILL(#9002172.9)[.02] CDMIS CLIENT CATEGORY(#9002172.8)[#9002172.81(.01)] CDMIS VISIT(#9002172.1)[4]
IHS Changes To Pharmacy	3	APSP DUE REVIEW(#9009032)[.04] APSP REFILL REQUESTS(#9009033.91)[1.2] NON FORMULARY REQUESTS(#9009035.1)[2]
IHS Changes To Scheduling	3	INCOMPLETE CHART(#9009016.1)[.01] ACCESS RESTRICTIONS(#9009018.1)[#9009018.11(.01)] SCHEDULED VISIT(#9009016.7)[.01]
IHS Omnicell Pyxis Interface	3	BOP RECEIVE DRUG(#90355.2)[.02] BOP RECEIVE SUPPLY(#90355.3)[.02] BOP TRANSFER TO DRUG(#90355.44)[.04]
Third Party Billing	3	3P CANCELLED CLAIM DATA(#9002274.32)[.01] 3P BILL(#9002274.4)[.05, .127] 3P CLAIM DATA(#9002274.3)[.01, .127]
Uncategorized	3	NCI CANCER REGISTER PATIENT FILE(#19259.02)[.01] DBTS PATIENT(#1419200)[.01] DIABETES REGISTER CRSU(#1964000)[.01]
Emergency Room	2	ER ADMISSION(#9009081)[.01] ER VISIT(#9009080)[.02]
IHS Changes To Lab	2	BLRA LAB AUDIT(#9009027)[.04] BLR REFERENCE LAB ORDER/ACCESSION(#9009026.3)[.04]
Pharmacy Point of Sale	2	ABSP TRANSACTION(#9002313.59)[5] ABSP LOG OF TRANSACTIONS(#9002313.57)[5]
Women's Health	2	MCH PATIENT(#9002085)[.01] BW PATIENT(#9002086)[.01]
Asthma Tracking System	1	ASTHMA REGISTER(#90181.01)[.01]
Clinical Scheduling for Windows	1	BSDX APPOINTMENT(#9002018.4)[.05]
Comprehensive Diabetes Management	1	BCDM PATIENT(#90520)[.01]
Data Warehouse Export System	1	BDW DATA WAREHOUSE EXPORT LOG(#90213)[#90213.06101(.01), #90213.4101(.01)]
Diabetes Registry	1	DMS DATA ENTRY DM UPDATE(#9003203.2)[.01]
IHS Electronic Health Record	1	BEH RECONCILIATION(#90461.63)[.02]
IHS HIV Management System	1	HMS REGISTRY(#90451)[.01]
IHS Prenatal Care Module	1	BJPN PRENATAL PROBLEMS(#90680.01)[.02]
IHS Release Of Information	1	ROI LISTING RECORD(#90264)[.03]
Injury Reporting	1	CIC VISIT(#9002230)[.02]
Nursing Acuity	1	ANS NURSE ACUITY RECORD(#9009052)[.04]
PCC New Encounter Form	1	VEN EHP AUDIT TRAIL(#19707.8)[.02]
PCE Patient Care Encounter	1	PCE DEVICE INTERFACE MODULE ERRORS(#839.01)[.02]
Scheduling	1	LETTER(#407.5)[#407.51(.01)]
Taxonomy	1	PT TAXONOMY(#9002227)[#9002227.01101(.01)]
Text Integration Utility	1	TIU DOCUMENT(#8925)[.02]
Third Party Tracking	1	PRIVATE INS FACILITY BILLING(#9002273.02)[1]
Tracking Procedure Workflow	1	CM EVENT TRACKING(#90620)[.02]

Package	Total	FileMan Files
Utility Tables	13	EMPLOYER(#9999999.75)[.19, .22, 2701, 2702] INSURER(#9999999.18)[.25] BENEFICIARY(#9999999.25)[1111] BIC ELIGIBILITY(#9999999.48)[1124] COMMUNITY(#9999999.05)[1117, #9000001.51(.03)] PATIENT RECORD DISPOSITION(#9999999.02)[#9000001.41(.04)] LANGUAGES(#9999999.99)[#9000001.86(.02), #9000001.86(.04), #9000001.8605(.01)] LOCATION(#9999999.06)[#9000001.41(.01), #9000001.61(.01)] PROVIDER CHANGE REASON(#9999999.93)[.37, 1707, 1708] PATIENT RESIDENCE(#9999999.361)[1803] RELATIONSHIP(#9999999.36)[2802, 3102] SSN STATUS(#9999999.78)[.23] TRIBE(#9999999.03)[.09, 1108, 1127, #9000001.43(.01)]
Kernel	3	AGENCY(#4.11)[#9000001.42(.02)] STATE(#5)[1115, 2603, 2606, #9000001.83(.06)] NEW PERSON(#200)[.11, .12, .14, .33, 1701, 1702, 1704, 1705, #9000001.03301(.02), #9000001.44(4)]
DRG Grouper	1	ICD DIAGNOSIS(#80)[1114]
IHS Patient	1	ELIGIBILITY MODIFIERS(#9000030)[#9000001.03401(.01)]
Registration	1	VA PATIENT(#2)[.01]

Fields, Total: 165

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO VA PATIENT FILE (#2)	**********************REQUIRED FIELD********************** VA PATIENT(#2) INPUT TRANSFORM: `S:$D(X) DINUM=X` LAST EDITED: `SEP 29, 1990` DELETE TEST: `.01,0)= I 1` SOURCE OF DATA: 011/PINAME NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000001^B` 1)= S ^AUPNPAT("B",$E(X,1,30),DA)="" 2)= K ^AUPNPAT("B",$E(X,1,30),DA)
.02	DATE ESTABLISHED	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:DTX) X` LAST EDITED: `APR 03, 1987` HELP-PROMPT: `GENERATED` DESCRIPTION: `Generated when a new patient is registered.` A date between 1960 and today. SOURCE OF DATA: 011/PIDATE UNEDITABLE CROSS-REFERENCE: `9000001^ADTE` 1)= S ^AUPNPAT("ADTE",$E(X,1,30),DA)="" 2)= K ^AUPNPAT("ADTE",$E(X,1,30),DA)
.03	DATE OF LAST REG. UPDATE	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:DTX) X` HELP-PROMPT: `GENERATED` DESCRIPTION: `Generated when a new patient is registered. Updated any time data is added to this patient, or when existing data is modified.` A date between 1960 and today. SOURCE OF DATA: 011/PIUPDA
.04	OUTPT MED/RR RELEASE DATE	0;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:DTX) X` HELP-PROMPT: `ENTER A DATE BETWEEN 1970 AND TODAY ON WHICH PATIENT AUTHORIZED RELEASE OF INFORMATION FOR MEDICARE/RR BILLING.`
.05	MED/RR RELEASE REVOKED DATE	0;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:2700000>X X` LAST EDITED: `JUN 25, 1992` HELP-PROMPT: `ENTER A DATE AFTER 1970 ON WHICH THE PATIENT DENIED OR REVOKED AUTHORIZATION TO RELEASE INFORMATION TO MEDICARE/RR FOR BILLING.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.06	PCIS ID NO.	0;6	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<9)!'((X?9N)!(X?3U6N)) X` LAST EDITED: `APR 15, 1987` HELP-PROMPT: `GENERATED` DESCRIPTION: `Loaded from existing PCIS files. Cannot be added or modified manually.` Nine characters, all numeric or three alpha followed by six numeric. UNEDITABLE CROSS-REFERENCE: `9000001^AZZ` 1)= S ^AUPNPAT("AZZ",$E(X,1,30),DA)="" 2)= K ^AUPNPAT("AZZ",$E(X,1,30),DA)
.07	TRIBAL ENROLLMENT NO.	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-12 CHARACTERS IN LENGTH`
.08	MFI MEDICAL	0;8	SET	'1' FOR MEDICAL ADDED; LAST EDITED: `JUL 03, 1990` UNEDITABLE
.09	CHS TRIBAL AFFILIATION	0;9	POINTER TO TRIBE FILE (#9999999.03)	TRIBE(#9999999.03)
.11	ESTABLISHING USER	0;11	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `SEP 25, 2002` HELP-PROMPT: `DO NOT EDIT. PROGRAMMATICALLY CONTROLLED.` TECHNICAL DESCR: This field was modified from pointing to file 3 to point to file 200 by AUPN99.18. WRITE AUTHORITY: ^ UNEDITABLE
.12	USER-LAST UPDATE	0;12	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `SEP 25, 2002` HELP-PROMPT: `DO NOT EDIT. PROGRAMMATICALLY CONTROLLED.` TECHNICAL DESCR: This field was modified from pointing to file 3 to point to file 200 by AUPN99.18.
.13	BLOOD TYPE	0;13	SET	'A+' FOR A+; 'A-' FOR A-; 'AB+' FOR AB+; 'AB-' FOR AB-; 'B+' FOR B+; 'B-' FOR B-; 'O+' FOR O+; 'O-' FOR O-; LAST EDITED: `APR 22, 1986`
.14	PRIMARY CARE PROVIDER	0;14	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y)),$S($D(BVC):1,$P($G(^VA(200,+Y,""PS"")),U,4)="""":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 22, 2004` SCREEN: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y)),$S($D(BVC):1,$P($G(^VA(200,+Y,""PS"")),U,4)="""":1,1:0)"` EXPLANATION: `MUST BE AN ACTIVE PROVIDER.` CROSS-REFERENCE: `9000001^AK` 1)= S ^AUPNPAT("AK",$E(X,1,30),DA)="" 2)= K ^AUPNPAT("AK",$E(X,1,30),DA) Provides a PRIMARY CARE PROVIDER sorting index. CROSS-REFERENCE: `^^TRIGGER^9000001^.33` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") S X=$P(Y(1),U,33),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(9000001,.14,1,2,1.4) 1.4)= S DIH=$S($D(^AUPNPAT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,33)=DIV,DIH=9000001,DIG=.33 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") S X=$P(Y(1),U,33),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(9000001,.14,1,2,2.4) 2.4)= S DIH=$S($D(^AUPNPAT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,33)=DIV,DIH=9000001,DIG=.33 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= S X=$G(DUZ) DELETE VALUE)= S X=$G(DUZ) FIELD)= #.33 This triggers the .33 field. CROSS-REFERENCE: `^^TRIGGER^9000001^.34` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") S X=$P(Y(1),U,34),X=X S DIU=X K Y S X=DIV S X=$G(DT) X ^DD(9000001,.14,1,3,1.4) 1.4)= S DIH=$S($D(^AUPNPAT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,34)=DIV,DIH=9000001,DIG=.34 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") S X=$P(Y(1),U,34),X=X S DIU=X K Y S X=DIV S X=$G(DT) X ^DD(9000001,.14,1,3,2.4) 2.4)= S DIH=$S($D(^AUPNPAT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,34)=DIV,DIH=9000001,DIG=.34 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= S X=$G(DT) DELETE VALUE)= S X=$G(DT) FIELD)= #.34 CROSS-REFERENCE: `9000001^ABDP^MUMPS` 1)= I $T(UPDATE^BDPLINKO)]"" D UPDATE^BDPLINKO(9000001,.14,DA,X,$P(^AUPNPAT(DA,0),U)) 2)= I $T(KILL^BDPLINKO)]"" D KILL^BDPLINKO(9000001,.14,DA,X,$P(^AUPNPAT(DA,0),U))
.15	CHS TX DATE	0;15	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:DTX) X` LAST EDITED: `APR 03, 1987` HELP-PROMPT: `TYPE A DATE BETWEEN 1/1/1960 AND DT`
.16	DATE OF LAST UPDATE	0;16	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:DTX) X` LAST EDITED: `JUL 22, 2013` HELP-PROMPT: `GENERATED` DESCRIPTION: This field is set by several packages, as well as Registration, indicating that data was changed in the patient file. CROSS-REFERENCE: `9000001^ADLU` 1)= S ^AUPNPAT("ADLU",$E(X,1,30),DA)="" 2)= K ^AUPNPAT("ADLU",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9000001^.47` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^AUPNPAT(D0,4)):^(4),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(9000001,.16,1,2,1.4) 1.4)= S DIH=$G(^AUPNPAT(DIV(0),4)),DIV=X S $P(^(4),U,7)=DIV,DIH=9000001,DIG=.47 D ^DICR 2)= Q CREATE CONDITION)= I '$D(DIU(0)) CREATE VALUE)= NOW DELETE VALUE)= NO EFFECT FIELD)= #.47 Developer's note: Trigger screened by DIU(0) existence check to prevent manual re-cross-referencing via FileMan.
.17	*ASSIGN BENEFITS OBTAINED DATE	0;17	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 22, 2004` TECHNICAL DESCR: This field was marked for deletion on 7/22/04 because it is being replaced by field 7101 to allow it to be historical
.18	*ASSIGN BENEFITS EXPIRED DATE	0;18	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 22, 2004` TECHNICAL DESCR: This field was marked for deletion on 7/22/04 because it is being replaced by field 7101 to allow it to be historical
.19	EMPLOYER NAME	0;19	POINTER TO EMPLOYER FILE (#9999999.75)	EMPLOYER(#9999999.75) LAST EDITED: `FEB 27, 1995` CROSS-REFERENCE: `9000001^AF` 1)= S ^AUPNPAT("AF",$E(X,1,30),DA)="" 2)= K ^AUPNPAT("AF",$E(X,1,30),DA)
.21	EMPLOYMENT STATUS	0;21	SET	'1' FOR FULL-TIME; '2' FOR PART-TIME; '3' FOR UNEMPLOYED; '4' FOR SELF EMPLOYED; '5' FOR RETIRED; '6' FOR ACTIVE MILITARY DUTY; '9' FOR UNKNOWN; LAST EDITED: `AUG 23, 1990`
.22	SPOUSE'S EMPLOYER NAME	0;22	POINTER TO EMPLOYER FILE (#9999999.75)	EMPLOYER(#9999999.75) LAST EDITED: `JAN 07, 1991` CROSS-REFERENCE: `9000001^AG` 1)= S ^AUPNPAT("AG",$E(X,1,30),DA)="" 2)= K ^AUPNPAT("AG",$E(X,1,30),DA)
.23	SSN VERIFICATION STATUS	0;23	POINTER TO SSN STATUS FILE (#9999999.78)	SSN STATUS(#9999999.78) LAST EDITED: `MAR 24, 2004` CROSS-REFERENCE: `9000001^AS` 1)= S ^AUPNPAT("AS",$E(X,1,30),DA)="" 2)= K ^AUPNPAT("AS",$E(X,1,30),DA) This cross reference is used by the SSN Matching Processes and reports. CROSS-REFERENCE: `9000001^AAVABDW16^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.
.24	REASON FOR NO SSN	0;24	SET	'1' FOR Not Available; '2' FOR Patient Refused; '3' FOR Patient will Submit; LAST EDITED: `JAN 07, 1991`
.25	PRIMARY INSURER	0;25	POINTER TO INSURER FILE (#9999999.18)	INSURER(#9999999.18) LAST EDITED: `JAN 12, 1998` DESCRIPTION: `This is the patient's current primary insurance carrier. It is a pointer to the Insurer file. The field is used by 3rd Party Billing to determine primary insurer. It does not override workman's comp or accident` insurance.
.26	DOUBTFUL VISITS ALLOWED	0;26	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>150)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 27, 2002` HELP-PROMPT: `Enter the number of visits the patient is allowed or approved for` TECHNICAL DESCR: Field created 6/7/2002 for V7.0 of AG Distributed in AUPN99.18
.27	PRIVACY ACT	0;27	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 27, 2002` HELP-PROMPT: `Date privacy act was obtained and entered into patient's chart` TECHNICAL DESCR: Field created 6/7/2002 for V7.0 of AG Distributed AUPN99.18
.31	PRINTABLE NAME	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAR 01, 1991` HELP-PROMPT: `Answer must be 3-30 characters in length.`
.32	REFERRING PCP	3;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>35!($L(X)<3) X` LAST EDITED: `OCT 20, 1997` HELP-PROMPT: `Answer must be 3-35 characters in length.`
.33	USER UPDATING PRIM CARE PROV	0;33	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 28, 1999` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the PRIMARY CARE PROVIDER field of the PATIENT File`
.34	DATE PRIM CARE PROV UPDATED	0;34	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 28, 1999` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the PRIMARY CARE PROVIDER field of the PATIENT File`
.35	NUMBER IN HOUSEHOLD	0;35	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 23, 2000` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
.36	TOTAL HOUSEHOLD INCOME	0;36	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 26, 2000` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits`
.37	REASON PRIM CARE PROV CHANGED	0;37	POINTER TO PROVIDER CHANGE REASON FILE (#9999999.93)	PROVIDER CHANGE REASON(#9999999.93) LAST EDITED: `FEB 04, 2002` CROSS-REFERENCE: `9000001^AREAS` 1)= S ^AUPNPAT("AREAS",$E(X,1,30),DA)="" 2)= K ^AUPNPAT("AREAS",$E(X,1,30),DA)
.38	ENVOY ELIG DATE	0;38	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 20, 2001`
.39	SEND TO REGISTRY	0;39	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 24, 2001`
.41	BASE RECORD EXPORTED DATE	4;1	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:X<1 X` LAST EDITED: `APR 02, 2003` HELP-PROMPT: `(No range limit on date)`
.42	DEMO RECORD EXPORTED DATE	4;2	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:X<1 X` LAST EDITED: `MAR 25, 2003` HELP-PROMPT: `(No range limit on date)`
.43	ALIAS RECORD EXPORTED DATE	4;3	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:X<1 X` LAST EDITED: `MAR 25, 2003` HELP-PROMPT: `(No range limit on date)`
.44	CHART RECORD EXPORTED DATE	4;4	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:X<1 X` LAST EDITED: `MAR 25, 2003` HELP-PROMPT: `(No range limit on date)`
.45	ELIG RECORD EXPORTED DATE	4;5	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:X<1 X` LAST EDITED: `MAR 25, 2003` HELP-PROMPT: `(No range limit on date)`
.46	POSTAL CODE (NON-US)	4;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<2) X` LAST EDITED: `JUL 30, 2010` HELP-PROMPT: `Answer must be 2-15 characters in length.` DESCRIPTION: Postal Code field for addresses outside the U.S.
.47	DATE/TIME OF LAST UPDATE	4;7	DATE	INPUT TRANSFORM: `S %DT="ESTR" D ^%DT S X=Y K:X<1 X` LAST EDITED: `JUL 12, 2013` HELP-PROMPT: `(No range limit on date)` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the DATE OF LAST UPDATE field of the PATIENT File` CROSS-REFERENCE: `9000001^ADTU` 1)= S ^AUPNPAT("ADTU",$E(X,1,30),DA)="" 2)= K ^AUPNPAT("ADTU",$E(X,1,30),DA)
45	MOST RECENT MBI	45;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>11!($L(X)<11) X` LAST EDITED: `OCT 20, 2017` HELP-PROMPT: `Answer must be 11 characters in length.` AUDIT: `YES, ALWAYS` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the MBI field of the MBI sub-field of the PATIENT File`
1101.2	SEX		COMPUTED	MUMPS CODE: `X ^DD(9000001,1101.2,9.3) S X=$P($P(Y(9000001,1101.2,102),$C(59)_$P(Y(9000001,1101.2,101),U,2)_":",2),$C(59),1) S D0=Y(9000001,1101.2,2)` 9.2 = S Y(9000001,1101.2,2)=$S($D(D0):D0,1:""),Y(9000001,1101.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,1101.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 9.3 = X ^DD(9000001,1101.2,9.2) S Y(9000001,1101.2,102)=$C(59)_$S($D(^DD(2,.02,0)):$P(^(0),U,3),1:""),Y(9000001,1101.2,101)=$S($D(^DPT(D0,0)):^(0),1:"") ALGORITHM: `NAME:SEX`
1102.2	DOB		COMPUTED DATE	MUMPS CODE: `X ^DD(9000001,1102.2,9.2) S Y(9000001,1102.2,101)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(9000001,1102.2,101),U,3) S D0=Y(9000001,1102.2,2)` 9.2 = S Y(9000001,1102.2,2)=$S($D(D0):D0,1:""),Y(9000001,1102.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,1102.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:DOB`
1102.98	PRINTABLE AGE		COMPUTED	MUMPS CODE: `X ^DD(9000001,1102.98,9.3) S X=$P(Y(9000001,1102.98,101),U,3),Y=X,X=Y(9000001,1102.98,1),X=X,X1=X,X2=Y,X="" D:X2 ^%DTC:X1 S AUX=X\365.25,X=$S(AUX>2:AUX_" YRS",X<31:X_" DYS",1:X\30_" MOS") K AUX S D0=Y(9000001,1102.98,80)` 9.2 = S Y(9000001,1102.98,80)=$S($D(D0):D0,1:""),Y(9000001,1102.98,2)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),X=DT S X=X,Y(9000001,1102.98,1)=X 9.3 = X ^DD(9000001,1102.98,9.2) S D0=$P(Y(9000001,1102.98,2),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(9000001,1102.98,101)=$S($D(^DPT(D0,0)):^(0),1:"") ALGORITHM: `TODAY-(NAME:DOB)\365.25` LAST EDITED: `DEC 30, 1986`
1102.99	AGE		COMPUTED	MUMPS CODE: `X ^DD(9000001,1102.99,9.2) X $P(^DD(2,.033,0),U,5,99) S Y(9000001,1102.99,101)=X S X=Y(9000001,1102.99,101) S D0=Y(9000001,1102.99,2)` 9.2 = S Y(9000001,1102.99,2)=$S($D(D0):D0,1:""),Y(9000001,1102.99,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,1102.99,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:AGE`
1103.2	CITY OF BIRTH		COMPUTED	MUMPS CODE: `X ^DD(9000001,1103.2,9.2) S Y(9000001,1103.2,101)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(9000001,1103.2,101),U,11) S D0=Y(9000001,1103.2,2)` 9.2 = S Y(9000001,1103.2,2)=$S($D(D0):D0,1:""),Y(9000001,1103.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,1103.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:CITY OF BIRTH`
1104.2	STATE OF BIRTH		COMPUTED	MUMPS CODE: `X ^DD(9000001,1104.2,9.2) S Y(9000001,1104.2,101)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$S('$D(^DIC(5,+$P(Y(9000001,1104.2,101),U,12),0)):"",1:$P(^(0),U,1)) S D0=Y(9000001,1104.2,2)` 9.2 = S Y(9000001,1104.2,2)=$S($D(D0):D0,1:""),Y(9000001,1104.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,1104.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:STATE OF BIRTH`
1105	BIRTH CERTIFICATE NO.	11;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6)!'(X?6N) X` HELP-PROMPT: `ANSWER MUST 6 NUMERIC CHARACTERS IN LENGTH.` SOURCE OF DATA: 012/DMBCER GROUP: `DEMOG`
1106.2	RELIGION		COMPUTED	MUMPS CODE: `X ^DD(9000001,1106.2,9.2) S Y(9000001,1106.2,101)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$S('$D(^DIC(13,+$P(Y(9000001,1106.2,101),U,8),0)):"",1:$P(^(0),U,1)) S D0=Y(9000001,1106.2,2)` 9.2 = S Y(9000001,1106.2,2)=$S($D(D0):D0,1:""),Y(9000001,1106.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,1106.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:RELIGION`
1107.2	SSN		COMPUTED	MUMPS CODE: `X ^DD(9000001,1107.2,9.2) S Y(9000001,1107.2,101)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(9000001,1107.2,101),U,9) S D0=Y(9000001,1107.2,2)` 9.2 = S Y(9000001,1107.2,2)=$S($D(D0):D0,1:""),Y(9000001,1107.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,1107.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:SSN`
1107.3	PRINTABLE SSN		COMPUTED	MUMPS CODE: `S X=$S($L($P($G(^DPT(D0,0)),U,9))=9:"XXX-XX-"_$E($P($G(^DPT(D0,0)),U,9),6,9),1:$P($G(^DPT(D0,0)),U,9))` ALGORITHM: `S X=$S($L($P($G(^DPT(D0,0)),U,9))=9:"XXX-XX-"_$E($P($G(^DPT(D0,0)),U,9),6,9),1:$P($G(^DPT(D0,0)),U,9))` LAST EDITED: `OCT 09, 2007`
1108	TRIBE OF MEMBERSHIP	11;8	POINTER TO TRIBE FILE (#9999999.03)	**********************REQUIRED FIELD********************** TRIBE(#9999999.03) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),""^"",4)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 25, 2004` SCREEN: `S DIC("S")="I $P(^(0),""^"",4)'=""Y"""` EXPLANATION: `Prevents selection of old tribes.` WRITE AUTHORITY: ^ NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000001^AE` 1)= S ^AUPNPAT("AE",$E(X,1,30),DA)="" 2)= K ^AUPNPAT("AE",$E(X,1,30),DA) CROSS-REFERENCE: `9000001^AAVABDW17^MUMPS` 1)= D SET^AUPNDWXR(DA,"DEMO") 2)= D KILL^AUPNDWXR(DA,"DEMO") Populates AUPNDWAF for Data Warehouse export. See routine AUPNDWXR for documentation.
1109	TRIBE QUANTUM	11;9	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) D PAT1109^AUPNPED` LAST EDITED: `FEB 12, 1997` HELP-PROMPT: `Enter fraction of tribe in which enrolled, in the form numerator / denominator, or enter (F)ULL, (N)ONE, (UNK)NOWN, (UNS)PECIFIED. Must not be greater than INDIAN BLOOD QUANTUM.` DESCRIPTION: `Enter fraction of tribe in which enrolled , in the form numerator / denominator, or enter (F)ULL, (N)ONE, (UNK)NOWN, (UNS)PECIDIED. Must not be greater than INDIAN BLOOD QUANTUM. EXAMPLES: 1/4, 5/128, 1/1, F, NONE, UNK,` UNS. SOURCE OF DATA: 012/DMPQUN GROUP: `DEMOG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000001^AZ1^MUMPS` 1)= Q 2)= Q CROSS-REFERENCE: `9000001^AQ2^MUMPS` 1)= N % S %=X,X="AMQQLXR" X ^%ZOSF("TEST") S X=% I $T,$P($G(^AUTTSITE(1,0)),U,19)="Y" D QXR^AMQQLXR I $D(AMQQQXR) S ^AUPNPAT("AQ2",AMQQQXR,DA)="" K AMQQQXR 2)= N % S %=X,X="AMQQLXR" X ^%ZOSF("TEST") S X=% I $T,$P($G(^AUTTSITE(1,0)),U,19)="Y" D QXR^AMQQLXR I $D(AMQQQXR) K ^AUPNPAT("AQ2",AMQQQXR,DA),AMQQQXR
1109.9	TRIBE QUANTUM DECIMAL		COMPUTED	MUMPS CODE: `D PAT11099^AUPNPOUT` ALGORITHM: `D PAT11099^AUPNPOUT`
1110	INDIAN BLOOD QUANTUM	11;10	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) D PAT1110^AUPNPED` LAST EDITED: `MAR 25, 2004` HELP-PROMPT: `Enter fraction of Indian blood, in the form numerator / denominator, or enter F, FULL, N, NONE, UNK, UNKNOWN, UNS, UNSPECIFIED. Must not be less than TRIBE QUANTUM.` DESCRIPTION: Enter fraction of Indian blood, in the form numerator / denominator, or enter F, FULL, N, NONE, UNK, UNKNOWN, UNS, UNSPECIFIED. Must not be less than TRIBE QUANTUM. EXAMPLES: 1/4, 5/128, 1/1, F, NONE, UNK, UNSPECIFIED SOURCE OF DATA: 012/DMIQUN GROUP: `DEMOG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000001^AZ2^MUMPS` 1)= Q 2)= Q CROSS-REFERENCE: `9000001^AQ1^MUMPS` 1)= N % S %=X,X="AMQQLXR" X ^%ZOSF("TEST") S X=% I $T,$P($G(^AUTTSITE(1,0)),U,19)="Y" D QXR^AMQQLXR I $D(AMQQQXR) S ^AUPNPAT("AQ1",AMQQQXR,DA)="" K AMQQQXR 2)= N % S %=X,X="AMQQLXR" X ^%ZOSF("TEST") S X=% I $T,$P($G(^AUTTSITE(1,0)),U,19)="Y" D QXR^AMQQLXR I $D(AMQQQXR) K ^AUPNPAT("AQ1",AMQQQXR,DA),AMQQQXR CROSS-REFERENCE: `9000001^AAVABDW18^MUMPS` 1)= D SET^AUPNDWXR(DA,"DEMO") 2)= D KILL^AUPNDWXR(DA,"DEMO") Populates AUPNDWAF for Data Warehouse export. See routine AUPNDWXR for documentation.
1110.9	INDIAN QUANTUM DECIMAL		COMPUTED	MUMPS CODE: `D PAT11109^AUPNPOUT` ALGORITHM: `D PAT11109^AUPNPOUT`
1111	CLASSIFICATION/BENEFICIARY	11;11	POINTER TO BENEFICIARY FILE (#9999999.25)	**********************REQUIRED FIELD********************** BENEFICIARY(#9999999.25) INPUT TRANSFORM: `S DIC("S")="I $P(^AUTTBEN(Y,0),U,3)'=""I""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 25, 2004` SCREEN: `S DIC("S")="I $P(^AUTTBEN(Y,0),U,3)'=""I"""` EXPLANATION: `ONLY SITE ACTIVE CLASSIFICATIONS MAY BE USED.` CROSS-REFERENCE: `9000001^AD` 1)= S ^AUPNPAT("AD",$E(X,1,30),DA)="" 2)= K ^AUPNPAT("AD",$E(X,1,30),DA) CROSS-REFERENCE: `9000001^AAVABDW19^MUMPS` 1)= D SET^AUPNDWXR(DA,"DEMO") 2)= D KILL^AUPNDWXR(DA,"DEMO") Populates AUPNDWAF for Data Warehouse export. See routine AUPNDWXR for documentation.
1112	ELIGIBILITY STATUS	11;12	SET	**********************REQUIRED FIELD********************** 'I' FOR INELIGIBLE; 'D' FOR DIRECT ONLY; 'C' FOR CHS & DIRECT; 'P' FOR PENDING VERIFICATION; INPUT TRANSFORM: `I $D(DA),Y="I",$D(^AUPNPAT(DA,11)),$P(^(11),U,11)=1 K X` LAST EDITED: `MAR 25, 2004` HELP-PROMPT: `ENTER I,D,C OR P TO INDICATE ELIGIBILITY, NATIVE AMERICAN CAN'T BE INELIGIBLE.` TECHNICAL DESCR: AUPN93.212 modified the IT on this field. And, we assume the IT works b/c the ^AUTTBEN( global was distributed in pre-history, and the value at IEN 1 has never changed. GROUP: `DEMOG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000001^AAVABDW20^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.
1113	CURRENT RESIDENCE DATE	11;13	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 09, 1991` CROSS-REFERENCE: `9000001^AJ^MUMPS` 1)= S AUPNTEMP("MFI",$J,DA,1113)="" D MFI^AUPNPCTR ; SET 1117 & 1113 into previous community multiple 2)= Q
1113.2	DATE OF DEATH		COMPUTED DATE	MUMPS CODE: `X ^DD(9000001,1113.2,9.2) S Y(9000001,1113.2,101)=$S($D(^DPT(D0,.35)):^(.35),1:"") S X=$P(Y(9000001,1113.2,101),U,1) S D0=Y(9000001,1113.2,2)` 9.2 = S Y(9000001,1113.2,2)=$S($D(D0):D0,1:""),Y(9000001,1113.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,1113.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:DATE OF DEATH`
1114	UNDERLYING CAUSE OF DEATH	11;14	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `MAR 25, 2004` CROSS-REFERENCE: `9000001^AAVABDW21^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.
1115	STATE OF DEATH	11;15	POINTER TO STATE FILE (#5)	STATE(#5)
1116	DEATH CERTIFICATE NO.	11;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<6)!'(X?6.8N) X` LAST EDITED: `FEB 12, 1997` HELP-PROMPT: `Answer must be 6-8 characters in length.` SOURCE OF DATA: 012/DMDHCN GROUP: `DEATH`
1117	CURRENT RESIDENCE PTR	11;17	POINTER TO COMMUNITY FILE (#9999999.05)	COMMUNITY(#9999999.05) LAST EDITED: `SEP 09, 1991` NOTES: `TRIGGERED by the COMMUNITY OF RESIDENCE field of the PREVIOUS COMMUNITY sub-field of the PATIENT File` CROSS-REFERENCE: `9000001^AH^MUMPS` 1)= S AUPNTEMP("MFI",$J,DA,1117)="" D MFI^AUPNPCTR ; set 1117 & 1113 into previous community multiple 2)= Q
1118	CURRENT COMMUNITY	11;18	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X` LAST EDITED: `AUG 05, 1991` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` WRITE AUTHORITY: ^ CROSS-REFERENCE: `9000001^AC` 1)= S ^AUPNPAT("AC",$E(X,1,30),DA)="" 2)= K ^AUPNPAT("AC",$E(X,1,30),DA)
1119	TRIBE MEMBERSHIP VERIFIED FLAG	11;19	SET	'Y' FOR YES; 'N' FOR NO; 'U' FOR UNABLE TO VERIFY (NO TRIBAL ROLE); LAST EDITED: `MAY 03, 1988` DESCRIPTION: This field indicates whether the Tribal Membership has been verified through the Patient Registration system.
1121	RESIDENCE VERIFIED FLAG	11;21	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `DEC 11, 1987` DESCRIPTION: This field indicates whether the Residence has been verified through the Patient Registration system.
1122	PREV HSDA RES (VER) FLAG	11;22	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `DEC 11, 1987` DESCRIPTION: This field indicates whether the patient has lived in a Health Service Delivery Area (HSDA) since the implementation date of the BIC (03/16/88???)
1123	DATE ELIGIBILITY DETERMINED	11;23	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:DT+10000X) X` LAST EDITED: `APR 15, 1988` HELP-PROMPT: `Type a date between 1960 and 1 year from today` DESCRIPTION: This field holds the date the patient's eligibility was verified through the Patient Registration system. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1124	BIC ELIGIBILITY STATUS	11;24	POINTER TO BIC ELIGIBILITY FILE (#9999999.48)	BIC ELIGIBILITY(#9999999.48) LAST EDITED: `JUL 11, 1988`
1125	ELIGIBILE MINOR CHILD	11;25	SET	'T' FOR TRIBE; 'C' FOR COMMUNITY; 'B' FOR BOTH TRIBE & COMMUNITY; 'N' FOR NEITHER; LAST EDITED: `AUG 17, 1988` DESCRIPTION: This field is used to store a flag if this patient is a minor child eligible only because his or her parents are eligible.
1126	BIC PRINTED FLAG	11;26	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `DEC 11, 1987` DESCRIPTION: This flag indicates whether a Benificiary Identification Card (BIC) has been printed.
1127	PRE-BIC TRIBE	11;27	POINTER TO TRIBE FILE (#9999999.03)	TRIBE(#9999999.03) LAST EDITED: `JUN 20, 1989` HELP-PROMPT: `Enter the old tribe name/code that was used before the BIC Tribe file was initiated.`
1129	DEATH EDITED DATE	11;29	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 07, 2004` DESCRIPTION: This field will contain the date the date of death field was edited.
1201	LOCATION OF HOME	12;0	WORD-PROCESSING #9000001.12
1301	ADDITIONAL REGISTRATION INFO	13;0	WORD-PROCESSING #9000001.13	LAST EDITED: `NOV 20, 2002` DESCRIPTION: Enter Additional Registration Info on this page
1401	REMARKS	14;0	WORD-PROCESSING #9000001.14	DESCRIPTION: Enter notes or remarks other than Additional Registration Info notes on this page.
1501	ALERTS	15;0	WORD-PROCESSING #9000001.15
1601	CHS NOTES	16;0	WORD-PROCESSING #9000001.16	DESCRIPTION: Enter CHS notes on this page.
1602.2	MAILING ADDRESS-STREET		COMPUTED	MUMPS CODE: `X ^DD(9000001,1602.2,9.2) S Y(9000001,1602.2,101)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(9000001,1602.2,101),U,1) S D0=Y(9000001,1602.2,2)` 9.2 = S Y(9000001,1602.2,2)=$S($D(D0):D0,1:""),Y(9000001,1602.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,1602.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:MAILING ADDRESS-STREET`
1603.2	MAILING ADDRESS-CITY		COMPUTED	MUMPS CODE: `X ^DD(9000001,1603.2,9.2) S Y(9000001,1603.2,101)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(9000001,1603.2,101),U,4) S D0=Y(9000001,1603.2,2)` 9.2 = S Y(9000001,1603.2,2)=$S($D(D0):D0,1:""),Y(9000001,1603.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,1603.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:MAILING ADDRESS-CITY`
1604.2	MAILING ADDRESS-STATE		COMPUTED	MUMPS CODE: `X ^DD(9000001,1604.2,9.2) S Y(9000001,1604.2,101)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$S('$D(^DIC(5,+$P(Y(9000001,1604.2,101),U,5),0)):"",1:$P(^(0),U,1)) S D0=Y(9000001,1604.2,2)` 9.2 = S Y(9000001,1604.2,2)=$S($D(D0):D0,1:""),Y(9000001,1604.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,1604.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:MAILING ADDRESS-STATE`
1605.2	MAILING ADDRESS-ZIP		COMPUTED	MUMPS CODE: `X ^DD(9000001,1605.2,9.2) S Y(9000001,1605.2,101)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(9000001,1605.2,101),U,6) S D0=Y(9000001,1605.2,2)` 9.2 = S Y(9000001,1605.2,2)=$S($D(D0):D0,1:""),Y(9000001,1605.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,1605.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:MAILING ADDRESS-ZIP` LAST EDITED: `MAY 03, 2006`
1606.2	HOME PHONE		COMPUTED	MUMPS CODE: `X ^DD(9000001,1606.2,9.2) S Y(9000001,1606.2,101)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(9000001,1606.2,101),U,1) S D0=Y(9000001,1606.2,2)` 9.2 = S Y(9000001,1606.2,2)=$S($D(D0):D0,1:""),Y(9000001,1606.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,1606.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:HOME PHONE`
1607.2	OFFICE PHONE		COMPUTED	MUMPS CODE: `X ^DD(9000001,1607.2,9.2) S Y(9000001,1607.2,101)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(9000001,1607.2,101),U,2) S D0=Y(9000001,1607.2,2)` 9.2 = S Y(9000001,1607.2,2)=$S($D(D0):D0,1:""),Y(9000001,1607.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,1607.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:OFFICE PHONE`
1701	MH PRIMARY PROVIDER	17;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 03, 2001` CROSS-REFERENCE: `^^TRIGGER^9000001^1702` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPAT(D0,17)):^(17),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(9000001,1701,1,1,1.4) 1.4)= S DIH=$S($D(^AUPNPAT(DIV(0),17)):^(17),1:""),DIV=X S $P(^(17),U,2)=DIV,DIH=9000001,DIG=1702 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPAT(D0,17)):^(17),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(9000001,1701,1,1,2.4) 2.4)= S DIH=$S($D(^AUPNPAT(DIV(0),17)):^(17),1:""),DIV=X S $P(^(17),U,2)=DIV,DIH=9000001,DIG=1702 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= S X=$G(DUZ) DELETE VALUE)= S X=$G(DUZ) FIELD)= #1702 CROSS-REFERENCE: `^^TRIGGER^9000001^1703` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPAT(D0,17)):^(17),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$G(DT) X ^DD(9000001,1701,1,2,1.4) 1.4)= S DIH=$S($D(^AUPNPAT(DIV(0),17)):^(17),1:""),DIV=X S $P(^(17),U,3)=DIV,DIH=9000001,DIG=1703 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPAT(D0,17)):^(17),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$G(DT) X ^DD(9000001,1701,1,2,2.4) 2.4)= S DIH=$S($D(^AUPNPAT(DIV(0),17)):^(17),1:""),DIV=X S $P(^(17),U,3)=DIV,DIH=9000001,DIG=1703 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= S X=$G(DT) DELETE VALUE)= S X=$G(DT) FIELD)= #1703
1702	USER UPDATING MH PROVIDER	17;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 12, 2001` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the MH PRIMARY PROVIDER field of the PATIENT File`
1703	DATE MH PROVIDER UPDATED	17;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 12, 2001` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the MH PRIMARY PROVIDER field of the PATIENT File`
1704	MH MED MANAGER	17;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 03, 2001` CROSS-REFERENCE: `^^TRIGGER^9000001^1705` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPAT(D0,17)):^(17),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(9000001,1704,1,1,1.4) 1.4)= S DIH=$S($D(^AUPNPAT(DIV(0),17)):^(17),1:""),DIV=X S $P(^(17),U,5)=DIV,DIH=9000001,DIG=1705 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPAT(D0,17)):^(17),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(9000001,1704,1,1,2.4) 2.4)= S DIH=$S($D(^AUPNPAT(DIV(0),17)):^(17),1:""),DIV=X S $P(^(17),U,5)=DIV,DIH=9000001,DIG=1705 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= S X=$G(DUZ) DELETE VALUE)= S X=$G(DUZ) FIELD)= #1705 CROSS-REFERENCE: `^^TRIGGER^9000001^1706` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPAT(D0,17)):^(17),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$G(DT) X ^DD(9000001,1704,1,2,1.4) 1.4)= S DIH=$S($D(^AUPNPAT(DIV(0),17)):^(17),1:""),DIV=X S $P(^(17),U,6)=DIV,DIH=9000001,DIG=1706 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPAT(D0,17)):^(17),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$G(DT) X ^DD(9000001,1704,1,2,2.4) 2.4)= S DIH=$S($D(^AUPNPAT(DIV(0),17)):^(17),1:""),DIV=X S $P(^(17),U,6)=DIV,DIH=9000001,DIG=1706 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= S X=$G(DT) DELETE VALUE)= S X=$G(DT) FIELD)= #1706
1705	USER UPDATING SEC MH PROV	17;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 12, 2001` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the MH MED MANAGER field of the PATIENT File`
1706	DATE SEC MH PROV UPDATED	17;6	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 12, 2001` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the MH MED MANAGER field of the PATIENT File`
1707	REASON MH PRIMARY PROV CHANGED	17;7	POINTER TO PROVIDER CHANGE REASON FILE (#9999999.93)	PROVIDER CHANGE REASON(#9999999.93) LAST EDITED: `MAR 12, 2001`
1708	REASON SEC MH PROV CHANGED	17;8	POINTER TO PROVIDER CHANGE REASON FILE (#9999999.93)	PROVIDER CHANGE REASON(#9999999.93) LAST EDITED: `MAR 12, 2001`
1709	CVD STATUS	17;9	SET	'1' FOR ENROLLED; '2' FOR DECLINED; '3' FOR INELIGIBLE; '4' FOR INFORMED; LAST EDITED: `FEB 03, 2003` HELP-PROMPT: `Enter the appropriate code from the list.` DESCRIPTION: Enter the appropriate code from the list to indicate the patient's CVD status.
1710	DATE OF CVD STATUS	17;10	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 05, 2001` HELP-PROMPT: `Enter the date the CVD status was assigned.` DESCRIPTION: Enter the date the CVD status was assigned.
1801	OTHER PHONE	18;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<4) X` LAST EDITED: `APR 09, 2003` HELP-PROMPT: `Answer must be 4-60 characters in length.` DESCRIPTION: `Enter a phone number to leave messages for the patient` Examples: Msg: (204) 872-8144 ext 4444 , Cell: (505) 296-2222
1802	CURRENT EMAIL ADDRESS	18;2	FREE TEXT	INPUT TRANSFORM: `D EMAIL^AUPNPED` LAST EDITED: `OCT 03, 2007` HELP-PROMPT: `Answer must be 3-65 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1803	RX PATIENT RESIDENCE	18;3	POINTER TO PATIENT RESIDENCE FILE (#9999999.361)	PATIENT RESIDENCE(#9999999.361) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,4)=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 04, 2017` HELP-PROMPT: `Enter the Patient's Residence code` DESCRIPTION: The Patient Residence (required for Medicare Part D) SCREEN: `S DIC("S")="I $P(^(0),U,4)="""""` EXPLANATION: `List entries only applicable to Pharmacy Benefits.`
1901	DESCRIPTION OF VA DISABILITY	19;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<3) X` LAST EDITED: `MAY 23, 2002` HELP-PROMPT: `Answer must be 3-60 characters in length.` DESCRIPTION: Enter a brief description of the Patient's VA disability. TECHNICAL DESCR: This field was created on 5/23/02 for Pat Reg V 7.0. It's purpose is to allow the Pat Reg clerk to enter a brief description of the Patient's VA disability.
2101.2	LEGAL RESIDENCE-STREET		COMPUTED	MUMPS CODE: `X ^DD(9000001,2101.2,9.2) S Y(9000001,2101.2,101)=$S($D(^DPT(D0,.111)):^(.111),1:"") S X=$P(Y(9000001,2101.2,101),U,1) S D0=Y(9000001,2101.2,2)` 9.2 = S Y(9000001,2101.2,2)=$S($D(D0):D0,1:""),Y(9000001,2101.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,2101.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:LEGAL RESIDENCE-STREET`
2102.2	LEGAL RESIDENCE-CITY		COMPUTED	MUMPS CODE: `X ^DD(9000001,2102.2,9.2) S Y(9000001,2102.2,101)=$S($D(^DPT(D0,.111)):^(.111),1:"") S X=$P(Y(9000001,2102.2,101),U,4) S D0=Y(9000001,2102.2,2)` 9.2 = S Y(9000001,2102.2,2)=$S($D(D0):D0,1:""),Y(9000001,2102.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,2102.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:.1184`
2103.2	LEGAL RESIDENCE-COUNTY		COMPUTED	MUMPS CODE: `X ^DD(9000001,2103.2,9.3) S Y=$P(Y(9000001,2103.2,101),U,7) X:$D(^DD(2,.1187,2)) ^(2) S X=Y S D0=Y(9000001,2103.2,2)` 9.2 = S Y(9000001,2103.2,2)=$S($D(D0):D0,1:""),Y(9000001,2103.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,2103.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 9.3 = X ^DD(9000001,2103.2,9.2) S Y(9000001,2103.2,101)=$S($D(^DPT(D0,.111)):^(.111),1:""),Y(9000001,2103.2,102)=X ALGORITHM: `NAME:LEGAL RESIDENCE-COUNTY`
2104.2	LEGAL RESIDENCE-STATE		COMPUTED	MUMPS CODE: `X ^DD(9000001,2104.2,9.2) S Y(9000001,2104.2,101)=$S($D(^DPT(D0,.111)):^(.111),1:"") S X=$S('$D(^DIC(5,+$P(Y(9000001,2104.2,101),U,5),0)):"",1:$P(^(0),U,1)) S D0=Y(9000001,2104.2,2)` 9.2 = S Y(9000001,2104.2,2)=$S($D(D0):D0,1:""),Y(9000001,2104.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,2104.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:LEGAL RESIDENCE-STATE`
2105.2	LEGAL RESIDENCE-ZIP		COMPUTED	MUMPS CODE: `X ^DD(9000001,2105.2,9.2) S Y(9000001,2105.2,101)=$S($D(^DPT(D0,.111)):^(.111),1:"") S X=$P(Y(9000001,2105.2,101),U,6) S D0=Y(9000001,2105.2,2)` 9.2 = S Y(9000001,2105.2,2)=$S($D(D0):D0,1:""),Y(9000001,2105.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,2105.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:LEGAL RESIDENCE-ZIP`
2601.2	FATHER'S NAME		COMPUTED	MUMPS CODE: `X ^DD(9000001,2601.2,9.2) S Y(9000001,2601.2,101)=$S($D(^DPT(D0,.24)):^(.24),1:"") S X=$P(Y(9000001,2601.2,101),U,1) S D0=Y(9000001,2601.2,2)` 9.2 = S Y(9000001,2601.2,2)=$S($D(D0):D0,1:""),Y(9000001,2601.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,2601.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:FATHER'S NAME`
2602	FATHER'S CITY OF BIRTH	26;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<3) X` HELP-PROMPT: `ANSWER MUST BE 3-15 CHARACTERS IN LENGTH`
2603	FATHER'S STATE OF BIRTH	26;3	POINTER TO STATE FILE (#5)	STATE(#5)
2604.2	MOTHER'S MAIDEN NAME		COMPUTED	MUMPS CODE: `X ^DD(9000001,2604.2,9.2) S Y(9000001,2604.2,101)=$S($D(^DPT(D0,.24)):^(.24),1:"") S X=$P(Y(9000001,2604.2,101),U,3) S D0=Y(9000001,2604.2,2)` 9.2 = S Y(9000001,2604.2,2)=$S($D(D0):D0,1:""),Y(9000001,2604.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,2604.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:MOTHER'S MAIDEN NAME`
2605	MOTHER'S CITY OF BIRTH	26;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<3) X` HELP-PROMPT: `ANSWER MUST BE 3-15 CHARACTERS IN LENGTH`
2606	MOTHER'S STATE OF BIRTH	26;6	POINTER TO STATE FILE (#5)	STATE(#5)
2701	FATHER'S EMPLOYER NAME	27;1	POINTER TO EMPLOYER FILE (#9999999.75)	EMPLOYER(#9999999.75) LAST EDITED: `APR 15, 2002` HELP-PROMPT: `Enter the patient's father's employer name.` DESCRIPTION: Enter the patient's father's employer information.
2702	MOTHER'S EMPLOYER NAME	27;2	POINTER TO EMPLOYER FILE (#9999999.75)	EMPLOYER(#9999999.75) LAST EDITED: `APR 15, 2002` HELP-PROMPT: `Enter the patient's mother's employer name.` DESCRIPTION: Enter the patient's mother's employer information.
2801.2	NEXT OF KIN		COMPUTED	MUMPS CODE: `X ^DD(9000001,2801.2,9.2) S Y(9000001,2801.2,101)=$S($D(^DPT(D0,.21)):^(.21),1:"") S X=$P(Y(9000001,2801.2,101),U,1) S D0=Y(9000001,2801.2,2)` 9.2 = S Y(9000001,2801.2,2)=$S($D(D0):D0,1:""),Y(9000001,2801.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,2801.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:NEXT OF KIN`
2802	NOK RELATIONSHIP	28;2	POINTER TO RELATIONSHIP FILE (#9999999.36)	RELATIONSHIP(#9999999.36) LAST EDITED: `MAR 07, 1991` CROSS-REFERENCE: `^^TRIGGER^2^.212` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9000001,2802,1,1,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y X ^DD(9000001,2802,1,1,1.1) X ^DD(9000001,2802,1,1,1.4) 1.1)= S X=DIV S X=$S('$D(^AUTTRLSH(+DIV,0)):"",1:$P(^(0),U,1)) 1.4)= S DIH=$S($D(^DPT(DIV(0),.21)):^(.21),1:""),DIV=X I $D(^(0)) S $P(^(.21),U,2)=DIV,DIH=2,DIG=.212 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9000001,2802,1,1,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y S X="" X ^DD(9000001,2802,1,1,2.4) 2.4)= S DIH=$S($D(^DPT(DIV(0),.21)):^(.21),1:""),DIV=X I $D(^(0)) S $P(^(.21),U,2)=DIV,DIH=2,DIG=.212 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^DPT(D0,.21)):^(.21),1:"") CREATE VALUE)= #2802 DELETE VALUE)= @ FIELD)= .01:.212
2803.2	NOK ADDRESS-STREET		COMPUTED	MUMPS CODE: `X ^DD(9000001,2803.2,9.2) S Y(9000001,2803.2,101)=$S($D(^DPT(D0,.21)):^(.21),1:"") S X=$P(Y(9000001,2803.2,101),U,3) S D0=Y(9000001,2803.2,2)` 9.2 = S Y(9000001,2803.2,2)=$S($D(D0):D0,1:""),Y(9000001,2803.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,2803.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:NOK ADDRESS-STREET`
2804.2	NOK ADDRESS-CITY		COMPUTED	MUMPS CODE: `X ^DD(9000001,2804.2,9.2) S Y(9000001,2804.2,101)=$S($D(^DPT(D0,.21)):^(.21),1:"") S X=$P(Y(9000001,2804.2,101),U,6) S D0=Y(9000001,2804.2,2)` 9.2 = S Y(9000001,2804.2,2)=$S($D(D0):D0,1:""),Y(9000001,2804.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,2804.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:.216`
2805.2	NOK ADDRESS-STATE		COMPUTED	MUMPS CODE: `X ^DD(9000001,2805.2,9.2) S Y(9000001,2805.2,101)=$S($D(^DPT(D0,.21)):^(.21),1:"") S X=$P(Y(9000001,2805.2,101),U,6) S D0=Y(9000001,2805.2,2)` 9.2 = S Y(9000001,2805.2,2)=$S($D(D0):D0,1:""),Y(9000001,2805.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,2805.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:NOK ADDRESS-CITY`
2806.2	NOK ADDRESS-ZIP		COMPUTED	MUMPS CODE: `X ^DD(9000001,2806.2,9.2) S Y(9000001,2806.2,101)=$S($D(^DPT(D0,.21)):^(.21),1:"") S X=$P(Y(9000001,2806.2,101),U,8) S D0=Y(9000001,2806.2,2)` 9.2 = S Y(9000001,2806.2,2)=$S($D(D0):D0,1:""),Y(9000001,2806.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,2806.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:NOK ADDRESS-ZIP`
2807.2	NOK PHONE		COMPUTED	MUMPS CODE: `X ^DD(9000001,2807.2,9.2) S Y(9000001,2807.2,101)=$S($D(^DPT(D0,.21)):^(.21),1:"") S X=$P(Y(9000001,2807.2,101),U,9) S D0=Y(9000001,2807.2,2)` 9.2 = S Y(9000001,2807.2,2)=$S($D(D0):D0,1:""),Y(9000001,2807.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,2807.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:NOK PHONE`
2901	FATHERS EMAIL ADDRESS	29;1	FREE TEXT	INPUT TRANSFORM: `D EMAIL^AUPNPED` LAST EDITED: `MAY 04, 2010` HELP-PROMPT: `Enter the email address of the patient's father.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2902	FATHERS PHONE	29;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<4) X` LAST EDITED: `MAY 04, 2010` HELP-PROMPT: `Enter the phone number of the patient's father.`
2903	FATHERS CELL PHONE	29;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<4) X` LAST EDITED: `MAY 04, 2010` HELP-PROMPT: `Enter the cell phone number for the patient's father.`
3001	MOTHERS EMAIL ADDRESS	30;1	FREE TEXT	INPUT TRANSFORM: `D EMAIL^AUPNPED` LAST EDITED: `MAY 04, 2010` HELP-PROMPT: `Enter the email address of the patient's mother.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
3002	MOTHERS PHONE	30;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<4) X` LAST EDITED: `MAY 04, 2010` HELP-PROMPT: `Enter the phone number of the patient's mother.`
3003	MOTHERS CELL PHONE	30;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<4) X` LAST EDITED: `MAY 04, 2010` HELP-PROMPT: `Answer must be 4-60 characters in length`
3101.2	EMERGENCY CONTACT		COMPUTED	MUMPS CODE: `X ^DD(9000001,3101.2,9.2) S Y(9000001,3101.2,101)=$S($D(^DPT(D0,.33)):^(.33),1:"") S X=$P(Y(9000001,3101.2,101),U,1) S D0=Y(9000001,3101.2,2)` 9.2 = S Y(9000001,3101.2,2)=$S($D(D0):D0,1:""),Y(9000001,3101.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,3101.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:EMERGENCY CONTACT`
3102	EC RELATIONSHIP	31;2	POINTER TO RELATIONSHIP FILE (#9999999.36)	RELATIONSHIP(#9999999.36) CROSS-REFERENCE: `^^TRIGGER^2^.332` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9000001,3102,1,1,9.2) S X=$P(Y(101),U,2) S D0=Y(2) S DIU=X K Y X ^DD(9000001,3102,1,1,1.1) X ^DD(9000001,3102,1,1,1.4) 1.1)= S X=DIV S X=$S('$D(^AUTTRLSH(+DIV,0)):"",1:$P(^(0),U,1)) 1.4)= S DIH=$S($D(^DPT(DIV(0),.33)):^(.33),1:""),DIV=X I $D(^(0)) S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(.33)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.332 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9000001,3102,1,1,9.2) S X=$P(Y(101),U,2) S D0=Y(2) S DIU=X K Y S X=DIV S X="" X ^DD(9000001,3102,1,1,2.4) 2.4)= S DIH=$S($D(^DPT(DIV(0),.33)):^(.33),1:""),DIV=X I $D(^(0)) S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(.33)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.332 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 9.2)= S Y(2)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^DPT(D0,.33)):^(.33),1:"") CREATE VALUE)= EC RELATIONSHIP DELETE VALUE)= @ FIELD)= NAME:#.332
3103.2	EC ADDRESS-STREET		COMPUTED	MUMPS CODE: `X ^DD(9000001,3103.2,9.2) S Y(9000001,3103.2,101)=$S($D(^DPT(D0,.33)):^(.33),1:"") S X=$P(Y(9000001,3103.2,101),U,3) S D0=Y(9000001,3103.2,2)` 9.2 = S Y(9000001,3103.2,2)=$S($D(D0):D0,1:""),Y(9000001,3103.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,3103.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:EC ADDRESS-STREET`
3104.2	EC ADDRESS-CITY		COMPUTED	MUMPS CODE: `X ^DD(9000001,3104.2,9.2) S Y(9000001,3104.2,101)=$S($D(^DPT(D0,.33)):^(.33),1:"") S X=$P(Y(9000001,3104.2,101),U,6) S D0=Y(9000001,3104.2,2)` 9.2 = S Y(9000001,3104.2,2)=$S($D(D0):D0,1:""),Y(9000001,3104.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,3104.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:.336`
3105.2	EC ADDRESS-STATE		COMPUTED	MUMPS CODE: `X ^DD(9000001,3105.2,9.2) S Y(9000001,3105.2,101)=$S($D(^DPT(D0,.33)):^(.33),1:"") S X=$S('$D(^DIC(5,+$P(Y(9000001,3105.2,101),U,7),0)):"",1:$P(^(0),U,1)) S D0=Y(9000001,3105.2,2)` 9.2 = S Y(9000001,3105.2,2)=$S($D(D0):D0,1:""),Y(9000001,3105.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,3105.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:EC ADDRESS-STATE`
3106.2	EC ADDRESS-ZIP		COMPUTED	MUMPS CODE: `X ^DD(9000001,3106.2,9.2) S Y(9000001,3106.2,101)=$S($D(^DPT(D0,.33)):^(.33),1:"") S X=$P(Y(9000001,3106.2,101),U,8) S D0=Y(9000001,3106.2,2)` 9.2 = S Y(9000001,3106.2,2)=$S($D(D0):D0,1:""),Y(9000001,3106.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,3106.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:EC ADDRESS-ZIP`
3107.2	EC PHONE		COMPUTED	MUMPS CODE: `X ^DD(9000001,3107.2,9.2) S Y(9000001,3107.2,101)=$S($D(^DPT(D0,.33)):^(.33),1:"") S X=$P(Y(9000001,3107.2,101),U,9) S D0=Y(9000001,3107.2,2)` 9.2 = S Y(9000001,3107.2,2)=$S($D(D0):D0,1:""),Y(9000001,3107.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,3107.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:EC PHONE`
3201	VALID VA CARD	32;1	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUN 10, 2002` HELP-PROMPT: `Does the patient have a valid VA card ?` DESCRIPTION: Answer "Y" if the patient has a valid VA card, "N" if they do not.
3202	DATE VA CARD COPY OBTAINED	32;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 10, 2002` HELP-PROMPT: `Enter the date a copy of the Patient's VA card was obtained.` DESCRIPTION: Enter the date the Registration clerk obtained a copy of the Patient's VA card.
3203	INFORMED HOW TO OBTAIN VA CARD	32;3	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUN 10, 2002` HELP-PROMPT: `Was the Patient informed how to obtain a VA card?`
3301	REFERRED TO BENEFITS COOR	33;0	DATE Multiple #9000001.03301	9000001.03301 LAST EDITED: `JUN 27, 2002` DESCRIPTION: `This multiple allows the user to record occurrences of when the patient was referred to the benefit coordinator. The system will prompt for the date referred and referred to as well as record the initials of the referring` user. All entries are editable and will be displayed on the Business Office Notes page. TECHNICAL DESCR: Created 6/12/2002 for V7.0 of AG Distributed in AUPN99.18
3401	ELIGIBILITY MODIFIERS	34;0	POINTER Multiple #9000001.03401	9000001.03401 TECHNICAL DESCR: Created 6/19/2002 for V7.0 of AG. Distributed in AUPN99.18.
3501	VETERAN INFO EDITED DATE	35;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 06, 2004` DESCRIPTION: This field will be updated when the user edits the VA fields.
3502	VAMB ELIGIBLE	35;2	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `APR 08, 2013` HELP-PROMPT: `Is patient eligible for Veterans Administration Member Benefit Services (Y/N)?`
3601	RELEASE OF INFORMATION	36;0	DATE Multiple #9000001.03601	9000001.03601
4001	SEND GENERIC INFORMATION	40;1	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `MAY 04, 2010` HELP-PROMPT: `Enter whether or not the patient has given their permission to send generic health information to their email address.`
4002	PREFERRED REMINDER METHOD	40;2	SET	'P' FOR PHONE; 'E' FOR EMAIL; 'L' FOR LETTER; 'D' FOR DO NOT NOTIFY; LAST EDITED: `APR 24, 2013`
4101	HEALTH RECORD NO.	41;0	POINTER Multiple #9000001.41	9000001.41 IDENTIFIED BY: `HEALTH RECORD NO.(#.02)[R]`
4201	NATIONAL IDENTIFIERS	42;0	Multiple #9000001.42	9000001.42 LAST EDITED: `FEB 05, 2002`
4301	OTHER TRIBE	43;0	POINTER Multiple #9000001.43	9000001.43
4401	MBI	44;0	DATE Multiple #9000001.44	9000001.44
4601.2	OTHER NAME		COMPUTED	MUMPS CODE: `X ^DD(9000001,4601.2,9.3) X ^DD(9000001,4601.2,9.2):D0>0 S X="" S D0=Y(9000001,4601.2,80)` 9.2 = S I(100)="^DPT(",J(100)=2 F D=0:0 S (D,D1)=$O(^DPT(D0,.01,D)) Q:D'>0 I $D(^(D,0))#2 S X=$P(^(0),U,1) X DICMX Q:'$D(D) S D=D1 9.3 = S Y(9000001,4601.2,80)=$S($D(D0):D0,1:""),Y(9000001,4601.2,1)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9000001,4601.2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `NAME:OTHER NAME` LAST EDITED: `NOV 06, 1998`
4901	DATE MOVED OUT OF CHSDA	49;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 12, 2002` HELP-PROMPT: `Enter the date the patient moved out of the Contract Health Services Delivery Area` TECHNICAL DESCR: Created 6/12/2002 for V7.0 of AG Distributed in AUPN99.18
5101	PREVIOUS COMMUNITY	51;0	DATE Multiple #9000001.51	9000001.51 IDENTIFIED BY: `COMMUNITY OF RESIDENCE(#.03)[R]`
6101	MFI SITE	61;0	POINTER Multiple #9000001.61	9000001.61 DESCRIPTION: This multiple contains any site to which demographic data was sent by the MFI control software at a time when that site did not have a chart for this patient.
7101	ASSIGN BENEFITS OBTAINED DATE	71;0	DATE Multiple #9000001.71	9000001.71 LAST EDITED: `JUL 15, 2004`
8101	INTERNET ACCESS QUESTION DATE	81;0	DATE Multiple #9000001.81	9000001.81
8201	PREVIOUS EMAIL ADDRESSES	82;0	DATE Multiple #9000001.82	9000001.82
8301	PREVIOUS MAIL ADDRESSES	83;0	DATE Multiple #9000001.83	9000001.83
8401	MIGRANT WORKER QUESTION DATE	84;0	DATE Multiple #9000001.84	9000001.84
8501	HOMELESS STATUS QUESTION DATE	85;0	DATE Multiple #9000001.85	9000001.85
8601	LANGUAGES ENTRY DATE	86;0	DATE Multiple #9000001.86	9000001.86
8701	HOUSEHOLD INCOME PERIOD	87;1	SET	'Y' FOR YEAR; 'M' FOR MONTH; 'W' FOR WEEKLY; 'B' FOR BIWEEKLY; LAST EDITED: `FEB 25, 2010`
8702	HARD OF HEARING	87;2	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 25, 2010`
8801	PHR ACCESS DATE	88;0	DATE Multiple #9000001.8801	9000001.8801 IDENTIFIED BY: `ACCESS(#.02)[R]`
8901	PHR HANDOUT DATE	89;0	DATE Multiple #9000001.8901	9000001.8901 IDENTIFIED BY: `HANDOUT(#.02)[R]`
9999	LOOKUP		COMPUTED	MUMPS CODE: `S X=$S($D(APCDLOOK):APCDLOOK,1:"")` ALGORITHM: S X=$S($D(APCDLOOK):"`"_APCDLOOK,1:"") LAST EDITED: `JUL 24, 1987`
99999999	FREE TEXT NAME	99999999;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<1) X` LAST EDITED: `OCT 04, 1993` HELP-PROMPT: `Answer must be 1-45 characters in length.`
999999999	RANDOM SORT	9999999999;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 15, 2004` HELP-PROMPT: `Type a Number between 0 and 9999999999, 0 Decimal Digits`

Customize PDF page

Package: IHS Patient

Global: ^AUPNPAT

Information

Description

Directly Accessed By Routines, Total: 1384

Accessed By FileMan Db Calls, Total: 591

Pointed To By FileMan Files, Total: 248

Pointer To FileMan Files, Total: 19

Fields, Total: 165