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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SROACL1

Package: Surgery

Routine: SROACL1


Information

SROACL1 ;BIR/MAM - CARDIAC PREOP CLINICAL DATA ; AUGUST 11, 2011

Source Information

Source file <SROACL1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Surgery 2 HDR^SROAUTL  TUT^SROAUTL3  
General Medical Record - Vitals 1 EN1^GMRVUT0  
Kernel 1 $$FMADD^XLFDT  
VA FileMan 1 Y^DIQ  

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: 6

Package Total Caller Graph
Surgery 6 SROACL2  SROACLN  SROAPCA  SROAPRT1  SROAPS1  SRTPUTL  

Entry Points

Name Comments DBIA/ICR reference
HT
WT
DISP ; display fields
YN ; store answer
H641 ; store answer
H618(Y)
H485
HW(SRSD,SRED,SVTYPE) ; get weight & height from Vitals
OUT(SRFLD,SRY) ; get data in output form

External References

Name Field # of Occurrence
Y^DIQ WT+3, WT+4, WT+7, WT+8, OUT+2
EN1^GMRVUT0 HW+3
HDR^SROAUTL DISP+1
TUT^SROAUTL3 SROACL1+5
$$FMADD^XLFDT HT+1, WT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " 1. Height:",?30,$P(SRAO(1),"^"),?42,"17. PAD:",?(79-$L($P(SRAO(17),"^"))),$P(SRAO(17),"^")
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !," 2. Weight:",?30,$P(SRAO(2),"^"),?42,"18. CVD Repair/Obstruct:",?(79-$L($P(SRAO(18),"^"))),$E($P(SRAO(18),"^"),1,13)
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !," 3. Diabetes - Long Term:",?30,$E($P(SRAO(3),"^"),1,10),?42,"19. History of CVD:",?(79-$L($P(SRAO(19),"^"))),$E($P(SRAO(19),"^"),1,15)
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !," 4. Diabetes - 2 Wks Preop:",?30,$E($P(SRAO(4),"^"),1,10),?42,"20. Angina Severity:",?(79-$L($P(SRAO(20),"^"))),$E($P(SRAO(20),"^"),1,15)
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !," 5. COPD:",?30,$P(SRAO(5),"^"),?42,"21. Angina Timeframe:",$J($E($P(SRAO(21),"^"),1,14),16)
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !," 6. FEV1:",?30,$P(SRAO(6),"^")_$S($P(SRAO(6),"^")="":"",$P(SRAO(6),"^")="NS":"",1:" liters"),?42,"22. Congestive Heart Failure:",?72,$P(SRAO(22),"^")
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !," 7. Cardiomegaly (X-ray):",?30,$P(SRAO(7),"^"),?42,"23. Current Diuretic Use:",?72,$P(SRAO(23),"^")
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !," 8. Tobacco Use:",$J($P(SRAO(8),"^"),25),?42,"24. IV NTG within 48 Hours:",?72,$P(SRAO(24),"^")
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !," 9. Tobacco Use Timeframe: ",$P(SRAO(9),"^"),?42,"25. Preop Circulatory Device: ",$P(SRAO(25),"^")
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !,"10. Positive Drug Screening: ",?30,$P(SRAO(10),"^"),?42,"26. Hypertension:",?(79-$L($P(SRAO(26),"^"))),($E($P(SRAO(26),"^"),1,20))
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !,"11. Active Endocarditis:",?30,$P(SRAO(11),"^"),?42,"27. Preop Atrial Fibrillation:",?72,$P(SRAO(27),"^")
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: !,"12. Functional Status: ",$J($P(SRAO(12),"^"),18),?42,"28. Preop Sleep Apnea:",?72,$P(SRAO(28),"^")
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: !,"13. PCI: ",$J($P(SRAO(13),"^"),25),?42,"29. Sleep Apnea-Compliance: ",$E($P(SRAO(29),"^"),1,10)
  • Line Location: DISP+14
Function Call: WRITE
  • Prompt: !,"14. Prior MI: "
  • Line Location: DISP+15
Function Call: WRITE
  • Prompt: ?30,$P(SRAO(14),"^")
  • Line Location: DISP+16
Function Call: WRITE
  • Prompt: ?42,"30. Impaired Cognitive Func: ",$P(SRAO(30),"^")
  • Line Location: DISP+18
Function Call: WRITE
  • Prompt: !,"15. Num Prior Heart Surgeries:",$P(SRAO(15),"^")
  • Line Location: DISP+19
Function Call: WRITE
  • Prompt: !,"16. Prior Heart Surgery:"
  • Line Location: DISP+20
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: ?30,X
  • Line Location: H485+2
Function Call: WRITE
  • Prompt: ?25,$P(X,", ",1,4)
  • Line Location: H485+3
