Routine: BDGICS5

Information

BDGICS5 ; IHS/ANMC/LJF - INCOMPLETE STATS BY PROVIDER ;

Source Information

Source file <BDGICS5.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Kernel	3	^%ZISC $$REPEAT^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	2	($$BROWSE,$$CONF,$$NUMDATE,$$RANGE,$$READ,INIT,MSG,PRTKL,ZIS)^BDGF $$PROVS^BDGICR2
VA Fileman	2	^%DT $$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
SET(DATA,NUM)	; puts display line into list template array
EN	; -- main entry point for BDG IC CHARTS BY PATIENT
HELP	; -- help 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 for paper report
INIT	; -- init variables and list array
EXIT	; -- exit code
PRINT	; print report to paper
FIND	; find all entries for date range
HDR	; -- header code

External References

Name	Field # of Occurrence
^%DT	INIT+44
^%ZISC	PRINT+10
$$BROWSE^BDGF	BDGICS5+17
$$CONF^BDGF	HDR+2, HDG+3
$$NUMDATE^BDGF	INIT+28
$$RANGE^BDGF	HDR+5, HDG+7
$$READ^BDGF	BDGICS5+6, BDGICS5+8, BDGICS5+9, BDGICS5+11, BDGICS5+15
INIT^BDGF	PRINT+2
MSG^BDGF	INIT+1
PRTKL^BDGF	PRINT+10
ZIS^BDGF	BDGICS5+18
$$PROVS^BDGICR2	BDGICS5+13
$$GET1^DIQ	INIT+26, INIT+27, INIT+30, INIT+31, INIT+39, INIT+42, INIT+43, INIT+45, FIND+7, FIND+8 , FIND+12, FIND+14, FIND+15, FIND+16, FIND+19, FIND+20, FIND+21
EN^VALM	EN+3
TERM^VALM0	EN+2
CLEAR^VALM1	EN+2, EN+4
$$REPEAT^XLFSTR	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: !,BDGLN Line Location: PRINT+9
Function Call: WRITE	Prompt: @IOF Line Location: HDG+2
Function Call: WRITE	Prompt: !,BDGUSR,?11,"***",$$CONF^BDGF,"***" Line Location: HDG+3
Function Call: WRITE	Prompt: !,BDGDATE,?23,"Incomplete Statistics by Provider",?70,"Page: ",BDGPG Line Location: HDG+4
Function Call: WRITE	Prompt: !,BDGTIME,?(80-$L(X)\2),X Line Location: HDG+6
Function Call: WRITE	Prompt: !,?(80-$L(X)\2),X Line Location: HDG+7
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+8
Function Call: WRITE	Prompt: !?2,"Chart#",?10,"Type",?18,"Dsch/Surg",?31,"Deficiency",?53,"Status",?63,"Days to Complete" Line Location: HDG+10
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+11
Routine Call	VALM Line Location: EN+3

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

