Global: ^BIP

FileMan FileNo	FileMan Filename	Package
9002084	BI PATIENT	Immunization Tracking

Package	Total	Routines
Immunization Tracking	17	BIDUR BIEXPRT2 BILETPR BIPATCO BIPATE BIPATUP BIPATVW BIPATVW3 BIREPF4 BIRPC BIRPC4 BIRPC5 BISCAN BIUTL1 BIUTL11 BIUTL8 BIUTLFIX
IHS GPRA Information System	10	BGP0D32 BGP1D32 BGP2D32 BGP3D32 BGP4D32 BGP5D32 BGP6D32 BGP7D32 BGP8D32 BGP9D32
IHS Immunizations Interface	5	BYIMIMM3 BYIMIMM4 BYIMIMM6 BYIMMU2 BYIMSEG1
GUI Objects	1	BGOVIMM2
Local Area Programs	1	AZAXDPM1
PCC Medical Query	1	AMQQUTIL
Patient Care Component	1	APCDEREG
Patient Care Component Reports	1	APCLVLU1

Package	Total	Routines
GUI Objects	1	BGOVIMM2
IHS Immunizations Interface	1	BYIMMU2
Patient Registration GUI	1	AGGEXPRT

Package	Total	FileMan Files
Immunization Tracking	1	BI PATIENT FORECAST ERRORS(#9002084.12)[.01]

Package	Total	FileMan Files
IHS Patient	1	PATIENT(#9000001)[.01]
Immunization Tracking	1	BI CASE MANAGER(#9002084.01)[.1]
Kernel	1	NEW PERSON(#200)[.2, .23]

Fields, Total: 21

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) INPUT TRANSFORM: `S:$D(X) DINUM=X` LAST EDITED: `MAY 02, 1996` HELP-PROMPT: `Select the patient you wish to add to the Immunization Register.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002084^B` 1)= S ^BIP("B",$E(X,1,30),DA)="" 2)= K ^BIP("B",$E(X,1,30),DA)
.02	MAILING ADDRESS-STREET		COMPUTED	MUMPS CODE: `X ^DD(9002084,.02,9.2) X $P(^DD(9000001,1602.2,0),U,5,99) S Y(9002084,.02,101)=X S X=Y(9002084,.02,101) S D0=Y(9002084,.02,80)` 9.2 = S Y(9002084,.02,80)=$S($D(D0):D0,1:""),Y(9002084,.02,1)=$S($D(^BIP(D0,0)):^(0),1:""),D0=$P(Y(9002084,.02,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1 ALGORITHM: `NAME:MAILING ADDRESS-STREET`
.03	MAILING ADDRESS-CITY		COMPUTED	MUMPS CODE: `X ^DD(9002084,.03,9.2) X $P(^DD(9000001,1603.2,0),U,5,99) S Y(9002084,.03,101)=X S X=Y(9002084,.03,101) S D0=Y(9002084,.03,80)` 9.2 = S Y(9002084,.03,80)=$S($D(D0):D0,1:""),Y(9002084,.03,1)=$S($D(^BIP(D0,0)):^(0),1:""),D0=$P(Y(9002084,.03,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1 ALGORITHM: `NAME:1603.2`
.04	MAILING ADDRESS-STATE		COMPUTED	MUMPS CODE: `X ^DD(9002084,.04,9.2) X $P(^DD(9000001,1604.2,0),U,5,99) S Y(9002084,.04,101)=X S X=Y(9002084,.04,101) S D0=Y(9002084,.04,80)` 9.2 = S Y(9002084,.04,80)=$S($D(D0):D0,1:""),Y(9002084,.04,1)=$S($D(^BIP(D0,0)):^(0),1:""),D0=$P(Y(9002084,.04,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1 ALGORITHM: `NAME:1604.2` LAST EDITED: `SEP 24, 1996`
.05	MAILING ADDRESS-ZIP		COMPUTED	MUMPS CODE: `X ^DD(9002084,.05,9.2) X $P(^DD(9000001,1605.2,0),U,5,99) S Y(9002084,.05,101)=X S X=Y(9002084,.05,101) S D0=Y(9002084,.05,80)` 9.2 = S Y(9002084,.05,80)=$S($D(D0):D0,1:""),Y(9002084,.05,1)=$S($D(^BIP(D0,0)):^(0),1:""),D0=$P(Y(9002084,.05,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1 ALGORITHM: `NAME:1605.2`
.06	CHART#		COMPUTED	MUMPS CODE: `Q:'$D(BIDFN)!('$D(DUZ(2))) S X=$$HRCN^BIUTL1(BIDFN,DUZ(2))` ALGORITHM: `Q:'$D(BIDFN)!('$D(DUZ(2))) S X=$$HRCN^BIUTL1(BIDFN,DUZ(2))`
.08	INACTIVE DATE	0;8	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 27, 1996` HELP-PROMPT: `Enter the date on which this patient became Inactive in the Immunization Register. To RE-activate the patient, Type "@" (shift-2, no quotes); this will delete the Inactive Date.`
.09	PARENT OR GUARDIAN	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `SEP 27, 1996` HELP-PROMPT: `If this patient is a child, enter the name of the parent or guardian of this child. This should be the person who will be contacted for the patient's follow up.`
.1	CASE MANAGER	0;10	POINTER TO BI CASE MANAGER FILE (#9002084.01)	BI CASE MANAGER(#9002084.01) LAST EDITED: `OCT 10, 1998` HELP-PROMPT: `Select the person who is currently managing this patient's immunizations, letters, etc.` CROSS-REFERENCE: `9002084^C` 1)= S ^BIP("C",$E(X,1,30),DA)="" 2)= K ^BIP("C",$E(X,1,30),DA)
.11	MOTHERS HBSAG STATUS	0;11	SET	'P' FOR POSITIVE; 'N' FOR NEGATIVE; 'U' FOR UNKNOWN; LAST EDITED: `MAR 05, 1998` HELP-PROMPT: `Select the patient's mother's HBsAg Status.`
.12	MOVED OR TX ELSEWHERE LOCATION	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>55!($L(X)<1) X` LAST EDITED: `FEB 01, 2005` HELP-PROMPT: `Enter the location where the patient moved or is receiving treatment.`
.13	OTHER INFO	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `MAY 05, 1998` HELP-PROMPT: `Enter any small item of demographic patient information that is not tracked elsewhere in the software. Answer must be 1-50 characters in length.`
.14	DATE OF LAST LETTER	0;14	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 01, 1998` HELP-PROMPT: `Enter the date of the last letter sent to this patient.`
.15	FORECAST INFLUENZA/PNEUMO	0;15	SET	'0' FOR Normal; '1' FOR Influenza; '2' FOR Pneumococcal; '3' FOR Both, Influ & Pneumo; '4' FOR Disregard Risk Factors; LAST EDITED: `DEC 13, 2005` HELP-PROMPT: `Select whether Influenza, Pneumococcal, or Both vaccines should be forecast for this patient, regardless of age. Leave blank or enter Normal to forecast these vaccines only in later life (>65yrs).`
.16	INACTIVE REASON	0;16	SET	'm' FOR Moved Elsewhere; 't' FOR Treatment Elsewhere; 'd' FOR Deceased; 'p' FOR Previously Inactivated; 'n' FOR Never Activated; 'i' FOR Ineligible, non-Ben; LAST EDITED: `DEC 29, 2005` HELP-PROMPT: `Select the reason this patient is being Inactivated.`
.2	FIRST ENTERED BY USER	0;20	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 18, 1997` HELP-PROMPT: `Select the user who first entered this patient into the Immunization Database.`
.21	DATE FIRST ENTERED	0;21	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 18, 1997` HELP-PROMPT: `Enter the date on which this patient was first added to the Immunization Database.`
.22	AUTOMATICALLY ACTIVATED	0;22	SET	'0' FOR MANUALLY; '1' FOR AUTOMATICALLY; LAST EDITED: `MAR 11, 2005` HELP-PROMPT: `Enter A if patient was Added Automatically during a Scan enter M if Manually.`
.23	INACTIVATED BY USER	0;23	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 22, 2005` HELP-PROMPT: `Select the User who Inactivated this patient.`
.24	CONSENT FOR STATE REGISTRY	0;24	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAR 07, 2010`
1.01	IMM/SERVE TEXT	1;0	WORD-PROCESSING #9002084.03

Customize PDF page

Package: Immunization Tracking

Global: ^BIP

Information

Description

Directly Accessed By Routines, Total: 37

Accessed By FileMan Db Calls, Total: 3

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 21