Global: ^AUPNMCD

FileMan FileNo	FileMan Filename	Package
9000004	MEDICAID ELIGIBLE	IHS Patient

Directly Accessed By Routines, Total: 199

Package	Total	Routines
IHS Patient Registration	40	AG3RDP AG5 AG6P17B AG71A AG71A1 AG71A2 AG71A3 AG71A4 AG71A5 AG7P2A AGAGERP1 AGAGERP2 AGDATA AGED4A1 AGED5 AGED51 AGEDCHEK AGEDERR3 AGEDMCD AGEDNAME AGEL AGEL2 AGEL5 AGELA1 AGELUP4 AGEVINU AGFACE5 AGFIX7A AGINS AGINSUPD AGMCDCNT AGMCDP AGMCDPC AGMCDPCM AGMCDPN AGMCRP6 AGTX2 AGTXALL AGUND18 AGUTL
Third Party Billing	31	ABMDE23P ABMDE2X3 ABMDE2XA ABMDEFIP ABMDF18A ABMDF1E ABMDF25A ABMDF26A ABMDF29A ABMDF34A ABMDLCK2 ABMDREL1 ABMDREL2 ABME520A ABME5DMG ABME8DMG ABMER20A ABMERINS ABMERUTL ABMKIDS ABMM2ELG ABMM2P10 ABMM2PH1 ABMM2PV3 ABMM2PV8 ABMMUEL1 ABMMUELG ABMPTPOP ABMPTSMT ABMUTLN ABMUTLP
Local Area Programs	13	AZAMED AZAMED1 AZAMED15 AZAMED16 AZAMED4 AZAMFALL AZAMMED AZANED AZANED1 AZANED15 AZANED16 AZAXDPM1 AZHDPATC
Contract Health Management Information System	11	ACHSDNL3 ACHSMD0A ACHSRP31 ACHSRP3D ACHSRPFU ACHSRPI ACHSRPIN ACHSRPU ACHSTX3C ACHSUDF ACHSVUR1
IHS Uniform Data System	10	BUD1RPC2 BUD2RPC2 BUDARPC2 BUDBRPC2 BUDCRPC2 BUDDRPC2 BUDERPC2 BUDERPC3 BUDHRPC2 BUDHRPC3
Patient Care Component Reports	8	APCLBRH1 APCLBRH2 APCLBV11 APCLBV2 APCLPS1 APCLPYR3 APCLVLU APCLVLU1
IHS Changes To ADT	7	ADGCRB4 ADGDMM ADGIP0 ADGMREC ADGWMM1 ADGWMM2 BDGF2
Pharmacy Point of Sale	7	ABSPOS29 ABSPOSBB ABSPOSCC ABSPOSCH ABSPOSFC ABSPOSR7 ABSPOSRU
IHS GPRA Information System	6	BGP0CPU BGP1CPU BGP2CPU BGP3CPU BGP8CPU BGP9CPU
IHS Patient	5	AUPN99P7 AUPNELIG AUPNLBCK AUPNMCDF AUPNPAT2
Referred Care Information System	5	BMCFAHC1 BMCFAHC2 BMCFAHC3 BMCFPRN1 BMCRLU1
IHS Medicaid Eligibility Download	4	BME834 BMEMED BMEMED4 BMEMFALL
Mental Health Social Services	4	AMHRBV11 AMHRBV2 AMHRLU AMHRLU1
Data Warehouse Export System	3	BDWA1 BDWDWPX BDWIN1
IHS Generic Interface System	3	IS00011A IS00029B IS00029D
PCC New Encounter Form	3	VENPCC1C VENPCCD VENPCCD1
iCare	3	BQIPTINS BQITDINS BQIUL2
Alcohol Chemical Dependency	2	ACDRLU ACDRLU1
Bemidji	2	BZDMCDAZ BZDMUT
Case Management System	2	ACMRLU ACMRLU1
IHS Changes To Scheduling	2	ASDAIU BSDAIU
IHS Immunizations Interface	2	BYIMIMM3 BYIMSEGS
IHS RPMS CHR System	2	BCHRLU BCHRLU1
IHS Support HL7 Interfaces	2	BHLIN1 BHLIN1I
Patient Chart	2	BPCRC8 BPCRC9
Patient Registration GUI	2	AGGARVAL AGGUPMCD
Phoenix	2	BZXBPN BZXBPNA
Phoenix Devel Center	2	AZXBV2 AZXZVSIT
Women's Health	2	BWGRVLU BWGRVLU1
Clinical Scheduling for Windows	1	BSDX41B
Electronic Dental Record	1	BADEHLI
Emergency Room	1	AMERCLP
Health Summary Components	1	BHSINSUR
IHS Accounts Receivable	1	BARDMRE
IHS Changes To Pharmacy	1	APSQPINS
IHS Dental System	1	ADEPME
IHS Mods To Text Integration Utilities	1	BTIULO2
IHS VA Utilities	1	XBPATC
M Transfer	1	BMXADOV2
Patient Care Component	1	APCHS5A
Registration	1	DAY SURGERY DATE/TIME

