Global: ^AUPN3PPH

FileMan FileNo	FileMan Filename	Package
9000003.1	POLICY HOLDER	IHS Patient

Package	Total	Routines
IHS Patient Registration	31	AG71A2 AG71A3 AG71A4 AG71A5 AGED4A1 AGEDERR1 AGEDERR3 AGEDNAME AGEDPRV AGEDPRV1 AGEDPRVI AGEDPRVP AGEL AGEL0 AGEL1 AGEL2 AGEL3 AGEL4 AGEL5 AGELA AGELA1 AGELE2X2 AGEVINU AGFACE7 AGINS AGINSUPD AGPHADDR AGTMPMRG AGTMPP AGTXALL AGUTILS
Third Party Billing	24	ABMDE2X ABMDE2X2 ABMDE2XA ABMDF24 ABMDF25A ABMDF29A ABMDF29B ABMDF34A ABMDF34B ABMDLCK2 ABMDREL1 ABMDTPMR ABME5DMG ABME5N3 ABME5N4 ABME8DMG ABME8N3 ABME8N4 ABMKIDS ABMMUEL1 ABMPTSMT ABMRMCRD ABMUTLN ABMUTLP
Contract Health Management Information System	10	ACHSMD0A ACHSRP31 ACHSRP3D ACHSRPFU ACHSRPI1 ACHSRPIN ACHSRPU ACHSTX3 ACHSTX33 ACHSTX3C
IHS Generic Interface System	7	IS00011A IS00011B IS00011D IS00029B IS00029D IS00029E IS00029G
IHS GPRA Information System	6	BGP0CPU BGP1CPU BGP2CPU BGP3CPU BGP8CPU BGP9CPU
Pharmacy Point of Sale	5	ABSPOS26 ABSPOSCC ABSPOSFC ABSPOSR7 ABSPOSRU
IHS Changes To Lab	3	BLRAG05C BLRRLHL BLRSHPL2
Patient Care Component Reports	3	APCLBRH1 APCLBV11 APCLPYR4
Patient Registration GUI	2	AGGPTPVI AGGWTBLK
Clinical Scheduling for Windows	1	BSDX41B
Data Warehouse Export System	1	BDWDWPX
Electronic Dental Record	1	BADEHLI
Health Summary Components	1	BHSINSUR
IHS Accounts Receivable	1	BARDMRE
IHS Mods To Text Integration Utilities	1	BTIULO2
IHS Patient	1	AUPNELIG
IHS Support HL7 Interfaces	1	BHLIN1I
Local Area Programs	1	AZAXDPM1
PCC New Encounter Form	1	VENPCCD1
Patient Care Component	1	APCHS5A
Referred Care Information System	1	BMCRLU1

Package	Total	Routines
IHS Patient Registration	22	AG71A2 AG71A3 AG71A4 AG71A5 AGAGERP3 AGAPIS1 AGEDPRV AGEDPRV1 AGEDPRVI AGEDPRVP AGEL AGEL1 AGEL4 AGELA AGELPHCK AGEVC AGEVINU AGPHADDR AGTMGMRG AGTMIMRG AGTMPMRG AGUPCHK
Third Party Billing	14	ABMDTEMR ABMDTGAS ABMDTGMR ABMDTIMR ABMDTPMR ABME3DA0 ABME630 ABME630A ABMEH30 ABMER30 ABMER30A ABMER31A ABMERINS ABMM2PV3
Patient Registration GUI	4	AGGARVAL AGGPOLCY AGGUL2 AGGUPPVT
iCare	2	BQIPTINS BQITDINS
Automated Lab Instruments	1	LA7VQINS
Data Warehouse Export System	1	BDWIN1
Electronic Dental Record	1	BADEHLI
IHS Accounts Receivable	1	BARUTL
IHS Changes To Lab	1	BLRAGUT3
IHS Patient	1	AUPNELIG
IHS Support HL7 Interfaces	1	BHLIN1I

Package	Total	FileMan Files
IHS Patient	2	MEDICAID ELIGIBLE(#9000004)[.09] PRIVATE INSURANCE ELIGIBLE(#9000006)[#9000006.11(.08)]
IHS Patient Registration	1	AGEV INSURANCE ELIGIBILITY HOLDING(#9009066)[12]
Pharmacy Point of Sale	1	ABSP COMBINED INSURANCE(#9002313.1)[#9002313.11(.07)]

Package	Total	FileMan Files
Utility Tables	4	EMPLOYER GROUP INSURANCE(#9999999.77)[.06] EMPLOYER(#9999999.75)[.16] INSURER(#9999999.18)[.03] COVERAGE TYPE(#9999999.65)[.05]
IHS Patient	1	PATIENT(#9000001)[.02]
Kernel	1	STATE(#5)[.12]

Fields, Total: 18

Field #	Name	Loc	Type	Details
.01	NAME OF POLICY HOLDER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D NAME^AUPNPED` LAST EDITED: `JAN 18, 2006` HELP-PROMPT: `Enter LASTNAME,FIRSTNAME MI` DELETE TEST: `.01,0)= I 1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000003.1^B` 1)= S ^AUPN3PPH("B",$E(X,1,30),DA)="" 2)= K ^AUPN3PPH("B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9000003.1^.15` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(9000003.1,.01,1,2,69.2) S X=X="" I X S X=DIV S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=9 X ^DD(9000003.1,.01,1,2,1.4) 1.4)= S DIH=$S($D(^AUPN3PPH(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,15)=DIV,DIH=9000003.1,DIG=.15 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q 69.2)= S Y(2)=$C(59)_$S($D(^DD(9000003.1,.15,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,15)_":",2),$C(59),1) CREATE CONDITION)= #.15="" CREATE VALUE)= S X=9 DELETE VALUE)= NO EFFECT FIELD)= #.15
.02	PATIENT POINTER	0;2	POINTER TO PATIENT FILE (#9000001)	PATIENT(#9000001) LAST EDITED: `APR 27, 1990` CROSS-REFERENCE: `9000003.1^C` 1)= S ^AUPN3PPH("C",$E(X,1,30),DA)="" 2)= K ^AUPN3PPH("C",$E(X,1,30),DA)
.03	INSURANCE COMPANY	0;3	POINTER TO INSURER FILE (#9999999.18)	**********************REQUIRED FIELD********************** INSURER(#9999999.18) LAST EDITED: `JUL 09, 1991` CROSS-REFERENCE: `9000003.1^E` 1)= S ^AUPN3PPH("E",$E(X,1,30),DA)="" 2)= K ^AUPN3PPH("E",$E(X,1,30),DA)
.04	POLICY NUMBER	0;4	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3) X` LAST EDITED: `JUN 22, 2004` HELP-PROMPT: `Answer must be 3-20 characters in length.` CROSS-REFERENCE: `9000003.1^D` 1)= S ^AUPN3PPH("D",$E(X,1,30),DA)="" 2)= K ^AUPN3PPH("D",$E(X,1,30),DA) CROSS-REFERENCE: `9000003.1^AAVABDW32^MUMPS` 1)= S DWDFN=$P($G(^AUPN3PPH(DA,0)),U,2) D:+DWDFN SET^AUPNDWXR(DWDFN,"ELIG") K DWDFN 2)= S DWDFN=$P($G(^AUPN3PPH(DA,0)),U,2) D:+DWDFN KILL^AUPNDWXR(DWDFN,"ELIG") K DWDFN Populates AUPNDWAF for the Data Warehouse export. See routine AUPNDWXR for documentation.
.05	COVERAGE TYPE	0;5	POINTER TO COVERAGE TYPE FILE (#9999999.65)	COVERAGE TYPE(#9999999.65) INPUT TRANSFORM: `S DIC("S")="I $D(AGELP(""INS"")),$P(^(0),U,2)=AGELP(""INS"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 24, 1991` SCREEN: `S DIC("S")="I $D(AGELP(""INS"")),$P(^(0),U,2)=AGELP(""INS"")"` EXPLANATION: `Restricted to Insurer of concern`
.06	GROUP NAME	0;6	POINTER TO EMPLOYER GROUP INSURANCE FILE (#9999999.77)	EMPLOYER GROUP INSURANCE(#9999999.77) LAST EDITED: `FEB 03, 1991` CROSS-REFERENCE: `9000003.1^AG` 1)= S ^AUPN3PPH("AG",$E(X,1,30),DA)="" 2)= K ^AUPN3PPH("AG",$E(X,1,30),DA)
.08	POLICY HOLDER'S SEX	0;8	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.`
.09	HOLDER'S ADDRESS - STREET	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` HELP-PROMPT: `Answer must be 3-30 characters in length.`
.11	HOLDER'S ADDRESS - CITY	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` HELP-PROMPT: `Answer must be 3-20 characters in length.`
.12	HOLDER'S ADDRESS - STATE	0;12	POINTER TO STATE FILE (#5)	STATE(#5)
.13	HOLDER'S ADDRESS - ZIP	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X` HELP-PROMPT: `Answer must be 1-5 characters in length.`
.14	HOLDER'S TELEPHONE NUMBER	0;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<4) X` LAST EDITED: `AUG 28, 2007` HELP-PROMPT: `Answer must be 4-20 characters in length.`
.15	HOLDER'S EMPLOYMENT STATUS	0;15	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: `JUL 12, 1994` NOTES: `TRIGGERED by the NAME OF POLICY HOLDER field of the POLICY HOLDER File`
.16	EMPLOYER	0;16	POINTER TO EMPLOYER FILE (#9999999.75)	EMPLOYER(#9999999.75) LAST EDITED: `JUN 24, 1994` CROSS-REFERENCE: `9000003.1^AE` 1)= S ^AUPN3PPH("AE",$E(X,1,30),DA)="" 2)= K ^AUPN3PPH("AE",$E(X,1,30),DA)
.17	EFFECTIVE DATE	0;17	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 17, 1990`
.18	EXPIRATION DATE	0;18	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) K:$P(^AUPN3PPH(DA,0),U,17)>Y X` LAST EDITED: `JAN 22, 2002` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.19	DATE OF BIRTH	0;19	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 17, 1990`
2	CARD NAME	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `JAN 18, 2006` HELP-PROMPT: `Enter the patients name as it appears on their insurance card`

Customize PDF page

Package: IHS Patient

Global: ^AUPN3PPH

Information

Description

Directly Accessed By Routines, Total: 103

Accessed By FileMan Db Calls, Total: 49

Pointed To By FileMan Files, Total: 4

Pointer To FileMan Files, Total: 6

Fields, Total: 18