Routine: IBCRHO

Information

IBCRHO ;ALB/ARH - RATES: UPLOAD CHECK & ADD TO CM REPORT ; 22-MAY-1996

Package	Total	Call Graph
Integrated Billing	4	$$CSEMPTY^IBCRED CPT2000^IBCRHBRA SRCH^IBCRHL (DISP1,GETXTMP)^IBCRHU1
Kernel	4	^%ZIS ^%ZISC (,$$S)^%ZTLOAD $$HTE^XLFDT
VA FileMan	1	^DIR

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
Integrated Billing	2	IBCRHD IBCRHRS

Entry Points

Name	Comments	DBIA/ICR reference
ENTRY(ADD)	; OPTION: check validity of data in uploaded files and add to Charge Master
RPT
EXIT	;clean up and quit
PRNT	; print report
PAUSE	;pause at end of screen if being displayed on a terminal
CONT()	; returns true if user wants to add the files to the Charge Master
HDR()	;print the report header
HDRQ
STOP()	;determine if user has requested the queued report to stop

External References

Name	Field # of Occurrence
^%ZIS	ENTRY+9
^%ZISC	EXIT+1
^%ZTLOAD	ENTRY+10
$$S^%ZTLOAD	STOP+1
^DIR	PAUSE+1, CONT+2
$$CSEMPTY^IBCRED	RPT+5, RPT+6
CPT2000^IBCRHBRA	RPT+4
SRCH^IBCRHL	RPT+2
DISP1^IBCRHU1	ENTRY+3
GETXTMP^IBCRHU1	RPT+1
$$HTE^XLFDT	HDR+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Check files waiting to be loaded into the Charge Master for data validity." Line Location: ENTRY+2
Function Call: WRITE	Prompt: !,"No files in XTMP." Line Location: ENTRY+3
Function Call: WRITE	Prompt: !!,"Report requires 120 columns" Line Location: ENTRY+8
Function Call: WRITE	Prompt: !!,?15,IBFILE Line Location: PRNT+5
Function Call: WRITE	Prompt: !!,IBSUB,?20,$P(IBLN,U,2),! Line Location: PRNT+8
Function Call: WRITE	Prompt: ?20,$P(IBLN,U,3),! Line Location: PRNT+9
Function Call: WRITE	Prompt: ?20,$P(IBLN,U,4),! Line Location: PRNT+10
Function Call: WRITE	Prompt: !,?5,IBX,?10," = ",$G(^XTMP(IBFILE,IBSUB,IBX)),?50,$E(IBY,1,69) Line Location: PRNT+14
Function Call: WRITE	Prompt: !,?70,IBY Line Location: PRNT+15
Function Call: WRITE	Prompt: !!,"SUBFILE/SET ERROR:",?20,"This error results when a problem is found in the definition of the subfile that has been uploaded",!,"or the Charge Set that has been assigned to it. All processing of the subfile" Line Location: PRNT+19
Function Call: WRITE	Prompt: " is stopped, no part of the subfile will",!,"be loaded into the Charge Master." Line Location: PRNT+20
Function Call: WRITE	Prompt: !!,"LINE/DATA ERROR:",?20,"A data error in a required field has been found in a line read from the file. The chargeable item",!,"defined by that line will be ignored, it will NOT be added to the Charge Master." Line Location: PRNT+21
Function Call: WRITE	Prompt: !!,"LINE/DATA WARNING:",?20,"A data error in a non-required field has been found in a line read from the file. The chargeable",!,"item defined by that line will be ignored, it will NOT be added to the Charge Master." Line Location: PRNT+22
Function Call: WRITE	Prompt: !!,"Records found that are duplicates of existing charge entries or have a 0 charge are NOT added nor reported individually." Line Location: PRNT+23
Function Call: WRITE	Prompt: !,"A summary report of the results will be printed.",! Line Location: CONT+3
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: !,"IB Upload Summary Report of Charge Items Loaded into the Charge Master" Line Location: HDR+4
Function Call: WRITE	Prompt: !,"IB Upload Data Validity Check on Temporary files" Line Location: HDR+5
Function Call: WRITE	Prompt: ?75,$$HTE^XLFDT(IBTIME,2)_" Page ",IBPG Line Location: HDR+6
Function Call: WRITE	Prompt: !,"---------------------------------------------------------------------------------------------------" Line Location: HDR+7
Function Call: WRITE	Prompt: !,"*TASK STOPPED BY USER*" Line Location: STOP+1
Routine Call	%ZIS Line Location: ENTRY+9
Routine Call	DIR Line Location: PAUSE+1 CONT+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	RPT!, EXIT+1!, PRNT+4, PRNT+6, PRNT+7, PRNT+12, PRNT+13
^XTMP(	PRNT+14

Label References

Name	Line Occurrences
$$CONT	ENTRY+5
$$HDR	PRNT+3, PRNT+6, PRNT+12, PRNT+17
$$STOP	RPT+2, HDR+2
EXIT	ENTRY+3, ENTRY+5, ENTRY+9, ENTRY+10
HDRQ	HDR+2
PAUSE	HDR+2
PRNT	RPT+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	ENTRY+9*
>> %ZIS("A"	ENTRY+9*
ADD	ENTRY~, ENTRY+5, ENTRY+10, RPT+2, RPT+4, RPT+5, RPT+6, HDR+4, HDR+5
DIR	PRNT+1~, PAUSE+1!, CONT+1~, CONT+2!
DIR("A"	CONT+2*
DIR(0	PAUSE+1, CONT+2
DIRUT	PRNT+1~, PAUSE+1, CONT+1~
DUOUT	PAUSE+1, CONT+1~
IBA1	ENTRY+3, RPT+1, EXIT+1!
IBA1(	RPT+2, RPT+4, RPT+5, RPT+6
IBA1(""	RPT+4, RPT+5, RPT+6
IBCNT	PRNT+1~, PRNT+5, PRNT+6, PRNT+8, PRNT+9, PRNT+10, PRNT+12, PRNT+14, PRNT+15, PRNT+17 , HDR+1*
IBFILE	PRNT+1~, PRNT+4*, PRNT+5, PRNT+6, PRNT+7, PRNT+12, PRNT+13, PRNT+14
IBLN	PRNT+1~, PRNT+7*, PRNT+8, PRNT+9, PRNT+10
IBPG	PRNT+1~, HDR+1*, HDR+2, HDR+6, STOP+1
IBQUIT	RPT~, RPT+2, RPT+4, RPT+5, RPT+6, RPT+8, PRNT+1~, PRNT+4, PRNT+6, PRNT+12 , PRNT+17, PRNT+18, PAUSE+1, HDR+1, HDR+2, HDRQ
IBSUB	PRNT+1~, PRNT+6*, PRNT+7, PRNT+8, PRNT+12, PRNT+13, PRNT+14
IBTIME	PRNT+1~*, HDR+6
IBX	RPT~, RPT+2, RPT+4, RPT+5, RPT+6, PRNT+1~, PRNT+12*, PRNT+13, PRNT+14
IBY	PRNT+1~, PRNT+13, PRNT+14, PRNT+15
IBZ	CONT+1~, CONT+2, CONT+3, CONT+4
IO	PRNT+2
IO("Q"	ENTRY+10!
IOF	HDR+3
IOSL	PRNT+6, PRNT+12, PRNT+17
IOST	PAUSE+1
>> POP	ENTRY+9
U	PRNT+8, PRNT+9, PRNT+10, PRNT+13
X	PRNT+1~, CONT+1~
Y	PRNT+1~, CONT+1~, CONT+2
>> ZTDESC	ENTRY+10*
>> ZTQUEUED	EXIT+1, STOP+1
ZTREQ	STOP+1!
>> ZTRTN	ENTRY+10*
>> ZTSAVE("ADD"	ENTRY+10*
>> ZTSTOP	STOP+1*, STOP+2

Customize PDF page

Package: Integrated Billing