Routine: BDGICR4

Information

BDGICR4 ; IHS/ANMC/LJF - CODED A SHEET REPORTS ;

Source Information

Source file <BDGICR4.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Kernel	4	^%ZISC $$FMTE^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
IHS Changes To ADT	3	($$CONF,$$READ,INIT,MSG,PRTKL,ZIS)^BDGF $$HRCN^BDGF2 ^BDGICR41
Registration	2	EN^VALM TERM^VALM0
IHS VA Utilities	1	^XBCLS
VA Fileman	1	$$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP; -- main entry point for BDG IC DATE EXPORTED
HDR	;EP; -- header code
EXIT2	;EP; -- exit code for patient listing
PAD(DATA,LENGTH)	; -- SUBRTN to pad length of data
DATE(X)	; -- returns date in readable format
EXPND	; -- expand code
HDG	; heading when printing to paper
INIT	;EP; -- init variables and list array
EXIT	;EP; -- exit code
SET(LINE,BDGLN)	; -- sets ^tmp
PRINT	; -- print lists to paper
SP(NUM)	; -- SUBRTN to pad spaces
GATHER(BDGBD,BDGED)	; -- create display array
HELP	;EP; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+8
$$CONF^BDGF	HDR+1, HDG+2
$$READ^BDGF	BDGICR4+7, BDGICR4+10, BDGICR4+12
INIT^BDGF	PRINT+2
MSG^BDGF	BDGICR4+6, INIT+2
PRTKL^BDGF	PRINT+8
ZIS^BDGF	BDGICR4+14
$$HRCN^BDGF2	GATHER+29
^BDGICR41	BDGICR4+7
$$GET1^DIQ	GATHER+32, GATHER+34
EN^VALM	EN+4
TERM^VALM0	EN+3
^XBCLS	BDGICR4+5
$$FMTE^XLFDT	HDG+4, DATE+1
$$REPEAT^XLFSTR	HDG+6, HDG+8, PAD+1
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,^TMP("BDGICR4",$J,BDGL,0) Line Location: PRINT+6
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !,BDGUSR,?16,$$CONF^BDGF Line Location: HDG+2
Function Call: WRITE	Prompt: !,BDGDATE,?25,"CODED A SHEETS WITH EXPORT DATE",?71,"Page: ",BDGPG Line Location: HDG+3
Function Call: WRITE	Prompt: !,BDGTIME,?(80-$L(X)\2),X Line Location: HDG+5
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+6
Function Call: WRITE	Prompt: !,"Patient Name",?27,"Chart #",?40,"Admitted",?52,"Modified" Line Location: HDG+7
Function Call: WRITE	Prompt: ?64,"Exported",!,$$REPEAT^XLFSTR("=",80) Line Location: HDG+8
Routine Call	VALM Line Location: EN+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVSIT - [#9000010]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVINP - [#9000010.02]	GATHER+9, GATHER+10
^AUPNVINP("B"	GATHER+6, GATHER+7
^AUPNVSIT - [#9000010]	GATHER+11
^DPT - [#2]	GATHER+14
^TMP("BDGICR4"	EXIT+1!, GATHER+2!, SET+2*, PRINT+4, PRINT+6
^TMP("BDGICR4A"	GATHER+2!, GATHER+15*, GATHER+19, GATHER+23, GATHER+24, GATHER+25, GATHER+27, GATHER+42!

Label References

Name	Line Occurrences
$$DATE	GATHER+21, GATHER+31, GATHER+32, GATHER+35
$$PAD	GATHER+30, GATHER+31, GATHER+32, GATHER+35, GATHER+39, SP+1
$$SP	BDGICR4+6, HDR+1, GATHER+21, GATHER+38
EXIT	PRINT+8
GATHER	EN+2, INIT+3
HDG	PRINT+2, PRINT+5
PRINT	EN+2
SET	GATHER+21, GATHER+36, GATHER+40

Naked Globals

Name	Field # of Occurrence
^(0	GATHER+9, GATHER+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BDGBD	BDGICR4+9~, BDGICR4+10*, BDGICR4+11, EN+2, INIT+3, GATHER~, GATHER+5, HDG+4
>> BDGDATE	HDG+3
BDGED	BDGICR4+9~, BDGICR4+12*, BDGICR4+13, EN+2, INIT+3, GATHER~, GATHER+6, HDG+4
BDGETOT	GATHER+1~, GATHER+18, GATHER+34, GATHER+39
BDGL	PRINT+1~, PRINT+4*, PRINT+6
BDGLN	INIT+1~, INIT+4, EXIT+1!, GATHER+5, GATHER+21, GATHER+36, GATHER+40, SET~, SET+1, SET+2
BDGPG	PRINT+1~, HDG+1*, HDG+3
>> BDGTIME	HDG+5
BDGTOT	GATHER+1~, GATHER+18, GATHER+28, GATHER+38
>> BDGUSR	HDG+2
BDGX	PRINT+1~
DATA	GATHER+1~, GATHER+11, GATHER+12, GATHER+13, GATHER+14, GATHER+27, GATHER+28, PAD~, PAD+1
DATE	GATHER+1~, GATHER+5, GATHER+6, GATHER+7, GATHER+15, GATHER+18, GATHER+19, GATHER+21, GATHER+23, GATHER+24 , GATHER+25, GATHER+27
DFN	GATHER+1~, GATHER+14, GATHER+15, GATHER+24, GATHER+25, GATHER+27, GATHER+29
DUZ(2	GATHER+13, GATHER+29
>> HRCN	GATHER+29*, GATHER+30
IO	PRINT+2
IOF	HDG+1
IOSL	PRINT+5
IOST	EN+2
LENGTH	PAD~, PAD+1
LINE	GATHER+1~, GATHER+30, GATHER+31, GATHER+32, GATHER+35, GATHER+36, GATHER+38, GATHER+39, GATHER+40, SET~ , SET+2
NAME	GATHER+1~, GATHER+14, GATHER+15, GATHER+23, GATHER+24, GATHER+25, GATHER+27, GATHER+30
NUM	SP~, SP+1
U	GATHER+9, GATHER+10, GATHER+12, GATHER+13, GATHER+14, GATHER+15, GATHER+28
VALMCNT	EN+1~, INIT+4*, EXIT2+1!
>> VALMHDR(1	HDR+1*
VDT	GATHER+1~, GATHER+14, GATHER+15, GATHER+28, GATHER+31
VH	GATHER+1~, GATHER+7, GATHER+9, GATHER+10, GATHER+15, GATHER+25, GATHER+27
VST	GATHER+1~, GATHER+9, GATHER+11, GATHER+15, GATHER+28, GATHER+32, GATHER+34
X	HELP+1, HDG+4~, HDG+5, DATE~, DATE+1
Y	BDGICR4+7~, GATHER+34, GATHER+35, DATE+1~*, DATE+2

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGICR4

Call Graph Total: 11