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

Package: Surgery

Routine: SROAPS1


Information

SROAPS1 ;BIR/MAM - PREOP INFO (PAGE 1) ;08/11/2011

Source Information

Source file <SROAPS1.m>

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)

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

FileMan Files Accessed Via FileMan Db Call

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