Name	Line Occurrences (* Changed, ! Killed)
^BDGIC - [#9009016.1]	FIND+4, FIND+5, FIND+11
^TMP("BDGICS5"	INIT+2!, INIT+60, SET+2*, EXIT+1!, PRINT+6, PRINT+8
^TMP("BDGICS5A"	INIT+2!, INIT+13, INIT+19, INIT+20, INIT+21, INIT+22, INIT+61!, FIND+23*

Label References

Name	Line Occurrences
$$PAD	INIT+26, INIT+28, INIT+29, INIT+30, INIT+31, INIT+53, INIT+55, INIT+57, INIT+58, SP+1
$$SP	HDR+2, HDR+4, HDR+5, INIT+16, INIT+55, INIT+58
EN	BDGICS5+17
EXIT	PRINT+10
FIND	INIT+8
HDG	PRINT+3, PRINT+7
INIT	EN+1
PRINT	EN+1
SET	INIT+15, INIT+16, INIT+32, INIT+52, INIT+53, INIT+55, INIT+56, INIT+57, INIT+58, INIT+60

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	INIT+44*
BDGBD	BDGICS5+4~, BDGICS5+8*, HDR+5, INIT+7, FIND+3, HDG+7
BDGCNT	INIT+11~, INIT+17!
BDGCNT("DELQ"	INIT+47, INIT+48, INIT+57, INIT+58
BDGCNT("TOTAL"	INIT+38, INIT+40, INIT+53, INIT+54, INIT+55
>> BDGDATE	HDG+4
BDGED	BDGICS5+4~, BDGICS5+9*, HDR+5, INIT+7, FIND+3, HDG+7
BDGLN	PRINT+1~, PRINT+8*, PRINT+9
BDGPG	PRINT+1~, HDG+2*, HDG+4
BDGPRT	EN+1*, INIT+1, EXIT+1!
BDGPRV	BDGICS5+4~, BDGICS5+11, BDGICS5+12, BDGICS5+13*, FIND+15, FIND+16, FIND+17
BDGPRV(	FIND+15, FIND+16, FIND+17
BDGPRV(0	BDGICS5+13
BDGRPT	BDGICS5+4~, BDGICS5+6*, INIT+25, INIT+34, INIT+50, HDG+9
BDGSRT	BDGICS5+4~, BDGICS5+15*, HDR+3, FIND+8, FIND+22, HDG+5
>> BDGTIME	HDG+6
>> BDGUSR	HDG+3
BDGX	PRINT+1~, PRINT+6*, PRINT+8
D	PAD~, PAD+2
DATA	SET~, SET+2
DATE	INIT+6~, INIT+7, FIND+1~, FIND+3, FIND+4*, FIND+5, FIND+23
DEF	FIND+1~, FIND+20*, FIND+22, FIND+23
DEF1	FIND+1~
DEFAULT	BDGICS5+4~
>> DEFI	FIND+21*, FIND+23
DELQ	INIT+37~, INIT+43, INIT+44, INIT+46
DT	INIT+45
END	INIT+6~, INIT+7, FIND+1~, FIND+3, FIND+4
FIRST	INIT+11~, INIT+12, INIT+14
IEN	INIT+11~, INIT+20, INIT+21, INIT+22, INIT+26, INIT+27, INIT+30, INIT+31, INIT+39, INIT+43 , INIT+45, FIND+1~, FIND+5, FIND+7, FIND+8, FIND+11, FIND+12, FIND+14, FIND+19, FIND+20 , FIND+21, FIND+23
IEN2	INIT+11~, INIT+21, INIT+22, INIT+30, INIT+31, INIT+43, INIT+45, FIND+1~, FIND+11, FIND+12 , FIND+14, FIND+19, FIND+20, FIND+21, FIND+23
IO	PRINT+2
IOF	HDG+2
IOSL	PRINT+7
IOST	EN+1
L	PAD~, PAD+2
LINE	INIT+11~, INIT+26, INIT+27, INIT+28, INIT+29, INIT+30, INIT+31, INIT+32
N	SP~, SP+1
NAME	INIT+11~
NUM	SET~, SET+1*, SET+2
PROV	FIND+1~, FIND+14, FIND+15, FIND+16, FIND+17, FIND+19, FIND+23
PRV	INIT+11~, INIT+13*, INIT+16, INIT+19, INIT+20, INIT+21, INIT+22
RESV	INIT+37~, INIT+45*, INIT+46
SORT	INIT+11~, INIT+19, INIT+20, INIT+21, INIT+22, FIND+1~, FIND+8, FIND+22*, FIND+23
STR	INIT+11~, INIT+22*, INIT+28, INIT+29, INIT+42, INIT+48
SUB	FIND+1~, FIND+2*, FIND+4, FIND+5
U	BDGICS5+12, INIT+29, INIT+42, INIT+48, FIND+23
VALMCNT	EN+2~, INIT+3*, INIT+15, INIT+16, INIT+32, INIT+52, INIT+53, INIT+55, INIT+56, INIT+57 , INIT+58, INIT+60
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+4*
>> VALMHDR(3	HDR+5*
X	HDR+1~, HDR+3, HDR+4, HDR+5, INIT+37~, INIT+39, INIT+40, INIT+44, INIT+55, INIT+58 , FIND+8, HELP+1, HDG+1~, HDG+5, HDG+6, HDG+7
>> Y	INIT+44

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGICS5

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: