Routine: ORWIB

Information

ORWIB ; SLC/KCM - wrap calls to AISC

Source file <ORWIB.m>

Package	Total	Call Graph
PCE Patient Care Encounter	2	$$DATA2PCE^PXAPI SCCOND^PXUTLSCC
Automated Information Collection System	1	(GETLST,GLL)^IBDF18A
Registration	1	ELIG^VADPT

Name	Comments	DBIA/ICR reference
SCSEL(VAL,DFN,ATM,LOC,VST)	; return SC conditions that may be selected ; VAL=SCallow^SCdflt;AOallow^AOdflt;IRallow^IRdflt;ECallow^ECdflt
DIAG(LST,CLINIC)	; get list of diagnoses for clinic
EFVPD(LST,CLINIC)	; get list of encounter form elements
PROC(LST,CLINIC)	; get list of procedures for clinic
SCDIS(LST,DFN)	; Return service connected % and rated disabilities
VISIT(LST,CLINIC)	; get list of visit types for clinic
SAVEPCE(OK,ORPXAPI)	; save encounter information

Name	Line Occurrences (* Changed, ! Killed)
^DG(391 - [#391]	SCDIS+4
^DIC(31 - [#31]	SCDIS+6
^DIC(9.4 - [#9.4]	SAVEPCE+2
^DPT - [#2]	SCDIS+5
^ICD9("AB"	SAVEPCE+5, SAVEPCE+6
^ICPT("B"	SAVEPCE+9

Name	Field # of Occurrence
^(	SCDIS+5

Name	Field # of Occurrence
ATM	SCSEL~, SCSEL+3
CLINIC	VISIT~, VISIT+1, PROC~, PROC+1, DIAG~, DIAG+1, EFVPD~, EFVPD+5
CODE	SAVEPCE+1~, SAVEPCE+5, SAVEPCE+6, SAVEPCE+9
DFN	SCSEL~, SCSEL+3, SCDIS~, SCDIS+5
DIS	SCDIS+1~, SCDIS+6*, SCDIS+8
I	SAVEPCE+1~, SAVEPCE+4, SAVEPCE+5, SAVEPCE+7, SAVEPCE+8, SAVEPCE+9, SAVEPCE+10, SCDIS+1~, SCDIS+5*
IEN	SAVEPCE+1~, SAVEPCE+5, SAVEPCE+6, SAVEPCE+7, SAVEPCE+9*, SAVEPCE+10
ILST	SCDIS+1~, SCDIS+5, SCDIS+8, SCDIS+9
LOC	SCSEL~, SCSEL+3
LST	VISIT~, PROC~, DIAG~, EFVPD~, SCDIS~
LST(	SCDIS+8*
LST(1	SCDIS+3*
LST(2	SCDIS+4, SCDIS+9
OK	SAVEPCE~, SAVEPCE+11*
ORPXAPI	SAVEPCE~
ORPXAPI("DX/PL"	SAVEPCE+4, SAVEPCE+5, SAVEPCE+7*
ORPXAPI("PROCEDURE"	SAVEPCE+8, SAVEPCE+9, SAVEPCE+10*
PFN	EFVPD+1~, EFVPD+5
PFN(1	EFVPD+2*
PFN(2	EFVPD+3*
PFN(3	EFVPD+4*
PKG	SAVEPCE+1~, SAVEPCE+2*, SAVEPCE+11
S	SCSEL+2~*, SCSEL+4
SC	SCDIS+1~, SCDIS+7*, SCDIS+8
SRC	SAVEPCE+1~, SAVEPCE+3*, SAVEPCE+11
U	SCDIS+3, SCDIS+4, SCDIS+6, SCDIS+7, SCDIS+8
VAEL	SCDIS+1~
VAEL(3	SCDIS+3
VAEL(4	SCDIS+4
VAEL(6	SCDIS+4
VAERR	SCDIS+1~
VAL	SCSEL~, SCSEL+4*
VST	SCSEL~, SCSEL+3
X	SCSEL+2~, SCSEL+3, SCDIS+1~, SCDIS+5*, SCDIS+6, SCDIS+7, SCDIS+8
X("AO"	SCSEL+4
X("EC"	SCSEL+4
X("IR"	SCSEL+4
X("SC"	SCSEL+4