Routine: IBTRH5C

Package	Total	Call Graph
VA FileMan	2	(FILE,UPDATE)^DIE ($$GET1,GETS)^DIQ
Kernel	1	$$NOW^XLFDT

Package	Total	Caller Graph
Integrated Billing	8	IB ADD/EDIT 278 IB CREATE 278 REQUEST IB CREATE 278 REQUEST SHORT IBTRH2B IBTRH5 IBTRH5I IBTRHDE1 ^IBT(356.22

Entry Points

Name	Comments	DBIA/ICR reference
CONTPH(FIELD)
CRTENTRY(IBTRIEN,RIEN,IEN312,REQBY,DELCCDE,DELAY,NOOUTPUT,TTYPE)
COPYERR(TYPE,ERROR)	; Displays any errors encountered while copying a request ; Input: TYPE - 0 - Error while reading data ; - 1 - Error while filing data ; ERROR - Array used for FM error reporting ; Output: Error(s) are displayed
MLTCPY(SFNUM,NEWIENS)	; Copies the specified multiple ; Input: SFNUM - Sub-file number of the multiple to copy ; NIENS - IENs of the new entry (copied to) ; OLDENTRY - FDA array to get data from (defined in the calling tag) ; Returns: 1 on successful copy, 0 on failure
COPYINT(NEW)	; Copies an array of internal values to a new array ; Input: NEW - Current Array of internal values ; Retrieved using D GETS^DIQ(356.22,IENS,FLDS,"NI","OLD","ERROR") ; e.g. NEW(356.223,"+1,19,",.02,"I")=7209320 ; Output: NEW - Updated array of internal values, stripping off the "I" subscript ; e.g. NEW(356.223,"+1,19,",.02)=7209320
OXYET(IBTRIEN)
ATTPHY(IBTRIEN)	;EP ; Returns the Attending Physician for the admission of the ; specified Inpatient event ; Input: IBTRIEN - IEN of the Inpatient Event ; Returns: IEN in file 200 of the Attending Physician or ""
REQCAT(FIELD)
CERTCD()
AMBTI(IBTRIEN)	;EP ; Called from Input Template IB CREATE 278 REQUEST to check if any of the ; Ambulance Transport Information fields has a value. Used to potentially ; skip to potentially skip the Patient Event Transport Information questions ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; Returns: 1 - At least one field has a value, 0 otherwise
SLDXDUP(FIELD)
TOOTHSP(FIELD)	;EP ; Called from Input Template IB CREATE 278 REQUEST for Service Line Tooth ; Surface fields. Checks to see if subsequent Tooth Surfaces have values. ; Input: FIELD - Field # of the field being checked ; DA - IEN of the Tooth multiple being edited ; DA(1) - IEN of the Service Line Multiple being edited ; DA(2) - IEN of the 356.22 entry being edited ; Returns: 1 - Subsequent entries have values, 0 otherwise

Name	Field # of Occurrence
FILE^DIE	CRTENTRY+62
UPDATE^DIE	CRTENTRY+56, CRTENTRY+92, CRTENTRY+111, CRTENTRY+133, MLTCPY+15
$$GET1^DIQ	CONTPH+12, CONTPH+13, CRTENTRY+49, CRTENTRY+50, CRTENTRY+53, ATTPHY+12
GETS^DIQ	CRTENTRY+32, CRTENTRY+88, CRTENTRY+105, CRTENTRY+129
$$NOW^XLFDT	CRTENTRY+40

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Unable to copy - the following error was encountered while " Line Location: COPYERR+8
Function Call: WRITE	Prompt: $S(TYPE:"filing",1:"retrieving")," the data:" Line Location: COPYERR+9
Function Call: WRITE	Prompt: !,"Error text:" Line Location: COPYERR+20
Function Call: WRITE	Prompt: !,ERROR("DIERR",1,"TEXT",Z1) Line Location: COPYERR+25
Routine Call	DIE Line Location: CRTENTRY+62
Routine Call	DIE Line Location: CRTENTRY+56 CRTENTRY+92 CRTENTRY+111 CRTENTRY+133 MLTCPY+15

FileNo	Call Tags
^IBT(356.22 - [#356.22]	GET1^DIQ, GETS^DIQ
356.2213	GETS^DIQ
356.2216	GETS^DIQ
356.22168	GETS^DIQ
^IBE(365.021 - [#365.021]	GET1^DIQ
^DGPM - [#405]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGPM("ATID1"	ATTPHY+10
^IBT(356.22 - [#356.22]	CRTENTRY+84, CRTENTRY+100, CRTENTRY+125, OXYET+8, ATTPHY+6, REQCAT+14, CERTCD+9, AMBTI+7, SLDXDUP+16, SLDXDUP+19 , TOOTHSP+9

Name	Line Occurrences
$$MLTCPY	CRTENTRY+69, CRTENTRY+72, CRTENTRY+75, CRTENTRY+78, CRTENTRY+116, CRTENTRY+119
COPYERR	CRTENTRY+33, CRTENTRY+57, CRTENTRY+59, CRTENTRY+89, CRTENTRY+93, CRTENTRY+106, CRTENTRY+112, CRTENTRY+130, CRTENTRY+134, MLTCPY+16
COPYINT	CRTENTRY+37, CRTENTRY+91, CRTENTRY+109, CRTENTRY+132, MLTCPY+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADATE	ATTPHY+5~, ATTPHY+8*, ATTPHY+9
ARRAY	COPYINT+6~, COPYINT+7, COPYINT+8, COPYINT+9, COPYINT+10, COPYINT+11, COPYINT+12, COPYINT+14, COPYINT+15, COPYINT+16
DA	CONTPH+12, ATTPHY+5~, ATTPHY+10*, ATTPHY+11, ATTPHY+12, REQCAT+14, CERTCD+9, SLDXDUP+19, TOOTHSP+9
DA(1	SLDXDUP+16, SLDXDUP+19, TOOTHSP+9
DA(2	TOOTHSP+9
DELAY	CRTENTRY~, CRTENTRY+28*, CRTENTRY+42, CRTENTRY+48
DELCCDE	CRTENTRY~, CRTENTRY+27*, CRTENTRY+44, CRTENTRY+59
DFN	ATTPHY+5~, ATTPHY+7*, ATTPHY+10
DT	ATTPHY+5~
ERROR	CRTENTRY+23~, CRTENTRY+33, CRTENTRY+57, CRTENTRY+59, CRTENTRY+89, CRTENTRY+93, CRTENTRY+106, CRTENTRY+112, CRTENTRY+130, CRTENTRY+134 , COPYERR~, COPYERR+7, MLTCPY+6~, MLTCPY+16
ERROR("DIERR"	COPYERR+12, COPYERR+14, COPYERR+16, COPYERR+18, COPYERR+23, COPYERR+25
EVENT	ATTPHY+5~, ATTPHY+6*, ATTPHY+7, ATTPHY+8
FIELD	CONTPH~, CONTPH+9, REQCAT~, REQCAT+10, SLDXDUP~, SLDXDUP+20, SLDXDUP+24, SLDXDUP+28, SLDXDUP+32, TOOTHSP~ , TOOTHSP+10, TOOTHSP+17, TOOTHSP+22, TOOTHSP+26
FLDS	CRTENTRY+23~, CRTENTRY+30, CRTENTRY+31, CRTENTRY+32, CRTENTRY+104*, CRTENTRY+105
FOUND	ATTPHY+5~
FREP	CERTCD+7~, CERTCD+9*, CERTCD+10
IADATE	ATTPHY+5~, ATTPHY+9*, ATTPHY+10
IBTRIEN	CRTENTRY~, CRTENTRY+29, CRTENTRY+84, CRTENTRY+86, CRTENTRY+100, CRTENTRY+102, CRTENTRY+125, CRTENTRY+127, OXYET~, OXYET+8 , ATTPHY~, ATTPHY+6, AMBTI~, AMBTI+7
IEN312	CRTENTRY~, CRTENTRY+25*, CRTENTRY+41
IENARRY	CRTENTRY+23~, CRTENTRY+55!, CRTENTRY+110!
IENARRY(1	CRTENTRY+66, CRTENTRY+113
IENS	CRTENTRY+23~, CRTENTRY+29, CRTENTRY+32, CRTENTRY+36, CRTENTRY+86, CRTENTRY+88, CRTENTRY+90, CRTENTRY+102, CRTENTRY+105, CRTENTRY+108 , CRTENTRY+127, CRTENTRY+129, CRTENTRY+131
NDE	OXYET+7~, OXYET+8, OXYET+9, OXYET+10, OXYET+11, AMBTI+6~, AMBTI+7, AMBTI+8, AMBTI+9, AMBTI+10 , AMBTI+11, AMBTI+12, AMBTI+13, AMBTI+14, AMBTI+15, SLDXDUP+11~, SLDXDUP+19, SLDXDUP+21, SLDXDUP+22, SLDXDUP+23 , SLDXDUP+25, SLDXDUP+26, SLDXDUP+27, SLDXDUP+29, SLDXDUP+30, SLDXDUP+31, SLDXDUP+33, SLDXDUP+34, SLDXDUP+35, TOOTHSP+8~ , TOOTHSP+9, TOOTHSP+11, TOOTHSP+12, TOOTHSP+13, TOOTHSP+14, TOOTHSP+15, TOOTHSP+18, TOOTHSP+19, TOOTHSP+20, TOOTHSP+23 , TOOTHSP+24, TOOTHSP+26
NEW	COPYINT~, COPYINT+17!, COPYINT+18*
NEW2	COPYINT+6~, COPYINT+18
NEWENTRY	CRTENTRY+23~, CRTENTRY+37, CRTENTRY+87!, CRTENTRY+91, CRTENTRY+107!, CRTENTRY+109, CRTENTRY+128!, CRTENTRY+132, MLTCPY+6~, MLTCPY+12! , MLTCPY+14
NEWENTRY(	CRTENTRY+36, CRTENTRY+40, CRTENTRY+41, CRTENTRY+42, CRTENTRY+43, CRTENTRY+45, CRTENTRY+46, CRTENTRY+47, CRTENTRY+48, CRTENTRY+51 , CRTENTRY+54, CRTENTRY+90, CRTENTRY+108, CRTENTRY+131, MLTCPY+13*
NEWIENS	MLTCPY~, MLTCPY+13
NIENS	CRTENTRY+23~, CRTENTRY+66*, CRTENTRY+69, CRTENTRY+72, CRTENTRY+75, CRTENTRY+78, CRTENTRY+90, CRTENTRY+108, CRTENTRY+113, CRTENTRY+136
NIENS16	CRTENTRY+23~, CRTENTRY+113*, CRTENTRY+116, CRTENTRY+119, CRTENTRY+131
NOOUTPUT	CRTENTRY~, CRTENTRY+24*, COPYERR+5
OLDENTRY	CRTENTRY+23~, CRTENTRY+87!, CRTENTRY+103!, CRTENTRY+128!
OLDENTRY(	CRTENTRY+36, CRTENTRY+90, CRTENTRY+108, CRTENTRY+131, MLTCPY+10, MLTCPY+13
REQBY	CRTENTRY~, CRTENTRY+26*, CRTENTRY+43
RES	MLTCPY+6~, MLTCPY+7, MLTCPY+16, MLTCPY+17
RETURN	CONTPH+8~, CONTPH+11, CONTPH+15, CONTPH+16, CONTPH+18, CONTPH+19, REQCAT+9~, REQCAT+10, REQCAT+11, REQCAT+12* , SLDXDUP+11~, SLDXDUP+12, SLDXDUP+20, SLDXDUP+21, SLDXDUP+22, SLDXDUP+23, SLDXDUP+24, SLDXDUP+25, SLDXDUP+26, SLDXDUP+27* , SLDXDUP+28, SLDXDUP+29, SLDXDUP+30, SLDXDUP+31, SLDXDUP+32, SLDXDUP+33, SLDXDUP+34, SLDXDUP+35, TOOTHSP+8~, TOOTHSP+10 , TOOTHSP+11, TOOTHSP+12, TOOTHSP+13, TOOTHSP+14, TOOTHSP+15, TOOTHSP+16, TOOTHSP+17, TOOTHSP+18, TOOTHSP+19, TOOTHSP+20* , TOOTHSP+21, TOOTHSP+22, TOOTHSP+23, TOOTHSP+24, TOOTHSP+25
RIEN	CRTENTRY~, CRTENTRY+49, CRTENTRY+50, CRTENTRY+53, CRTENTRY+61
SFNUM	MLTCPY~, MLTCPY+10, MLTCPY+13
STAT	REQCAT+9~, REQCAT+14*, REQCAT+15, REQCAT+16
STOPFLG	CRTENTRY+23~, CRTENTRY+82, CRTENTRY+83, CRTENTRY+89, CRTENTRY+93, CRTENTRY+94, CRTENTRY+98, CRTENTRY+99, CRTENTRY+106, CRTENTRY+112 , CRTENTRY+116, CRTENTRY+119, CRTENTRY+124, CRTENTRY+130, CRTENTRY+134, CRTENTRY+135, MLTCPY+6~, MLTCPY+7, MLTCPY+9, MLTCPY+16
STR	COPYERR+6~, COPYERR+14, COPYERR+15, COPYERR+16, COPYERR+17, COPYERR+18*, COPYERR+19
TTYPE	CRTENTRY~, CRTENTRY+47
TYPE	CONTPH+8~, CONTPH+12, CONTPH+13, CONTPH+15, COPYERR~, COPYERR+9
UPDRSP	CRTENTRY+60~
UPDRSP(	CRTENTRY+61*
>> X	CONTPH+16, CONTPH+17
XX	CONTPH+8~, CONTPH+9, CONTPH+10, CONTPH+12, CONTPH+17, CONTPH+18, CRTENTRY+23~, CRTENTRY+49, CRTENTRY+51, CRTENTRY+53 , CRTENTRY+54
XX1	CRTENTRY+23~, CRTENTRY+50*, CRTENTRY+51, CRTENTRY+52
>> Y	REQCAT+12, REQCAT+15, REQCAT+16, CERTCD+8, CERTCD+10, SLDXDUP+13, SLDXDUP+16, SLDXDUP+21, SLDXDUP+22, SLDXDUP+23 , SLDXDUP+25, SLDXDUP+26, SLDXDUP+27, SLDXDUP+29, SLDXDUP+30, SLDXDUP+31, SLDXDUP+33, SLDXDUP+34, SLDXDUP+35
YY	COPYINT+6~, COPYINT+12, COPYINT+13, COPYINT+14, COPYINT+15*, COPYINT+16
Z	CRTENTRY+23~, CRTENTRY+82, CRTENTRY+83, CRTENTRY+84, CRTENTRY+85, CRTENTRY+86, CRTENTRY+98, CRTENTRY+99, CRTENTRY+100, CRTENTRY+101 , CRTENTRY+102, CRTENTRY+125, CRTENTRY+127, COPYERR+6~, COPYERR+10, COPYERR+11, COPYERR+12, COPYERR+13, COPYERR+14, COPYERR+16 , COPYERR+18, MLTCPY+6~, MLTCPY+8, MLTCPY+9, MLTCPY+10, MLTCPY+11, MLTCPY+13
Z1	CRTENTRY+23~, CRTENTRY+123, CRTENTRY+124, CRTENTRY+125, CRTENTRY+126, CRTENTRY+127, COPYERR+6~, COPYERR+21, COPYERR+22, COPYERR+23 , COPYERR+24, COPYERR+25

Customize PDF page

Package: Integrated Billing

Routine: IBTRH5C

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: