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 ;09/27/04

Source Information

Source file <SROAPCA.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Surgery 3 ^SROAPCA1  ^SROSTOP  $$SITE^SROVAR  
Registration 1 ADD^VADPT  
VA Fileman 1 Y^DIQ  

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
H485
PAGE
YN ; store answer

External References

Name Field # of Occurrence
Y^DIQ SROAPCA+20
^SROAPCA1 DISP+16
^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: !,?5,"VA CONTINUOUS IMPROVEMENT IN CARDIAC SURGERY PROGRAM (CICSP/CICSP-X)",!
  • 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,"PCI: ",$J($P(SRAO(16),"^"),34)
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,"Age:",?26,SRAO(3),?40,"Prior MI:",$J($P(SRAO(17),"^"),30)
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !,"Height:",?26,$P(SRAO(4),"^"),?40,"# of prior heart surgeries:",?75,$P(SRAO(18),"^")
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !,"Weight:",?26,$P(SRAO(5),"^"),?40,"Prior heart surgeries: "
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !,"Diabetes:",?26,$P(SRAO(6),"^"),?40,"Peripheral Vascular Disease:",?75,$P(SRAO(19),"^")
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !,"COPD:",?26,$P(SRAO(7),"^"),?40,"Cerebral Vascular Disease:",?75,$P(SRAO(20),"^")
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !,"FEV1:",?26,$P(SRAO(8),"^")_$S($P(SRAO(8),"^")="":"",$P(SRAO(8),"^")="NS":"",1:" liters"),?40,"Angina (use CCS Class):",?75,$P(SRAO(21),"^")
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !,"Cardiomegaly (X-ray): ",?26,$P(SRAO(9),"^"),?40,"CHF (use NYHA Class):",?75,$P(SRAO(22),"^")
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !,"Pulmonary Rales:",?26,$P(SRAO(10),"^"),?40,"Current Diuretic Use:",?75,$P(SRAO(23),"^")
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !,"Current Smoker: ",$J($P(SRAO(11),"^"),22),?40,"Current Digoxin Use:",?75,$P(SRAO(24),"^")
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: !,"Active Endocarditis:",?26,$P(SRAO(29),"^"),?40,"IV NTG 48 Hours Preceding Surgery:",?75,$P(SRAO(25),"^")
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: !,"Resting ST Depression:",?26,$P(SRAO(14),"^"),?40,"Preop circulatory Device:",?74,$P(SRAO(26),"^")
  • Line Location: DISP+14
Function Call: WRITE
  • Prompt: !,"Functional Status: ",$J($P(SRAO(15),"^"),18),?40,"Hypertension:",?75,$P(SRAO(27),"^")
  • Line Location: DISP+15
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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,16)
  • 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+20
^SRF - [#130] SROAPCA+2, SROAPCA+17

Label References

Name Line Occurrences
H485 DISP+6
YN SROAPCA+18, SROAPCA+19, SROAPCA+21, SROAPCA+26, SROAPCA+27, SROAPCA+28, SROAPCA+30, SROAPCA+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AGE SROAPCA+15
>> C SROAPCA+20*, 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+18*, SROAPCA+19*, SROAPCA+21*, SROAPCA+22*, SROAPCA+23*, SROAPCA+24*, SROAPCA+25*
, SROAPCA+26*, SROAPCA+27*, SROAPCA+28*, SROAPCA+29*, SROAPCA+30*, SROAPCA+31*, YN+1
>> SHEMP SROAPCA+18, SROAPCA+19, SROAPCA+21, SROAPCA+24*, SROAPCA+26, SROAPCA+27, SROAPCA+28, SROAPCA+30, SROAPCA+31, YN+1*
, H485*, H485+1*, H485+2
SRA DISP+16!
SRA( SROAPCA+2*, SROAPCA+20
SRA(0 SROAPCA+3, SROAPCA+14
SRA(200 SROAPCA+17*, SROAPCA+18, SROAPCA+21
SRA(206 SROAPCA+15, SROAPCA+16, SROAPCA+19, SROAPCA+21, SROAPCA+22, SROAPCA+23, SROAPCA+24, SROAPCA+25, SROAPCA+26, SROAPCA+27
, SROAPCA+28, SROAPCA+30, SROAPCA+31, H485
SRA(209 SROAPCA+17*, SROAPCA+18, SROAPCA+29
>> SRADATE SROAPCA+3*, SROAPCA+10, SROAPCA+14
>> SRANM SROAPCA+9, PAGE+2
SRAO DISP+16!
SRAO(1 SROAPCA+14*
SRAO(10 SROAPCA+19*, DISP+11
SRAO(11 SROAPCA+20*, DISP+12
SRAO(14 SROAPCA+21*, DISP+14
SRAO(15 SROAPCA+21*, DISP+15
SRAO(16 SROAPCA+22*, DISP+3
SRAO(17 SROAPCA+23*, DISP+4
SRAO(18 SROAPCA+24*, DISP+5
SRAO(19 SROAPCA+26*, DISP+7
SRAO(2 SROAPCA+14*, DISP+3
SRAO(20 SROAPCA+26*, DISP+8
SRAO(21 SROAPCA+27*, DISP+9
SRAO(22 SROAPCA+27*, DISP+10
SRAO(23 SROAPCA+27*, DISP+11
SRAO(24 SROAPCA+27*, DISP+12
SRAO(25 SROAPCA+28*, DISP+13
SRAO(26 SROAPCA+29*, DISP+14
SRAO(27 SROAPCA+30*, DISP+15
SRAO(29 SROAPCA+31*, DISP+13
SRAO(3 SROAPCA+15*, DISP+4
SRAO(4 SROAPCA+15*, DISP+5
SRAO(5 SROAPCA+16*, DISP+6
SRAO(6 SROAPCA+18*, DISP+7
SRAO(7 SROAPCA+18*, DISP+8
SRAO(8 SROAPCA+19*, DISP+9
SRAO(9 SROAPCA+19*, DISP+10
>> SRHALT PAGE+1
>> SRSOUT PAGE*, PAGE+1*
SRSPH1 SROAPCA+7~*, SROAPCA+11*, SROAPCA+12
>> SRTN SROAPCA+2, SROAPCA+6, SROAPCA+17
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+20*
>> ZTQUEUED PAGE+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All