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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: MCARE

Package: Medicine

Routine: MCARE


Information

MCARE ;WISC/RMP-EDIT ROUTINES ;1/23/03 20:45

Source Information

Source file <MCARE.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Medicine 7 EN4^MCARATVE  EN^MCARD  DATE^MCAREH  (IN,OUT)^MCEO  BACKSS^MCESEDT  ($$ESTONUM,$$PREEDIT,ESRC)^MCESSCR  $$RACECDE^MCPFTSS  
VA FileMan 3 (,IX)^DIC  FILE^DIE  $$GET1^DIQ  
Registration 1 (DEM,KVAR)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 26

Package Total Caller Graph
Medicine 26 MCARGD  MCARGE  MCARGES  MCBSCATH  MCBSECG  MCBSECHO  MCBSEP  MCBSETT  
MCBSHEM  MCBSHOLTER  MCBSNONENDO  MCBSPFT  MCEF  MCENV00  MCESCONV  MCFSCATH  
MCFSECG  MCFSECHO  MCFSEP  MCFSETT  MCFSHEM  MCFSHOLTER  MCFSNONENDO  MCFSPFT  
MCPFTE  MCPFTI  

Entry Points

Name Comments DBIA/ICR reference
ENTER ;ENTER NEW CARDIAC PROCEDURES (SCREEN HANDLER)
DATE ;SELECT PROCEDURE DATE
EXIT ;
EXISTS ;
BACK ; If the record is superseded, the user will be allow to edit the superseded record.
HELP
EDIT
ECGCH ;S:$D(^MCAR(691.5,DJDN,"A")) DJSC="MCARECGA" Q
CENTER(TEXT,MGN) ;
MCEPROC ; Get the required variables from the PROCEDURE/SUBSPECIALTY file
MCPROP(MCPROP) ;

External References

Name Field # of Occurrence
^DIC DATE+4, EDIT+5
IX^DIC EDIT+11
FILE^DIE EXISTS+19
$$GET1^DIQ EXISTS+16
EN4^MCARATVE EXISTS+13
EN^MCARD EXISTS+10, EDIT+12
DATE^MCAREH DATE+3
IN^MCEO EXISTS+8, EDIT+12
OUT^MCEO EXISTS+12, EDIT+12
BACKSS^MCESEDT EXISTS+10
$$ESTONUM^MCESSCR EXISTS+5
$$PREEDIT^MCESSCR DATE+1
ESRC^MCESSCR EXISTS+4, EXISTS+5, EXISTS+14
$$RACECDE^MCPFTSS EXISTS+3
DEM^VADPT EDIT+9
KVAR^VADPT EXIT+1, EDIT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"ENTER A NEW PROCEDURE DATE"
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,MCARDE," PROCEDURES"
  • Line Location: EDIT+6
Function Call: WRITE
  • Prompt: $J("",MGN-$L(TEXT)/2),TEXT
  • Line Location: CENTER+1
Routine Call
  • DIC
  • Line Location:
    • DATE+4
    • EDIT+5
Routine Call
  • DIC
  • Line Location:
    • EDIT+11
