Routine: BTIUDSC

Package	Total	Call Graph
Kernel	4	^%ZISC ($$FMDIFF,$$FMTE)^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
Registration	4	EN^VALM TERM^VALM0 FULL^VALM1 EN^VALM2
Text Integration Utility	4	($$EDATE,$$LDATE)^TIULA $$DOCCLASS^TIULC1 PRINT1^TIURA $$READ^TIUU
IHS Mods To Text Integration Utilities	2	^BTIUDOC ($$CONFID,INIT,MSG,PRTKL,ZIS)^BTIUU
VA Fileman	2	^DIE $$GET1^DIQ
IHS Changes To ADT	1	(,$$LASTPRV,$$LASTSRVN)^BDGF1
IHS VA Utilities	1	^XBCLS

Entry Points

Name	Comments	DBIA/ICR reference
RESET	;EP; -- action to rebuild display
ERR(NUM)	; -- sets errors
SET(LINE,TIULN)	; -- sets ^tmp
HELP	;EP; -- help code
HDG	; -- prints 2nd half of heading
GATHER(TIUBDT,TIUEDT)	; -- create display array
INIT2	;EP; -- init variables and list array
PRINT	; -- print lists to paper
TOTL(DATA,TOTAL)	; increment grand total
HDR	;EP; -- header code
TOT(SRV,PRV,DSC,DICT)	; -- increment ^tmp for totals
SET2(LINE,TIULN)	; -- sets ^tmp
PAD(DATA,LENGTH)	; -- SUBRTN to pad length of data
DSRV(CA)	; -- discharge service
INCREM	; -- increment # discharges,dictated on time, late or not at all
INIT	;EP; -- init variables and list array
SP(NUM)	; -- SUBRTN to pad spaces
DPRV(CA,AUTH)	; -- discharge provider
EN	; -- main entry point for BTIU DSUM COUNTS
CLASS(TYPE)	; -- returns 1 if doc is in dsch summ dic class (244)
LINE3(DATA)	; -- sets up display line for totals
ICE	;EP; -- action to edit IC file
PAT(DFN)	; -- returns patient chart # and last name
ICP	;EP; -- action to print chart copy
DATA(DFN,DSDT,DICT)	; -- returns display line
LINE2(SRV,PRV,DATA)	; -- sets up display line for totals
PROV()	; -- ask for provider
EXIT2	;EP; -- exit code for patient listing
GETIC	; -- select item from list
EXPND	; -- expand code
EXIT	;EP; -- exit code
STATUS(DICT,DSCH)	; -- returns whether dictated on time or not
RESET2	;EP; -- action to rebuild display

External References

Name	Field # of Occurrence
^%ZISC	PRINT+8
^BDGF1	DSRV+1, DPRV+2
$$LASTPRV^BDGF1	DPRV+2
$$LASTSRVN^BDGF1	DSRV+1
^BTIUDOC	BTIUDSC+6
$$CONFID^BTIUU	HDG+2
INIT^BTIUU	PRINT+2
MSG^BTIUU	INIT+2
PRTKL^BTIUU	PRINT+8
ZIS^BTIUU	BTIUDSC+11
^DIE	ICE+3
$$GET1^DIQ	GATHER+11, GATHER+21, GATHER+22, CLASS+1, DSRV+6, DPRV+7, DPRV+8
$$EDATE^TIULA	BTIUDSC+9
$$LDATE^TIULA	BTIUDSC+10
$$DOCCLASS^TIULC1	CLASS+2
PRINT1^TIURA	ICP+3
$$READ^TIUU	BTIUDSC+5, PROV+1
EN^VALM	EN+4
TERM^VALM0	EN+3, RESET+1, RESET2+1
FULL^VALM1	GETIC+2
EN^VALM2	GETIC+4
^XBCLS	BTIUDSC+4
$$FMDIFF^XLFDT	GATHER+15
$$FMTE^XLFDT	DATA+5, DATA+6
$$REPEAT^XLFSTR	GATHER+43, HDG+4, HDG+8, PAD+1
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,^TMP(TIUX,$J,TIUL,0) Line Location: PRINT+7
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !,TIUTIME,?16,$$CONFID^BTIUU,?71,"Page: ",TIUPG Line Location: HDG+2
Function Call: WRITE	Prompt: !,TIUDATE,?24,"DISCHARGE SUMMARY DICTATION STATISTICS",?76,TIUUSR Line Location: HDG+3
Function Call: WRITE	Prompt: !?($L(TIUFAC\2)),TIUFAC,!,$$REPEAT^XLFSTR("-",80) Line Location: HDG+4
Function Call: WRITE	Prompt: !,X,!,$$REPEAT^XLFSTR("=",80) Line Location: HDG+8
Routine Call	VALM Line Location: EN+4
Routine Call	DIE Line Location: ICE+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGPM - [#405]	GET1^DIQ
^DIC(45.7 - [#45.7]	GET1^DIQ
^TIU(8925 - [#8925]	GET1^DIQ
^TIU(8925.1 - [#8925.1]	GET1^DIQ
^BDGIC - [#9009016.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PAT+2
^DGPM - [#405]	GATHER+8, GATHER+9, DSRV+3, DSRV+5
^DGPM("ATID6"	DSRV+4
^DGPM("ATS"	DPRV+4, DPRV+5, DPRV+6
^DGPM("ATT3"	GATHER+6, GATHER+7
^DPT - [#2]	PAT+3
^TIU(8925 - [#8925]	GATHER+19, GATHER+20
^TMP(	PRINT+5, PRINT+7
^TMP("BTIUDSC"	INIT2+2, EXIT+2!, GATHER+2!, SET+2*
^TMP("BTIUDSC1"	GATHER+2!, GATHER+36, GATHER+37, GATHER+40, GATHER+41, GATHER+46!, TOT+2, TOT+4*
^TMP("BTIUDSC2"	EXIT+2!, GATHER+2!, SET2+2*, RESET2+2
^TMP("BTIUDSC3"	GATHER+3!, GATHER+24*, GATHER+28, GATHER+30, GATHER+31, GATHER+32, GATHER+46!
^TMP("TIUZICL"	GETIC+7, GETIC+8, GETIC+9, GETIC+10

Label References

Name	Line Occurrences
$$CLASS	GATHER+20
$$DATA	GATHER+23
$$DPRV	GATHER+25, DATA+4
$$DSRV	GATHER+12
$$LINE2	GATHER+37, GATHER+41, GATHER+44
$$LINE3	GATHER+45
$$PAD	DATA+3, DATA+4, DATA+5, DATA+6, LINE2+2, LINE2+3, LINE2+4, LINE3+4, LINE3+5, SP+1
$$PAT	DATA+3
$$SP	HDG+6, HDG+7, LINE3+4
$$STATUS	DATA+7
ERR	GATHER+11
EXIT	PRINT+8
GATHER	EN+2, INIT+3
GETIC	ICE+2, ICP+2
HDG	PRINT+4, PRINT+6
HDR	RESET+2, RESET2+2
INCREM	TOT+3
INIT	RESET+2
PRINT	EN+2
RESET2	ICE+2
SET	GATHER+29, GATHER+32, ERR+2
SET2	GATHER+39, GATHER+41, GATHER+43, GATHER+44, GATHER+45
TOT	GATHER+25
TOTL	GATHER+38

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AP	DPRV+3~, DPRV+8*, DPRV+9
AUTH	DPRV~, DPRV+1
CA	DSRV~, DSRV+1, DSRV+3, DPRV~, DPRV+2
CD	GATHER+1~
D	GATHER+1~, GATHER+30*, GATHER+31, GATHER+32
DA	ICE+1~, ICE+3*
DATA	TOTL~, TOTL+1, LINE2~, LINE2+3, LINE2+4, LINE3~, LINE3+2, LINE3+3, PAD~, PAD+1
DAYS	GATHER+1~, GATHER+14*, GATHER+15
DDATE	GATHER+1~, GATHER+5, GATHER+6, GATHER+7
DFN	GATHER+1~, GATHER+8*, GATHER+23, DATA~, DATA+3, PAT~, PAT+2, PAT+3, DSRV+1, DSRV+4 , DPRV+2, DPRV+4, DPRV+5, DPRV+6, ERR+1
DICT	DATA~, DATA+6, DATA+7, STATUS~, STATUS+1, STATUS+2, TOT~, INCREM+2, INCREM+3
DIE	ICE+1~, ICE+3*
DR	ICE+1~, ICE+3*
DSC	GATHER+1~, TOT~, INCREM+3
DSCH	GATHER+1~, STATUS~, STATUS+2
DSDT	DATA~, DATA+5, DATA+7
DUZ(2	PAT+2
END	GATHER+1~, GATHER+5*, GATHER+6
I	GATHER+1~, TOTL+1*
IEN	GATHER+1~, GATHER+7*, GATHER+8, GATHER+9, GATHER+24, CLASS+1
IO	PRINT+2
IOF	HDG+1
IOSL	PRINT+6
IOST	EN+2
LENGTH	PAD~, PAD+1
LINE	GATHER+1~, GATHER+23, GATHER+24, GATHER+37, GATHER+39, GATHER+41, GATHER+43, GATHER+44, GATHER+45, SET~ , SET+2, SET2~, SET2+2, ERR+1*, ERR+2
LT	LINE3+1~, LINE3+2, LINE3+3, LINE3+5
N	GATHER+1~, GATHER+31*, GATHER+32
ND	LINE3+1~, LINE3+2, LINE3+3, LINE3+5
NUM	SP~, SP+1, ERR~
OT	LINE3+1~, LINE3+2, LINE3+3, LINE3+4
P	GATHER+1~, GATHER+40*, GATHER+41
PRV	TOT~, TOT+2, TOT+4, LINE2~, LINE2+2
S	GATHER+1~, GATHER+28, GATHER+29, GATHER+30, GATHER+31, GATHER+32, GATHER+36, GATHER+37, GATHER+40, GATHER+41
SRV	TOT~, TOT+2, TOT+4, LINE2~, LINE2+2
T	LINE3+1~, LINE3+2*, LINE3+3
>> TIU	GATHER+18, GATHER+19, GATHER+20, GATHER+21, GATHER+22
>> TIUADDT	GATHER+9*, GATHER+15
TIUAUTH	GATHER+17~, GATHER+18, GATHER+22, GATHER+25, DATA+4
TIUBDT	BTIUDSC+8~, BTIUDSC+9*, EN+2, INIT+3, GATHER~, GATHER+5
>> TIUCA	GATHER+8*, GATHER+9, GATHER+11, GATHER+12, GATHER+25, DATA+4, DPRV+4, DPRV+5, DPRV+6, ERR+1
TIUCD	GATHER+1~
TIUCNT	GATHER+1~, GATHER+4*
>> TIUDA	ICP+2*
>> TIUDATE	HDG+3
TIUDICT	GATHER+17~, GATHER+18, GATHER+19, GATHER+21, GATHER+23, GATHER+25
>> TIUDSDT	GATHER+9*, GATHER+10, GATHER+15, GATHER+23, GATHER+24, GATHER+25
TIUEDT	BTIUDSC+8~, BTIUDSC+10*, EN+2, INIT+3, GATHER~, GATHER+5
>> TIUFAC	HDG+4
TIUICN	GETIC+3, GETIC+7, GETIC+10, ICE+1~, ICE+2, ICE+3, ICP+1~, ICP+2
TIUL	PRINT+1~, PRINT+5*, PRINT+7
TIULN	INIT+1~, INIT+4, INIT2+1~, GATHER+4, GATHER+28, GATHER+29, GATHER+32, GATHER+36, GATHER+39, GATHER+41 , GATHER+43, GATHER+44, GATHER+45, SET~, SET+1, SET+2, SET2~, SET2+1*, SET2+2, ERR+2
TIUN	GATHER+1~
TIUPG	PRINT+1~, HDG+1*, HDG+2
TIUSRV	GATHER+1~, GATHER+12*, GATHER+13, GATHER+14, GATHER+24, GATHER+25
>> TIUTIME	HDG+2
>> TIUUSR	HDG+3
>> TIUVST	GATHER+11*, GATHER+19
TIUX	PRINT+1~, PRINT+3*, PRINT+5, PRINT+7, HDG+6
TIUY	DATA+1~, DATA+3, DATA+4, DATA+5, DATA+6, DATA+7*, DATA+8
TOTAL	GATHER+35~, GATHER+38, GATHER+44, GATHER+45, TOTL~, TOTL+1
TYPE	CLASS~, CLASS+1*, CLASS+2
U	GATHER+8, PAT+2, PAT+3, DSRV+3, DSRV+5, TOTL+1, INCREM+1, INCREM+2, INCREM+3, INCREM+4 , LINE2+3, LINE2+4, LINE3+2, LINE3+3, ICP+2
>> VALMBCK	RESET+1, RESET2+1
VALMCNT	EN+1~, INIT+4, INIT2+2, EXIT+1!, EXIT2+1!, RESET2+2*
VALMY	GETIC+1~, GETIC+5
VALMY(0	GETIC+6
W	DPRV+3~, DPRV+6*, DPRV+7, DPRV+8
X	HELP+1, GATHER+1~, GATHER+32, GATHER+37, GATHER+38, GATHER+41, DATA+1~, PAT+1~, PAT+2, PAT+4 , DSRV+2~, DSRV+4, DSRV+5, DSRV+6, DPRV+3~, DPRV+4, DPRV+5, DPRV+6, DPRV+7, DPRV+8 , DPRV+9, DPRV+10, HDG+6, HDG+7, HDG+8, TOT+1~, TOT+2, TOT+4, INCREM+1, INCREM+2* , INCREM+3, INCREM+4, LINE2+1~, LINE2+2, LINE2+3, LINE2+4, LINE2+5, LINE3+1~, LINE3+4, LINE3+5* , LINE3+6, GETIC+1~, GETIC+6*, GETIC+10
>> XQORNOD(0	GETIC+4
Y	BTIUDSC+5, BTIUDSC+6, PAT+1~, PAT+3, PAT+4, DSRV+2~, DSRV+3, DSRV+4, DPRV+3~, DPRV+4 , DPRV+5, DPRV+6, TOT+1~, TOT+2, TOT+4, INCREM+1, INCREM+2, INCREM+3, INCREM+4, GETIC+1~ , GETIC+7, GETIC+8, GETIC+9, GETIC+10
Z	DPRV+3~, DPRV+5, DPRV+6, GETIC+1~, GETIC+8, GETIC+9, GETIC+10

Marked Items

Name	Field # of Occurrence
$T(^BDGF1	DSRV+1, DPRV+2

Customize PDF page

Package: IHS Mods To Text Integration Utilities

Routine: BTIUDSC

Information

Source Information

Call Graph

Call Graph Total: 18

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items