Routine: BDGICR2

Package	Total	Call Graph
Kernel	4	^%ZISC ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	1	($$BROWSE,$$CONF,$$NUMDATE,$$READ,INIT,MSG,PRTKL,ZIS)^BDGF
IHS Changes To Scheduling	1	$$DIV^BSDU
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To ADT	2	BDGICR21 BDGICS5

Entry Points

Name	Comments	DBIA/ICR reference
GROUP	;; grouping names spelled out
HDR	; -- header code
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
SUM	;;Discharge Summary
HDG	; heading for paper report
EXPND	; -- expand code
SIG	;;Signature
PRINT	; print report to paper
TYPE(IEN)	; returns abbreviated visit type
HELP	; -- help code
SET(DATA,NUM)	; puts display line into list template array
DATE(IEN)	; return dates for entry (external format)
INIT	; -- init variables and list array
IDATE(IEN)	; return dates for entry (internal format)
ASH	;;A Sheet
CLASS	; select providers by their provider class
EN	;EP; -- main entry point for BDG IC CHARTS BY PROVIDER
PROVS()	;EP select providers for report ; returns type of info in BDGPRV array ; also called by ^BDGICS5 ;IHS/OIT/LJF 04/06/2006 PATCH 1005
SRV	; select providers by their hospital service designation
OKAY(PRV,IEN)	;return 1 if provider has at least one deficiency to report ;IHS/ITSC/LJF 6/2/2005 PATCH 1003
NAME	; select providers by name
OPR	;;Operative Report
SUMM(NAME,PRV)	; display subcount summary for provider
TOTALS	; display report totals on summary page
GROUPING(X1,X2)	; return internal form of chart deficiency grouping ;IHS/ITSC/LJF 6/2/2005 PATCH 1003
EXIT	; -- exit code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+16
$$BROWSE^BDGF	BDGICR2+23
$$CONF^BDGF	HDG+2
$$NUMDATE^BDGF	INIT+54, DATE+4, DATE+5
$$READ^BDGF	BDGICR2+14, BDGICR2+19, BDGICR2+22, BDGICR2+25, PROVS+6, SRV+4, CLASS+4, NAME+4
INIT^BDGF	PRINT+6
MSG^BDGF	BDGICR2+18, INIT+1
PRTKL^BDGF	PRINT+17
ZIS^BDGF	BDGICR2+26
$$DIV^BSDU	BDGICR2+17, INIT+6, PROVS+8
$$GET1^DIQ	BDGICR2+17, INIT+6, INIT+11, INIT+12, INIT+15, INIT+16, INIT+21, INIT+23, INIT+50, INIT+51 , INIT+61, INIT+62, INIT+66, INIT+70, INIT+71, DATE+2, DATE+4, DATE+5, IDATE+2, IDATE+3 , IDATE+4, TYPE+2, GROUPING+1, OKAY+3, OKAY+4, PROVS+9
EN^VALM	EN+5
TERM^VALM0	EN+4
CLEAR^VALM1	EN+4, EN+6
$$FMADD^XLFDT	BDGICR2+17, INIT+6
$$FMDIFF^XLFDT	INIT+58
$$FMTE^XLFDT	BDGICR2+18
$$REPEAT^XLFSTR	TOTALS+11, TOTALS+23, TOTALS+43, HDG+7, HDG+8, HDG+11, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+5
Function Call: WRITE	Prompt: !,BDGLN Line Location: PRINT+13
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !,BDGTIME,?16,$$CONF^BDGF,?76,BDGUSR Line Location: HDG+2
Function Call: WRITE	Prompt: !,BDGDATE,?24,"Incomplete Charts by Provider",?71,"Page: ",BDGPG Line Location: HDG+3
Function Call: WRITE	Prompt: !?(80-$L(X)\2),X Line Location: HDG+6
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+7
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+8
Function Call: WRITE	Prompt: !?2,"Patient",?22,"HRCN",?30,"Date",?40,"Type",?50,"Deficiencies" Line Location: HDG+9
Function Call: WRITE	Prompt: ?72,"Days" Line Location: HDG+10
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+11
Routine Call	VALM Line Location: EN+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^BDGIC - [#9009016.1]	GET1^DIQ
9009016.11	GET1^DIQ
^BDGCD - [#9009016.4]	GET1^DIQ
^BDGPAR - [#9009020.1]	GET1^DIQ
9009020.13	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BDGIC - [#9009016.1]	INIT+60, OKAY+2
^BDGIC("APRV"	INIT+10, INIT+14
^BDGPAR - [#9009020.1]	PROVS+9
^TMP("BDGICR2"	INIT+3!, INIT+79, SET+2*, EXIT+1!, PRINT+9, PRINT+10
^TMP("BDGICR2A"	INIT+3!, INIT+25*, INIT+29, INIT+30, INIT+39, INIT+41, INIT+80!

Label References

Name	Line Occurrences
$$GROUPING	INIT+64, OKAY+5
$$OKAY	INIT+20
$$PAD	INIT+50, INIT+54, INIT+55, INIT+65, INIT+67, SUMM+7, SUMM+8, TOTALS+10, TOTALS+14, TOTALS+16 , TOTALS+17, TOTALS+18, TOTALS+19, TOTALS+20, TOTALS+27, TOTALS+30, TOTALS+32, TOTALS+34, TOTALS+36, TOTALS+38 , SP+1
$$PROVS	BDGICR2+21
$$SP	INIT+36, SUMM+4, SUMM+5, SUMM+7, SUMM+8, TOTALS+5, TOTALS+9
$$TYPE	INIT+55
@(	PROVS+10
EN	BDGICR2+23
EXIT	PRINT+17
HDG	PRINT+6, PRINT+11, PRINT+12
INIT	EN+3
PRINT	EN+3
SET	INIT+32, INIT+36, INIT+68, INIT+75, INIT+79, SUMM+4, SUMM+5, SUMM+9, SUMM+10, TOTALS+3 , TOTALS+5, TOTALS+6, TOTALS+9, TOTALS+11, TOTALS+21, TOTALS+23, TOTALS+42, TOTALS+43
SUMM	INIT+77
TOTALS	INIT+78

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BDGC	INIT+2~, INIT+38!
BDGC(	INIT+38, INIT+74, SUMM+2, SUMM+6, SUMM+7, SUMM+8
BDGC("DQ"	INIT+46*, SUMM+4
BDGC("IC"	INIT+47*, SUMM+5
BDGCOP	BDGICR2+11~, BDGICR2+25*, PRINT+16
>> BDGDATE	HDG+3
BDGDELQ	INIT+2~, INIT+6*, INIT+46, INIT+65
BDGI	PRINT+1~
BDGLN	PRINT+1~, PRINT+10*, PRINT+11, PRINT+13
BDGPG	PRINT+1~, PRINT+6!, HDG+1*, HDG+3
>> BDGPRT	EN+3*, INIT+1, INIT+32, TOTALS+3
BDGPRV	BDGICR2+11~, BDGICR2+19, BDGICR2+20, BDGICR2+21*, INIT+11, INIT+12, INIT+13
BDGPRV(	INIT+11, INIT+12, INIT+13, PROVS+9, SRV+5, CLASS+5, NAME+5
BDGPRV(0	BDGICR2+21, SRV+3, CLASS+3, NAME+3
BDGPT	INIT+2~
BDGPT(	SUMM+2*, TOTALS+12, TOTALS+13, TOTALS+15, TOTALS+16, TOTALS+17, TOTALS+18, TOTALS+19, TOTALS+20
BDGRPT	BDGICR2+11~, BDGICR2+22*, INIT+32, INIT+36, INIT+68, INIT+75, INIT+78, SUMM+3, HDG+7
BDGT	INIT+2~
BDGT(	INIT+74*
BDGT("ASH"	TOTALS+33
BDGT("DQ"	INIT+46*, TOTALS+31
BDGT("IC"	INIT+47*, TOTALS+29
BDGT("OPR"	TOTALS+35
BDGT("SIG"	TOTALS+39
BDGT("SUM"	TOTALS+37
>> BDGTIME	HDG+2
BDGTYP	BDGICR2+11~, BDGICR2+14*, BDGICR2+16, INIT+17, INIT+18, HDG+5
>> BDGUSR	HDG+2
BDGX	PRINT+1~, PRINT+9*, PRINT+10
CNT	TOTALS+28~, TOTALS+29, TOTALS+30, TOTALS+31, TOTALS+32, TOTALS+33, TOTALS+34, TOTALS+35, TOTALS+36, TOTALS+37* , TOTALS+38, TOTALS+39*, TOTALS+40
D	PAD~, PAD+2
DATA	SET~, SET+2
DATE	INIT+2~, INIT+23, INIT+24, INIT+25, INIT+39*, INIT+41, INIT+46, INIT+54, INIT+58, INIT+65
>> DAYS	INIT+58*, INIT+67
DEFAULT	BDGICR2+11~, BDGICR2+16*, BDGICR2+18
DT	BDGICR2+17, INIT+6, INIT+58
FAC	PROVS+8~*, PROVS+9
FIRST	INIT+27~, INIT+28, INIT+32, INIT+33, SUMM+1~, SUMM+6, SUMM+7, SUMM+9
I	INIT+2~, INIT+38, SUMM+1~, SUMM+2, SUMM+6*, SUMM+7, SUMM+8
IEN	INIT+2~, INIT+14, INIT+15, INIT+16, INIT+20, INIT+23, INIT+25, INIT+27~, INIT+40, INIT+41* , INIT+46, INIT+47, INIT+50, INIT+51, INIT+55, INIT+60, INIT+61, INIT+62, INIT+64, INIT+66 , INIT+70, INIT+74, DATE~, DATE+2, DATE+4, DATE+5, IDATE~, IDATE+2, IDATE+3, IDATE+4 , TYPE~, TYPE+2, OKAY~, OKAY+2, OKAY+3, OKAY+4, OKAY+5
IO	PRINT+2
IOF	PRINT+5, HDG+1
>> IORVOFF	INIT+35, TOTALS+4
>> IORVON	INIT+35, TOTALS+4
IOSL	PRINT+12
IOST	BDGICR2+25
L	PAD~, PAD+2
LINE	INIT+27~, INIT+50, INIT+51, INIT+54, INIT+55, INIT+65, INIT+66, INIT+67, INIT+68, TOTALS+1~ , TOTALS+9, TOTALS+10, TOTALS+11, TOTALS+14, TOTALS+15, TOTALS+16, TOTALS+17, TOTALS+18, TOTALS+19, TOTALS+20* , TOTALS+21, TOTALS+27, TOTALS+30, TOTALS+32, TOTALS+34, TOTALS+36, TOTALS+38, TOTALS+40*, TOTALS+42
N	SP~, SP+1
NAME	INIT+2~, INIT+21, INIT+24, INIT+25, INIT+27~, INIT+28, INIT+29, INIT+30, INIT+35, INIT+39 , INIT+41, INIT+77, SUMM~, SUMM+2, TOTALS+1~, TOTALS+12*, TOTALS+13, TOTALS+14, TOTALS+15, TOTALS+16 , TOTALS+17, TOTALS+18, TOTALS+19, TOTALS+20
NUM	SET~, SET+1*, SET+2
P	INIT+60, INIT+61, INIT+62, INIT+64, INIT+66, INIT+70, OKAY+1~, OKAY+2, OKAY+3, OKAY+4 , OKAY+5
PAT	TOTALS+28~, TOTALS+29, TOTALS+31, TOTALS+33, TOTALS+35, TOTALS+37, TOTALS+39
PRV	INIT+2~, INIT+10, INIT+11, INIT+12, INIT+13, INIT+14, INIT+20, INIT+21, INIT+25, INIT+27~ , INIT+30, INIT+39, INIT+41, INIT+60, INIT+77, OKAY~, OKAY+2, SUMM~, SUMM+2, TOTALS+1~ , TOTALS+13*, TOTALS+15, TOTALS+16, TOTALS+17, TOTALS+18, TOTALS+19, TOTALS+20
RESULT	OKAY+1~, OKAY+2, OKAY+6, OKAY+7
TYPE	DATE+1~, DATE+2, DATE+3, DATE+4, IDATE+1~, IDATE+2, IDATE+3, TYPE+1~, TYPE+2*, TYPE+4
U	BDGICR2+20, SRV+5, CLASS+5, NAME+5
VALMCNT	EN+4~, INIT+4*, INIT+32, INIT+36, INIT+68, INIT+75, INIT+79, SUMM+4, SUMM+5, SUMM+9 , SUMM+10, TOTALS+3, TOTALS+5, TOTALS+6, TOTALS+9, TOTALS+11, TOTALS+21, TOTALS+23, TOTALS+42, TOTALS+43
VTYP	INIT+2~, INIT+16*, INIT+17, INIT+18, INIT+23
WARD	PRINT+1~
X	BDGICR2+11~, BDGICR2+17, BDGICR2+18, INIT+35, INIT+36, INIT+70, INIT+71, DATE+1~, IDATE+1~, SUMM+1~ , SUMM+7, SUMM+8, SUMM+9, TOTALS+4, TOTALS+5, HELP+1, HDG+5~, HDG+6, PROVS+3~, PROVS+9* , PROVS+10, PROVS+11, SRV+1~, SRV+3, SRV+4, CLASS+1~, CLASS+3, CLASS+4, NAME+1~, NAME+3 , NAME+4
X1	GROUPING~, GROUPING+1
X2	GROUPING~, GROUPING+1
Y	INIT+71, INIT+74, PROVS+3~, PROVS+6, PROVS+7, PROVS+10, SRV+1~, SRV+2, SRV+4, SRV+5 , CLASS+1~, CLASS+2, CLASS+4, CLASS+5, NAME+1~, NAME+2, NAME+4, NAME+5

Marked Items

Name	Field # of Occurrence
$T(@I	SUMM+7, SUMM+8

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGICR2

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items