Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls