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

Package: Surgery

Routine: SROAPRT1


Information

SROAPRT1 ;BIR/MAM - PREOP INFO (PAGE 1) ;04/05/2012

Source Information

Source file <SROAPRT1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Surgery 2 $$H618^SROACL1  $$OUT^SROAPS1  
VA FileMan 1 Y^DIQ  

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

Package Total Caller Graph
Surgery 3 SROAPAS  SROAPCA  SROAPS1  

Entry Points

Name Comments DBIA/ICR reference
OUT(SRFLD,SRY) ; get data in output form
H641(Y) ;
H485

External References

Name Field # of Occurrence
Y^DIQ OUT+2
$$H618^SROACL1 SROAPRT1+40
$$OUT^SROAPS1 SROAPRT1+38

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $E(IOST)="P"
  • Line Location: SROAPRT1+41
Function Call: WRITE
  • Prompt: !,?28,"PREOPERATIVE INFORMATION",!!
  • Line Location: SROAPRT1+41
Function Call: WRITE
  • Prompt: "GENERAL:",?31,$P(SRAO(1),"^"),?40,"HEPATOBILIARY:",?72,$P(SRAO(3),"^")
  • Line Location: SROAPRT1+42
Function Call: WRITE
  • Prompt: !,"Height:",?24,$P(SRAO("1A"),"^"),?40,"Ascites:",?66,$P(SRAO("3A"),"^")
  • Line Location: SROAPRT1+43
Function Call: WRITE
  • Prompt: !,"Weight:",?24,$P(SRAO("1B"),"^")
  • Line Location: SROAPRT1+44
Function Call: WRITE
  • Prompt: !,"Diabetes - Long Term:",?24,$E($P(SRAO("1C"),"^"),1,14),?40,"GASTROINTESTINAL:",?72,$P(SRAO(4),"^")
  • Line Location: SROAPRT1+45
Function Call: WRITE
  • Prompt: !,"Diabetes - 2 Wks Preop:",?24,$E($P(SRAO("1CC"),"^"),1,14),?40,"Esophageal Varices:",?66,$P(SRAO("4A"),"^")
  • Line Location: SROAPRT1+46
Function Call: WRITE
  • Prompt: !,"Tobacco Use:",?24,$P(SRAO("1D"),"^")
  • Line Location: SROAPRT1+47
Function Call: WRITE
  • Prompt: !,"Tobacco Use Timeframe: ",?24,$P(SRAO("1DD"),"^")
  • Line Location: SROAPRT1+48
Function Call: WRITE
  • Prompt: !,"ETOH > 2 Drinks/Day:",?24,$P(SRAO("1E"),"^"),?40,"CARDIAC:",?72,$P(SRAO(5),"^")
  • Line Location: SROAPRT1+49
Function Call: WRITE
  • Prompt: !,"Positive Drug Screening:",?24,$E($P(SRAO("1FF"),"^"),1,8),?40,"Congestive Heart Failure:",?66,$E($P(SRAO("5A"),"^"),1,14)
  • Line Location: SROAPRT1+50
Function Call: WRITE
  • Prompt: !,"Dyspnea:",?24,$E($P(SRAO("1F"),"^"),1,14),?40,"Prior MI:",?66,$E($P(SRAO("5B"),"^"),1,14)
  • Line Location: SROAPRT1+51
Function Call: WRITE
  • Prompt: !,"Preop Sleep Apnea:",?24,$P(SRAO("1G"),"^"),?40,"PCI:",?66,$P(SRAO("5C"),"^")
  • Line Location: SROAPRT1+52
Function Call: WRITE
  • Prompt: !,"Sleep Apnea-Compliance:",?24,$E($P(SRAO("1GG"),"^"),1,9)
  • Line Location: SROAPRT1+53
Function Call: WRITE
  • Prompt: !,"DNR Status:",?24,$P(SRAO("1H"),"^"),?40,"Prior Heart Surgery: "
  • Line Location: SROAPRT1+54
Function Call: WRITE
  • Prompt: !,"Functional Status:",?24,$E($P(SRAO("1I"),"^"),1,14),?40,"Angina Severity:",?66,$P(SRAO("5E"),"^")
  • Line Location: SROAPRT1+55
Function Call: WRITE
  • Prompt: !,"Current Residence: ",$E($P(SRAO("1J"),"^"),1,19)
  • Line Location: SROAPRT1+56
Function Call: WRITE
  • Prompt: ?40,"Angina Timeframe:",$J($E($P(SRAO("5F"),"^"),1,20),22)
  • Line Location: SROAPRT1+57
