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

Package: Surgery

Routine: SROAPCA


Information

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

Source Information

Source file <SROAPCA.m>

Entry Points

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

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