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 ;06/13/06

Source Information

Source file <SROACL1.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Surgery 3 SROACLN  SROAPS1  SRTPUTL  

Entry Points

Name Comments DBIA/ICR reference
DISP ; display fields
H485
YN ; store answer
HT
WT
HW(SRSD,SRED,SVTYPE) ; get weight & height from Vitals

External References

Name Field # of Occurrence
Y^DIQ WT+5
EN1^GMRVUT0 HW+3
HDR^SROAUTL DISP+1
$$FMADD^XLFDT HT+1, WT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," 1. Height:",?29,$P(SRAO(1),"^"),?41,"13. Prior MI: ",$J($P(SRAO(13),"^"),24)
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !," 2. Weight:",?29,$P(SRAO(2),"^"),?41,"14. Number prior heart surgeries: ",?70,$P(SRAO(14),"^")
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !," 3. Diabetes:",?27,$P(SRAO(3),"^"),?41,"15. Prior heart surgeries:"
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !," 4. COPD:",?30,$P(SRAO(4),"^"),?41,"16. Peripheral Vascular Disease:",?75,$P(SRAO(16),"^")
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !," 5. FEV1:",?($S($P(SRAO(5),"^")="NS":30,1:27)),$P(SRAO(5),"^")_$S($P(SRAO(5),"^")="":"",$P(SRAO(5),"^")="NS":"",1:" liters"),?41,"17. Cerebral Vascular Disease:",?75,$P(SRAO(17),"^")
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !," 6. Cardiomegaly (X-ray):",?30,$P(SRAO(6),"^"),?41,"18. Angina (use CCS Class):",?75,$P(SRAO(18),"^")
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !," 7. Pulmonary Rales:",?30,$P(SRAO(7),"^"),?41,"19. CHF (use NYHA Class):",?75,$P(SRAO(19),"^")
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !," 8. Current Smoker: ",$J($P(SRAO(8),"^"),19),?41,"20. Current Diuretic Use:",?75,$P(SRAO(20),"^")
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !," 9. Active Endocarditis:",?30,$P(SRAO(9),"^"),?41,"21. Current Digoxin Use:",?75,$P(SRAO(21),"^")
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !,"10. Resting ST Depression:",?30,$P(SRAO(10),"^"),?41,"22. IV NTG within 48 Hours:",?75,$P(SRAO(22),"^")
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !,"11. Functional Status: ",$J($P(SRAO(11),"^"),17),?41,"23. Preop circulatory Device:",?75,$P(SRAO(23),"^")
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: !,"12. PCI: ",$J($P(SRAO(12),"^"),29),?41,"24. Hypertension (Y/N):",?75,$P(SRAO(24),"^")
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISP+14
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DISP+14
Function Call: WRITE
  • Prompt: ?68,$J(X,11)
  • Line Location: H485+3
Function Call: WRITE
  • Prompt: ?68,$J($P(X,",")_",",11)
  • Line Location: H485+4
Function Call: WRITE
  • Prompt: !,?44,$P(X,", ",2,9)
  • Line Location: H485+4
Function Call: WRITE
  • Prompt: !,?44,$P(X,", ",2,4)_",",!,?44,$P(X,", ",5,9)
  • Line Location: H485+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(130 WT+5
^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
$$HW HT+1, WT
H485 DISP+4
YN WT+3, WT+4, WT+6, WT+7, WT+12, WT+13, WT+14, WT+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C WT+5*, H485+1*
GMRVSTR HW+1~, HW+2*
GMRVSTR(0 HW+2*
>> I SROACL1+5*, H485*, H485+1
>> MOE DISP+14*
>> NYUK HT+1*, HT+2*, HT+3*, WT*, WT+1*, WT+2*, WT+3*, WT+4*, WT+6*, WT+7*
, WT+8*, WT+9*, WT+10*, WT+12*, WT+13*, WT+14*, WT+15*, WT+16*, YN+1
RESULTS HW+1~, HW+2!
RESULTS( HW+8*, HW+9
>> SHEMP WT+3, WT+4, WT+6, WT+7, WT+12, WT+13, WT+14, WT+16, YN+1*, H485*
, H485+1*, H485+3
>> SRA( SROACL1+5*, WT+5
>> SRA(0 HT, WT+3!
>> SRA(200 WT+3, WT+7
>> SRA(206 HT+1, HT+2*, HT+3, WT, WT+1*, WT+2, WT+4, WT+6, WT+7, WT+8
, WT+9, WT+10, WT+11, WT+12, WT+13, WT+14, WT+16
>> SRA(209 WT+3, WT+15
>> SRAO(1 HT+3*, DISP+2
>> SRAO(10 WT+7*, DISP+11
>> SRAO(11 WT+7*, DISP+12
>> SRAO(12 WT+8*, DISP+13
>> SRAO(13 WT+9*, DISP+2
>> SRAO(14 WT+10*, DISP+3
>> SRAO(15 WT+11*, H485
>> SRAO(16 WT+12*, DISP+5
>> SRAO(17 WT+12*, DISP+6
>> SRAO(18 WT+13*, DISP+7
>> SRAO(19 WT+13*, DISP+8
>> SRAO(2 WT+2*, DISP+3
>> SRAO(20 WT+13*, DISP+9
>> SRAO(21 WT+13*, DISP+10
>> SRAO(22 WT+14*, DISP+11
>> SRAO(23 WT+15*, DISP+12
>> SRAO(24 WT+16*, DISP+13
>> SRAO(3 WT+3*, DISP+4
>> SRAO(4 WT+3*, DISP+5
>> SRAO(5 WT+4*, DISP+6
>> SRAO(6 WT+4*, DISP+7
>> SRAO(7 WT+4*, DISP+8
>> SRAO(8 WT+5*, DISP+9
>> SRAO(9 WT+6*, 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
>> SRI HW+9*
>> 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
SVTYPE HW~, HW+2, HW+9
>> X H485*, H485+1, H485+3*, H485+4, H485+5
>> Y WT+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All