Routine Call
  • DIE
  • Line Location:
    • EXISTS+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^MCAR(690 - [#690] Classic Fileman Calls
^MCAR(700 - [#700] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" EXISTS+11
^DD( MCEPROC+12
^DIC - [#1] ENTER+3, MCEPROC+16
^MCAR( EXISTS+4, EXISTS+10, EXISTS+13
^MCAR(697.2 - [#697.2] ENTER+6, EDIT+10, MCEPROC+6, MCEPROC+7, MCPROP+3
^XUSEC( MCEPROC+10

Label References

Name Line Occurrences
@( EXISTS+11
BACK EXISTS+4, EXISTS+5
DATE HELP
ECGCH EDIT+12
EXISTS DATE+6, BACK+2
EXIT HELP, EDIT+5, EDIT+12, EDIT+13
MCEPROC ENTER+2

Naked Globals

Name Field # of Occurrence
^(0 EDIT+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT+4!, EXIT+6!
%H EXIT+4!
%T EXIT+5!
%X EXIT+4!
%Y EXIT+4!
%Y1 EXIT+4!
%Y2 EXIT+4!
C EXIT+7!
CD EXIT+7!
CNT MCPROP+1~, MCPROP+3*
D EDIT+10*, EDIT+12!
D0 EXIT+4!
D1 EXIT+4!
D2 EXIT+4!
DA EXIT+6!, BACK+1*
DFN EXIT+3!, EXIT+6!, EXISTS+1*, EXISTS+3, EDIT+8*
DI EXIT+4!
DIC ENTER+3*, ENTER+5, DATE+4!, EXIT+2!, EXIT+6!, BACK+1!, EDIT+5*, EDIT+10*, EDIT+12, MCEPROC+16*
DIC("DR" MCEPROC+11, MCEPROC+15*
DIC("S" DATE+1*, EDIT+4*, EDIT+10*, EDIT+12!, MCEPROC+19*
DIC("W" EDIT+10*, EDIT+12!
DIC(0 ENTER+5*, EDIT+5*, EDIT+11*, MCEPROC+16*
DIDEL ENTER+5*, EXIT+3!, EXIT+9!, EXISTS+12!, EDIT+10*, MCEPROC+16*
DIE EXIT+2!, EXIT+6!
DIH EXIT+7!
DIK EXIT+6!
DIPGM EXIT+5!
DIR EXIT+7!
DIROUT BACK+1!
DIU EXIT+7!
DIV EXIT+7!
DIW EXIT+4!
DIWI EXIT+4!
DIWT EXIT+4!
DIWTC EXIT+4!
DIWX EXIT+4!
DIZ EXIT+4!
DJDN EXIT+2!, EXISTS+2*, EXISTS+7, EDIT+12*
DJSC ENTER+4*, EXIT+2!, EDIT+10*
DJVV EXIT+5!
DLAYGO ENTER+5*, DATE+4!, EXIT+3!, MCEPROC+16*
DN EXIT+4!
DQ EXIT+4!
DR EXIT+2!, EXIT+6!
DTOUT EXIT+5!, EXIT+9!, EXISTS+9, BACK+1!, EDIT+12
DUOUT EXIT+5!, EXIT+9!, EXISTS+9, BACK+1!, EDIT+12
DUZ MCEPROC+10, MCEPROC+15
DW1 EXIT+5!
DX EXIT+7!
DZ EXIT+7!
EXIT EXIT+9!
I EXIT+5!
ID MCEPROC+1~*, MCEPROC+11*, MCEPROC+12*, MCEPROC+13, MCEPROC+14
ID2 EXIT+5!, MCEPROC+1~*, MCEPROC+14*, MCEPROC+15
ID3 MCEPROC+1~, MCEPROC+11*, MCEPROC+14
ID4 MCEPROC+1~, MCEPROC+13*, MCEPROC+14
ID5 MCEPROC+1~, MCEPROC+13*, MCEPROC+14
J EXIT+5!
MCARAPDT EXIT+7!
MCARCDIE EXIT+7!
MCARCK EXIT+10!
MCARCODE EXIT+6!, MCEPROC+18*
MCARDA EXIT+10!
MCARDE EXIT+3!, EXIT+10!, EXIT+12!, EDIT+6, MCEPROC+8*
MCARFIND EXIT+7!
MCARGDA EXIT+2!, EXISTS+2*, EXISTS+4, EXISTS+5, EXISTS+10, EXISTS+13, EXISTS+14, EXISTS+16, EXISTS+18, EDIT+12*
MCARGNAM ENTER+6*, EXIT+6!, MCEPROC+6*
MCARGNUM ENTER+3*, EXIT+2!, EXIT+6!, EDIT+2*, MCEPROC+6*
MCARI EXIT+8!
MCARLK EDIT+2*, EDIT+3*, EDIT+5!
MCARNM EXIT+3!, EDIT+9*, EDIT+11
MCARNP EXIT+9!
MCARNUM EXIT+3!
MCAROLDT EXIT+7!
MCARP ENTER+3, ENTER+6*, EXIT+2!, EXIT+10!, EXIT+12!, EDIT+2, EDIT+10, MCEPROC+6*, MCEPROC+7
MCARPT EXIT+2!, EDIT+8*
MCARTOT EXIT+9!
>> MCARZDN EXISTS+7*, EDIT+12*
MCBACK EXIT+9!, EXISTS+4, EXISTS+5, EXISTS+10!
MCBOUGIE EXIT+8!
>> MCBS EDIT+10
MCDFLAG EXIT+8!
>> MCEPROC ENTER+4, MCEPROC+20*, MCEPROC+21*, MCEPROC+22
MCESCUR EXIT+10!
MCESFL EXIT+9!
MCESKEY EXIT+10!, EXIT+12!, MCEPROC+9*, MCEPROC+10
MCESON DATE+1, EXIT+10!, EXIT+12!, EXISTS+4, EXISTS+5, MCEPROC+9*, MCEPROC+10
MCESPED EXIT+11!
MCESPREV EXIT+9!
MCESS EXIT+5!, EXIT+11!, EXIT+12!, MCEPROC+7*
MCESSEC EXIT+11!, MCEPROC+10*
MCESTEMP EXIT+10!
MCFDA EXISTS+17~
MCFDA(700 EXISTS+18*
MCFILE ENTER+3, DATE+1, EXIT+3!, EXIT+11!, EXISTS+3, EXISTS+4, EXISTS+5, EXISTS+7, EXISTS+10, EXISTS+13
, EXISTS+14, EDIT+2, EDIT+10*, MCEPROC+8*, MCEPROC+12, MCEPROC+16, MCEPROC+17, MCEPROC+22
MCFILE1 EXIT+11!
MCGTUBE EXIT+8!
MCHEATP EXIT+8!
MCJTUBE EXIT+8!
MCORCK EXIT+6!
MCPATFLD EXIT+11!, MCEPROC+9*
MCPCT EXIT+12!
MCPCTY EXIT+12!
MCPOSTP EXIT+11!, EXISTS+11, MCEPROC+22*
>> MCPRO MCEPROC+6, MCEPROC+18, MCEPROC+20
MCPROP MCPROP~, MCPROP+2, MCPROP+3
MCRACE EXIT+3!, EXISTS+3*!, EXISTS+15
MCROUT EXIT+11!, MCEPROC+8*
MCSEX EXIT+3!
MCSPHIN EXIT+8!
MCSTENT EXIT+8!
MCX EXIT+6!
MCY BACK+1!
MCY(0 BACK+1
MGN CENTER~, CENTER+1
OPTION MCEPROC+1~, MCEPROC+7*, MCEPROC+20, MCEPROC+21
POP EXIT+12!
PREFIX MCPROP+1~, MCPROP+2*, MCPROP+3
S EXIT+7!
SSN EXIT+6!
TEMP MCEPROC+1~, MCEPROC+7*, MCEPROC+8, MCEPROC+9, MCEPROC+21, MCPROP+1~, MCPROP+4
TEP EXIT+12!
TEXT CENTER~, CENTER+1
U ENTER+6, EXISTS+1, EXISTS+2, HELP, EDIT+3, EDIT+10, EDIT+12, MCEPROC+7, MCEPROC+8, MCEPROC+9
, MCEPROC+21
>> USEREND ENTER+4*
VA EXIT+5!
>> VADM(1 EDIT+9
X EXIT+2!, EXISTS+11*, HELP, EDIT+11*
X1 EXIT+5!
>> XQY0 MCEPROC+7
XX EXIT+7!
Y DATE+6, EXIT+2!, EXIT+5!, EXISTS+2, BACK+1*, EDIT+5, EDIT+8, EDIT+12
Y(0 EXISTS+1, BACK+1*
Z EXIT+5!
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 |  Naked Globals |  Local Variables  | All