Function Call: WRITE
  • Prompt: !,"Ambulation Device: ",$E($P(SRAO("1K"),"^"),1,19),?40,"Hypertension: ",?(74-$L($P(SRAO("5G"),"^"))),$P(SRAO("5G"),"^")
  • Line Location: SROAPRT1+58
Function Call: WRITE
  • Prompt: !!,"PULMONARY:",?31,$P(SRAO(2),"^")
  • Line Location: SROAPRT1+59
Function Call: WRITE
  • Prompt: !,"Ventilator Dependent:",?25,$P(SRAO("2A"),"^"),?40,"VASCULAR:",?72,$P(SRAO(6),"^")
  • Line Location: SROAPRT1+60
Function Call: WRITE
  • Prompt: !,"History of Severe COPD:",?25,$P(SRAO("2B"),"^"),?40,"PAD:",?(79-$L($P(SRAO("6A"),"^"))),$P(SRAO("6A"),"^")
  • Line Location: SROAPRT1+61
Function Call: WRITE
  • Prompt: !,"Current Pneumonia:",?25,$P(SRAO("2C"),"^"),?40,"Rest Pain/Gangrene:",?72,$P(SRAO("6B"),"^")
  • Line Location: SROAPRT1+62
Function Call: WRITE
  • Prompt: ?66,X
  • Line Location: H485+2
Function Call: WRITE
  • Prompt: $J($P(X,",")_",",15)
  • 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 OUT+2