Function Call: WRITE
  • Prompt: ",",!,?25,$P(X,", ",5,9)
  • Line Location: H485+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(130 WT+3, WT+4, WT+7, WT+8, OUT+2
^SRF - [#130] SROACL1+5, HT+2*, WT+1*
^UTILITY($J HW+2!, HW+3, HW+4, HW+5, HW+6, HW+7

Label References

Name Line Occurrences
$$H618 WT+9
$$HW HT+1, WT
$$OUT WT+16, WT+19, WT+20, WT+27, WT+28
H485 DISP+20
H641 WT+25
YN WT+5, WT+6, WT+10, WT+22, WT+23, WT+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C WT+3*, WT+4*, WT+7*, WT+8*, H485+1*, OUT+1~, OUT+2*
GMRVSTR HW+1~, HW+2*
GMRVSTR(0 HW+2*
>> I SROACL1+5*, H485*, H485+1
>> MOE DISP+21*
>> NYUK HT+1*, HT+2*, HT+3*, WT*, WT+1*, WT+2*, WT+5*, WT+6*, WT+10*, WT+11*
, WT+12*, WT+13*, WT+14*, WT+16*, WT+17*, WT+18*, WT+22*, WT+23*, WT+24*, WT+25*
, WT+26*, WT+27*, WT+28*, YN+1, H641+1
RESULTS HW+1~, HW+2!
RESULTS( HW+8*, HW+10
>> SHEMP WT+5, WT+6, WT+10, WT+22, WT+23, WT+25, WT+26, YN+1*, H641+1*, H618*
, H618+1, H485*, H485+1*, H485+2
>> SRA( SROACL1+5*, WT+3, WT+4, WT+7, WT+8, WT+11, WT+17, WT+18, WT+27, WT+28
>> SRA(0 HT, WT+5!
>> SRA(200 WT+5, WT+9, WT+12, WT+20, WT+25
>> SRA(206 HT+1, HT+2*, HT+3, WT, WT+1*, WT+2, WT+6, WT+10, WT+13, WT+14
, WT+15, WT+16, WT+19, WT+22, WT+23
>> SRA(207 WT+21
>> SRA(208 WT+26
>> SRA(209 WT+24
>> SRA(210 WT+29
>> SRAO(1 HT+3*, DISP+2
>> SRAO(10 WT+9*, DISP+11
>> SRAO(11 WT+10*, DISP+12
>> SRAO(12 WT+11*, DISP+13
>> SRAO(13 WT+12*, DISP+14
>> SRAO(14 WT+13*, DISP+16, DISP+17
>> SRAO(15 WT+14*, DISP+19
>> SRAO(16 WT+15*, H485
>> SRAO(17 WT+16*, DISP+2
>> SRAO(18 WT+17*, DISP+3
>> SRAO(19 WT+18*, DISP+4
>> SRAO(2 WT+2*, DISP+3
>> SRAO(20 WT+19*, DISP+5
>> SRAO(21 WT+20*, DISP+6
>> SRAO(22 WT+21*, DISP+7
>> SRAO(23 WT+22*, DISP+8
>> SRAO(24 WT+23*, DISP+9
>> SRAO(25 WT+24*, DISP+10
>> SRAO(26 WT+25*, DISP+11
>> SRAO(27 WT+26*, DISP+12
>> SRAO(28 WT+27*, DISP+13
>> SRAO(29 WT+28*, DISP+14
>> SRAO(3 WT+3*, DISP+4
>> SRAO(30 WT+29*, DISP+18
>> SRAO(4 WT+4*, DISP+5
>> SRAO(5 WT+5*, DISP+6
>> SRAO(6 WT+6*, DISP+7
>> SRAO(7 WT+6*, DISP+8
>> SRAO(8 WT+7*, DISP+9
>> SRAO(9 WT+8*, DISP+10
SRBCNT HW+1~, HW+4*, HW+8*
SRBDATA HW+1~, HW+7*, HW+8
SRBIEN HW+1~, HW+6*, HW+7
SRBRDT HW+1~, HW+5*, HW+6, HW+7, HW+8
SRED HT~*, HT+1, WT, HW~, HW+2
SRFLD OUT~, OUT+2, OUT+5, OUT+6
>> SRI HW+10*
>> SRPAGE DISP+1*
SRSD HT~, HT+1*, WT*, HW~, HW+2
>> SRTN SROACL1+5, HT+2, WT+1
SRTYPE HW+1~, HW+4*, HW+5, HW+6, HW+7, HW+8
SRY OUT~, OUT+2, OUT+5
SVTYPE HW~, HW+2, HW+10
U HW+10
>> X H485*, H485+1, H485+2*, H485+3
Y WT+3*, WT+4*, WT+7*, WT+8*, WT+9*, H618~, OUT+1~, OUT+2*, OUT+4*, OUT+5*
, OUT+6*, OUT+7
Z OUT+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All