Routine: BDGICS2

Information

BDGICS2 ; IHS/ANMC/LJF - DAY SURGERY CODING STATUS ; [ 04/08/2004 4:02 PM ]

Source Information

Source file <BDGICS2.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Kernel	4	^%ZISC $$FMTE^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	2	($$CONF,$$NUMDATE,$$RANGE,$$READ,MSG,ZIS)^BDGF ($$HRCN,$$INSUR)^BDGF2
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 DS
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
UNCODED(DATE,VST)	; save uncoded visits by discharge date
EXPND	; -- expand code
HDG	; heading when printing to paper
INIT	; -- init variables and list array
EXIT	; -- exit code
PRINT	; print report to paper
ERR(MSG,VST,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+74, INIT+95
$$RANGE^BDGF	HDR+4
$$READ^BDGF	BDGICS2+6, BDGICS2+7
MSG^BDGF	INIT+1
ZIS^BDGF	BDGICS2+10
$$HRCN^BDGF2	INIT+76, INIT+97
$$INSUR^BDGF2	INIT+80
$$GET1^DIQ	HDR+3, INIT+23, INIT+24, INIT+36, INIT+72, INIT+75, INIT+77, INIT+94, INIT+96
EN^VALM	EN+4
TERM^VALM0	EN+3
CLEAR^VALM1	EN+3, EN+5
$$FMTE^XLFDT	INIT+46
$$REPEAT^XLFSTR	INIT+51, HDG+3, HDG+5, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

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

FileNo	Call Tags
^SRF - [#130]	GET1^DIQ
^DPT - [#2]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPOV("AD"	INIT+29
^AUPNVPRV("AD"	INIT+29
^AUPNVSIT - [#9000010]	INIT+12, INIT+13, INIT+14
^AUPNVSIT("B"	INIT+8, INIT+10
^SRF("ADS"	INIT+20, INIT+21, INIT+71
^TMP("BDGICS2"	INIT+3!, INIT+101, SET+2*, PRINT+3, PRINT+4, PRINT+6, EXIT+1!
^TMP("BDGICS2A"	INIT+3!, INIT+62, INIT+68, INIT+69, INIT+85, INIT+91, INIT+92, INIT+98, INIT+102!, ERR+4* , UNCODED+4*

Label References

Name	Line Occurrences
$$PAD	INIT+40, INIT+41, INIT+42, INIT+46, INIT+63, INIT+64, INIT+65, INIT+74, INIT+75, INIT+76 , INIT+80, INIT+87, INIT+88, INIT+95, INIT+96, INIT+98, SP+1
$$SP	HDR+2, HDR+3, HDR+5, INIT+48, INIT+52, INIT+56
ERR	INIT+22, INIT+23, INIT+25, INIT+26
EXIT	PRINT+7
HDG	PRINT+2, PRINT+5
HDR	HDG+2
INIT	EN+2
PRINT	EN+2
SET	INIT+43, INIT+49, INIT+51, INIT+57, INIT+58, INIT+66, INIT+81, INIT+86, INIT+89, INIT+99 , INIT+101
UNCODED	INIT+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADM	INIT+2~
BDGBM	BDGICS2+5~, BDGICS2+6, BDGICS2+8, HDR+4, INIT+7
BDGEM	BDGICS2+5~, BDGICS2+7, BDGICS2+8, 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+17, INIT+34, INIT+36, INIT+45, INIT+48, INIT+55, ERR+3, UNCODED+3*
D	PAD~, PAD+2
DATA	SET~, SET+2
DATE	INIT+2~, INIT+7, INIT+8, INIT+9, INIT+10, INIT+22, INIT+23, INIT+25, INIT+26, INIT+31 , INIT+68, INIT+69, INIT+74, INIT+80, INIT+91, INIT+92, INIT+95, INIT+98, ERR~, ERR+2 , ERR+4, UNCODED~, UNCODED+2, UNCODED+4
DFN	INIT+2~, INIT+72, INIT+75, INIT+76, INIT+80, INIT+94, INIT+96, INIT+97
DSC	INIT+2~
DT	INIT+7
DUZ(2	HDR+3, INIT+14, INIT+76, INIT+97
FIRST	PRINT+1~, PRINT+2, PRINT+4, HDG+3*
>> I	HDG+2*
IEN	INIT+2~
IO	PRINT+2
IOF	HDG+1
IOSL	PRINT+5
IOST	EN+2, INIT+86
L	PAD~, PAD+2
LINE	INIT+2~, INIT+40, INIT+41, INIT+42, INIT+43, INIT+46, INIT+48, INIT+49, INIT+52, INIT+56 , INIT+57, INIT+63, INIT+64, INIT+65, INIT+66, INIT+74, INIT+75, INIT+76, INIT+77, INIT+80 , INIT+81, INIT+87, INIT+88, INIT+89, INIT+95, INIT+96, INIT+97, INIT+98, INIT+99
MON	INIT+45, INIT+46, INIT+48, INIT+54, INIT+55, ERR+1~, ERR+2, ERR+3, UNCODED+1~, UNCODED+2* , UNCODED+3
MONTH	INIT+2~, INIT+9*, INIT+17, INIT+34, INIT+36
MSG	ERR~, ERR+4
N	SP~, SP+1
NUM	SET~, SET+1*, SET+2
>> SRN	INIT+21, INIT+22, INIT+23, INIT+24, INIT+71, INIT+77
>> SRRS	INIT+24*, INIT+25, INIT+26
SUB	INIT+2~, INIT+47, INIT+48, INIT+53, INIT+55
TODAY	INIT+2~, INIT+7*, INIT+8
>> TOTAL	INIT+54, INIT+55, INIT+56
U	INIT+12, INIT+13, INIT+14
VALMCNT	EN+1~, INIT+4*, INIT+43, INIT+49, INIT+51, INIT+57, INIT+58, INIT+66, INIT+81, INIT+86 , INIT+89, INIT+99, INIT+101
>> VALMHDR(	HDG+2
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+3*
>> VALMHDR(3	HDR+5*
VH	INIT+2~
VST	INIT+2~, INIT+10, INIT+12, INIT+13, INIT+14, INIT+21, INIT+22, INIT+23, INIT+25, INIT+26 , INIT+29, INIT+31, INIT+36, INIT+69, INIT+71, INIT+72, INIT+92*, INIT+94, INIT+98, ERR~ , ERR+4, UNCODED~, UNCODED+4
X	HDR+1~, HDR+3, HDR+4, HDR+5, INIT+2~, INIT+29, INIT+31, HELP+1
Y	INIT+2~, INIT+29*, INIT+31

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGICS2

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: