Routine: IBDF18A

Package	Total	Call Graph
Automated Information Collection System	1	(COPYLIST,F2)^IBDF18A1
Lexicon Utility	1	$$ICDONE^LEXU

Package	Total	Caller Graph
PCE Patient Care Encounter	4	PXBGCPT4 PXBGPOV4 PXBGPRV4 PXCEHELP
Order Entry Results Reporting	2	ORWIB ORWPCE
Text Integration Utility	1	TIUPXAPC

Entry Points

Name	Comments	DBIA/ICR reference
TEST1
GETLST(CLINIC,INTRFACE,ARY,FILTER,COUNT,MODIFIER)	; -- returns any specified selection list for a clinic ; -- input CLINIC = pointer to hospital location file for clinic ; INTRFACE = name of selection list in package interface file ; ARY = name of array to return list in ; FILTER = predefined filters (optional, default = 1) ; 1 = must be selection list ; 2 = only visit cpts on list ; MODIFIER = if modifiers are to be passed, 1=yes send modifiers ; ; -- output The format of the returned array is as follows ; @ARY@(0) = count of array element (0 of nothing found) ; @ARY@(1) = ^group header ; @ARY@(2) = P1 := cpt or icd code / ien of other items ; P2 := user defined text ; p6 := user defined expanded text to send to PCE ; p7 := second code or item defined for line item ; p8 := third code or item defined for line item ; p9 := associated clinical lexicon term ; ; @ARY@(2,"MODIFIER",0)=count of CPT Modifiers for entry ; @ARY@(2,"MODIFIER",1)=2 character CPT Modifier value ; @ARY@(2,"MODIFIER",2)=2 character CPT Modifier value ; @ARY@(2,"MODIFIER",k+1)=2 character CPT Modifier value ; ; @ARY@(k) = ^next group header ; @ARY@(k+1) = problem ien or cpt or icd code^user define text
TEST5
TEST4
TEST7
TEST6
TEST9
TEST8	; -- use this to test CPRS ability to retrieve type of visit ; set clinic := name or internal entry number of clinic or change ; value for specific clinic
TOV	; -- if trying to find Type of Visit codes but list on form ; uses another interface try this
GETLSTQ
TEST2
CCP(COUNT)	; -- no diagnosis, look for common problems and convert
TOV1	; -- first get all lists for blocks named Type of Visit or E&M
TOV2	; -- get the type of visit codes from cpt lists using filter
GLL(CLINIC,INTRFACE,ARY,FILTER)	; -- get lots of lists in one call ; -- input see GETLST but pass interface by reference expects ; intrface(n) = name of select list in package interface file
GETBLKS	; -- get the blocks for a form in row,column order

External References

Name	Field # of Occurrence
COPYLIST^IBDF18A1	GETLST+69, TOV1+16, TOV2+12
F2^IBDF18A1	GETLST+72, TOV2+13
$$ICDONE^LEXU	CCP+11, CCP+12, CCP+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Using Clinic: ",CLINIC Line Location: TEST8+5
Function Call: WRITE	Prompt: !,"IEN: ",CLINIC,! Line Location: TEST8+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBE(357.1 - [#357.1]	GETBLKS+4, GETBLKS+5, TOV1+9, TOV1+11
^IBE(357.2 - [#357.2]	GETLST+69, TOV1+15, TOV1+16, TOV2+12
^IBE(357.6 - [#357.6]	GETLST+52, TOV+5
^SC - [#44]	GETLST+50
^SC("B"	TEST8+5
^SD(409.95 - [#409.95]	GETLST+57
^TMP("IBDUP"	GETLST+43!, GETLST+81!

Label References

Name	Line Occurrences
CCP	GETLST+79
GETBLKS	GETLST+63, TOV1+5
GETLST	GLL+7, CCP+5, TEST1, TEST2, TEST4, TEST5, TEST6, TEST7, TEST9
GETLSTQ	GETLST+49, GETLST+50, GETLST+51, GETLST+58
TOV	GETLST+75
TOV1	TOV+6
TOV2	TOV+7

Naked Globals

Name	Field # of Occurrence
^(0	GETBLKS+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARY	GLL~, GLL+7, GETLST~, GETLST+47, GETLST+48, GETLST+69, GETLST+71, CCP+5, TOV1+16, TOV2+1 , TOV2+2, TOV2+12
BLK	GETLST+42~, GETBLKS+1!, GETBLKS+3, GETBLKS+4, GETBLKS+5, GETBLKS+7
BLK(	GETLST+65, GETBLKS+7*, TOV1+7, TOV1+16!, TOV2+8
BLK(0	GETLST+63, TOV1+5
BLOCK	GETLST+42~, GETLST+65, GETLST+69, TOV1+7, TOV1+9, TOV1+11, TOV1+15, TOV2+8*, TOV2+12
CLINIC	GLL~, GLL+7, GETLST~, GETLST+49, GETLST+50, GETLST+57, CCP+5, TEST8+4, TEST8+5
COL	GETLST+42~, GETLST+64, GETLST+65, GETBLKS+2~, GETBLKS+5, GETBLKS+6, GETBLKS+7, TOV1+6, TOV1+7, TOV1+16 , TOV2+7, TOV2+8*
COUNT	GLL+5~, GLL+6, GLL+7, GETLST~, GETLST+45, GETLST+69, GETLST+71, GETLST+74, GETLST+79, CCP~ , CCP+2, CCP+5, TOV+7, TOV1+16, TOV2+12
FILTER	GLL~, GLL+7, GETLST~, GETLST+46*, GETLST+47, GETLST+72
FORM	GETLST+42~, GETLST+59, GETLST+62, GETBLKS+4, TOV1+2, TOV2+4*
HD	TOV1+1~, TOV1+11, TOV1+12, TOV1+13
I	GETLST+42~, GETLST+59, CCP+1~, CCP+8, CCP+9, CCP+10, CCP+11, CCP+12, CCP+13, TOV1+2 , TOV2+4*
IBDTMP	GETLST+42~
IBQUIT	GETLST+42~, GETLST+44*, GETLST+59, TOV1+2, TOV2+4
INTRFACE	GLL~, GETLST~, GETLST+51, GETLST+52, GETLST+75, GETLST+79
INTRFACE(	GLL+7
INUM	GETLST+42~, GETLST+52, GETLST+69, TOV+3~, TOV+4, TOV+5*
INUM(	TOV+5*, TOV1+16, TOV2+12
J	GETLST+42~
LIST	GETLST+42~, GETLST+44, GETLST+68, GETLST+69, TOV1+14, TOV1+15, TOV1+16, TOV2+11, TOV2+12*
MODIFIER	GETLST~
NM	TOV1+1~, TOV1+9, TOV1+10, TOV1+13
OLDARY	GETLST+42~, GETLST+47, GETLST+72, TOV2+1, TOV2+13
OLDCNT	CCP+1~, CCP+2*, CCP+8
ROW	GETLST+42~, GETLST+64, GETLST+65, GETBLKS+2~, GETBLKS+5, GETBLKS+6, GETBLKS+7, TOV1+6, TOV1+7, TOV1+16 , TOV2+7, TOV2+8*
SETUP	GETLST+42~, GETLST+57*, GETLST+58, GETLST+59, TOV1+2, TOV2+4
VAR	TEST1!, TEST2!, TEST4!, TEST5!, TEST6!, TEST7!, TEST8+3!, TEST9!
VAR(	CCP+9, CCP+10, CCP+11, CCP+12, CCP+13*
X	GLL+5~, GLL+7, GETLST+42~, CCP+1~, CCP+10, CCP+11
Y	GETLST+42~

Customize PDF page

Package: Automated Information Collection System

Routine: IBDF18A

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: