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

Package: Surgery

Routine: SROAPCA


Information

SROAPCA ;BIR/MAM - PRINT CLINICAL DATA ;07/19/2011

Source Information

Source file <SROAPCA.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Surgery 5 ($$H618,$$OUT,H641)^SROACL1  ^SROAPCA1  $$OUT^SROAPRT1  ^SROSTOP  $$SITE^SROVAR  
Registration 1 ADD^VADPT  
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: 5

Package Total Caller Graph
Surgery 5 SROAPAS  SROAPCA1  SROAPCA2  SROAPCA3  SROAPCA4  

Entry Points

Name Comments DBIA/ICR reference
DISP ; display fields
YN ; store answer
PAGE
H485

External References

Name Field # of Occurrence
Y^DIQ SROAPCA+17, SROAPCA+18, SROAPCA+21, SROAPCA+22
$$H618^SROACL1 SROAPCA+40
$$OUT^SROACL1 SROAPCA+30, SROAPCA+41, SROAPCA+42, SROAPCA+43
H641^SROACL1 SROAPCA+37
^SROAPCA1 DISP+20
$$OUT^SROAPRT1 SROAPCA+31
^SROSTOP PAGE+1
$$SITE^SROVAR SROAPCA+8
ADD^VADPT SROAPCA+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: SROAPCA+4
Function Call: WRITE
  • Prompt: !,?7,"VA SURGICAL QUALITY IMPROVEMENT PROGRAM - CARDIAC SPECIALTY",!
  • Line Location: SROAPCA+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SROAPCA+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: SROAPCA+5
Function Call: WRITE
  • Prompt: !,"I. IDENTIFYING DATA",?60,"Case #: "_SRTN
  • Line Location: SROAPCA+6
Function Call: WRITE
  • Prompt: !,"Patient: "_SRANM,?60,"Fac./Div. #: "_STATNUM
  • Line Location: SROAPCA+9
Function Call: WRITE
  • Prompt: !,"Surgery Date: "_SRADATE,?25,"Address: "_VAPA(1)
  • Line Location: SROAPCA+10
Function Call: WRITE
  • Prompt: !,"Phone: "_SRSPH1,?25,"Zip Code: "_SRZIP
  • Line Location: SROAPCA+12
Function Call: WRITE
  • Prompt: ?53,"Date of Birth: ",$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)
  • Line Location: SROAPCA+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: "="
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,"II. CLINICAL DATA"
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !,"Gender:",?26,$P(SRAO(2),"^"),?40,"Age:",?(79-$L(SRAO(3))),SRAO(3)
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,"Height:",?26,$P(SRAO(4),"^"),?40,"Prior MI: "
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: ?54,$E($P(SRAO(17),"^"),1,25)
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: ?(79-$L($P(SRAO(17),"^"))),$P(SRAO(17),"^")
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !,"Weight:",?26,$P(SRAO(5),"^"),?40,"Number of prior heart surgeries:",?(79-$L($P(SRAO(18),"^"))),$P(SRAO(18),"^")
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !,"Diabetes - Long Term:",?26,$E($P(SRAO(6),"^"),1,12),?40,"Prior heart surgery: "
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !,"Diabetes - 2 Wks Preop:",?26,$E($P(SRAO(31),"^"),1,12),?40,"PAD:",?(79-$L($P(SRAO(19),"^"))),$P(SRAO(19),"^")
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !,"COPD:",?26,$P(SRAO(7),"^"),?40,"CVD Repair/Obstruct:",?(79-$L($P(SRAO(20),"^"))),$P(SRAO(20),"^")
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !,"FEV1:",?26,$P(SRAO(8),"^")_$S($P(SRAO(8),"^")="":"",$P(SRAO(8),"^")="NS":"",1:" liters"),?40,"History of CVD:",?(79-$L($P(SRAO(21),"^"))),$P(SRAO(21),"^")
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !,"Cardiomegaly (X-ray): ",?26,$P(SRAO(9),"^"),?40,"Angina Severity: ",?(79-$L($P(SRAO(22),"^"))),$P(SRAO(22),"^")
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !,"Tobacco Use: ",$J($P(SRAO(11),"^"),24),?40,"Angina Timeframe: ",?(79-$L($P(SRAO("22A"),"^"))),$P(SRAO("22A"),"^")
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: !,"Tobacco Use Timeframe: ",$J($P(SRAO(12),"^"),14),?40,"Congestive Heart Failure:",?(79-$L($P(SRAO(23),"^"))),$P(SRAO(23),"^")
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: !,"Positive Drug Screening: ",?26,$P(SRAO(13),"^"),?40,"Current Diuretic Use:",?(79-$L($P(SRAO(24),"^"))),$P(SRAO(24),"^")
  • Line Location: DISP+14
Function Call: WRITE
  • Prompt: !,"Active Endocarditis:",?26,$P(SRAO(29),"^"),?40,"IV NTG 48 Hours Preceding Surgery:",?(79-$L($P(SRAO(26),"^"))),$P(SRAO(26),"^")
  • Line Location: DISP+15
Function Call: WRITE
  • Prompt: !,"Functional Status: ",$J($P(SRAO(15),"^"),18),?40,"Preop Circulatory Device:",?(79-$L($P(SRAO(27),"^"))),$P(SRAO(27),"^")
  • Line Location: DISP+16
Function Call: WRITE
  • Prompt: !,"PCI:",?((18-$L($P(SRAO(16),"^"))\2)+19),$P(SRAO(16),"^"),?40,"Hypertension: ",?(79-$L($P(SRAO(28),"^"))),$P(SRAO(28),"^")
  • Line Location: DISP+17
Function Call: WRITE
  • Prompt: !,"Preop Sleep Apnea:",?26,$P(SRAO(32),"^"),?40,"Preoperative Atrial Fibrillation:",?(79-$L($P(SRAO(30),"^"))),$P(SRAO(30),"^")
  • Line Location: DISP+18
Function Call: WRITE
  • Prompt: !,"Sleep Apnea-Compliance:",$E($P(SRAO("32B"),"^"),1,16),?40,"Impaired Cognitive Function: ",$E($P(SRAO("32A"),"^"),1,11)
  • Line Location: DISP+19
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+0
Function Call: WRITE
  • Prompt: @IOF,!,SRANM,!
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: $J(X,18)
  • Line Location: H485+2
Function Call: WRITE
  • Prompt: $J($P(X,",")_",",16)
  • Line Location: H485+3
Function Call: WRITE
  • Prompt: !,?41,$P(X,", ",2,9)
  • Line Location: H485+3
Function Call: WRITE
  • Prompt: !,?41,$P(X,", ",2,4)_",",!,?41,$P(X,", ",5,9)
  • Line Location: H485+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(130 SROAPCA+17, SROAPCA+18, SROAPCA+21, SROAPCA+22
^SRF - [#130] SROAPCA+2

Label References

Name Line Occurrences
H485 DISP+7
YN SROAPCA+19, SROAPCA+20, SROAPCA+23, SROAPCA+34, SROAPCA+35, SROAPCA+38, SROAPCA+39

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AGE SROAPCA+15
>> C SROAPCA+17*, SROAPCA+18*, SROAPCA+21*, SROAPCA+22*, H485+1*
DTIME PAGE
>> I SROAPCA+2*, H485*, H485+1
IOF SROAPCA+4, PAGE+2
IOST PAGE
>> LN SROAPCA+2*
>> MOE SROAPCA+5*, DISP+1*, PAGE+2*
>> NYUK SROAPCA+14*, SROAPCA+15*, SROAPCA+16*, SROAPCA+19*, SROAPCA+20*, SROAPCA+23*, SROAPCA+24*, SROAPCA+25*, SROAPCA+26*, SROAPCA+27*
, SROAPCA+28*, SROAPCA+29*, SROAPCA+30*, SROAPCA+34*, SROAPCA+35*, SROAPCA+36*, SROAPCA+37*, SROAPCA+38*, SROAPCA+39*, SROAPCA+40*
, SROAPCA+41*, SROAPCA+42*, SROAPCA+43*, YN+1
>> SHEMP SROAPCA+19, SROAPCA+20, SROAPCA+23, SROAPCA+27*, SROAPCA+34, SROAPCA+35, SROAPCA+37, SROAPCA+38, SROAPCA+39, YN+1*
, H485*, H485+1*, H485+2
SRA DISP+20!
SRA( SROAPCA+2*, SROAPCA+17, SROAPCA+18, SROAPCA+21, SROAPCA+22, SROAPCA+24, SROAPCA+28, SROAPCA+29, SROAPCA+41, SROAPCA+43
SRA(0 SROAPCA+3, SROAPCA+14
SRA(200 SROAPCA+19, SROAPCA+25, SROAPCA+32, SROAPCA+37, SROAPCA+40
SRA(206 SROAPCA+15, SROAPCA+16, SROAPCA+20, SROAPCA+23, SROAPCA+26, SROAPCA+27, SROAPCA+30, SROAPCA+31, SROAPCA+34, SROAPCA+35
, SROAPCA+38, H485
SRA(207 SROAPCA+33
SRA(208 SROAPCA+39
SRA(209 SROAPCA+36
SRA(210 SROAPCA+42
>> SRADATE SROAPCA+3*, SROAPCA+10, SROAPCA+14
>> SRANM SROAPCA+9, PAGE+2
SRAO DISP+20!
SRAO("22A" SROAPCA+32*, DISP+12
SRAO("32A" SROAPCA+42*, DISP+19
SRAO("32B" SROAPCA+43*, DISP+19
SRAO(1 SROAPCA+14*
SRAO(10 SROAPCA+20*
SRAO(11 SROAPCA+21*, DISP+12
SRAO(12 SROAPCA+22*, DISP+13
SRAO(13 SROAPCA+40*, DISP+14
SRAO(14 SROAPCA+23*
SRAO(15 SROAPCA+24*, DISP+16
SRAO(16 SROAPCA+25*, DISP+17
SRAO(17 SROAPCA+26*, DISP+4, DISP+5
SRAO(18 SROAPCA+27*, DISP+6
SRAO(19 SROAPCA+30*, DISP+8
SRAO(2 SROAPCA+14*, DISP+3
SRAO(20 SROAPCA+28*, DISP+9
SRAO(21 SROAPCA+29*, DISP+10
SRAO(22 SROAPCA+31*, DISP+11
SRAO(23 SROAPCA+33*, DISP+13
SRAO(24 SROAPCA+34*, DISP+14
SRAO(25 SROAPCA+34*
SRAO(26 SROAPCA+35*, DISP+15
SRAO(27 SROAPCA+36*, DISP+16
SRAO(28 SROAPCA+37*, DISP+17
SRAO(29 SROAPCA+38*, DISP+15
SRAO(3 SROAPCA+15*, DISP+3
SRAO(30 SROAPCA+39*, DISP+18
SRAO(31 SROAPCA+18*, DISP+8
SRAO(32 SROAPCA+41*, DISP+18
SRAO(4 SROAPCA+15*, DISP+4
SRAO(5 SROAPCA+16*, DISP+6
SRAO(6 SROAPCA+17*, DISP+7
SRAO(7 SROAPCA+19*, DISP+9
SRAO(8 SROAPCA+20*, DISP+10
SRAO(9 SROAPCA+20*, DISP+11
>> SRHALT PAGE+1
>> SRSOUT PAGE*, PAGE+1*
SRSPH1 SROAPCA+7~*, SROAPCA+11*, SROAPCA+12
>> SRTN SROAPCA+2, SROAPCA+6
SRZIP SROAPCA+7~*, SROAPCA+11*, SROAPCA+12
>> STATNUM SROAPCA+8*, SROAPCA+9
>> VADM(3 SROAPCA+13
>> VADM(5 SROAPCA+14
>> VAPA(1 SROAPCA+10
>> VAPA(11 SROAPCA+11
>> VAPA(6 SROAPCA+11
>> VAPA(8 SROAPCA+11
>> X SROAPCA+3*, SROAPCA+13*, PAGE*, H485*, H485+1, H485+2*, H485+3, H485+4
>> Y SROAPCA+17*, SROAPCA+18*, SROAPCA+21*, SROAPCA+22*, SROAPCA+32*, SROAPCA+33*
>> ZTQUEUED PAGE+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All