Routine: TIURVBC

Information

TIURVBC ;ISL/JER - Visible Black Character Line Count Report ;05/20/10 12:43

Package	Total	Call Graph
Kernel	6	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT $$LEAP^XLFDT3 ($$LOW,$$UP)^XLFSTR
Text Integration Utility	4	($$EDATE,$$LDATE,SELDIV)^TIULA ($$PERSNAME,$$PNAME,$$PTNAME)^TIULC1 ($$CENTER,$$DATE,$$NAME)^TIULS ($$READ,$$STOP,$$TITLE,JUSTIFY)^TIUU
VA FileMan	2	$$EXTERNAL^DILFD $$GET1^DIQ
Authorization Subscription	1	$$ISA^USRLM
Registration	1	($$NAME,$$SITE)^VASITE
Toolkit	1	$$GET^XPAR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Kernel	1	^DIC(19
Text Integration Utility	1	TIU VBC LINE COUNT REPORT

Entry Points

Name	Comments	DBIA/ICR reference
MAIN	; Main subroutine
DEVICE	; Device handling ; Call with: ZTRTN
NOQUE	; Call report directly
QUE	; Queue output
TRNSEL(TIUY)	; Select Transcriptionists
ENTRY	; Build & Print Report
DFLTDT(EORL)	; Compute default early or late date
LDOM(MON,YR)	; Calculate last day of month MON
GATHER(TIUDI,TIUA,TIUEDT,TIULDT,TIUTR)	; Gather records that satisfy criteria
INITIALS(TIUX)	; Get Person's initials from file 200
REPORT(TIUA,TIUEDT,TIULDT,TIUSONLY)	; Generate report
CONTINUE(TIUDIV,TIURTM,TIUEDT,TIULDT,TIUPG)	; Evaluate relative page position
CONTX
HEADER(DIVISION,TIURTM,TIUEDT,TIULDT,TIUPG)	; Write Report Header

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+3
HOME^%ZIS	QUE+7
^%ZISC	ENTRY+7
^%ZTLOAD	QUE+5
$$EXTERNAL^DILFD	GATHER+22, GATHER+23
$$GET1^DIQ	GATHER+27, INITIALS+1
$$EDATE^TIULA	MAIN+24
$$LDATE^TIULA	MAIN+27
SELDIV^TIULA	MAIN+4
$$PERSNAME^TIULC1	INITIALS+2
$$PNAME^TIULC1	GATHER+25
$$PTNAME^TIULC1	GATHER+28
$$CENTER^TIULS	MAIN+3
$$DATE^TIULS	REPORT+30, HEADER+1, HEADER+7
$$NAME^TIULS	GATHER+28, INITIALS+2
$$READ^TIUU	MAIN+9, MAIN+17, MAIN+21, TRNSEL+9, CONTINUE+3
$$STOP^TIUU	REPORT+10, REPORT+38, REPORT+48
$$TITLE^TIUU	HEADER+4
JUSTIFY^TIUU	HEADER+3, HEADER+4, HEADER+5
$$ISA^USRLM	GATHER+21
$$NAME^VASITE	REPORT+5
$$SITE^VASITE	REPORT+5
$$FMADD^XLFDT	GATHER+3
$$FMTE^XLFDT	DFLTDT+11
$$NOW^XLFDT	REPORT+5
$$LEAP^XLFDT3	LDOM+1
$$LOW^XLFSTR	GATHER+24
$$UP^XLFSTR	GATHER+26
$$GET^XPAR	TRNSEL+3, GATHER+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CENTER^TIULS("--- Transcription Billing Verification Report ---"),! Line Location: MAIN+3
Function Call: WRITE	Prompt: !!,"Inconsistencies found between the MEDICAL CENTER DIVISION FILE, the INSTITUTION" Line Location: MAIN+6
Function Call: WRITE	Prompt: !,"FILE and/or STATION NUMBER (TIME SENSITIVE) FILE for the:",!!,$S($G(BADDIV)]"":BADDIV_" division"_$S($L(BADDIV,",")>1:"s",1:""),1:"a division you selected"),"." Line Location: MAIN+7
Function Call: WRITE	Prompt: !!,"Please contact the National Support team." Line Location: MAIN+8
Function Call: WRITE	Prompt: ! Line Location: MAIN+16
Function Call: WRITE	Prompt: ! Line Location: MAIN+20
Function Call: WRITE	Prompt: ! Line Location: MAIN+23
Function Call: WRITE	Prompt: ! Line Location: MAIN+25
Function Call: WRITE	Prompt: ! Line Location: MAIN+28
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!") Line Location: QUE+5
Function Call: WRITE	Prompt: !!,"Select Transcriptionist(s):",! Line Location: TRNSEL+6
Function Call: WRITE	Prompt: ! Line Location: TRNSEL+12
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+3
Function Call: WRITE	Prompt: ! Line Location: HEADER+3
Function Call: WRITE	Prompt: TIULINE,! Line Location: HEADER+4
Function Call: WRITE	Prompt: ! Line Location: HEADER+4
Function Call: WRITE	Prompt: ! Line Location: HEADER+6
Function Call: WRITE	Prompt: "for Documents Transcribed: ",TIUDTR,?55,"Printed: ",$$DATE^TIULS(TIURTM,"MM/DD/CCYY HR:MIN"),! Line Location: HEADER+7
Function Call: WRITE	Prompt: ! Line Location: HEADER+8
Function Call: WRITE	Prompt: "Tran",?5,"Date",?14,"Title",?39,"Patient",?66,"Aut",?71,"VBC Lines",! Line Location: HEADER+9
Function Call: WRITE	Prompt: TIULINE,! Line Location: HEADER+10
Function Call: WRITE	Prompt: "Category",?48,"Documents",?71,"VBC Lines",!,TIULINE Line Location: HEADER+11
Routine Call	%ZIS Line Location: DEVICE+3
Routine Call	%ZIS Line Location: QUE+7

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^TIU(8925 - [#8925]	EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925 - [#8925]	GATHER+6, GATHER+8, GATHER+10, GATHER+12
^TMP("TIURVBC"	ENTRY+2

Label References

Name	Line Occurrences
$$CONTINUE	REPORT+8, REPORT+9, REPORT+19, REPORT+30, REPORT+32, REPORT+33, REPORT+34, REPORT+36, REPORT+37, REPORT+44 , REPORT+47
$$DFLTDT	MAIN+24, MAIN+27
$$INITIALS	GATHER+24, GATHER+26
$$LDOM	DFLTDT+6
@(	NOQUE+1
CONTX	CONTINUE+2, CONTINUE+3
GATHER	ENTRY+4
HEADER	REPORT+7, REPORT+14, REPORT+42, CONTINUE+4
QUE	DEVICE+4
REPORT	ENTRY+5
TRNSEL	MAIN+19

Naked Globals

Name	Field # of Occurrence
^(12	GATHER+12
^(13	GATHER+12
^(14	GATHER+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QUE+1~, QUE+3*
%I	MAIN+1~
%T	MAIN+1~
%Y	MAIN+1~
%ZIS	DEVICE+2~, DEVICE+3*
BADDIV	MAIN+1~, MAIN+7
DFLTDT	DFLTDT+1~, DFLTDT+10, DFLTDT+11, DFLTDT+12
DIC	MAIN+1~
>> DIROUT	MAIN+19
DIRUT	MAIN+1~, MAIN+9, MAIN+18, MAIN+22, TRNSEL+1~, REPORT+1~, REPORT+10, REPORT+12, REPORT+15, REPORT+20 , REPORT+22, REPORT+31, REPORT+35, REPORT+38, REPORT+39, REPORT+43, REPORT+48, CONTINUE+3
DIVISION	HEADER~, HEADER+5, HEADER+9
DOM	DFLTDT+1~, DFLTDT+2, DFLTDT+3, DFLTDT+6, DFLTDT+7, DFLTDT+9*
DT	DFLTDT+2
DTOUT	REPORT+1~
DUZ(2	TRNSEL+3
EORL	DFLTDT~, DFLTDT+6, DFLTDT+7, DFLTDT+9
EQLN	REPORT+2~*, REPORT+32, REPORT+36
FMDT	DFLTDT+1~, DFLTDT+7, DFLTDT+9, DFLTDT+11
IO	ENTRY+3, REPORT+4
IO("Q"	DEVICE+4, QUE+3!
IOF	HEADER+3
ION	QUE+4
IOSL	REPORT+10, REPORT+38, REPORT+48, CONTINUE+2
IOST	REPORT+10, REPORT+38, REPORT+48, CONTINUE+3
LDOMS	LDOM+1~, LDOM+2*, LDOM+3
LEAP	LDOM+1~*, LDOM+2
MON	DFLTDT+1~, DFLTDT+2, DFLTDT+4, DFLTDT+5*, DFLTDT+6, DFLTDT+7, DFLTDT+9, LDOM~, LDOM+3
POP	MAIN+1~, DEVICE+3
SELDIV	MAIN+1~, MAIN+4, MAIN+5
TIU1TR	MAIN+1~, MAIN+17*, MAIN+19
TIUA	ENTRY+1~, ENTRY+2*, ENTRY+4, ENTRY+5, ENTRY+6, GATHER~, GATHER+29, REPORT~, REPORT+6, REPORT+12 , REPORT+15, REPORT+17, REPORT+18, REPORT+20, REPORT+22, REPORT+24, REPORT+26, REPORT+27, REPORT+28, REPORT+39 , REPORT+43, REPORT+45, REPORT+46
TIUAUTH	GATHER+11~, GATHER+13, GATHER+15, GATHER+26, GATHER+29, REPORT+23~, REPORT+25*, REPORT+30
TIUCAT	REPORT+1~, REPORT+41, REPORT+43, REPORT+44, REPORT+45, REPORT+46
TIUD	REPORT+23~, REPORT+24*, REPORT+25
TIUD0	GATHER+11~, GATHER+12*, GATHER+25, GATHER+27, GATHER+28
TIUD12	GATHER+11~, GATHER+12*, GATHER+13
TIUD13	GATHER+11~, GATHER+12*, GATHER+13
TIUD14	GATHER+11~, GATHER+12*, GATHER+14
TIUDA	GATHER+9~, GATHER+10, GATHER+12, GATHER+29, REPORT+21~, REPORT+22, REPORT+24
TIUDCNT	REPORT+1~, REPORT+13, REPORT+26
TIUDI	MAIN+1~, MAIN+5, MAIN+9, MAIN+10, ENTRY+4, GATHER~
TIUDI(	MAIN+12, MAIN+13
TIUDI("ENTRIES"	MAIN+14, MAIN+15, GATHER+17
TIUDI("INST"	MAIN+13*, GATHER+17
TIUDIV	GATHER+11~, GATHER+13, GATHER+17, GATHER+19, GATHER+23, GATHER+29, REPORT+1~, REPORT+11, REPORT+12, REPORT+14 , REPORT+15, REPORT+19, REPORT+20, REPORT+22, REPORT+24, REPORT+26, REPORT+30, REPORT+32, REPORT+33, REPORT+34 , REPORT+36, REPORT+37, CONTINUE~, CONTINUE+4
TIUDTR	HEADER+1~*, HEADER+7
TIUDTVBC	REPORT+13~, REPORT+16, REPORT+29, REPORT+33
TIUDVBC	REPORT+1~, REPORT+13, REPORT+26, REPORT+37
TIUEBCNT	REPORT+13~, REPORT+17, REPORT+27
TIUEBVBC	REPORT+13~, REPORT+18, REPORT+27
TIUEBY	GATHER+11~, GATHER+13, GATHER+15, GATHER+16, GATHER+21, GATHER+24, GATHER+29, REPORT+13~, REPORT+15, REPORT+17 , REPORT+18, REPORT+19, REPORT+20, REPORT+22, REPORT+24, REPORT+27, REPORT+33
TIUEDT	MAIN+1~, MAIN+24*, MAIN+26, ENTRY+4, ENTRY+5, GATHER~, GATHER+3, REPORT~, REPORT+7, REPORT+8 , REPORT+9, REPORT+14, REPORT+19, REPORT+30, REPORT+32, REPORT+33, REPORT+34, REPORT+36, REPORT+37, REPORT+42 , REPORT+44, REPORT+47, CONTINUE~, CONTINUE+4, HEADER~, HEADER+1
TIUHLP	TRNSEL+1~, TRNSEL+4*, TRNSEL+9
TIUI	TRNSEL+1~, TRNSEL+8, TRNSEL+11, REPORT+1~, REPORT+45*, REPORT+46, REPORT+47
TIUK	MAIN+11~, MAIN+12*, MAIN+13, MAIN+14
TIULDT	MAIN+1~, MAIN+27, MAIN+29, ENTRY+4, ENTRY+5, GATHER~, GATHER+5, GATHER+6, REPORT~, REPORT+7 , REPORT+8, REPORT+9, REPORT+14, REPORT+19, REPORT+30, REPORT+32, REPORT+33, REPORT+34, REPORT+36, REPORT+37 , REPORT+42, REPORT+44, REPORT+47, CONTINUE~, CONTINUE+4, HEADER~, HEADER+1
TIULINE	HEADER+1~*, HEADER+4, HEADER+10, HEADER+11
TIUPG	REPORT+1~, REPORT+2, REPORT+7, REPORT+8, REPORT+9, REPORT+14, REPORT+19, REPORT+30, REPORT+32, REPORT+33 , REPORT+34, REPORT+36, REPORT+37, REPORT+42, REPORT+44, REPORT+47, CONTINUE~, CONTINUE+4, HEADER~, HEADER+2 , HEADER+3
TIUPRMT	TRNSEL+1~, TRNSEL+8*, TRNSEL+9
TIUPRSN	TRNSEL+1~, TRNSEL+9*, TRNSEL+10, TRNSEL+11
TIUPTL4	GATHER+11~, GATHER+27*, GATHER+28
TIUPTNM	GATHER+11~, GATHER+28, GATHER+29, REPORT+23~, REPORT+25, REPORT+30
TIUQUIT	TRNSEL+1~, TRNSEL+7, TRNSEL+10
TIUR	REPORT+46~*, REPORT+47
TIURTM	REPORT+1~, REPORT+5*, REPORT+7, REPORT+8, REPORT+9, REPORT+14, REPORT+19, REPORT+30, REPORT+32, REPORT+33 , REPORT+34, REPORT+36, REPORT+37, REPORT+42, REPORT+44, REPORT+47, CONTINUE~, CONTINUE+4, HEADER~, HEADER+7
TIUSCNT	REPORT+1~, REPORT+11, REPORT+28
TIUSCRN	TRNSEL+1~, TRNSEL+5*, TRNSEL+9
TIUSHDR	REPORT+2~, REPORT+41*, REPORT+42, REPORT+44, REPORT+47
TIUSITE	REPORT+1~, REPORT+5*, REPORT+28, REPORT+41
TIUSONLY	MAIN+1~, MAIN+21, ENTRY+5, REPORT~, REPORT+2, REPORT+14, REPORT+19, REPORT+30, REPORT+32, REPORT+33 , REPORT+34, REPORT+36, REPORT+37, REPORT+38
TIUSVBC	REPORT+1~, REPORT+11, REPORT+28
TIUSVC	GATHER+11~, GATHER+14, GATHER+22, GATHER+29, REPORT+23~, REPORT+25*
TIUTDT	GATHER+1~, GATHER+3, GATHER+6, GATHER+8, GATHER+10, GATHER+29, REPORT+16~, REPORT+20, REPORT+22, REPORT+24 , REPORT+30
TIUTITLE	GATHER+11~, GATHER+25, GATHER+29, REPORT+23~, REPORT+25, REPORT+30
TIUTR	MAIN+1~, MAIN+2*, MAIN+19, ENTRY+4, GATHER~, GATHER+16
TIUTR("I"	GATHER+16
TIUVBC	GATHER+7~, GATHER+8, GATHER+10, GATHER+29, REPORT+23~, REPORT+25*, REPORT+26, REPORT+27, REPORT+28, REPORT+29 , REPORT+30
TIUVBCUC	TRNSEL+1~, TRNSEL+3, TRNSEL+4, TRNSEL+5, GATHER+1~, GATHER+19, GATHER+21
TIUX	INITIALS~, INITIALS+1, INITIALS+2
TIUY	TRNSEL~, TRNSEL+1, TRNSEL+11, INITIALS+1~, INITIALS+2, CONTINUE+1~, CONTINUE+3*, CONTX
TIUY(	TRNSEL+11*
TIUY("I"	TRNSEL+11*
U	LDOM+3, GATHER+13, GATHER+14, GATHER+25, GATHER+27, GATHER+28, GATHER+29, REPORT+5, REPORT+17, REPORT+18 , REPORT+25, REPORT+26, REPORT+27, REPORT+28, REPORT+47
VAUTD	MAIN+1~
YR	DFLTDT+1~, DFLTDT+2, DFLTDT+4, DFLTDT+6, DFLTDT+7, DFLTDT+9, LDOM~, LDOM+1*
ZTDESC	QUE+4*, QUE+6!
ZTDTH	QUE+1~, QUE+6!
ZTIO	QUE+1~, QUE+4*, QUE+6!
>> ZTQUEUED	REPORT+3
>> ZTREQ	REPORT+3*
ZTRTN	MAIN+1~, MAIN+30*, NOQUE+1, QUE+2, QUE+6!
ZTSAVE	QUE+1~, QUE+6!
ZTSAVE(	QUE+3*
ZTSK	QUE+1~, QUE+5, QUE+6!

Customize PDF page

Package: Text Integration Utility