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) ;08/11/2011

Source Information

Source file <SROAPS1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Surgery 4 ($$H618,$$HW)^SROACL1  $$H641^SROAPRT1  HDR^SROAUTL  TUT^SROAUTL3  
VA FileMan 2 CHK^DIE  Y^DIQ  
General Medical Record - Vitals 1 EN1^GMRVUT0  
Kernel 1 $$FMADD^XLFDT  

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

Package Total Caller Graph
Surgery 2 SROAPRE  SROAPRT1  

Entry Points

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

External References

Name Field # of Occurrence
CHK^DIE WT+2, HT+7
Y^DIQ OUT+2
EN1^GMRVUT0 HT+3
$$H618^SROACL1 PRE1+9
$$HW^SROACL1 WT+1
$$H641^SROAPRT1 PRE1+33
HDR^SROAUTL SROAPS1+5
TUT^SROAUTL3 PRE1
$$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),"^"),?43,"C. Current Pneumonia:",?66,$P(SRAO("2C"),"^")
  • Line Location: PRE1+37
Function Call: WRITE
  • Prompt: !," A. Height:"
  • Line Location: PRE1+38
Function Call: WRITE
  • Prompt: ?($S(Y="NS":32,1:14)),$J($P(Y,"^"),25)
  • Line Location: PRE1+38
Function Call: WRITE
  • Prompt: ?41,"3. HEPATOBILIARY:",?76,$P(SRAO(3),"^")
  • Line Location: PRE1+39
Function Call: WRITE
  • Prompt: !," B. Weight:"
  • Line Location: PRE1+40
Function Call: WRITE
  • Prompt: ?($S(Y="NS":19,1:23)),$J(Y,15)
  • Line Location: PRE1+40
Function Call: WRITE
  • Prompt: ?43,"A. Ascites:",?66,$P(SRAO("3A"),"^")
  • Line Location: PRE1+41
Function Call: WRITE
  • Prompt: !," C. Diabetes - Long Term:",?30,$E($P(SRAO("1C"),"^"),1,9)
  • Line Location: PRE1+42
Function Call: WRITE
  • Prompt: !," D. Diabetes - 2 Wks Preop:",?30,$E($P(SRAO("1D"),"^"),1,9),?41,"4. GASTROINTESTINAL:",?76,$P(SRAO(4),"^")
  • Line Location: PRE1+43
Function Call: WRITE
  • Prompt: !," E. Tobacco Use:",?19,$J($P(SRAO("1E"),"^"),21),?43,"A. Esophageal Varices:",?66,$P(SRAO("4A"),"^")
  • Line Location: PRE1+44
Function Call: WRITE
  • Prompt: !," F. Tobacco Use Timeframe:",?28,$E($P(SRAO("1F"),"^"),1,11)
  • Line Location: PRE1+45
Function Call: WRITE
  • Prompt: !," G. ETOH > 2 Drinks/Day:",?30,$P(SRAO("1G"),"^"),?41,"5. CARDIAC:",?76,$P(SRAO(5),"^")
  • Line Location: PRE1+46
Function Call: WRITE
  • Prompt: !," H. Positive Drug Screening:",?30,$P(SRAO("1H"),"^"),?43,"A. Congestive Heart Failure: ",?66,$P(SRAO("5A"),"^")
  • Line Location: PRE1+47
Function Call: WRITE
  • Prompt: !," I. Dyspnea: ",?14,$J($P(SRAO("1I"),"^"),25)
  • Line Location: PRE1+48
Function Call: WRITE
  • Prompt: ?43,"B. Prior MI: ",$J($E($P(SRAO("5B"),"^"),1,23),22)
  • Line Location: PRE1+49
Function Call: WRITE
  • Prompt: !," J. Preop Sleep Apnea:",?30,$P(SRAO("1J"),"^"),?43,"C. PCI: ",$J($P(SRAO("5C"),"^"),19)
  • Line Location: PRE1+50
