Routine: IBDFRPC5

Information

IBDFRPC5 ;ALB/AAS - AICS Pass data to PCE, Broker Call ; 24-FEB-96

Source file <IBDFRPC5.m>

Package	Total	Call Graph
Automated Information Collection System	2	PAUSE^IBDFDE FINDALL^IBDFRPC6
PCE Patient Care Encounter	1	($$GETENC,ENCEVENT)^PXAPI
Registration	1	SDA^VADPT

Package	Total	Caller Graph
Automated Information Collection System	1	IBDFRPC6

Name	Comments	DBIA/ICR reference
TESTA	;
TESTW	;
APPTLST(RESULT,IBDF)	; -- return past appointment list, called by rpc
GETDATA(RESULT,IBDATA,ENCTRS)	; -- return all data for an encounter date time
WRITE	; -- called by DIR as executable help from IBDFDE
GETALLQ
TEST	;
GETQ
GETALL(RESULT,IBDATA)	; -- called by RPC and by write ; -- get all encounter data ; -- input Result (called by reference) ; IBDATA (called by reference) ; IBDATA("CLINIC") := pointer to hospital location file (44) ; IBDATA("DFN") := pointer to Patient file (2) ; IBDATA("APPT") := date/time of encounter in FM format ; IBDATA("UNFORMAT") := (optional, default :=0) return piece ; as displayable ; -- output Results Array ; A sequential array of all data found for encounters for ; patient/clinic/appt ; if ibdata(unformat) is false then data is preformatted ; suitable for display to a crt. ; if ibdata(unformat) is true then a record as follows: ; P1 := data qualifier (ie primary or secondary) ; P2 := type of data ; p3 := Narrative or Description (Textual name) ; P4 := value (code or date/time) ; P5 := source of data (aics, pce, scheduling) ; P6 := Quantity (cpt codes only) ; The next 4 pieces only set if answered ; P7 := sc (null, 1 or 0) encounter node only ; P8 := ao (null, 1 or 0) encounter node only ; P9 := ir (null, 1 or 0) encounter node only ; P10 := ec (null, 1 or 0) encounter node only

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Retrieving Encounter Data from PCE..." Line Location: WRITE+2
Function Call: WRITE	Prompt: ! Line Location: WRITE+4
Function Call: WRITE	Prompt: !,RESULT(I) Line Location: WRITE+6

Name	Line Occurrences (* Changed, ! Killed)
^SC("B"	GETDATA+4
^TMP("PXKENC"	GETDATA+3!
^UTILITY("VASD"	APPTLST+3!, APPTLST+12, APPTLST+13, APPTLST+16!

Name	Field # of Occurrence
ALAN	TEST+1!, TEST+6, TESTA+1!, TESTA+3
CNT	GETALL+27~, GETALL+28, WRITE+1~, WRITE+5, WRITE+6, APPTLST+1~, APPTLST+12, APPTLST+13*
DFN	APPTLST+1~, APPTLST+5*
DT	APPTLST+6, APPTLST+7
ENCTRS	GETALL+27~, GETALL+28, GETALL+29, GETDATA~, GETDATA+9, GETDATA+10, GETDATA+11, GETDATA+15
I	WRITE+1~, WRITE+5, WRITE+6, APPTLST+1~, APPTLST+13*
IBDATA	GETALL~, GETALL+29, GETDATA~
IBDATA("APPT"	GETDATA+6, GETDATA+9
IBDATA("CLINIC"	GETDATA+4*, GETDATA+6, GETDATA+9
IBDATA("DFN"	GETDATA+6, GETDATA+9
IBDF	WRITE+3, APPTLST~, TEST+1!, TEST+6, TESTW+1!, TESTW+6!, TESTA+1!, TESTA+3
IBDF("APPT"	TEST+4, TESTW+4
IBDF("CLINIC"	TEST+3, TESTW+3
IBDF("DFN"	APPTLST+5, TEST+2, TESTW+2, TESTA+2*
IBDF("F"	APPTLST+6
IBDF("T"	APPTLST+7
IBDF("UNFORMAT"	TEST+5*
IBDF("W"	APPTLST+8
IBDI	GETALL+27~
IBDJ	GETDATA+2~, GETDATA+15*
IBDY	GETDATA+2~, GETDATA+15*
IBQUIT	WRITE+1~, WRITE+5*, WRITE+6
J	APPTLST+1~
L	GETALL+27~, GETALL+30*
RESULT	GETALL~, GETALL+29, GETALL+31, GETDATA~, WRITE+1~, WRITE+3, APPTLST~
RESULT(	WRITE+6, APPTLST+13*
RESULT(0	GETALL+31, GETDATA+5, GETDATA+6, GETDATA+10, GETDATA+11, GETDATA+14, GETDATA+17, APPTLST+2, APPTLST+15*
VAERR	APPTLST+1~, APPTLST+15
VAROOT	APPTLST+1~
VASD	APPTLST+1~
VASD("F"	APPTLST+6*
VASD("T"	APPTLST+7*
VASD("W"	APPTLST+8*