Global: ^BDGIC

FileMan FileNo	FileMan Filename	Package
9009016.1	INCOMPLETE CHART	IHS Changes To Scheduling

Directly Accessed By Routines, Total: 15

Package	Total	Routines
IHS Changes To ADT	12	ADGFXDS BDGDSA BDGICE2 BDGICE3 BDGICF1 BDGICF21 BDGICR1 BDGICR2 BDGICR5 BDGICS4 BDGICS5 BDGPOST4
IHS Changes To Scheduling	2	BSDCF BSDROUT2
IHS Mods To Text Integration Utilities	1	BTIUICL

Accessed By FileMan Db Calls, Total: 23

Package	Total	Routines
IHS Changes To ADT	19	ADGFXDS BDGDSA BDGICC BDGICE BDGICE2 BDGICEVT BDGICF1 BDGICF2 BDGICF21 BDGICR BDGICR1 BDGICR2 BDGICR41 BDGICR5 BDGICS4 BDGICS5 BDGPCCEL BDGPI0 BDGPOST4
IHS Mods To Text Integration Utilities	3	BTIUDOC BTIUDSC BTIUICL
IHS Changes To Scheduling	1	BSDCF

Pointer To FileMan Files, Total: 5

Package	Total	FileMan Files
IHS Patient	2	PATIENT(#9000001)[.01] VISIT(#9000010)[.03]
IHS Changes To Scheduling	1	CHART DEFICIENCY(#9009016.4)[#9009016.11(.02)]
Kernel	1	NEW PERSON(#200)[.22, .23, #9009016.11(.01)]
Registration	1	FACILITY TREATING SPECIALTY(#45.7)[.04]

Fields, Total: 33

Field #	Name	Loc	Type	Details
.01	PATIENT	0;1	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `OCT 21, 2001` HELP-PROMPT: `Enter patient's name or chart #.` CROSS-REFERENCE: `9009016.1^B` 1)= S ^BDGIC("B",$E(X,1,30),DA)="" 2)= K ^BDGIC("B",$E(X,1,30),DA) CROSS-REFERENCE: `9009016.1^ASRG2^MUMPS` 1)= S:$P(^BDGIC(DA,0),U,5)]"" ^BDGIC("ASRG",$P(^BDGIC(DA,0),U,5),X,DA)="" 2)= K:$P(^BDGIC(DA,0),U,5)]"" ^BDGIC("ASRG",$P(^BDGIC(DA,0),U,5),X,DA) 3)= FINDS ENTRY BY PAT & SURG DATE
.011	HRCN		COMPUTED	MUMPS CODE: `S X=$$HRCN^BDGF2(+$G(^BDGIC(D0,0)),+$G(DUZ(2)))` ALGORITHM: `S X=$$HRCN^BDGF2(+$G(^BDGIC(D0,0)),+$G(DUZ(2)))` LAST EDITED: `JUN 01, 2001`
.02	DISCHARGE DATE	0;2	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:X<1 X` LAST EDITED: `AUG 01, 2001` HELP-PROMPT: `Enter date and time patient was discharged.` CROSS-REFERENCE: `9009016.1^AD` 1)= S ^BDGIC("AD",$E(X,1,30),DA)="" 2)= K ^BDGIC("AD",$E(X,1,30),DA) 3)= USED TO SORT BY DISCHARGE DATE
.0211	BEGIN DATE		COMPUTED DATE	MUMPS CODE: `X ^DD(9009016.1,.0211,9.3) S X=$S(Y(9009016.1,.0211,2):Y(9009016.1,.0211,3),Y(9009016.1,.0211,4):X)` 9.2 = S Y(9009016.1,.0211,1)=$S($D(^BDGIC(D0,0)):^(0),1:"") S X=$P(Y(9009016.1,.0211,1),U,2)]"",Y(9009016.1,.0211,2)=X S X=$P(Y(9009016.1,.0211,1),U,2) 9.3 = X ^DD(9009016.1,.0211,9.2) S Y(9009016.1,.0211,3)=X S X=1,Y(9009016.1,.0211,4)=X S X=$P(Y(9009016.1,.0211,1),U,5) ALGORITHM: `$S(DISCHARGE DATE]"":DISCHARGE DATE,1:SURGERY DATE)` LAST EDITED: `JAN 11, 2002`
.03	VISIT	0;3	POINTER TO VISIT FILE (#9000010)	VISIT(#9000010) LAST EDITED: `AUG 01, 2001` HELP-PROMPT: `Enter date/time of PCC visit associated with this encounter.` CROSS-REFERENCE: `9009016.1^AV` 1)= S ^BDGIC("AV",$E(X,1,30),DA)="" 2)= K ^BDGIC("AV",$E(X,1,30),DA) 3)= USED TO CHECK IF VISIT ALREADY IN FILE This xref was created to check if the admission (based on visit) was already in the file when creating a new entry at discharge time. CROSS-REFERENCE: `9009016.1^AVDT^MUMPS` 1)= S ^BDGIC("AVDT",+$G(^AUPNVSIT(X,0)),DA)="" 2)= K ^BDGIC("AVDT",+$G(^AUPNVSIT(X,0)),DA) 3)= SORT BY VISIT DATE Used to sort by visit date, not just visit ien.
.0391	INSURANCE COVERAGE		COMPUTED	MUMPS CODE: `S X=$$INSUR^BDGICC(D0)` ALGORITHM: `S X=$$INSUR^BDGICC(D0)` LAST EDITED: `SEP 05, 2001`
.0392	TYPE OF VISIT		COMPUTED	MUMPS CODE: `X ^DD(9009016.1,.0392,9.3) S X=$P($P(Y(9009016.1,.0392,102),$C(59)_$P(Y(9009016.1,.0392,101),U,7)_":",2),$C(59),1) S D0=Y(9009016.1,.0392,80)` 9.2 = S Y(9009016.1,.0392,80)=$S($D(D0):D0,1:""),Y(9009016.1,.0392,1)=$S($D(^BDGIC(D0,0)):^(0),1:""),D0=$P(Y(9009016.1,.0392,1),U,3) S:'$D(^AUPNVSIT(+D0,0)) D0=-1 9.3 = X ^DD(9009016.1,.0392,9.2) S Y(9009016.1,.0392,102)=$C(59)_$S($D(^DD(9000010,.07,0)):$P(^(0),U,3),1:""),Y(9009016.1,.0392,101)=$S($D(^AUPNVSIT(D0,0)):^(0),1:"") ALGORITHM: `VISIT:SERVICE CATEGORY` LAST EDITED: `MAY 17, 2000`
.0393	LINK TO ORIGINAL EVENT		COMPUTED	MUMPS CODE: `S X=$$OIEN^BDGICC(D0)` ALGORITHM: `S X=$$OIEN^BDGICC(D0)` LAST EDITED: `SEP 19, 2001`
.0394	DISCHARGE WARD		COMPUTED	MUMPS CODE: `S X=$$DSWRD^BDGICC(D0)` ALGORITHM: `S X=$$DSWRD^BDGICC(D0)` LAST EDITED: `NOV 23, 2001`
.04	SERVICE	0;4	POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)	FACILITY TREATING SPECIALTY(#45.7) LAST EDITED: `SEP 14, 2001` HELP-PROMPT: `Enter service associated with this encounter.`
.05	SURGERY DATE	0;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `OCT 21, 2001` HELP-PROMPT: `Enter date of day surgery.` CROSS-REFERENCE: `9009016.1^AS` 1)= S ^BDGIC("AS",$E(X,1,30),DA)="" 2)= K ^BDGIC("AS",$E(X,1,30),DA) 3)= SORT BY SURGERY DATE CROSS-REFERENCE: `9009016.1^ASRG1^MUMPS` 1)= S ^BDGIC("ASRG",X,$P(^BDGIC(DA,0),U),DA)="" 2)= K ^BDGIC("ASRG",X,$P(^BDGIC(DA,0),U),DA) 3)= FIND ENTRY BY PAT & SURG DATE
.11	DATE CHART RECEIVED	0;11	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `SEP 15, 2005` HELP-PROMPT: `Enter date incomplete chart section received paper chart.`
.1191	CHART PICKUP TIME		COMPUTED	MUMPS CODE: `X "N I,Y "_$P(^DD(9009016.1,.0211,0),U,5,99) S Y(9009016.1,.1191,2)=X S Y(9009016.1,.1191,1)=$S($D(^BDGIC(D0,0)):^(0),1:"") S X=$P(Y(9009016.1,.1191,1),U,11),X1=X,X2=Y(9009016.1,.1191,2),X="" D:X2 ^%DTC:X1` ALGORITHM: `DATE CHART RECEIVED-BEGIN DATE` LAST EDITED: `JAN 11, 2002` TECHNICAL DESCR: DATE CHART RECEIVED - DISCHARGE DATE
.12	READY TO CODE DATE	0;12	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `SEP 15, 2005` HELP-PROMPT: `Enter date chart paperwork was complete so coding could begin.`
.1291	PREPARE TO CODE DATE		COMPUTED	MUMPS CODE: `X "N I,Y "_$P(^DD(9009016.1,.0211,0),U,5,99) S Y(9009016.1,.1291,2)=X S Y(9009016.1,.1291,1)=$S($D(^BDGIC(D0,0)):^(0),1:"") S X=$P(Y(9009016.1,.1291,1),U,12),X1=X,X2=Y(9009016.1,.1291,2),X="" D:X2 ^%DTC:X1` ALGORITHM: `READY TO CODE DATE-BEGIN DATE` LAST EDITED: `JAN 11, 2002`
.13	DATE CHART CODED	0;13	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `SEP 15, 2005` HELP-PROMPT: `Enter date visit was coded in PCC.` CROSS-REFERENCE: `9009016.1^AC` 1)= S ^BDGIC("AC",$E(X,1,30),DA)="" 2)= K ^BDGIC("AC",$E(X,1,30),DA) 3)= USED BY DAILY/WEEKLY REPORT
.1391	CODING TIME		COMPUTED	MUMPS CODE: `S Y(9009016.1,.1391,1)=$S($D(^BDGIC(D0,0)):^(0),1:"") S X=$P(Y(9009016.1,.1391,1),U,13),X1=X,X2=$P(Y(9009016.1,.1391,1),U,12),X="" D:X2 ^%DTC:X1` ALGORITHM: `DATE CHART CODED-READY TO CODE DATE` LAST EDITED: `JAN 11, 2002` TECHNICAL DESCR: DATE CHART CODED-READY TO CODE DATE
.14	DATE CHART COMPLETED	0;14	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `SEP 15, 2005` HELP-PROMPT: `Enter date chart was no longer incomplete.` CROSS-REFERENCE: `9009016.1^AE` 1)= S ^BDGIC("AE",$E(X,1,30),DA)="" 2)= K ^BDGIC("AE",$E(X,1,30),DA) 3)= USED BY DAILY/WEEKLY REPORT
.1491	CHART PROCESSING TIME		COMPUTED	MUMPS CODE: `X "N I,Y "_$P(^DD(9009016.1,.0211,0),U,5,99) S Y(9009016.1,.1491,2)=X S Y(9009016.1,.1491,1)=$S($D(^BDGIC(D0,0)):^(0),1:"") S X=$P(Y(9009016.1,.1491,1),U,14),X1=X,X2=Y(9009016.1,.1491,2),X="" D:X2 ^%DTC:X1` ALGORITHM: `DATE CHART COMPLETED-BEGIN DATE` LAST EDITED: `JAN 11, 2002` TECHNICAL DESCR: DATE CHART COMPLETED-DISCHARGE DATE
.15	DATE BILL PREP COMPLETED	0;15	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `SEP 15, 2005` HELP-PROMPT: `Enter date chart was ready for billing.` CROSS-REFERENCE: `9009016.1^AF` 1)= S ^BDGIC("AF",$E(X,1,30),DA)="" 2)= K ^BDGIC("AF",$E(X,1,30),DA) 3)= USED BY DAILY/WEEKLY REPORT
.1591	TIME IN BILL PREP		COMPUTED	MUMPS CODE: `X "N I,Y "_$P(^DD(9009016.1,.0211,0),U,5,99) S Y(9009016.1,.1591,2)=X S Y(9009016.1,.1591,1)=$S($D(^BDGIC(D0,0)):^(0),1:"") S X=$P(Y(9009016.1,.1591,1),U,15),X1=X,X2=Y(9009016.1,.1591,2),X="" D:X2 ^%DTC:X1` ALGORITHM: `DATE BILL PREP COMPLETED-BEGIN DATE` LAST EDITED: `NOV 14, 2002`
.16	DATE BILLED	0;16	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `SEP 15, 2005` HELP-PROMPT: `Enter date visit was billed.`
.1691	BILL PREP TO BILLED TIME		COMPUTED	MUMPS CODE: `S Y(9009016.1,.1691,1)=$S($D(^BDGIC(D0,0)):^(0),1:"") S X=$P(Y(9009016.1,.1691,1),U,16),X1=X,X2=$P(Y(9009016.1,.1691,1),U,15),X="" D:X2 ^%DTC:X1` ALGORITHM: `DATE BILLED-DATE BILL PREP COMPLETED` LAST EDITED: `JAN 11, 2002`
.1692	TOTAL TIME TO BILL		COMPUTED	MUMPS CODE: `X "N I,Y "_$P(^DD(9009016.1,.0211,0),U,5,99) S Y(9009016.1,.1692,2)=X S Y(9009016.1,.1692,1)=$S($D(^BDGIC(D0,0)):^(0),1:"") S X=$P(Y(9009016.1,.1692,1),U,16),X1=X,X2=Y(9009016.1,.1692,2),X="" D:X2 ^%DTC:X1` ALGORITHM: `DATE BILLED-BEGIN DATE` LAST EDITED: `JAN 11, 2002`
.17	DELETE DATE	0;17	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `JUN 01, 2001` HELP-PROMPT: `Enter date entry was deleted. Only delete if entered as mistake.`
.18	COMMENTS	0;18	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3) X` LAST EDITED: `JUN 01, 2001` HELP-PROMPT: `Answer must be 3-50 characters in length`
.19	DATE CHART TAGGED	0;19	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `SEP 15, 2005` HELP-PROMPT: `Enter date initial review was done & deficiencies tagged.`
.1991	TIME TO TAG		COMPUTED	MUMPS CODE: `X "N I,Y "_$P(^DD(9009016.1,.0211,0),U,5,99) S Y(9009016.1,.1991,2)=X S Y(9009016.1,.1991,1)=$S($D(^BDGIC(D0,0)):^(0),1:"") S X=$P(Y(9009016.1,.1991,1),U,19),X1=X,X2=Y(9009016.1,.1991,2),X="" D:X2 ^%DTC:X1` ALGORITHM: `DATE CHART TAGGED-BEGIN DATE` LAST EDITED: `JAN 11, 2002`
.21	DATE INSURANCE IDENTIFIED	0;21	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `SEP 15, 2005` HELP-PROMPT: `Enter date incomplete chart section received insurance info.`
.2191	TIME TO IDENTIFY INSURANCE		COMPUTED	MUMPS CODE: `X "N I,Y "_$P(^DD(9009016.1,.0211,0),U,5,99) S Y(9009016.1,.2191,2)=X S Y(9009016.1,.2191,1)=$S($D(^BDGIC(D0,0)):^(0),1:"") S X=$P(Y(9009016.1,.2191,1),U,21),X1=X,X2=Y(9009016.1,.2191,2),X="" D:X2 ^%DTC:X1` ALGORITHM: `DATE INSURANCE IDENTIFIED-BEGIN DATE` LAST EDITED: `JAN 11, 2002`
.22	CHART CODED BY	0;22	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 21, 2001` HELP-PROMPT: `Enter person who coded this record.`
.23	BILL PREP DONE BY	0;23	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 21, 2001` HELP-PROMPT: `Enter person who prepared record for billing.`
1	PROVIDER	1;0	POINTER Multiple #9009016.11	9009016.11

Customize PDF page

Package: IHS Changes To Scheduling

Global: ^BDGIC

Information

Description

Directly Accessed By Routines, Total: 15

Accessed By FileMan Db Calls, Total: 23

Pointer To FileMan Files, Total: 5

Fields, Total: 33