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

Package: Surgery

Routine: SROAPCA4


Information

SROAPCA4 ;BIR/SJA - CARDIAC COMPLIANCE DATA ;09/01/2011

Source Information

Source file <SROAPCA4.m>

Entry Points

Name Comments DBIA/ICR reference
TS
LAB ;D PAGE^SROAPCA I SRSOUT Q
DD ;Detailed Discharge Information
YN ; store answer
DT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"III. DETAILED LABORATORY INFO - PREOPERATIVE VALUES"
  • Line Location: LAB+1
Function Call: WRITE
  • Prompt: !,"Creatinine:",?14,$J($P(SRA(201),U,4),4),SROUN
  • Line Location: LAB+3
Function Call: WRITE
  • Prompt: ?25,"("_$E(X,1,8)_")"
  • Line Location: LAB+3
Function Call: WRITE
  • Prompt: ?41,"T. Cholesterol:",?57,$J($P(SRA(201),U,26),4),SROUN
  • Line Location: LAB+4
Function Call: WRITE
  • Prompt: ?68,"("_$E(X,1,8)_")"
  • Line Location: LAB+4
Function Call: WRITE
  • Prompt: !,"Hemoglobin:",?14,$J($P(SRA(201),U,20),4),SROUN
  • Line Location: LAB+5
Function Call: WRITE
  • Prompt: ?25,"("_$E(X,1,8)_")"
  • Line Location: LAB+5
Function Call: WRITE
  • Prompt: ?41,"HDL:",?57,$J($P(SRA(201),U,21),4),SROUN
  • Line Location: LAB+6
Function Call: WRITE
  • Prompt: ?68,"("_$E(X,1,8)_")"
  • Line Location: LAB+6
Function Call: WRITE
  • Prompt: !,"Albumin:",?14,$J($P(SRA(201),U,8),4)," g/dl"
  • Line Location: LAB+7
Function Call: WRITE
  • Prompt: ?25,"("_$E(X,1,8)_")"
  • Line Location: LAB+7
Function Call: WRITE
  • Prompt: ?41,"LDL:",?57,$J($P(SRA(201),U,25),4),SROUN
  • Line Location: LAB+8
Function Call: WRITE
  • Prompt: ?68,"("_$E(X,1,8)_")"
  • Line Location: LAB+8
Function Call: WRITE
  • Prompt: !,"Triglyceride:",?14,$J($P(SRA(201),U,22),4),SROUN
  • Line Location: LAB+9
Function Call: WRITE
  • Prompt: ?25,"("_$E(X,1,8)_")"
  • Line Location: LAB+9
Function Call: WRITE
  • Prompt: ?41,"Hemoglobin A1c:",?57,$J($P(SRA(201),U,28),4)," %"
  • Line Location: LAB+10
Function Call: WRITE
  • Prompt: ?68,"("_$E(X,1,8)_")"
  • Line Location: LAB+10
Function Call: WRITE
  • Prompt: !,"Potassium:",?14,$J($P(SRA(201),U,23),4)," mg/L"
  • Line Location: LAB+11
Function Call: WRITE
  • Prompt: ?25,"("_$E(X,1,8)_")"
  • Line Location: LAB+11
Function Call: WRITE
  • Prompt: ?41,"BNP:",?57,$J($P(SRA(201),U,29),4),SROUN
  • Line Location: LAB+12
Function Call: WRITE
  • Prompt: ?68,"("_$E(X,1,8)_")"
  • Line Location: LAB+12
Function Call: WRITE
  • Prompt: !,"T. Bilirubin:",?14,$J($P(SRA(201),U,24),4),SROUN
  • Line Location: LAB+13
Function Call: WRITE
  • Prompt: ?25,"("_$E(X,1,8)_")"
  • Line Location: LAB+13
Function Call: WRITE
  • Prompt: !!,"X. DETAILED DISCHARGE INFORMATION",!," Discharge ICD-"_$$ICD910^SROICD(SRTN)_" Codes: "
  • Line Location: DD+6
Function Call: WRITE
  • Prompt: SRRES
  • Line Location: DD+7
Function Call: WRITE
  • Prompt: !!,"Type of Disposition: ",$P($G(SRRES(1)),U,1)
  • Line Location: DD+9
Function Call: WRITE
  • Prompt: !,"Place of Disposition: ",$P($G(SRRES(1)),U,2)
  • Line Location: DD+10
Function Call: WRITE
  • Prompt: !,"Preferred VAMC identification code: ",SRPREF
  • Line Location: DD+11
Function Call: WRITE
  • Prompt: !,"Primary care or referral VAMC identification code: ",SRREFP
  • Line Location: DD+12
Function Call: WRITE
  • Prompt: !,"Follow-up VAMC identification code: ",SRFOLP
  • Line Location: DD+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call