Routine: SROAPIMS

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

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

External References

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

Global Variables Directly Accessed

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

Label References

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

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: