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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SROAPCA1

Package: Surgery

Routine: SROAPCA1


Information

SROAPCA1 ;BIR/MAM - PRINT CARDIAC CATH INFO ;02/05/08

Source Information

Source file <SROAPCA1.m>

Entry Points

Name Comments DBIA/ICR reference
YN ; store answer
DT
OUT(SRFLD,SRY) ; get data in output form
MMHG
NS
LV

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"IV. CARDIAC CATHETERIZATION AND ANGIOGRAPHIC DATA"
  • Line Location: SROAPCA1+21
Function Call: WRITE
  • Prompt: !,"Cardiac Catheterization Date: ",$E(Y,1,8)
  • Line Location: SROAPCA1+23
Function Call: WRITE
  • Prompt: !,"Procedure:",?30,$P(SRAO(1),"^"),?41,"Native Coronaries:"
  • Line Location: SROAPCA1+24
Function Call: WRITE
  • Prompt: !,"LVEDP:",?30,SRX
  • Line Location: SROAPCA1+25
Function Call: WRITE
  • Prompt: ?41,"Left Main Stenosis:",?71,$J(SRX,3)
  • Line Location: SROAPCA1+26
Function Call: WRITE
  • Prompt: "%"
  • Line Location: SROAPCA1+26
Function Call: WRITE
  • Prompt: !,"Aortic Systolic Pressure:",?26,SRX
  • Line Location: SROAPCA1+27
Function Call: WRITE
  • Prompt: ?41,"LAD Stenosis:",?71,$J(SRX,3)
  • Line Location: SROAPCA1+28
Function Call: WRITE
  • Prompt: "%"
  • Line Location: SROAPCA1+28
Function Call: WRITE
  • Prompt: !,?41,"Right Coronary Stenosis:",?71,$J(SRX,3)
  • Line Location: SROAPCA1+29
Function Call: WRITE
  • Prompt: "%"
  • Line Location: SROAPCA1+29
Function Call: WRITE
  • Prompt: !,"For patients having right heart cath:"
  • Line Location: SROAPCA1+30
Function Call: WRITE
  • Prompt: ?41,"Circumflex Stenosis:",?71,$J(SRX,3)
  • Line Location: SROAPCA1+30
Function Call: WRITE
  • Prompt: ?41,"Circumflex Stenosis:",?71,$J(SRX,3)
  • Line Location: SROAPCA1+30
Function Call: WRITE
  • Prompt: !,"PA Systolic Pressure:",?30,$J(SRX,3)
  • Line Location: SROAPCA1+32
Function Call: WRITE
  • Prompt: !,"PAW Mean Pressure:",?30,$J(SRX,3)
  • Line Location: SROAPCA1+33
Function Call: WRITE
  • Prompt: ?41,"If a Re-do, indicate stenosis",!,?44," in graft to:"
  • Line Location: SROAPCA1+34
Function Call: WRITE
  • Prompt: !,?41,"LAD:",?71,$J(SRX,3)
  • Line Location: SROAPCA1+35
Function Call: WRITE
  • Prompt: "%"
  • Line Location: SROAPCA1+35
Function Call: WRITE
  • Prompt: !,?41,"Right coronary (include PDA): ",$J(SRX,3)
  • Line Location: SROAPCA1+36
Function Call: WRITE
  • Prompt: "%"
  • Line Location: SROAPCA1+36
Function Call: WRITE
  • Prompt: !,?41,"Circumflex:",?71,$J(SRX,3)
  • Line Location: SROAPCA1+37
Function Call: WRITE
  • Prompt: "%"
  • Line Location: SROAPCA1+37
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: SROAPCA1+38
Function Call: WRITE
  • Prompt: !,"LV Contraction Grade (from contrast or radionuclide angiogram or 2D Echo):",!,?7,"Grade",?17,"Ejection Fraction Range",?51,"Definition"
  • Line Location: SROAPCA1+39
Function Call: WRITE
  • Prompt: !,?8,$P(SRAO(6),"^")
  • Line Location: SROAPCA1+40
Function Call: WRITE
  • Prompt: !,LN,!,"Mitral Regurgitation:",?30,$P(SRAO(7),"^")
  • Line Location: SROAPCA1+41
Function Call: WRITE
  • Prompt: !,"Aortic stenosis:",?30,$P(SRAO(8),"^")
  • Line Location: SROAPCA1+42
Function Call: WRITE
  • Prompt: !!,"V. OPERATIVE RISK SUMMARY DATA"
  • Line Location: SROAPCA1+49
Function Call: WRITE
  • Prompt: !,?5,"ASA Classification:",?35,$P(SRAO(1),"^")
  • Line Location: SROAPCA1+50
Function Call: WRITE
  • Prompt: ?57,"("_X_")"
  • Line Location: SROAPCA1+51
Function Call: WRITE
  • Prompt: !,?5,"Principal CPT Code:",?35,X,!,?5,"Other Procedures CPT Codes: "
  • Line Location: SROAPCA1+54
Function Call: WRITE
  • Prompt: ";"
  • Condition for execution: CNT>35
  • Line Location: SROAPCA1+58
Function Call: WRITE
  • Prompt: ?(CNT),CPT
  • Line Location: SROAPCA1+58
Function Call: WRITE
  • Prompt: !,?5,"Wound Classification:",?35,Y
  • Line Location: SROAPCA1+61
Function Call: WRITE
  • Prompt: !,?5,"Robotic Assistance (Y/N):",?35,$$GET1^DIQ(130,SRTN_",",2006,"E")
  • Line Location: SROAPCA1+62
Function Call: WRITE
  • Prompt: " mm Hg"
  • Line Location: MMHG+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call