Routine: IBCRHBS4

Package	Total	Call Graph
Integrated Billing	2	($$VERSION,MSGSITE,MSGVERS)^IBCRHBRV ($$RGDV,$$SITEDV,CHKRGZIP,MSGDIV,SETRGZIP)^IBCRHBSZ
VA FileMan	2	^DIE ^DIR
Kernel	1	$$UP^XLFSTR

Package	Total	Caller Graph
Integrated Billing	1	IBCRHBS

Entry Points

Name	Comments	DBIA/ICR reference
SELSITE()	; select one site to calculate RC charges for ; return: 0 or 'IFN of site in IBCR RC SITE ^ site number ^ site name ^ 3-digit zip ^ type'
SELECT
SSQ
ASKNAM()	; ask the user to enter the name of a site/division, return upper case name entered or null
CONT(SITE)	; as user if they want to load this division, return 1 if accept division and calculate charges, else 0
LSTALL	; list all sites, user cannot select, nothing returned
LSTSITE(SNAME)	; search, display, selecy from list of sites ; returns 'site IFN in IBCR RC SITE' if one selected, 0 if none selected, -1 if ^
ASKSEL(CNT)	; ask user to select from list of sites, returns number selected, 0 if none selected, -1 if ^
DV999(SITE)	; check if Site is an valid site or a temporary placeholder
ASKDV(SITE)	; Get new Division number, Name and Type for invalid sites ; return: "" or 'IFN of site in IBCR RC SITE ^ site number ^ site name ^ 3-digit zip ^ type'
ASKTYP
ASKDVQ
RECHK(SITE)	; re-check site against existing region, Division number and Type are critical

External References

Name	Field # of Occurrence
^DIE	RECHK+5
^DIR	ASKNAM+8, CONT+5, LSTALL+7, LSTALL+8, ASKSEL+4, ASKDV+10, ASKDV+22, ASKDV+23, ASKTYP+4
$$VERSION^IBCRHBRV	SELSITE+6, CONT+4
MSGSITE^IBCRHBRV	SELECT+11
MSGVERS^IBCRHBRV	SELECT+11
$$RGDV^IBCRHBSZ	ASKDV+17, RECHK+2
$$SITEDV^IBCRHBSZ	ASKDV+15
CHKRGZIP^IBCRHBSZ	SELSITE+3
MSGDIV^IBCRHBSZ	SELECT+11
SETRGZIP^IBCRHBSZ	SELSITE+3
$$UP^XLFSTR	ASKNAM+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"Select Site to calculate Reasonable Charges v"_$$VERSION^IBCRHBRV_" for load into Charge Master" Line Location: SELSITE+6
Function Call: WRITE	Prompt: !,"--------------------------------------------------------------------------------" Line Location: SELSITE+7
Function Call: WRITE	Prompt: !! Line Location: ASKNAM+8
Function Call: WRITE	Prompt: !,?15,$P(SITE,U,2),?27,$P(SITE,U,3),?60,$P(SITE,U,4),?67,$P(SITE,U,5),! Line Location: CONT+2
Function Call: WRITE	Prompt: ! Line Location: LSTALL+1
Function Call: WRITE	Prompt: !,?10,$P(IBNODE,U,1),?22,$P(IBNODE,U,2),?60,$P(IBNODE,U,3),?67,$P(IBNODE,U,4) Line Location: LSTALL+6
Function Call: WRITE	Prompt: ! Line Location: LSTALL+7
Function Call: WRITE	Prompt: ! Line Location: LSTALL+7
Function Call: WRITE	Prompt: ! Line Location: LSTALL+8
Function Call: WRITE	Prompt: ! Line Location: LSTALL+8
Function Call: WRITE	Prompt: ! Line Location: LSTSITE+3
Function Call: WRITE	Prompt: !,?4,IBCNT,")",?10,$P(IBNODE,U,1),?22,$P(IBNODE,U,2),?60,$P(IBNODE,U,3),?67,$P(IBNODE,U,4) Line Location: LSTSITE+11
Function Call: WRITE	Prompt: ?40,"??" Line Location: LSTSITE+13
Function Call: WRITE	Prompt: ! Line Location: ASKSEL+2
Function Call: WRITE	Prompt: ! Line Location: ASKSEL+5
Function Call: WRITE	Prompt: !!,"--------------------------------------------------------------------------------" Line Location: ASKDV+4
Function Call: WRITE	Prompt: !,"'",$P(SITE,U,2)," - ",$P(SITE,U,3),"' is an invalid site number, you may now enter",!,"the correct information on the site you are loading charges for.",! Line Location: ASKDV+5
Function Call: WRITE	Prompt: !!,">> ",IBNDIV," is not a valid Medical Center division on your system.",!! Line Location: ASKDV+13
Function Call: WRITE	Prompt: !!,"**Site exists." Line Location: ASKDV+15
Function Call: WRITE	Prompt: !!,"** Region ",IBNDIV," already exists." Line Location: ASKDV+18
Function Call: WRITE	Prompt: !!,"** Region ",IBNDIV," already exists." Line Location: ASKDV+19
Function Call: WRITE	Prompt: !!,"*** IT IS VERY IMPORTANT THAT TYPE OF FACILITY BE SET CORRECTLY" Line Location: ASKDV+27
Function Call: WRITE	Prompt: !,"*** IF THERE IS ANY DOUBT OF THE TYPE OF FACILITY THEN CONTACT THE CBO ",!,?4,"OR ENTER A NOIS BEFORE CONTINUING" Line Location: ASKDV+28
Function Call: WRITE	Prompt: !!,"--------------------------------------------------------------------------------",! Line Location: ASKDVQ+0
Function Call: WRITE	Prompt: !,"*** Error: Division selected does not match existing Region" Line Location: RECHK+8
Function Call: WRITE	Prompt: !,?10,$P(SITE,U,2),?20,$P(SITE,U,3),?55,$P(SITE,U,4),?65,$P(SITE,U,5) Line Location: RECHK+9
Function Call: WRITE	Prompt: !,?10,$P(IBY,U,2),?20,$P(IBY,U,3),?55,$P(IBY,U,4),?65,$P(IBY,U,5) Line Location: RECHK+10
Function Call: WRITE	Prompt: !,"** Error: Required data missing (zip or type):" Line Location: RECHK+13
Function Call: WRITE	Prompt: !,?10,$P(SITE,U,2),?20,$P(SITE,U,3),?55,$P(SITE,U,4),?65,$P(SITE,U,5) Line Location: RECHK+14
Function Call: WRITE	Prompt: !,"** Error: No Area Factors defined for site/zip:" Line Location: RECHK+17
Function Call: WRITE	Prompt: !,?10,$P(SITE,U,2),?20,$P(SITE,U,3),?55,$P(SITE,U,4),?65,$P(SITE,U,5) Line Location: RECHK+18
Routine Call	DIE Line Location: RECHK+5
Routine Call	DIR Line Location: ASKNAM+8 CONT+5 LSTALL+7 LSTALL+8 ASKSEL+4 ASKDV+10 ASKDV+22 ASKDV+23 ASKTYP+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBE(363.31 - [#363.31]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	ASKDV+13
^XTMP("IBCR RC E"	RECHK+16
^XTMP("IBCR RC SITE"	SELECT+4, LSTALL+3, LSTALL+4, LSTALL+5, LSTSITE+7, LSTSITE+8, LSTSITE+9

Label References

Name	Line Occurrences
$$ASKDV	SELECT+7
$$ASKNAM	SELECT+1
$$ASKSEL	LSTSITE+12, LSTSITE+15
$$CONT	SELECT+13
$$DV999	SELECT+7
$$LSTSITE	SELECT+3
$$RECHK	SELECT+9
ASKDVQ	ASKDV+2, ASKDV+10, ASKDV+15, ASKDV+18, ASKDV+22, ASKDV+23, ASKTYP+4
ASKTYP	ASKDV+7, ASKDV+19
SELECT	SELECT+3, SELECT+4, SELECT+7, SELECT+9, SELECT+13
SSQ	SELECT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	ASKSEL~, ASKSEL+3, ASKSEL+4
DA	RECHK+1~, RECHK+5*!
DIC	RECHK+1~, RECHK+5!
DIE	RECHK+1~, RECHK+5*!
DIR	ASKNAM+1~, ASKNAM+8!, CONT+1~, CONT+5!, LSTALL+1~, LSTALL+7!, LSTALL+8!, LSTSITE+3~, ASKSEL+2~, ASKDV+2~ , ASKDV+10!, ASKDV+22!, ASKDV+23!
DIR("?"	ASKNAM+2, ASKNAM+3, ASKNAM+4, ASKNAM+5, ASKNAM+6, ASKNAM+7, CONT+3, ASKSEL+3, ASKDV+9, ASKTYP , ASKTYP+1, ASKTYP+2
DIR("??"	ASKNAM+7*
DIR("A"	ASKNAM+8, CONT+4, ASKSEL+4, ASKDV+10, ASKDV+22, ASKDV+23, ASKTYP+4*
DIR(0	ASKNAM+8, CONT+5, LSTALL+7, LSTALL+8, ASKSEL+4, ASKDV+10, ASKDV+22, ASKDV+23, ASKTYP+4*
DIRUT	ASKNAM+1~, ASKNAM+8, CONT+1~, LSTALL+1~, LSTALL+3, LSTALL+4, LSTALL+8, LSTSITE+3~, ASKSEL+2~, ASKDV+2~ , ASKDV+10, ASKDV+22, ASKDV+23, ASKTYP+4
DR	RECHK+1~, RECHK+5*!
DTOUT	LSTALL+1~, ASKSEL+2~, ASKSEL+5, ASKDV+2~
DUOUT	ASKNAM+1~, CONT+1~, LSTALL+1~, LSTSITE+3~, ASKSEL+2~, ASKSEL+5, ASKDV+2~
IBCNT	LSTALL+1~, LSTALL+7, LSTSITE+3~, LSTSITE+10, LSTSITE+11, LSTSITE+12, LSTSITE+13, LSTSITE+15, LSTSITE+16
IBEND	LSTALL+1~, LSTALL+7, LSTALL+8, LSTSITE+3~, LSTSITE+12, LSTSITE+15
IBI	ASKDV+2~
IBL	LSTSITE+3~, LSTSITE+5*, LSTSITE+7
IBMCDV	SELSITE+5~, SELECT*
IBNDIV	ASKDV+2~, ASKDV+7, ASKDV+11, ASKDV+13, ASKDV+15, ASKDV+17, ASKDV+18, ASKDV+19, ASKTYP+7, ASKTYP+9
IBNEW	ASKDV+2~, ASKDV+15, ASKDV+18, ASKTYP+9, ASKDVQ+1
IBNM	ASKDV+2~, ASKDV+7, ASKDV+19, ASKDV+22, ASKDV+24, ASKTYP+9
IBNODE	LSTALL+1~, LSTALL+5, LSTALL+6, LSTSITE+3~, LSTSITE+9, LSTSITE+11
IBOK	RECHK+1~, RECHK+8, RECHK+13, RECHK+17, RECHK+19
IBSEL	LSTSITE+3~, LSTSITE+7, LSTSITE+8, LSTSITE+12, LSTSITE+15, LSTSITE+16, LSTSITE+18*, LSTSITE+20
IBSELDIV	SELSITE+5~, SELECT, SELECT+4, SELECT+5, SELECT+7, SELECT+9, SELECT+11, SELECT+13, SSQ
IBSNAME	SELSITE+5~, SELECT+1*, SELECT+3
IBTYP	ASKDV+2~, ASKTYP+5*, ASKTYP+7, ASKTYP+9
IBX	SELSITE+5~, SELECT+11, ASKNAM+1~, ASKNAM+8, ASKNAM+9, ASKNAM+10, CONT+1~, CONT+5, CONT+6, LSTALL+1~ , LSTALL+3, LSTALL+4, LSTSITE+3~, LSTSITE+5, LSTSITE+7, LSTSITE+8, ASKSEL+2~, ASKSEL+5, ASKSEL+6, DV999+1~ , DV999+2, ASKDV+2~, ASKDV+15, ASKDV+17, ASKDV+18, ASKDV+19, RECHK+1~*, RECHK+2
IBXIFN	SELSITE+5~, SELECT+3, SELECT+4, SELECT+5, LSTALL+1~, LSTALL+4, LSTALL+5, LSTSITE+3~, LSTSITE+8*, LSTSITE+9 , LSTSITE+10
IBY	ASKNAM+1~, RECHK+1~, RECHK+2, RECHK+4, RECHK+5*, RECHK+7, RECHK+10
SELARR	LSTSITE+3~
SELARR(	LSTSITE+10*, LSTSITE+18
SITE	CONT~, CONT+2, DV999~, DV999+1, ASKDV~, ASKDV+2, ASKDV+5, ASKDV+7, ASKDV+9, ASKDV+18 , ASKTYP+7, ASKTYP+9, RECHK~, RECHK+1*, RECHK+4, RECHK+5, RECHK+7, RECHK+9, RECHK+12, RECHK+14 , RECHK+16, RECHK+18
SNAME	LSTSITE~, LSTSITE+5, LSTSITE+7, LSTSITE+13
U	SELECT+5, SELECT+11, CONT+2, LSTALL+6, LSTSITE+11, DV999+1, ASKDV+5, ASKDV+7, ASKDV+9, ASKDV+18 , ASKDV+19, ASKDV+24, ASKTYP+7, ASKTYP+9, RECHK+1, RECHK+4, RECHK+5, RECHK+7, RECHK+9, RECHK+10 , RECHK+12, RECHK+14, RECHK+16, RECHK+18
X	ASKNAM+1~, CONT+1~, LSTALL+1~, LSTSITE+3~, ASKSEL+2~, ASKDV+2~
Y	ASKNAM+1~, ASKNAM+8, CONT+1~, CONT+5, LSTALL+1~, LSTSITE+3~, ASKSEL+2~, ASKSEL+5, ASKDV+2~, ASKDV+11 , ASKDV+22, ASKTYP+5
Y(0	ASKDV+24

Customize PDF page

Package: Integrated Billing

Routine: IBCRHBS4

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: