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

Package: Medicine

Routine: MCRPEC


Information

MCRPEC ;HCIOFO/JCC-ECHO Report Print ;4/28/97 10:55

Source Information

Source file <MCRPEC.m>

Entry Points

Name Comments DBIA/ICR reference
PAGE ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"AGE: ",MCAGE,?25,"SEX: ",$S(MCSEX="M":"MALE",1:"FEMALE"),?50,"WARD/CLINIC: ",MCWAR
  • Line Location: MCRPEC+10
Function Call: WRITE
  • Prompt: !,"HEIGHT (INCH): ",MCHTS,?25,"WEIGHT (POUND): ",MCLBS,?50,"BSA: ",MCBSA
  • Line Location: MCRPEC+14
Function Call: WRITE
  • Prompt: !!,"TEST RESULTS:"
  • Line Location: MCRPEC+16
Function Call: WRITE
  • Prompt: !!,"M-MODE MEASUREMENTS"
  • Line Location: MCRPEC+23
Function Call: WRITE
  • Prompt: ?20,$J(MCP7,4)," (40-55mm)"
  • Line Location: MCRPEC+25
Function Call: WRITE
  • Prompt: ?60,$J(MCP9,4)," (0-10mm)"
  • Line Location: MCRPEC+26
Function Call: WRITE
  • Prompt: ?20,$J(MCP8,4)," (25-30mm)"
  • Line Location: MCRPEC+28
Function Call: WRITE
  • Prompt: ?60,$J(MCP3,4)," (25-35mm)"
  • Line Location: MCRPEC+29
Function Call: WRITE
  • Prompt: ?20,$J(MCP19,4)," (25-45%)"
  • Line Location: MCRPEC+31
Function Call: WRITE
  • Prompt: ?60,$J(MCP4,4)," (20-35mm)"
  • Line Location: MCRPEC+32
Function Call: WRITE
  • Prompt: ?20,$J(MCP1,4)," (8-11mm)"
  • Line Location: MCRPEC+34
Function Call: WRITE
  • Prompt: ?60,$J(MCP5,4)," (10-25mm)"
  • Line Location: MCRPEC+35
Function Call: WRITE
  • Prompt: ?20,$J(MCP2,4)," (8-11mm)"
  • Line Location: MCRPEC+37
Function Call: WRITE
  • Prompt: ?60,$J(MCP6,4)," (2-4mm)"
  • Line Location: MCRPEC+38
Function Call: WRITE
  • Prompt: ?20,$J(MCP328,4,0)
  • Line Location: MCRPEC+40
Function Call: WRITE
  • Prompt: !!,"2-D ECHO MEASUREMENTS"
  • Line Location: MCRPEC+46
Function Call: WRITE
  • Prompt: ?19,$J(MCP32,5,0),"%"
  • Line Location: MCRPEC+48
Function Call: WRITE
  • Prompt: $J(MCP11,4)," ml"
  • Line Location: MCRPEC+49
Function Call: WRITE
  • Prompt: $J(MCP10,4)," ml"
  • Line Location: MCRPEC+50
Function Call: WRITE
  • Prompt: ?20,$J(MCP5,5,0)," ml/min"
  • Line Location: MCRPEC+52
Function Call: WRITE
  • Prompt: ?19,$J(MCP4,5,0),"%"
  • Line Location: MCRPEC+54
Function Call: WRITE
  • Prompt: !,?4,$$GET1^DIQ(691.04,D1_","_MCIEN_",",.01),", ",$$GET1^DIQ(691.04,D1_","_MCIEN_",",1)
  • Line Location: MCRPEC+60
Function Call: WRITE
  • Prompt: !,?4,$$GET1^DIQ(691.05,D1_","_MCIEN_",",.01),", ",$$GET1^DIQ(691.05,D1_","_MCIEN_",",1)
  • Line Location: MCRPEC+75
Function Call: WRITE
  • Prompt: ?20,$J(MC347,5)," mm Hg"
  • Line Location: MCRPEC+77
Function Call: WRITE
  • Prompt: ?65,$J(MC353,5)," mm Hg"
  • Line Location: MCRPEC+78
Function Call: WRITE
  • Prompt: ?20,$J(MCP7,5,0)," mm Hg"
  • Line Location: MCRPEC+80
Function Call: WRITE
  • Prompt: ?65,$J(MCP12,5,0)," mm Hg"
  • Line Location: MCRPEC+81
Function Call: WRITE
  • Prompt: ?20,$J(MCP8,5,1)," cm-sq"
  • Line Location: MCRPEC+83
Function Call: WRITE
  • Prompt: ?65,$J(MC3565,5,1)," cm-sq"
  • Line Location: MCRPEC+84
Function Call: WRITE
  • Prompt: ?20,$J(MCP9,5,0)," mm Hg"
  • Line Location: MCRPEC+86
Function Call: WRITE
  • Prompt: ?65,$J(MCP14,5,1)," cm-sq"
  • Line Location: MCRPEC+87
Function Call: WRITE
  • Prompt: !!,"FINDINGS:"
  • Line Location: MCRPEC+89
Function Call: WRITE
  • Prompt: !,?4,$$GET1^DIQ(691.06,D1_","_MCIEN_",",.01)
  • Line Location: MCRPEC+91
Function Call: WRITE
  • Prompt: !!,"DIAGNOSIS:"
  • Line Location: MCRPEC+93
Function Call: WRITE
  • Prompt: !,?4,$$GET1^DIQ(691.15,D1_","_MCIEN_",",.01)
  • Line Location: MCRPEC+95
Function Call: WRITE
  • Prompt: !!,"OTHER CONCLUSION:"
  • Line Location: MCRPEC+97
Function Call: WRITE
  • Prompt: !,?4,$$GET1^DIQ(691.07,D1_","_MCIEN_",",.01)
  • Line Location: MCRPEC+99
Function Call: WRITE
  • Prompt: !!,"CARDIOLOGY ATTENDING:",?26,MCPAT
  • Line Location: MCRPEC+102
Function Call: WRITE
  • Prompt: !!,"CARDIOLOGY FELLOW:",?26,MCPAT
  • Line Location: MCRPEC+105
Function Call: WRITE
  • Prompt: !!,"SUMMARY:",!,?4,$$GET1^DIQ(691,MCIEN,.03)
  • Line Location: MCRPEC+107
Function Call: WRITE
  • Prompt: !!,"PROCEDURE SUMMARY:",!,?4,$P($G(^MCAR(691,MCIEN,.2)),U,2)
  • Line Location: MCRPEC+109

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^SC - [#44] GET1^DIQ
^MCAR(691 - [#691] GET1^DIQ
691.04 GET1^DIQ
691.05 GET1^DIQ
691.06 GET1^DIQ
691.15 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call