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

Package: Surgery

Routine: SROAPCA4


Information

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

Source Information

Source file <SROAPCA4.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Surgery 3 PAGE^SROAPCA  DT^SROAPCA1  $$ICD910^SROICD  
VA FileMan 3 C^%DTC  $$GET1^DIQ  EN^DIQ1  
Registration 2 RPC^DGPTFAPI  (IN5,INP)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Surgery 2 SROAPCA1  SROAPCA3  

Entry Points

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

External References

Name Field # of Occurrence
C^%DTC SROAPCA4+9
RPC^DGPTFAPI DD+4
$$GET1^DIQ TS, TS+1, TS+2
EN^DIQ1 TS, TS+1, TS+2
PAGE^SROAPCA TS+3, DD+5
DT^SROAPCA1 DT
$$ICD910^SROICD DD+6
IN5^VADPT SROAPCA4+8, SROAPCA4+9
INP^VADPT DD+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM("APTT1" SROAPCA4+9
^SRF - [#130] SROAPCA4+7, SROAPCA4+9

Label References

Name Line Occurrences
DD TS+4
DT LAB+3, LAB+4, LAB+5, LAB+6, LAB+7, LAB+8, LAB+9, LAB+10, LAB+11, LAB+12
, LAB+13
TS SROAPCA4+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA TS!*, TS+1!*, TS+2!*
>> DFN SROAPCA4+9, TS+2
DIC TS!*, TS+1!*, TS+2!*
DIQ TS!*, TS+1!*, TS+2!*
DIQ(0 TS*, TS+1*, TS+2*
DR TS!*, TS+1!*, TS+2!*
>> I DD+7*
IOSL TS+3, DD+5
>> NYUK YN+1
>> SHEMP YN+1*
>> SR24 SROAPCA4+9*
>> SRA( SROAPCA4+7*, LAB+10, LAB+12
>> SRA(0 SROAPCA4+7*, SROAPCA4+8
>> SRA(201 SROAPCA4+7*, LAB+3, LAB+4, LAB+5, LAB+6, LAB+7, LAB+8, LAB+9, LAB+10, LAB+11
, LAB+12, LAB+13
>> SRA(202 SROAPCA4+7*, LAB+3, LAB+4, LAB+5, LAB+6, LAB+7, LAB+8, LAB+9, LAB+11, LAB+13
>> SRA(208 SROAPCA4+7*, DD+2
>> SRDT SROAPCA4+9*
SRFOL SROAPCA4+8~*, TS+1*
SRFOLP SROAPCA4+8~*, TS+1*, DD+13
SROUN LAB+2~*, LAB+3, LAB+4, LAB+5, LAB+6, LAB+8, LAB+9, LAB+12, LAB+13
SRPREF SROAPCA4+8~*, TS+2*, DD+11
SRPTF DD+1~, DD+3*, DD+4
SRREF SROAPCA4+8~*, TS*
SRREFP SROAPCA4+8~*, TS*, DD+12
SRRES DD+1~, DD+4*, DD+6*, DD+7*, DD+8
SRRES(0 DD+6
SRRES(1 DD+7, DD+9, DD+10
SRRES(2 DD+7
>> SRSDATE SROAPCA4+8*, SROAPCA4+9
SRSOUT SROAPCA4+8~*, TS+3, DD+5
>> SRTN SROAPCA4+7, SROAPCA4+9, DD+6
SRY SROAPCA4+8~, TS+1!, TS+2!
SRY(2 TS+2
SRY(405 TS, TS+1
U LAB+3, LAB+4, LAB+5, LAB+6, LAB+7, LAB+8, LAB+9, LAB+10, LAB+11, LAB+12
, LAB+13, DD+7, DD+9, DD+10
>> VAIN(10 DD+3
VAINDT DD+1~, DD+3*
>> VAIP("D" SROAPCA4+8*, SROAPCA4+9*
>> VAIP(13 SROAPCA4+9, TS
>> VAIP(17 TS+1
>> X SROAPCA4+9, TS+2*, LAB+3, LAB+4, LAB+5, LAB+6, LAB+7, LAB+8, LAB+9, LAB+10
, LAB+11, LAB+12, LAB+13, DD+2*, DD+3, DT*
>> X1 SROAPCA4+9*
>> X2 SROAPCA4+9*
>> Y LAB+3*, LAB+4*, LAB+5*, LAB+6*, LAB+7*, LAB+8*, LAB+9*, LAB+10*, LAB+11*, LAB+12*
, LAB+13*, DT
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