Accessed By FileMan Db Calls, Total: 46

Package	Total	Routines
IHS Patient Registration	17	AG5 AG71A AGAGERP3 AGAPIS1 AGDATA AGED5 AGED51 AGEDMCD AGEL2 AGEL5 AGELUP4 AGEVC AGEVINU AGFACE5 AGKPAT AGMCRP6 AGUTL
Local Area Programs	6	AZAMED AZAMED1 AZAMED4 AZAMMED AZANED AZANED1
Third Party Billing	5	ABMDF28X ABMDLCK2 ABMERINS ABMEXLIP ABMM2PV8
IHS Patient	4	AUPN9920 AUPN99P5 AUPNELIG AUPNMCDF
IHS Medicaid Eligibility Download	3	BME834 BMEMED BMEMED4
iCare	3	BQIPTINS BQITDINS BQIUL2
Patient Registration GUI	2	AGGARVAL AGGUPMCD
Automated Lab Instruments	1	LA7VQINS
Bemidji	1	BZDMCDAZ
Data Warehouse Export System	1	BDWIN1
Electronic Dental Record	1	BADEHLI
IHS Changes To ADT	1	BDGF2
IHS Support HL7 Interfaces	1	BHLIN1I

Pointed To By FileMan Files, Total: 3

Package	Total	FileMan Files
Third Party Billing	2	3P BILL(#9002274.4)[#9002274.4013(.06)] 3P CLAIM DATA(#9002274.3)[#9002274.3013(.06)]
IHS Patient	1	MEDICAID CLAIMS(#9000004.01)[.02]

Pointer To FileMan Files, Total: 6

Package	Total	FileMan Files
Utility Tables	3	EMPLOYER GROUP INSURANCE(#9999999.77)[.17] INSURER(#9999999.18)[.02, .11] RELATIONSHIP(#9999999.36)[.06]
IHS Patient	2	POLICY HOLDER(#9000003.1)[.09] PATIENT(#9000001)[.01]
Kernel	1	STATE(#5)[.04]

Fields, Total: 19

Field #	Name	Loc	Type	Details
.01	PATIENT NAME	0;1	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `JUL 11, 1991` HELP-PROMPT: `ENTER PATIENT'S NAME (EXAMPLE: MORGAN,JAMES PAUL,JR (no space after comma))` DESCRIPTION: This field points to the NAME field of the PATIENT file. A patient must exist in the PATIENT file before data for that patient can be added to this file. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000004^B` 1)= S ^AUPNMCD("B",$E(X,1,30),DA)="" 2)= K ^AUPNMCD("B",$E(X,1,30),DA) CROSS-REFERENCE: `9000004^AD^MUMPS` 1)= I $D(DA),$P(^AUPNMCD(DA,0),U,3)]"",$P(^(0),U,4)]"" S ^AUPNMCD("AB",X,$P(^(0),U,4),$P(^(0),U,3),DA)="" 2)= I $D(DA),$P(^AUPNMCD(DA,0),U,3)]"",$P(^(0),U,4)]"" K ^AUPNMCD("AB",X,$P(^(0),U,4),$P(^(0),U,3),DA)
.02	INSURER POINTER	0;2	POINTER TO INSURER FILE (#9999999.18)	**********************REQUIRED FIELD********************** INSURER(#9999999.18) INPUT TRANSFORM: `SET DIC("S")="I $P(^(0),U,1)=""MEDICAID""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 22, 2004` HELP-PROMPT: `ENTER MEDICAID.` DESCRIPTION: This field is a pointer to the MEDICAID entry in the INSURER file. SCREEN: `SET DIC("S")="I $P(^(0),U,1)=""MEDICAID"""` EXPLANATION: `MEDICAID only INSURER allowed.` UNEDITABLE CROSS-REFERENCE: `9000004^AAVABDW33^MUMPS` 1)= S DWDFN=$P($G(^AUPNMCD(DA,0)),U) D:+DWDFN SET^AUPNDWXR(DWDFN,"ELIG") K DWDFN 2)= S DWDFN=$P($G(^AUPNMCD(DA,0)),U) D:+DWDFN KILL^AUPNDWXR(DWDFN,"ELIG") K DWDFN Populates AUPNDWAF for the Data Warehouse export. See routine AUPNDWXR for documentation.
.03	MEDICAID NUMBER	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<6) X` LAST EDITED: `MAR 26, 2001` HELP-PROMPT: `ANSWER MUST BE 6-30 CHARACTERS IN LENGTH` CROSS-REFERENCE: `9000004^AB^MUMPS` 1)= K ^AUPNMCD("AB",$P(^AUPNMCD(DA,0),U,1),$S($P(^(0),U,4)'="":$P(^(0),U,4),1:"0"),"0",DA) S ^AUPNMCD("AB",$P(^AUPNMCD(DA,0),U,1),$S($P(^(0),U,4)'="":$P(^(0),U,4),1:"0"),X,DA)="" 2)= K ^AUPNMCD("AB",$P(^AUPNMCD(DA,0),U,1),$S($P(^(0),U,4)'="":$P(^(0),U,4),1:"0"),X,DA) CROSS-REFERENCE: `9000004^AE` 1)= S ^AUPNMCD("AE",$E(X,1,30),DA)="" 2)= K ^AUPNMCD("AE",$E(X,1,30),DA)
.04	STATE	0;4	POINTER TO STATE FILE (#5)	**********************REQUIRED FIELD********************** STATE(#5) LAST EDITED: `JUN 22, 2004` UNEDITABLE CROSS-REFERENCE: `9000004^AB-TOO^MUMPS` 1)= K ^AUPNMCD("AB",$P(^AUPNMCD(DA,0),U,1),"0",$S($P(^(0),U,3)'="":$P(^(0),U,3),1:"0"),DA) S ^AUPNMCD("AB",$P(^AUPNMCD(DA,0),U,1),X,$S($P(^(0),U,3)'="":$P(^(0),U,3),1:"0"),DA)="" 2)= K ^AUPNMCD("AB",$P(^AUPNMCD(DA,0),U,1),X,$S($P(^(0),U,3)'="":$P(^(0),U,3),1:"0"),DA) CROSS-REFERENCE: `9000004^AAVABDW34^MUMPS` 1)= S DWDFN=$P($G(^AUPNMCD(DA,0)),U) D:+DWDFN SET^AUPNDWXR(DWDFN,"ELIG") K DWDFN 2)= S DWDFN=$P($G(^AUPNMCD(DA,0)),U) D:+DWDFN KILL^AUPNDWXR(DWDFN,"ELIG") K DWDFN Populates AUPNDWAF for the Data Warehouse export. See routine AUPNDWXR for documentation.
.05	NAME OF INSURED	0;5	FREE TEXT	INPUT TRANSFORM: `D NAME^AUPNPED` LAST EDITED: `MAR 11, 1991` HELP-PROMPT: `Enter the full name of the primary insured person with this account number. Must be 3-30 characters long. Example: MORGAN,JAMES PAUL,JR` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.06	RELATIONSHIP TO INSURED	0;6	POINTER TO RELATIONSHIP FILE (#9999999.36)	RELATIONSHIP(#9999999.36) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)]""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 22, 2004` HELP-PROMPT: `Enter patients relationship to the insured.` SCREEN: `S DIC("S")="I $P(^(0),U,2)]"""""` EXPLANATION: `Standard Billing Form Relationships Only` CROSS-REFERENCE: `9000004^AAVABDW35^MUMPS` 1)= S DWDFN=$P($G(^AUPNMCD(DA,0)),U) D:+DWDFN SET^AUPNDWXR(DWDFN,"ELIG") K DWDFN 2)= S DWDFN=$P($G(^AUPNMCD(DA,0)),U) D:+DWDFN KILL^AUPNDWXR(DWDFN,"ELIG") K DWDFN Populates AUPNDWAF for the Data Warehouse export. See routine AUPNDWXR for documentation.
.07	SEX OF INSURED	0;7	SET	'M' FOR MALE; 'F' FOR FEMALE; 'U' FOR UNKNOWN; LAST EDITED: `APR 05, 2013` HELP-PROMPT: `Enter 'M' for MALE, 'F' for FEMALE, or 'U' if UNKNOWN.`
.08	DATE OF LAST UPDATE	0;8	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 29, 2010` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000004^AAVABDW36^MUMPS` 1)= S DWDFN=$P($G(^AUPNMCD(DA,0)),U) D:+DWDFN SET^AUPNDWXR(DWDFN,"ELIG") K DWDFN 2)= S DWDFN=$P($G(^AUPNMCD(DA,0)),U) D:+DWDFN KILL^AUPNDWXR(DWDFN,"ELIG") K DWDFN Populate AUPNDWAF for the Data Warehouse export. See routine AUPNDWXR for documentation. CROSS-REFERENCE: `9000004^ADLU` 1)= S ^AUPNMCD("ADLU",$E(X,1,30),DA)="" 2)= K ^AUPNMCD("ADLU",$E(X,1,30),DA)
.09	POLICY HOLDER	0;9	POINTER TO POLICY HOLDER FILE (#9000003.1)	POLICY HOLDER(#9000003.1) LAST EDITED: `JUN 22, 2004` CROSS-REFERENCE: `9000004^C` 1)= S ^AUPNMCD("C",$E(X,1,30),DA)="" 2)= K ^AUPNMCD("C",$E(X,1,30),DA) CROSS-REFERENCE: `9000004^AAVABDW37^MUMPS` 1)= S DWDFN=$P($G(^AUPNMCD(DA,0)),U) D:+DWDFN SET^AUPNDWXR(DWDFN,"ELIG") K DWDFN 2)= S DWDFN=$P($G(^AUPNMCD(DA,0)),U) D:+DWDFN KILL^AUPNDWXR(DWDFN,"ELIG") K DWDFN Populates AUPNDWAF for the Data Warehouse export. See routine AUPNDWXR for documentation.
.11	PLAN NAME	0;10	POINTER TO INSURER FILE (#9999999.18)	INSURER(#9999999.18) INPUT TRANSFORM: `S DIC("S")="I $$ITS^AUTINS(Y,""D^K"")" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `MAY 02, 2016` HELP-PROMPT: `Enter the local Plan Name` SCREEN: `S DIC("S")="I $$ITS^AUTINS(Y,""D^K"")"` EXPLANATION: `MEDICAID OR KIDSCARE TYPE OF INSURER ONLY` AUDIT: `YES, ALWAYS` CROSS-REFERENCE: `9000004^AAVABDW38^MUMPS` 1)= S DWDFN=$P($G(^AUPNMCD(DA,0)),U) D:+DWDFN SET^AUPNDWXR(DWDFN,"ELIG") K DWDFN 2)= S DWDFN=$P($G(^AUPNMCD(DA,0)),U) D:+DWDFN KILL^AUPNDWXR(DWDFN,"ELIG") K DWDFN Populates AUPNDWAF for the Data Warehouse export. See routine AUPNDWXR for documentation.
.12	RATE CODE	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `APR 09, 1990` HELP-PROMPT: `Answer must be 1-6 characters in length.`
.13	CASE NUMBER	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<3) X` LAST EDITED: `AUG 24, 1990` HELP-PROMPT: `Answer must be 3-10 characters in length.`
.14	PRIMARY CARE PROVIDER	0;14	FREE TEXT	INPUT TRANSFORM: `D NAME^AUPNPED` LAST EDITED: `JUN 20, 2002` HELP-PROMPT: `Not a required field. Enter the name of the primary care provider for this patient's plan. Usually required for HMO/Managed Care plans.` TECHNICAL DESCR: Created 6/7/2002 for V7.0 of AG Distributed in AUPN99.18 NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.15	MEDICAID CARD COPY ON FILE	0;15	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUN 20, 2002` HELP-PROMPT: `Type in YES or NO to indicate if the patient's Medicaid card copy was obtained and placed into the chart.` TECHNICAL DESCR: Created 6/7/2002 for V7.0 of AG Distributed in AUPN99.18
.16	DATE MCD CC WAS OBTAINED	0;16	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 20, 2002` HELP-PROMPT: `Enter the date the Medicaid card was placed into the patient's chart` TECHNICAL DESCR: Created 6/7/2002 for V7.0 of AG Distributed in AUPN99.18
.17	GROUP NAME	0;17	POINTER TO EMPLOYER GROUP INSURANCE FILE (#9999999.77)	EMPLOYER GROUP INSURANCE(#9999999.77) LAST EDITED: `MAR 25, 2004`
1101	ELIGIBILITY DATES	11;0	DATE Multiple #9000004.11	9000004.11
2101	MEDICAID NAME	21;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 12, 1987` HELP-PROMPT: `Enter PATIENTS FULL NAME exactly as defined by this state's Medicaid system. Must be 3-30 characters.`
2102	MEDICAID DATE OF BIRTH	21;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:DTX) X` LAST EDITED: `MAR 16, 1988` HELP-PROMPT: `Enter the PATIENT'S DATE OF BIRTH exactly as defined by state. This date must be between 1850 and today. If DOB is prior to 1900 be sure to enter the century.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

Customize PDF page

Package: IHS Patient

Global: ^AUPNMCD

Information

Description

Directly Accessed By Routines, Total: 199

Accessed By FileMan Db Calls, Total: 46

Pointed To By FileMan Files, Total: 3

Pointer To FileMan Files, Total: 6

Fields, Total: 19