Routine: BDGICS1

Package	Total	Call Graph
Kernel	4	^%ZISC $$FMTE^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
IHS Changes To ADT	3	($$CONF,$$NUMDATE,$$RANGE,$$READ,MSG,ZIS)^BDGF ($$LASTSRVC,$$LASTSRVN)^BDGF1 ($$HRCN,$$INSUR)^BDGF2
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
VA Fileman	1	$$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
SET(DATA,NUM)	; put data line into display array
EN	; -- main entry point for BDG IC CODE STATUS INPT
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
EXPND	; -- expand code
HDG	; heading when printing to paper
INIT	; -- init variables and list array
EXIT	; -- exit code
UNCODED(DATE,IEN)	; save uncoded visits by discharge date
PRINT	; print report to paper
ERR(MSG,IEN,DATE)	; increment error count and save for listing
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+7
$$CONF^BDGF	HDR+2
$$NUMDATE^BDGF	INIT+77, INIT+78, INIT+99
$$RANGE^BDGF	HDR+4
$$READ^BDGF	BDGICS1+7, BDGICS1+8
MSG^BDGF	INIT+1
ZIS^BDGF	BDGICS1+11
$$LASTSRVC^BDGF1	INIT+81
$$LASTSRVN^BDGF1	INIT+14, INIT+15
$$HRCN^BDGF2	INIT+80, INIT+101
$$INSUR^BDGF2	INIT+84
$$GET1^DIQ	HDR+3, INIT+13, INIT+21, INIT+24, INIT+31, INIT+36, INIT+74, INIT+75, INIT+79, INIT+98 , INIT+100
EN^VALM	EN+4
TERM^VALM0	EN+3
CLEAR^VALM1	EN+3, EN+5
$$FMTE^XLFDT	INIT+46
$$REPEAT^XLFSTR	INIT+52, HDG+5, HDG+7, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^TMP("BDGICS1",$J,BDGL,0) Line Location: PRINT+6
Function Call: WRITE	Prompt: !?20,"INPATIENT CODING STATUS REPORT" Line Location: HDG+1
Function Call: WRITE	Prompt: @IOF Line Location: HDG+2
Function Call: WRITE	Prompt: !?20,"INPATIENT CODING STATUS REPORT" Line Location: HDG+3
Function Call: WRITE	Prompt: !,VALMHDR(I) Line Location: HDG+4
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80),! Line Location: HDG+5
Function Call: WRITE	Prompt: !,"Discharge/Admit Dates",?24,"Patient Name",?44,"Chart #" Line Location: HDG+6
Function Call: WRITE	Prompt: !?54,"Serv",?60,"Insurance",!,$$REPEAT^XLFSTR("=",80),! Line Location: HDG+7
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^DGPM - [#405]	GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ
^AUPNVINP - [#9000010.02]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVINP - [#9000010.02]	INIT+29
^AUPNVINP("AD"	INIT+27
^AUPNVSIT - [#9000010]	INIT+23
^DGPM - [#405]	INIT+77, INIT+84
^DGPM("AMV3"	INIT+8, INIT+10, INIT+11
^TMP("BDGICS1"	INIT+3!, INIT+105, SET+2*, PRINT+3, PRINT+4, PRINT+6, EXIT+1!
^TMP("BDGICS1A"	INIT+3!, INIT+65, INIT+71, INIT+72, INIT+89, INIT+95, INIT+96, INIT+102, INIT+106!, ERR+4* , UNCODED+4*

Label References

Name	Line Occurrences
$$PAD	INIT+40, INIT+41, INIT+42, INIT+46, INIT+66, INIT+67, INIT+68, INIT+77, INIT+78, INIT+79 , INIT+81, INIT+84, INIT+91, INIT+92, INIT+99, INIT+100, INIT+102, SP+1
$$SP	HDR+2, HDR+3, HDR+5, INIT+48, INIT+53, INIT+57
ERR	INIT+22, INIT+23, INIT+25, INIT+28, INIT+29
EXIT	PRINT+7
HDG	PRINT+2, PRINT+5
HDR	HDG+4
INIT	EN+2
PRINT	EN+2
SET	INIT+43, INIT+49, INIT+52, INIT+58, INIT+61, INIT+69, INIT+85, INIT+90, INIT+93, INIT+103 , INIT+105
UNCODED	INIT+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADM	INIT+2~, INIT+13, INIT+14, INIT+15, INIT+21, INIT+74, INIT+77, INIT+81, INIT+84
BDGBM	BDGICS1+6~, BDGICS1+7, BDGICS1+9, HDR+4, INIT+7
BDGEM	BDGICS1+6~, BDGICS1+8, BDGICS1+9, HDR+4, INIT+8
BDGL	PRINT+1~, PRINT+3*, PRINT+4, PRINT+6
BDGPRT	EN+2*, INIT+1, EXIT+1!
COUNT	INIT+2~
COUNT(	INIT+18, INIT+34, INIT+36, INIT+45, INIT+48, INIT+56, ERR+3, UNCODED+3*
D	PAD~, PAD+2
DATA	SET~, SET+2
DATE	INIT+2~, INIT+7, INIT+8, INIT+9, INIT+10, INIT+11, INIT+22, INIT+25, INIT+28, INIT+29 , INIT+31, ERR~, ERR+2, ERR+4, UNCODED~, UNCODED+2, UNCODED+4
DFN	INIT+2~, INIT+10, INIT+11, INIT+14, INIT+15, INIT+75, INIT+80, INIT+81, INIT+84, INIT+98* , INIT+101
DSC	INIT+2~, INIT+71, INIT+72, INIT+78, INIT+95, INIT+96, INIT+99, INIT+102
DT	INIT+7
DUZ(2	HDR+3, INIT+80, INIT+101
FIRST	PRINT+1~, PRINT+2, PRINT+4, HDG+2, HDG+5*
>> I	HDG+4*
IEN	INIT+2~, INIT+11, INIT+13, INIT+22, INIT+23, INIT+25, INIT+28, INIT+29, INIT+31, INIT+72 , INIT+74, INIT+75, INIT+79, INIT+96*, INIT+98, INIT+100, INIT+102, ERR~, ERR+4, UNCODED~ , UNCODED+4
IO	PRINT+2
IOF	HDG+2
IOSL	PRINT+5
IOST	EN+2, INIT+90
L	PAD~, PAD+2
LINE	INIT+2~, INIT+40, INIT+41, INIT+42, INIT+43, INIT+46, INIT+48, INIT+49, INIT+53, INIT+57* , INIT+58, INIT+66, INIT+67, INIT+68, INIT+69, INIT+77, INIT+78, INIT+79, INIT+80, INIT+81 , INIT+84, INIT+85, INIT+91, INIT+92, INIT+93, INIT+99, INIT+100, INIT+101, INIT+102*, INIT+103
MON	INIT+45, INIT+46, INIT+48, INIT+55, INIT+56, ERR+1~, ERR+2, ERR+3, UNCODED+1~, UNCODED+2* , UNCODED+3
MONTH	INIT+2~, INIT+9*, INIT+18, INIT+34, INIT+36
MSG	ERR~, ERR+4
N	SP~, SP+1
NUM	SET~, SET+1*, SET+2
SUB	INIT+2~, INIT+47, INIT+48, INIT+54, INIT+56
TODAY	INIT+2~, INIT+7*, INIT+8
>> TOTAL	INIT+55, INIT+56, INIT+57
VALMCNT	EN+1~, INIT+4*, INIT+43, INIT+49, INIT+52, INIT+58, INIT+61, INIT+69, INIT+85, INIT+90 , INIT+93, INIT+103, INIT+105
>> VALMHDR(	HDG+4
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+3*
>> VALMHDR(3	HDR+5*
VH	INIT+2~, INIT+27*, INIT+28, INIT+29, INIT+31
VST	INIT+2~, INIT+21*, INIT+22, INIT+23, INIT+24, INIT+27, INIT+36
X	HDR+1~, HDR+3, HDR+4, HDR+5, INIT+2~, HELP+1*
Y	INIT+2~

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGICS1

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: