Routine: IBCRHBRV

Package	Total	Call Graph
Kernel	1	$$FMTE^XLFDT
VA FileMan	1	^DIR

Package	Total	Caller Graph
Integrated Billing	63	IBCRER1 IBCRHBR IBCRHBR1 IBCRHBR3 IBCRHBR4 IBCRHBR5 IBCRHBR6 IBCRHBRA IBCRHBS1 IBCRHBS3 IBCRHBS4 IBCRHBS5 IBCRHBS6 IBCRHBSZ IBCRHRS IBCRHU2 IBCROE IBCRU8 IBYP412 IBYP427 IBYP439 IBYP445 IBYP462 IBYP468 IBYP484 IBYP491 IBYP508 IBYP513 IBYP520 IBYP536 IBYP542 IBYP556 IBYP559 IBYP573 IBYP584 IBYP600 IBYP612 IBYP628 IBYP634 IBYP658 IBYP667 IBYP683 IBYP693 IBYP719 IBYP724 IBYP744 IBYP755 IBYP783 IBYPSA IBYPSA1 IBYPSA2 IBYPSB IBYPSD IBYPSE IBYPSF IBYPSG IBYPSH IBYPSI IBYPSJ IBYPSL IBYPSM IBYPSN IBYPSO

Entry Points

Name	Comments	DBIA/ICR reference
SELVERS()	; get version to upload from user
VERSION()	; return currently loaded version of RC files (1, 1.1, ...)
VERSDT(VERS)	; return Effective Date of a version of RC files, either version passed in or currently loaded version
VERSEDT(VERS)	; return Inactive Date of a version of RC files, either version passed in or currently loaded version
VERSALL()	; return all RC versions and corresponding effective date 'VERS;EFFDT^VERS;EFFDT^...'
VERSEND()	; return all RC versions and corresponding inactive date 'VERS;INACTIVE DT^VERS;INACTIVE DT^...'
VERSITE(SITE)	; returns the list of versions loaded for a particular site ; * uses 99201 in the RC PHYSICIAN set to check which versions/dates are loaded ; * so 99201 must have a pro charge in all versions, if not it must be replaced with an item that does ; *693 - 99202 for 4.215
MSGSITE(SITE)	; display a message indicating which versions are loaded for a site
MSGVERS(SITE)	; check if versions are being loaded in the correct order, should be loaded in date order ; - if loading a version that has already been loaded for the site ; - if loading a version when any future versions have already been loaded for the site ; - if loading a version when the last version has not yet been loaded for the site ; * uses 99201 in the RC PHYSICIAN set to check which versions/dates are loaded ; * so 99201 must have a pro charge in all versions, if not it must be replaced with an item that does
VERSTR(RVRS)	; returns string containing list of all Reasonable Charges versions with charges, separated by "," ; RVRS - if set, returns the list of versions in reverse order
FILES(IBFILES,VERS)	; returns array of source Host Files and data for version requested, pass IBFILES by reference
VLIST	; version ^ file type/version ^ effective date ^ inactive date ^ file prefix
FTYPE	; file type/versions and relevant data ; file identifier is used with XTMP subscript 'IBCR RC ' and routine label to parse file ; file identifier : file name/description ^ file identifier ^ number of columns (for v2+)
FT1	; Reasonable Charge File Type 1 files
FT2	; Reasonable Charges File Type 2 files

External References

Name	Field # of Occurrence
^DIR	SELVERS+14
$$FMTE^XLFDT	MSGVERS+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Select the version of Reasonable Charges to upload." Line Location: SELVERS+5
Function Call: WRITE	Prompt: !!,?5,"Select one of the following:",! Line Location: SELVERS+11
Function Call: WRITE	Prompt: !,?10,IBX,?20,"Reasonable Charges version ",IBX Line Location: SELVERS+12
Function Call: WRITE	Prompt: ! Line Location: SELVERS+14
Function Call: WRITE	Prompt: " Reasonable Charges version ",IBVERS Line Location: SELVERS+15
Function Call: WRITE	Prompt: !!,?12,"There appear to be no RC charges already loaded for "_SITE_"." Line Location: MSGSITE+3
Function Call: WRITE	Prompt: !!,?12,"RC versions "_IBVERS_" appear to be already loaded for "_SITE_"." Line Location: MSGSITE+4
Function Call: WRITE	Prompt: !!,?5,"* It appears version RC v",IBVERS," has already been loaded for this site *" Line Location: MSGVERS+12
Function Call: WRITE	Prompt: !!,?5,">>> Currently trying to load RC v"_IBVERS_" but RC v"_IBVERSO_" appears to be already",!,?9,"loaded for this site. The versions should be loaded in date order." Line Location: MSGVERS+17
Function Call: WRITE	Prompt: !!,?5,"*** Currently trying to load RC v"_IBVERS_" but RC v"_IBVERSO_" does not appear to be",!,?9,"loaded for this site. The versions should be loaded in date order." Line Location: MSGVERS+22
Function Call: WRITE	Prompt: !!,?5,">>> Continue only if there will never be a need to bill events before ",!,?9,$$FMTE^XLFDT(IBVDTC,2)," for this site. If RC v"_IBVERSO_" will be needed for this site then",!,?9,"load it first." Line Location: MSGVERS+23
Routine Call	DIR Line Location: SELVERS+14

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBA(363.2 - [#363.2]	VERSITE+10
^IBE(363.1 - [#363.1]	VERSITE+7, VERSITE+9
^XTMP("IBCR RC SITE"	VERSION+1

Label References

Name	Line Occurrences
$$VERSALL	VERSITE+5
$$VERSDT	MSGVERS+8
$$VERSION	VERSDT+1, VERSEDT+1, MSGVERS+8
$$VERSITE	MSGSITE+2, MSGVERS+8
$$VERSTR	SELVERS+3, MSGVERS+15, MSGVERS+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	SELVERS+1~
DIR("?"	SELVERS+6, SELVERS+7, SELVERS+8*
DIR("A"	SELVERS+14*
DIR(0	SELVERS+14*
DIRUT	SELVERS+1~, SELVERS+14
DTOUT	SELVERS+1~
DUOUT	SELVERS+1~
IBC	VERSALL+1~, VERSALL+2, VERSEND+1~, VERSEND+2, VERSITE+4~, VERSITE+12, VERSTR+2~, VERSTR+3*
IBCS	VERSITE+4~, VERSITE+7*, VERSITE+8, VERSITE+9
IBCSFN	VERSITE+4~, VERSITE+9*
IBDESC	FILES+1~, FILES+8*, FILES+9
IBFILE	FILES+1~, FILES+4*, FILES+8
IBFILES	FILES~
IBFILES(	FILES+9*
IBI	SELVERS+1~, SELVERS+10, VERSDT+1~, VERSDT+2, VERSEDT+1~, VERSEDT+2, VERSALL+1~, VERSALL+2, VERSEND+1~, VERSEND+2* , VERSITE+4~, VERSITE+10, VERSITE+12, MSGVERS+6~, MSGVERS+16, VERSTR+2~, VERSTR+3, FILES+1~, FILES+4, FILES+7
IBITM	VERSITE+4~, VERSITE+5*, VERSITE+10
IBITM2	VERSITE+4~, VERSITE+5*, VERSITE+10
IBJ	SELVERS+1~, SELVERS+12*
IBNAME	FILES+1~, FILES+8*, FILES+9
IBQUIT	SELVERS+1~, SELVERS+3, SELVERS+10, SELVERS+14, SELVERS+15*
IBR	VERSTR+2~, VERSTR+3, VERSTR+4
IBS	VERSTR+2~, VERSTR+3, VERSTR+4
IBTYPE	FILES+1~, FILES+4*, FILES+7
IBV	VERSITE+4~, VERSITE+8, VERSITE+10, VERSITE+12*
IBVDTC	MSGVERS+6~, MSGVERS+8*, MSGVERS+23
IBVERS	SELVERS+1~, SELVERS+3, SELVERS+15, SELVERS+17, VERSITE+4~, VERSITE+5, VERSITE+10, VERSITE+12, MSGSITE+1~, MSGSITE+2 , MSGSITE+3, MSGSITE+4, MSGVERS+6~, MSGVERS+8*, MSGVERS+12, MSGVERS+17, MSGVERS+22
IBVERSC	MSGVERS+6~, MSGVERS+8*, MSGVERS+11, MSGVERS+15, MSGVERS+20
IBVERSIN	MSGVERS+6~, MSGVERS+8*, MSGVERS+11, MSGVERS+16, MSGVERS+21
IBVERSO	MSGVERS+6~, MSGVERS+16, MSGVERS+17, MSGVERS+21, MSGVERS+22, MSGVERS+23
IBVLIST	SELVERS+1~, SELVERS+3*, SELVERS+8, SELVERS+12, SELVERS+15
IBX	SELVERS+1~, SELVERS+12, VERSION+1~, VERSION+2, VERSDT+1~, VERSDT+2, VERSDT+3, VERSEDT+1~, VERSEDT+2, VERSEDT+3 , VERSALL+1~, VERSALL+2, VERSALL+3, VERSEND+1~, VERSEND+2, VERSEND+3, VERSITE+4~, VERSITE+12, VERSITE+14, VERSTR+2~ , VERSTR+4*, VERSTR+5
IBXRF	VERSITE+4~, VERSITE+9*, VERSITE+10
IBY	VERSITE+4~
IBY(	VERSITE+10*, VERSITE+12
LINE	VERSDT+1~, VERSDT+2, VERSEDT+1~, VERSEDT+2, VERSALL+1~, VERSALL+2, VERSEND+1~, VERSEND+2, VERSTR+2~, VERSTR+3* , FILES+1~, FILES+4, FILES+7, FILES+8
RVRS	VERSTR~, VERSTR+4
SITE	VERSITE~, VERSITE+7, VERSITE+8, MSGSITE~, MSGSITE+1, MSGSITE+2, MSGSITE+3, MSGSITE+4, MSGVERS~, MSGVERS+6 , MSGVERS+8
U	VERSDT+2, VERSEDT+2, VERSALL+2, VERSEND+2, VERSITE+10, VERSITE+12, FILES+4
VERS	VERSDT~, VERSDT+1, VERSDT+2, VERSEDT~, VERSEDT+1, VERSEDT+2, FILES~, FILES+1*, FILES+4, FILES+8
VERSTR	MSGVERS+6~, MSGVERS+15, MSGVERS+16, MSGVERS+20, MSGVERS+21
X	SELVERS+1~
Y	SELVERS+1~, SELVERS+15

Marked Items

Name	Field # of Occurrence
$T(@(3)+IBI	FILES+7
$T(VLIST+IBI	VERSDT+2, VERSEDT+2, VERSALL+2, VERSEND+2, VERSTR+3, FILES+4

Customize PDF page

Package: Integrated Billing

Routine: IBCRHBRV

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 63

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items