Function Call: WRITE
  • Prompt: !," K. Sleep Apnea-Compliance:",?30,$E($P(SRAO("1K"),"^"),1,11),?43,"D. Prior Heart Surgery:"
  • Line Location: PRE1+51
Function Call: WRITE
  • Prompt: !," L. DNR Status: ",?30,$P(SRAO("1L"),"^"),?43,"E. Angina Severity:",?66,$P(SRAO("5E"),"^")
  • Line Location: PRE1+52
Function Call: WRITE
  • Prompt: !," M. Functional Status: "
  • Line Location: PRE1+53
Function Call: WRITE
  • Prompt: ?30,$P(SRAO("1M"),"^")
  • Line Location: PRE1+54
Function Call: WRITE
  • Prompt: ?43,"F. Angina Timeframe:",?66,$E($P(SRAO("5F"),"^"),1,14)
  • Line Location: PRE1+56
Function Call: WRITE
  • Prompt: !," N. Current Residence: "
  • Line Location: PRE1+57
Function Call: WRITE
  • Prompt: ?30,$P(SRAO("1N"),"^")
  • Line Location: PRE1+58
Function Call: WRITE
  • Prompt: ?43,"G. Hypertension:",?66,$E($P(SRAO("5G"),"^"),1,14)
  • Line Location: PRE1+60
Function Call: WRITE
  • Prompt: !," O. Ambulation Device: ",?30,$P(SRAO("1O"),"^")
  • Line Location: PRE1+61
Function Call: WRITE
  • Prompt: !,"2. PULMONARY:",?32,$P(SRAO(2),"^"),?41,"6. VASCULAR:",?76,$P(SRAO(6),"^")
  • Line Location: PRE1+62
Function Call: WRITE
  • Prompt: !," A. Ventilator Dependent:",?30,$P(SRAO("2A"),"^"),?43,"A. PAD: "
  • Line Location: PRE1+63
Function Call: WRITE
  • Prompt: ?66,$P(SRAO("6A"),"^")
  • Line Location: PRE1+64
Function Call: WRITE
  • Prompt: !," B. History of Severe COPD:",?30,$P(SRAO("2B"),"^"),?43,"B. Rest Pain/Gangrene:",?66,$P(SRAO("6B"),"^")
  • Line Location: PRE1+66
Function Call: WRITE
  • Prompt: ?66,X
  • Line Location: H485+2
Function Call: WRITE
  • Prompt: ?66,$P(X,",")
  • Line Location: H485+3
Function Call: WRITE
  • Prompt: !,?46,$P(X,", ",2,9)
  • Line Location: H485+3
Function Call: WRITE
  • Prompt: !,?46,$P(X,", ",2,4)_",",!,?46,$P(X,", ",5,9)
  • Line Location: H485+4
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, OUT+6, 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+10, PRE1+11
, PRE1+12, PRE1+13, PRE1+17, PRE1+18, PRE1+19, PRE1+20, PRE1+21, PRE1+22, PRE1+23, PRE1+24
, PRE1+25, PRE1+26, PRE1+31, PRE1+32, PRE1+34, PRE1+35, PRE1+36
H485 PRE1+51
HW PRE1
PRE1 SROAPS1+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C OUT+1~, OUT+2*, H485+1*
GMRVSTR HT+1~, HT+2*
GMRVSTR(0 HT+2*
I SROAPS1+5~, SROAPS1+6*, PRE1*, H485*, H485+1
RESULTS HT+2!
>> SHEMP H485*, H485+1*, H485+2
SRA PRE1+36!
SRA( PRE1*, PRE1+4, PRE1+5, PRE1+6, PRE1+7, PRE1+11, PRE1+12, PRE1+17, PRE1+24
SRA(200 PRE1+1, PRE1+8, PRE1+9, PRE1+10, PRE1+13, PRE1+18, PRE1+19, PRE1+20, PRE1+21, PRE1+22
, PRE1+23, PRE1+25, PRE1+26, PRE1+29, PRE1+32, PRE1+33, PRE1+34, PRE1+36
SRA(206 PRE1+2, PRE1+3, PRE1+28, PRE1+30, PRE1+31, PRE1+35
SRA(207 PRE1+27
SRA(210 PRE1+15, PRE1+16
>> SRAO("1A" PRE1+2*, PRE1+38
>> SRAO("1B" PRE1+3*, PRE1+40
>> SRAO("1C" PRE1+4*, PRE1+42
>> SRAO("1D" PRE1+5*, PRE1+43
>> SRAO("1E" PRE1+6*, PRE1+44
>> SRAO("1F" PRE1+7*, PRE1+45
>> SRAO("1G" PRE1+8*, PRE1+46
>> SRAO("1H" PRE1+9*, PRE1+47
>> SRAO("1I" PRE1+10*, PRE1+48
>> SRAO("1J" PRE1+11*, PRE1+50
>> SRAO("1K" PRE1+12*, PRE1+51
>> SRAO("1L" PRE1+13*, PRE1+52
>> SRAO("1M" PRE1+17*, PRE1+54, PRE1+55
>> SRAO("1N" PRE1+15*, PRE1+58, PRE1+59
>> SRAO("1O" PRE1+16*, PRE1+61
>> SRAO("2A" PRE1+19*, PRE1+63
>> SRAO("2B" PRE1+20*, PRE1+66
>> SRAO("2C" PRE1+21*, PRE1+37
>> SRAO("3A" PRE1+23*, PRE1+41
>> SRAO("4A" PRE1+25*, PRE1+44
>> SRAO("5A" PRE1+27*, PRE1+47
>> SRAO("5B" PRE1+28*, PRE1+49
>> SRAO("5C" PRE1+29*, PRE1+50
>> SRAO("5D" PRE1+30*, PRE1+51
>> SRAO("5E" PRE1+31*, PRE1+52
>> SRAO("5F" PRE1+32*, PRE1+56
>> SRAO("5G" PRE1+33*, PRE1+60
>> SRAO("6A" PRE1+35*, PRE1+64, PRE1+65
>> SRAO("6B" PRE1+36*, PRE1+66
>> SRAO(1 PRE1+1*, PRE1+37
>> SRAO(2 PRE1+18*, PRE1+62
>> SRAO(3 PRE1+22*, PRE1+39
>> SRAO(4 PRE1+24*, PRE1+43
>> SRAO(5 PRE1+26*, PRE1+46
>> SRAO(6 PRE1+34*, PRE1+62
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+7, OUT+11, OUT+12
SRHTDT HT+1~, HT+9*
>> SRPAGE SROAPS1+5*
SRSTRT HW+1~, WT+1*
>> SRTN PRE1, OUT+6, 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+17*, PRE1+18*, PRE1+19*, PRE1+20*, PRE1+21*, PRE1+22*
, PRE1+23*, PRE1+24*, PRE1+25*, PRE1+26*, PRE1+27*, PRE1+28*, PRE1+29*, PRE1+30*, PRE1+31*, PRE1+32*
, PRE1+33*, PRE1+34*, PRE1+35*, PRE1+36*
SRY OUT~, OUT+2, OUT+8, OUT+9, OUT+10, OUT+12
X H485~, H485+1, H485+2*, H485+3, H485+4
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+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+28*, PRE1+29*, PRE1+30*
, PRE1+31*, PRE1+32*, PRE1+33*, PRE1+34*, PRE1+35*, PRE1+36*, PRE1+38*, PRE1+40*, OUT+1~, OUT+2*
, OUT+3*, OUT+4*, OUT+5*, OUT+6*, OUT+8*, OUT+9*, OUT+10*, OUT+11*, OUT+12*, OUT+13
Z OUT+1~, OUT+6*
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