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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SROAPS1

Package: Surgery

Routine: SROAPS1


Information

SROAPS1 ;BIR/MAM - PREOP INFO (PAGE 1) ;12/12/07

Source Information

Source file <SROAPS1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Surgery 2 $$HW^SROACL1  HDR^SROAUTL  
VA Fileman 2 CHK^DIE  Y^DIQ  
General Medical Record - Vitals 1 EN1^GMRVUT0  
Kernel 1 $$FMADD^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROAPRE  

Entry Points

Name Comments DBIA/ICR reference
HT
WT
PRE1
HW ; get weight & height from Vitals
OUT(SRFLD,SRY) ; get data in output form

External References

Name Field # of Occurrence
CHK^DIE WT+2, HT+7
Y^DIQ OUT+2
EN1^GMRVUT0 HT+3
$$HW^SROACL1 WT+1
HDR^SROAUTL SROAPS1+5
$$FMADD^XLFDT WT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SROAPS1+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SROAPS1+6
Function Call: WRITE
  • Prompt: "1. GENERAL:",?32,$P(SRAO(1),"^"),?41,"4. GASTROINTESTINAL:",?76,$P(SRAO(4),"^")
  • Line Location: PRE1+28
Function Call: WRITE
  • Prompt: ?32,Y
  • Condition for execution: Y="NS"
  • Line Location: PRE1+29
Function Call: WRITE
  • Prompt: ?43,"A. Esophageal Varices:",?76,$P(SRAO("4A"),"^")
  • Line Location: PRE1+30
Function Call: WRITE
  • Prompt: !," B. Weight:"
  • Line Location: PRE1+31
Function Call: WRITE
  • Prompt: ?($S(Y="NS":19,1:24)),$J(Y,15)
  • Line Location: PRE1+31
Function Call: WRITE
  • Prompt: !," C. Diabetes Mellitus:",?32,$P(SRAO("1C"),"^"),?41,"5. CARDIAC:",?76,$P(SRAO(5),"^")
  • Line Location: PRE1+32
Function Call: WRITE
  • Prompt: !," D. Current Smoker W/I 1 Year:",?32,$P(SRAO("1D"),"^"),?43,"A. CHF Within 1 Month:",?76,$P(SRAO("5A"),"^")
  • Line Location: PRE1+33
Function Call: WRITE
  • Prompt: !," E. ETOH > 2 Drinks/Day:",?32,$P(SRAO("1E"),"^"),?43,"B. MI Within 6 Months:",?76,$P(SRAO("5B"),"^")
  • Line Location: PRE1+34
Function Call: WRITE
  • Prompt: !," F. Dyspnea: ",?14,$J($P(SRAO("1F"),"^"),25),?43,"C. Previous PCI:",?76,$P(SRAO("5C"),"^")
  • Line Location: PRE1+35
Function Call: WRITE
  • Prompt: !," G. DNR Status: ",?32,$P(SRAO("1G"),"^"),?43,"D. Previous Cardiac Surgery:",?76,$P(SRAO("5D"),"^")
  • Line Location: PRE1+36
Function Call: WRITE
  • Prompt: !," H. Preop Funct Status: ",$J($P(SRAO("1H"),"^"),17),?43,"E. Angina Within 1 Month:",?76,$P(SRAO("5E"),"^")
  • Line Location: PRE1+37
Function Call: WRITE
  • Prompt: !,?43,"F. Hypertension Requiring Meds:",?76,$P(SRAO("5F"),"^")
  • Line Location: PRE1+38
Function Call: WRITE
  • Prompt: !,"2. PULMONARY:",?32,$P(SRAO(2),"^")
  • Line Location: PRE1+39
Function Call: WRITE
  • Prompt: !," A. Ventilator Dependent:",?32,$P(SRAO("2A"),"^"),?41,"6. VASCULAR:",?76,$P(SRAO(6),"^")
  • Line Location: PRE1+40
Function Call: WRITE
  • Prompt: !," B. History of Severe COPD:",?32,$P(SRAO("2B"),"^"),?43,"A. Revascularization/Amputation:",?76,$P(SRAO("6A"),"^")
  • Line Location: PRE1+41
Function Call: WRITE
  • Prompt: !," C. Current Pneumonia:",?32,$P(SRAO("2C"),"^"),?43,"B. Rest Pain/Gangrene:",?76,$P(SRAO("6B"),"^")
  • Line Location: PRE1+42
Function Call: WRITE
  • Prompt: !!,"3. HEPATOBILIARY:",?32,$P(SRAO(3),"^"),!," A. Ascites:",?32,$P(SRAO("3A"),"^")
  • Line Location: PRE1+43
Routine Call
  • DIE
  • Line Location:
    • WT+2
    • HT+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] CHK^DIE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(130 OUT+2
^SRF - [#130] PRE1, PRE1+9, PRE1+16, OUT+5, WT, WT+1, WT+2*, HT, HT+2, HT+8*
, HT+9*
^UTILITY($J HT+2!, HT+3, HT+4, HT+5, HT+6

Label References

Name Line Occurrences
$$OUT PRE1+1, PRE1+2, PRE1+3, PRE1+4, PRE1+5, PRE1+6, PRE1+7, PRE1+8, PRE1+9, PRE1+10
, PRE1+11, PRE1+12, PRE1+13, PRE1+14, PRE1+15, PRE1+16, PRE1+17, PRE1+18, PRE1+19, PRE1+20
, PRE1+21, PRE1+22, PRE1+23, PRE1+24, PRE1+25, PRE1+26, PRE1+27
HW PRE1
PRE1 SROAPS1+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C OUT+1~, OUT+2*
GMRVSTR HT+1~, HT+2*
GMRVSTR(0 HT+2*
I SROAPS1+5~, SROAPS1+6*, PRE1*
RESULTS HT+2!
SRA PRE1+27!
SRA( PRE1*
SRA(200 PRE1+1, PRE1+4, PRE1+5, PRE1+6, PRE1+7, PRE1+8, PRE1+10, PRE1+11, PRE1+12, PRE1+13
, PRE1+14, PRE1+15, PRE1+17, PRE1+18, PRE1+19, PRE1+20, PRE1+21, PRE1+22, PRE1+23, PRE1+24
, PRE1+25, PRE1+26, PRE1+27
SRA(206 PRE1+2, PRE1+3
>> SRAO("1A" PRE1+2*, PRE1+29
>> SRAO("1B" PRE1+3*, PRE1+31
>> SRAO("1C" PRE1+4*, PRE1+32
>> SRAO("1D" PRE1+5*, PRE1+33
>> SRAO("1E" PRE1+6*, PRE1+34
>> SRAO("1F" PRE1+7*, PRE1+35
>> SRAO("1G" PRE1+8*, PRE1+36
>> SRAO("1H" PRE1+9*, PRE1+37
>> SRAO("2A" PRE1+11*, PRE1+40
>> SRAO("2B" PRE1+12*, PRE1+41
>> SRAO("2C" PRE1+13*, PRE1+42
>> SRAO("3A" PRE1+15*, PRE1+43
>> SRAO("4A" PRE1+17*, PRE1+30
>> SRAO("5A" PRE1+19*, PRE1+33
>> SRAO("5B" PRE1+20*, PRE1+34
>> SRAO("5C" PRE1+21*, PRE1+35
>> SRAO("5D" PRE1+22*, PRE1+36
>> SRAO("5E" PRE1+23*, PRE1+37
>> SRAO("5F" PRE1+24*, PRE1+38
>> SRAO("6A" PRE1+26*, PRE1+41
>> SRAO("6B" PRE1+27*, PRE1+42
>> SRAO(1 PRE1+1*, PRE1+28
>> SRAO(2 PRE1+10*, PRE1+39
>> SRAO(3 PRE1+14*, PRE1+43
>> SRAO(4 PRE1+16*, PRE1+28
>> SRAO(5 PRE1+18*, PRE1+32
>> SRAO(6 PRE1+25*, PRE1+40
SRBDATA HT+1~, HT+6*, HT+9
SRBIEN HT+1~, HT+5*, HT+6
SRBRDT HT+1~, HT+4*, HT+5, HT+6
SREND HW+1~, WT+1*, HT+2*
SREQ HW+1~
SREX HW+1~, WT+1*, WT+2*, HT+6*, HT+7*
SREY HW+1~, WT+2, HT+7, HT+8
SRFLD OUT~, OUT+2, OUT+4, OUT+5, OUT+6, OUT+10
SRHTDT HT+1~, HT+9*
>> SRPAGE SROAPS1+5*
SRSTRT HW+1~, WT+1*
>> SRTN PRE1, PRE1+9, PRE1+16, OUT+5, WT, WT+1, WT+2, HT, HT+2, HT+8
, HT+9
SRX PRE1~, PRE1+1*, PRE1+2*, PRE1+3*, PRE1+4*, PRE1+5*, PRE1+6*, PRE1+7*, PRE1+8*, PRE1+9*
, PRE1+10*, PRE1+11*, PRE1+12*, PRE1+13*, PRE1+14*, PRE1+15*, PRE1+16*, PRE1+17*, PRE1+18*, PRE1+19*
, PRE1+20*, PRE1+21*, PRE1+22*, PRE1+23*, PRE1+24*, PRE1+25*, PRE1+26*, PRE1+27*
SRY OUT~, OUT+2, OUT+7, OUT+8, OUT+9
Y PRE1~, PRE1+1*, PRE1+2*, PRE1+3*, PRE1+4*, PRE1+5*, PRE1+6*, PRE1+7*, PRE1+8*, PRE1+9*
, PRE1+10*, PRE1+11*, PRE1+12*, PRE1+13*, PRE1+14*, PRE1+15*, PRE1+16*, PRE1+17*, PRE1+18*, PRE1+19*
, PRE1+20*, PRE1+21*, PRE1+22*, PRE1+23*, PRE1+24*, PRE1+25*, PRE1+26*, PRE1+27*, PRE1+29*, PRE1+31*
, OUT+1~, OUT+2*, OUT+3*, OUT+4*, OUT+5*, OUT+7*, OUT+8*, OUT+9*, OUT+10*, OUT+11
Z OUT+1~, OUT+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All