Routine: BDGICS4

Information

BDGICS4 ; IHS/ANMC/LJF - WORKLOAD-COMPLETION TIMES ;

Source Information

Source file <BDGICS4.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Kernel	3	^%ZISC $$REPEAT^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	2	($$CONF,$$NUMDATE,$$RANGE,$$READ,INIT,MSG,PRTKL,ZIS)^BDGF $$HRCNT^BDGF2
IHS Changes To Scheduling	1	$$DIV^BSDU
IHS VA Utilities	1	ENP^XBDIQ1
VA Fileman	1	$$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 WORKLOAD STATS
DAYS(NUM,IEN,BEGIN)	; return # days for this stage of completion
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
FIND(SUB,OBS)	; find all entries for date range;IHS/OIT/LJF 04/14/2006 PATCH 1005 added OBS ; SUB=subscript depending on visit type ; OBS=1 if SUB ="AD" but only observations are needed;IHS/OIT/LJF 04/14/2006 PATCH 1005
EXPND	; -- expand code
TOTALS	; display totals and averages
HDG	; heading for paper report
PRINT	; print report to paper
INIT	; -- init variables and list array
EXIT	; -- exit code
FIELDS	;;
STATUS(IEN)	; calculate entry's completion status ; Status: 1=newly incomplete, 2=chart recvd, 3=chart tagged ; 4=insurance identified, 5=ready to code, 6=coded, 7=completed ; 8=bill prepped (only used if track bill prep turned on
DATES(IEN)	; return dates for entry
STATNM	;;
IDATES(IEN,NUM)	; return dates for entry in internal format ; NUM=1 for visit date, =2 for discharge date
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+10
$$CONF^BDGF	HDG+2
$$NUMDATE^BDGF	IDATES+3, IDATES+6
$$RANGE^BDGF	HDR+8
$$READ^BDGF	BDGICS4+8, BDGICS4+11, BDGICS4+13, BDGICS4+15
INIT^BDGF	PRINT+2
MSG^BDGF	INIT+1
PRTKL^BDGF	PRINT+10
ZIS^BDGF	BDGICS4+18
$$HRCNT^BDGF2	FIND+18
$$DIV^BSDU	INIT+8
$$GET1^DIQ	INIT+8, INIT+26, INIT+27, FIND+7, FIND+10, FIND+11, FIND+17, DATES+1, IDATES+3, IDATES+5 , IDATES+6, DAYS+3
EN^VALM	EN+3
TERM^VALM0	EN+2
CLEAR^VALM1	EN+2, EN+4
ENP^XBDIQ1	STATUS+6
$$REPEAT^XLFSTR	TOTALS+2, HDG+10, HDG+14, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"If printing to paper, please use wide paper or condensed print" Line Location: BDGICS4+17
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+1
Function Call: WRITE	Prompt: !,BDGUSR,?11,"***",$$CONF^BDGF,"***" Line Location: HDG+2
Function Call: WRITE	Prompt: !,BDGDATE,?25,"Incomplete Charts Workload Report",?70,"Page: ",BDGPG Line Location: HDG+3
Function Call: WRITE	Prompt: !,BDGTIME,?(80-$L(X)\2),X Line Location: HDG+9
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+10
Function Call: WRITE	Prompt: !,?50,"# of Days Until ..." Line Location: HDG+11
Function Call: WRITE	Prompt: !?2,"Patient",?23,"HRCN",?30,"Dsch/Surg",?44,"Rcvd",?51,"Taggd" Line Location: HDG+12
Function Call: WRITE	Prompt: ?59,"Insur",?67,"Ready",?75,"Coded",?82,"Complt",?90,"Bill Prep" Line Location: HDG+13
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+14
Routine Call	VALM Line Location: EN+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVSIT - [#9000010]	GET1^DIQ
^BDGIC - [#9009016.1]	GET1^DIQ
^BDGPAR - [#9009020.1]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BDGIC - [#9009016.1]	FIND+5, FIND+6
^TMP("BDGICS4"	INIT+2!, INIT+43, SET+2*, EXIT+1!, PRINT+6, PRINT+8
^TMP("BDGICS4A"	INIT+2!, INIT+20, INIT+21, INIT+23, INIT+44!, FIND+20*

Label References

Name	Line Occurrences
$$DATES	INIT+28
$$DAYS	INIT+35
$$IDATES	INIT+33
$$PAD	INIT+26, INIT+28, INIT+29, TOTALS+5, TOTALS+8, TOTALS+15, TOTALS+19, TOTALS+23, SP+1
$$SP	HDR+7, HDR+9, HDR+10, INIT+36, TOTALS+5, TOTALS+7, TOTALS+15, TOTALS+19, TOTALS+23
EXIT	PRINT+10
FIND	INIT+14, INIT+15
HDG	PRINT+3, PRINT+7
INIT	EN+1
PRINT	EN+1
SET	INIT+39, INIT+43, TOTALS+2, TOTALS+9, TOTALS+16, TOTALS+20, TOTALS+24
STATUS	FIND+14
TOTALS	INIT+41

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BDG1	INIT+33*, INIT+35
BDGBD	BDGICS4+4~, BDGICS4+11*, BDGICS4+12, HDR+8, INIT+9, FIND+4
BDGCNT	INIT+4~, INIT+7~, FIND+21*
BDGCNT(	FIND+21*, TOTALS+14, TOTALS+18, TOTALS+19
BDGCNT(7	TOTALS+22
BDGCNT(8	TOTALS+22
>> BDGDATE	HDG+3
BDGED	BDGICS4+4~, BDGICS4+13*, HDR+8, INIT+9, FIND+4
BDGI	INIT+18~, INIT+34*, INIT+35, INIT+37
BDGLN	PRINT+1~, PRINT+8*, PRINT+9
BDGNUM	INIT+4~
BDGNUM(	INIT+37*, TOTALS+8
BDGPG	PRINT+1~, HDG+1*, HDG+3
BDGPRT	EN+1*, INIT+1, EXIT+1!
BDGSRT	BDGICS4+4~, BDGICS4+15*, FIND+17, FIND+18
BDGTBP	INIT+7~, INIT+8*, STATUS+9
>> BDGTIME	HDG+9
BDGTOT	INIT+4~
BDGTOT(	INIT+37*, TOTALS+7, TOTALS+8
BDGTYP	BDGICS4+4~, BDGICS4+8*, BDGICS4+10, HDR+5, INIT+14, INIT+15, HDG+7
>> BDGUSR	HDG+2
BDGX	PRINT+1~, PRINT+6*, PRINT+8
BEGIN	DAYS~
D	PAD~, PAD+2
DATA	STATUS+5~, SET~, SET+2
DATA(	STATUS+8, STATUS+9, STATUS+11, STATUS+12, STATUS+13, STATUS+14, STATUS+15
DATE	INIT+7~, INIT+9, FIND+3~, FIND+4, FIND+5*, FIND+6
DAYS	DAYS+1~
END	INIT+7~, INIT+9, FIND+3~, FIND+4, FIND+5
FIELD	DAYS+1~, DAYS+2*, DAYS+3
I	TOTALS+1~, TOTALS+6, TOTALS+7, TOTALS+8, TOTALS+12, TOTALS+13, TOTALS+18, TOTALS+19
IEN	INIT+18~, INIT+21, INIT+23, INIT+26, INIT+27, INIT+28, INIT+33, INIT+35, FIND+3~, FIND+6 , FIND+7, FIND+10, FIND+11, FIND+14, FIND+17, FIND+20, STATUS~, STATUS+6, DATES~, DATES+1 , IDATES~, IDATES+3, IDATES+5, DAYS~, DAYS+3
IO	PRINT+2
IOF	HDG+1
IOSL	PRINT+7
IOST	EN+1
>> IOUOFF	HDR+10
>> IOUON	HDR+10
J	TOTALS+1~, TOTALS+14*
L	PAD~, PAD+2
LINE	INIT+18~, INIT+26, INIT+27, INIT+28, INIT+29, INIT+36, INIT+39, TOTALS+1~, TOTALS+5, TOTALS+7* , TOTALS+8, TOTALS+9, TOTALS+15, TOTALS+16, TOTALS+19, TOTALS+20, TOTALS+23, TOTALS+24
N	SP~, SP+1
NAME	INIT+18~
NUM	IDATES~, IDATES+3, DAYS~, SET~, SET+1*, SET+2
OBS	FIND~, FIND+10, FIND+11
PRV	INIT+18~
SORT	INIT+18~, INIT+19, INIT+20, INIT+21, INIT+23, FIND+17, FIND+18, FIND+20
STATUS	INIT+18~, INIT+23, FIND+3~, FIND+20, FIND+21, STATUS+7, STATUS+9, STATUS+11, STATUS+12, STATUS+13 , STATUS+14, STATUS+15
SUB	FIND~, FIND+5, FIND+6, FIND+10, FIND+11
TYPE	BDGICS4+4~, BDGICS4+10*, BDGICS4+11, BDGICS4+13
VALMCNT	EN+2~, INIT+3*, INIT+39, INIT+43, TOTALS+2, TOTALS+9, TOTALS+16, TOTALS+20, TOTALS+24
>> VALMHDR(1	HDR+7*
>> VALMHDR(2	HDR+9*
>> VALMHDR(3	HDR+10*
X	HDR+1~, HDR+5, HDR+7, HDR+8, HDR+9, INIT+35, INIT+36, INIT+37, IDATES+2~, IDATES+3 , IDATES+4, IDATES+5, IDATES+6, DAYS+1~, DAYS+3, DAYS+4, TOTALS+1~, TOTALS+8, TOTALS+14, TOTALS+15 , TOTALS+22, TOTALS+23, HELP+1, HDG+7~*, HDG+9

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGICS4

Call Graph Total: 11