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

Package: Surgery

Routine: SROAPRT1


Information

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

Source Information

Source file <SROAPRT1.m>

Entry Points

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

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