Routine: BDGICS3

Information

BDGICS3 ; IHS/OIT/LJF - OBSERVATIONS CODING STATUS ; [ 04/08/2004 4:02 PM ]

Source Information

Source file <BDGICS3.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,$$NUMDATE,$$RANGE,$$READ,MSG,ZIS)^BDGF $$ADMSRV^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	;EP; -- main entry point for BDG IC CODE STATUS DS
HDR	;EP; -- 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	;EP; -- 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+63, INIT+86
$$RANGE^BDGF	HDR+4
$$READ^BDGF	BDGICS3+6, BDGICS3+7
MSG^BDGF	INIT+1
ZIS^BDGF	BDGICS3+10
$$ADMSRV^BDGF1	INIT+68
$$HRCN^BDGF2	INIT+65, INIT+88
$$INSUR^BDGF2	INIT+71
$$GET1^DIQ	HDR+3, INIT+12, INIT+13, INIT+14, INIT+26, INIT+62, INIT+64, INIT+85, INIT+87
EN^VALM	EN+4
TERM^VALM0	EN+3
CLEAR^VALM1	EN+3, EN+5
$$FMTE^XLFDT	INIT+36
$$REPEAT^XLFSTR	INIT+42, HDG+3, HDG+5, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^TMP("BDGICS3",$J,BDGL,0) Line Location: PRINT+6
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !?25,"OBSERVATIONS 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: !,"Visit 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
^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+20
^AUPNVPRV("AD"	INIT+20
^AUPNVSIT("B"	INIT+8, INIT+10
^DGPM("AVISIT"	INIT+67
^TMP("BDGICS3"	INIT+3!, INIT+92, SET+2*, PRINT+3, PRINT+4, PRINT+6, EXIT+1!
^TMP("BDGICS3A"	INIT+3!, INIT+53, INIT+59, INIT+60, INIT+76, INIT+82, INIT+83, INIT+89, INIT+93!, ERR+4* , UNCODED+4*

Label References

Name	Line Occurrences
$$PAD	INIT+30, INIT+31, INIT+32, INIT+36, INIT+54, INIT+55, INIT+56, INIT+63, INIT+64, INIT+65 , INIT+71, INIT+78, INIT+79, INIT+86, INIT+87, INIT+89, SP+1
$$SP	HDR+2, HDR+3, HDR+5, INIT+38, INIT+43, INIT+47
EXIT	PRINT+7
HDG	PRINT+2, PRINT+5
HDR	HDG+2
INIT	EN+2
PRINT	EN+2
SET	INIT+33, INIT+39, INIT+42, INIT+48, INIT+49, INIT+57, INIT+72, INIT+77, INIT+80, INIT+90 , INIT+92
UNCODED	INIT+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADM	INIT+2~, INIT+67*, INIT+68
BDGBM	BDGICS3+5~, BDGICS3+6, BDGICS3+8, HDR+4, INIT+7
BDGEM	BDGICS3+5~, BDGICS3+7, BDGICS3+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+24, INIT+26, INIT+35, INIT+38, INIT+46, ERR+3, UNCODED+3*
D	PAD~, PAD+2
DATA	SET~, SET+2
DATE	INIT+2~, INIT+7, INIT+8, INIT+9, INIT+10, INIT+21, INIT+59, INIT+60, INIT+63, INIT+71 , INIT+82, INIT+83, INIT+86, INIT+89, ERR~, ERR+2, ERR+4, UNCODED~, UNCODED+2, UNCODED+4
DFN	INIT+2~, INIT+62, INIT+64, INIT+65, INIT+68, INIT+71, INIT+85, INIT+87, INIT+88
DSC	INIT+2~
DT	INIT+7
DUZ(2	HDR+3, INIT+14, INIT+65, INIT+88
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+77
L	PAD~, PAD+2
LINE	INIT+2~, INIT+30, INIT+31, INIT+32, INIT+33, INIT+36, INIT+38, INIT+39, INIT+43, INIT+47 , INIT+48, INIT+54, INIT+55, INIT+56, INIT+57, INIT+63, INIT+64, INIT+65, INIT+68, INIT+71 , INIT+72, INIT+78, INIT+79, INIT+80, INIT+86, INIT+87, INIT+88, INIT+89, INIT+90
MON	INIT+35, INIT+36, INIT+38, INIT+45, INIT+46, ERR+1~, ERR+2, ERR+3, UNCODED+1~, UNCODED+2* , UNCODED+3
MONTH	INIT+2~, INIT+9*, INIT+17, INIT+24, INIT+26
MSG	ERR~, ERR+4
N	SP~, SP+1
NUM	SET~, SET+1*, SET+2
SUB	INIT+2~, INIT+37, INIT+38, INIT+44, INIT+46
TODAY	INIT+2~, INIT+7*, INIT+8
>> TOTAL	INIT+45, INIT+46, INIT+47
VALMCNT	EN+1~, INIT+4*, INIT+33, INIT+39, INIT+42, INIT+48, INIT+49, INIT+57, INIT+72, INIT+77 , INIT+80, INIT+90, INIT+92
>> 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+20, INIT+21, INIT+26, INIT+60, INIT+62 , INIT+67, INIT+83*, INIT+85, INIT+89, ERR~, ERR+4, UNCODED~, UNCODED+4
X	HDR+1~, HDR+3, HDR+4, HDR+5, INIT+2~, INIT+20, INIT+21, HELP+1
Y	INIT+2~, INIT+20*, INIT+21

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGICS3

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: