Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SROAPIMS

Package: Surgery

Routine: SROAPIMS


Information

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

Source Information

Source file <SROAPIMS.m>

Call Graph

Call Graph

Call Graph Total: 5

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Surgery 4 SR47UTL  SROACPM  SROAPM  SROATMNO  

Entry Points

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

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, FOLLOWPRIOR+2, ADM1+9
KVA^VADPT END+9
OPD^VADPT EMPLOY+1
$$FMDIFF^XLFDT END+6

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*, END+6*
END+7*, MCARMCAR+3*, EMPLOY+1*, ADM1+6*, ADM1+8

Label References

Name Line Occurrences
ADM1 ADM+4
DISSS ADSS+1
EMPLOY END+8
END ADM+3, ADM+4, STAY+1
FOLLOW FOLLOW
MCAR END+8
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+9!
DIQ SROAPIMS+26!*, SPEC+1!*
DIQ(0 SROAPIMS+26*, SPEC+1*
DR SROAPIMS+26!*, END+9!, SPEC+1!*
I SROAPIMS+24*, END+1*, END+9!, ADM1+6*
>> J END+2*, END+3*, END+4*, ADM1+6*
>> L END+2*, END+3*
SR SROAPIMS+24~, END+9!
SR(0 SROAPIMS+24*, SROAPIMS+25, ADM+1
SR24 ADM+3*, END+9!
SR48 END+9!, ADM1+8*
SRCC SROAPIMS+24~, DISSS+1*, FOLLOW*, END+9!
SRD END+9!, MCAR*, MCAR+1*, MCAR+2
SRDD END+9!, MCAR+2*, MCAR+3
SRDO END+9!, MCAR*, MCAR+3
SRDT SROAPIMS+24~, ADM+3*, END+9!, ADM1+8*, ADM1+9
SRF END+9!, MCAR*, MCAR+1*
SRINOUT END*, END+3, END+9!
SRNON SROAPIMS+24~, DISSS+1*, FOLLOWFOLLOW+1*, FOLLOW+3, END+9!, NACUTE+1*
SRQ END+9!, 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+9!, SERV+1, SPEC+1*, NACUTE+1, ADM1+4, ADM1+5
SRSRV SROAPIMS+24~, ADSS+1, END+9!, PRIOR+1, PRIOR+2, SERV+1*
>> SRTN SROAPIMS+24, SROAPIMS+27, ADM+3, STAY+1, ENDEND+2, END+3, END+4, END+5, END+6
END+7, MCARMCAR+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, END+6
>> SRVADPT(7 ENDEND+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+9!, PRIOR+1*, SPEC+1, ADM1+3*
SRY SROAPIMS+26!, END+9!, 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 FOLLOWFOLLOW+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+9!, ADM1+8
X1 ADM+3*, STAY+1*, STAY+2, END+9!, ADM1+8*
>> X2 ADM+3*, STAY+2*, ADM1+8*
Y SROAPIMS+25*, STAY+2*, END+9!, SERV+1*, NACUTE+1*, ADM1+4*
>> Z SROAPIMS+25*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All