Routine: SROAPIMS

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

SROAPIMS ;BIR/ADM - PIMS Information Retrieval ;01/24/07

Source Information

Source file <SROAPIMS.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Registration	2	$$BADADR^DGUTL3 (DEM,IN5,KVA,OPD)^VADPT
VA Fileman	2	(,C)^%DTC EN^DIQ1

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Surgery	3	SR47UTL SROACPM SROAPM

Entry Points

Name	Comments	DBIA/ICR reference
SERV	; find service associated with movement
DISSS	; find date of discharge/transfer to chronic care
END
ADSS	; find date of admission/transfer to surgical service
MCAR
ADM1	; get information related to admission ; determine if admission was for observation ; quit if no specialty defined for admission
STAY	; find length of post-operative hospital stay
EMPLOY	; employment status preoperatively
PRIOR	; loop through previous movements
FOLLOW
ADM	; find date(s) of admission and discharge
NACUTE	; determine if non-acute care transfer
SPEC	; find specialty associated with movement

Name	Field # of Occurrence
^%DTC	STAY+2
C^%DTC	ADM+3, ADM1+8
$$BADADR^DGUTL3	SROAPIMS+27
EN^DIQ1	SROAPIMS+26, SPEC+1
DEM^VADPT	SROAPIMS+25
IN5^VADPT	ADM+1, ADM+3, DISSS+1, FOLLOW, PRIOR+2, ADM1+9
KVA^VADPT	END+7
OPD^VADPT	EMPLOY+1

Name	Line Occurrences (* Changed, ! Killed)
^DGPM("APTT1"	ADM+3, ADM1+8
^MCAR(690 - [#690]	MCAR+1
^SRF - [#130]	SROAPIMS+24, SROAPIMS+27, ADM+3, STAY+1, END, END+2, END+3, END+4, END+5, MCAR , MCAR+3, EMPLOY+1, ADM1+6*, ADM1+8

Name	Line Occurrences
ADM1	ADM+4
DISSS	ADSS+1
EMPLOY	END+6
END	ADM+3, ADM+4, STAY+1
FOLLOW	FOLLOW
MCAR	END+6
NACUTE	FOLLOW+2
PRIOR	ADSS+2, PRIOR+1
SERV	ADSS+1, PRIOR+1
SPEC	SERV+1, NACUTE+1, ADM1+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	SROAPIMS+26!, SPEC+1!
>> DFN	SROAPIMS+24, SROAPIMS+27, ADM+3, MCAR, MCAR+1, EMPLOY+1*, ADM1+8
DIC	SROAPIMS+26!, SPEC+1!
DIE	END+7!
DIQ	SROAPIMS+26!, SPEC+1!
DIQ(0	SROAPIMS+26, SPEC+1
DR	SROAPIMS+26!, END+7!, SPEC+1!
I	SROAPIMS+24, END+1, END+7!, ADM1+6*
>> J	END+2, END+3, END+4, ADM1+6
>> L	END+2, END+3
SR	SROAPIMS+24~, END+7!
SR(0	SROAPIMS+24*, SROAPIMS+25, ADM+1
SR24	ADM+3*, END+7!
SR48	END+7!, ADM1+8*
SRCC	SROAPIMS+24~, DISSS+1, FOLLOW, END+7!
SRD	END+7!, MCAR, MCAR+1, MCAR+2
SRDD	END+7!, MCAR+2*, MCAR+3
SRDO	END+7!, MCAR*, MCAR+3
SRDT	SROAPIMS+24~, ADM+3, END+7!, ADM1+8, ADM1+9
SRF	END+7!, MCAR, MCAR+1
SRINOUT	END*, END+3, END+7!
SRNON	SROAPIMS+24~, DISSS+1, FOLLOW, FOLLOW+1, FOLLOW+3, END+7!, NACUTE+1*
SRQ	END+7!, MCAR, MCAR+1, MCAR+3
>> SRSAVE	DISSS+1, ADM1+10*
>> SRSDATE	ADM+1*, ADM+3, ADM1+10
>> SRSERV	ADSS+1, PRIOR+2, PRIOR+3
SRSOUT	ADM+1~, ADM+4, ADM1+3, ADM1+4, ADM1+8, ADM1+9
SRSP	END+7!, SERV+1, SPEC+1*, NACUTE+1, ADM1+4, ADM1+5
SRSRV	SROAPIMS+24~, ADSS+1, END+7!, PRIOR+1, PRIOR+2, SERV+1*
>> SRTN	SROAPIMS+24, SROAPIMS+27, ADM+3, STAY+1, END, END+2, END+3, END+4, END+5, MCAR , MCAR+3, EMPLOY+1, ADM1+6, ADM1+8
>> SRVADPT(	SROAPIMS+24, END+1, END+2, END+3, ADM1+6
>> SRVADPT(1	SROAPIMS+25*
>> SRVADPT(10	FOLLOW+3*, STAY+1
>> SRVADPT(11	STAY+2*, END+2, END+3
>> SRVADPT(12	END+4, ADM1+5*
>> SRVADPT(13	ADM1+5*
>> SRVADPT(14	ADM1+5*
>> SRVADPT(15	SROAPIMS+27*
>> SRVADPT(2	SROAPIMS+25*
>> SRVADPT(3	SROAPIMS+25*
>> SRVADPT(4	SROAPIMS+25*
>> SRVADPT(5	SROAPIMS+26*, END
>> SRVADPT(6	SROAPIMS+25*, END+5
>> SRVADPT(7	END, END+2, END+3, ADM1+10*
>> SRVADPT(8	FOLLOW+3, ADM1+10*
>> SRVADPT(9	ADSS+1, END, PRIOR+3*
SRX	SROAPIMS+26, ADSS+1, FOLLOW+2, END+7!, PRIOR+1, SPEC+1, ADM1+3*
SRY	SROAPIMS+26!, END+7!, SPEC+1!
SRY(	SPEC+1
SRY(10	SROAPIMS+26
>> VA("PID"	SROAPIMS+25
>> VADM(1	SROAPIMS+25
>> VADM(3	SROAPIMS+25
>> VADM(5	SROAPIMS+25
>> VADM(6	SROAPIMS+25
>> VADM(8	SROAPIMS+26
>> VAIP("D"	ADM+1, ADM+3, DISSS+1, FOLLOW, PRIOR+2, ADM1+9
>> VAIP(1	ADSS+1
>> VAIP(13	ADM+3, ADM+4, ADM1+3, ADM1+5, ADM1+8, ADM1+9, ADM1+10
>> VAIP(15	ADSS+2, PRIOR+1, PRIOR+2
>> VAIP(16	FOLLOW, FOLLOW+1, FOLLOW+2, FOLLOW+3
>> VAIP(17	ADM1+5, ADM1+10
>> VAIP(2	ADSS+1
>> VAIP(3	ADSS+1
>> VAIP(8	ADSS+1
>> VAPD(7	EMPLOY+1
X	ADM+3, STAY+1, STAY+2, END+1*, END+7!, ADM1+8
X1	ADM+3, STAY+1, STAY+2, END+7!, ADM1+8*
>> X2	ADM+3, STAY+2, ADM1+8*
Y	SROAPIMS+25, STAY+2, END+7!, SERV+1, NACUTE+1, ADM1+4*
>> Z	SROAPIMS+25*

Customize PDF page

Package: Surgery

Routine: SROAPIMS

Call Graph Total: 4

Caller Graph Total: 3