^SRF - [#130] SROAPRT1+2, SROAPRT1+9, SROAPRT1+10*

Label References

Name Line Occurrences
$$H641 SROAPRT1+36
$$OUT SROAPRT1+3, SROAPRT1+4, SROAPRT1+5, SROAPRT1+6, SROAPRT1+7, SROAPRT1+8, SROAPRT1+11, SROAPRT1+12, SROAPRT1+13, SROAPRT1+14
, SROAPRT1+15, SROAPRT1+16, SROAPRT1+18, SROAPRT1+19, SROAPRT1+21, SROAPRT1+22, SROAPRT1+23, SROAPRT1+24, SROAPRT1+25, SROAPRT1+26
, SROAPRT1+27, SROAPRT1+28, SROAPRT1+29, SROAPRT1+30, SROAPRT1+34, SROAPRT1+35, SROAPRT1+37, SROAPRT1+39
H485 SROAPRT1+54

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C OUT+1~, OUT+2*, H485+1*
>> I SROAPRT1+2*, H485*, H485+1
IOST SROAPRT1+41
>> SHEMP H485*, H485+1*, H485+2
>> SRA( SROAPRT1+2*, SROAPRT1+6, SROAPRT1+7, SROAPRT1+8, SROAPRT1+9*, SROAPRT1+11, SROAPRT1+14, SROAPRT1+15, SROAPRT1+18, SROAPRT1+27
>> SRA(200 SROAPRT1+3, SROAPRT1+12, SROAPRT1+13, SROAPRT1+16, SROAPRT1+21, SROAPRT1+22, SROAPRT1+23, SROAPRT1+24, SROAPRT1+25, SROAPRT1+26
, SROAPRT1+28, SROAPRT1+29, SROAPRT1+32, SROAPRT1+35, SROAPRT1+36, SROAPRT1+37, SROAPRT1+39, SROAPRT1+40
>> SRA(206 SROAPRT1+4, SROAPRT1+5, SROAPRT1+31, SROAPRT1+33, SROAPRT1+34, SROAPRT1+38, H485
>> SRA(207 SROAPRT1+30
>> SRA(210 SROAPRT1+19, SROAPRT1+20
>> SRAO("1A" SROAPRT1+4*, SROAPRT1+43
>> SRAO("1B" SROAPRT1+5*, SROAPRT1+44
>> SRAO("1C" SROAPRT1+6*, SROAPRT1+45
>> SRAO("1CC" SROAPRT1+7*, SROAPRT1+46
>> SRAO("1D" SROAPRT1+8*, SROAPRT1+47
>> SRAO("1DD" SROAPRT1+11*, SROAPRT1+48
>> SRAO("1E" SROAPRT1+12*, SROAPRT1+49
>> SRAO("1F" SROAPRT1+13*, SROAPRT1+51
>> SRAO("1FF" SROAPRT1+40*, SROAPRT1+50
>> SRAO("1G" SROAPRT1+14*, SROAPRT1+52
>> SRAO("1GG" SROAPRT1+15*, SROAPRT1+53
>> SRAO("1H" SROAPRT1+16*, SROAPRT1+54
>> SRAO("1I" SROAPRT1+18*, SROAPRT1+55
>> SRAO("1J" SROAPRT1+19*, SROAPRT1+56
>> SRAO("1K" SROAPRT1+20*, SROAPRT1+58
>> SRAO("2A" SROAPRT1+22*, SROAPRT1+60
>> SRAO("2B" SROAPRT1+23*, SROAPRT1+61
>> SRAO("2C" SROAPRT1+24*, SROAPRT1+62
>> SRAO("3A" SROAPRT1+26*, SROAPRT1+43
>> SRAO("4A" SROAPRT1+28*, SROAPRT1+46
>> SRAO("5A" SROAPRT1+30*, SROAPRT1+50
>> SRAO("5B" SROAPRT1+31*, SROAPRT1+51
>> SRAO("5C" SROAPRT1+32*, SROAPRT1+52
>> SRAO("5D" SROAPRT1+33*
>> SRAO("5E" SROAPRT1+34*, SROAPRT1+55
>> SRAO("5F" SROAPRT1+35*, SROAPRT1+57
>> SRAO("5G" SROAPRT1+36*, SROAPRT1+58
>> SRAO("6A" SROAPRT1+38*, SROAPRT1+61
>> SRAO("6B" SROAPRT1+39*, SROAPRT1+62
>> SRAO(1 SROAPRT1+3*, SROAPRT1+42
>> SRAO(2 SROAPRT1+21*, SROAPRT1+59
>> SRAO(3 SROAPRT1+25*, SROAPRT1+42
>> SRAO(4 SROAPRT1+27*, SROAPRT1+45
>> SRAO(5 SROAPRT1+29*, SROAPRT1+49
>> SRAO(6 SROAPRT1+37*, SROAPRT1+60
SRFLD OUT~, OUT+2, OUT+4, OUT+5, OUT+6, OUT+9
>> SRTN SROAPRT1+2, SROAPRT1+9, SROAPRT1+10
SRX SROAPRT1+2~, SROAPRT1+3*, SROAPRT1+4*, SROAPRT1+5*, SROAPRT1+6*, SROAPRT1+7*, SROAPRT1+8*, SROAPRT1+11*, SROAPRT1+12*, SROAPRT1+13*
, SROAPRT1+14*, SROAPRT1+15*, SROAPRT1+16*, SROAPRT1+18*, SROAPRT1+19*, SROAPRT1+20*, SROAPRT1+21*, SROAPRT1+22*, SROAPRT1+23*, SROAPRT1+24*
, SROAPRT1+25*, SROAPRT1+26*, SROAPRT1+27*, SROAPRT1+28*, SROAPRT1+29*, SROAPRT1+30*, SROAPRT1+31*, SROAPRT1+32*, SROAPRT1+33*, SROAPRT1+34*
, SROAPRT1+35*, SROAPRT1+36*, SROAPRT1+37*, SROAPRT1+38*, SROAPRT1+39*, SROAPRT1+40*
SRY OUT~, OUT+2, OUT+7, OUT+8
>> X H485*, H485+1, H485+2*, H485+3, H485+4
Y SROAPRT1+2~, SROAPRT1+3*, SROAPRT1+4*, SROAPRT1+5*, SROAPRT1+6*, SROAPRT1+7*, SROAPRT1+8*, SROAPRT1+9*, SROAPRT1+10, SROAPRT1+11*
, SROAPRT1+12*, SROAPRT1+13*, SROAPRT1+14*, SROAPRT1+15*, SROAPRT1+16*, SROAPRT1+18*, SROAPRT1+19*, SROAPRT1+20*, SROAPRT1+21*, SROAPRT1+22*
, SROAPRT1+23*, SROAPRT1+24*, SROAPRT1+25*, SROAPRT1+26*, SROAPRT1+27*, SROAPRT1+28*, SROAPRT1+29*, SROAPRT1+30*, SROAPRT1+31*, SROAPRT1+32*
, SROAPRT1+33*, SROAPRT1+34*, SROAPRT1+35*, SROAPRT1+36*, SROAPRT1+37*, SROAPRT1+38*, SROAPRT1+39*, SROAPRT1+40*, OUT+1~, OUT+2*
, OUT+3*, OUT+4*, OUT+5*, OUT+7*, OUT+8*, OUT+9*, OUT+10, H641~, H641+1*, H641+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All