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

Package: Medicine

Routine: MCRH1


Information

MCRH1 ;WISC/HAG-RHEUMATOLOGY PATIENT HISTORY EDIT ;7/3/96 09:13

Source Information

Source file <MCRH1.m>

Call Graph

Call Graph Total: 21

Package Total Call Graph
Medicine 11 EN^MCARD  CONSULT^MCARGE  CONSULT^MCARGES  CONSULT^MCARGP  (RHFULL,RHPRT)^MCARP  EN1^MCARSUP  EN1^MCMAG  (ORDER,QTASK)^MCPARAM  
$$ETHN^MCPFTP1  DOIT^MCPSOP  ^MCRH3  
VA Fileman 6 ^DIC  YN^DICN  ^DIE  ^DIK  GETS^DIQ  EN^DIQ1  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 1 (DEM,KVAR)^VADPT  

Caller Graph

Caller Graph Total: 28

Package Total Caller Graph
Medicine 28 MCRHALLP  MCRHBACKF  MCRHBACKP  MCRHBRIEF  MCRHDEATHF  MCRHDEATHL  MCRHDEATHP  MCRHDELVISIT  
MCRHDIAGF  MCRHDIAGL  MCRHDIAGP  MCRHHAQF  MCRHHAQL  MCRHHAQP  MCRHLABF  MCRHLABP  
MCRHNARRF  MCRHNARRL  MCRHNARRP  MCRHPATHIST  MCRHPATHISTF  MCRHPATHISTL  MCRHPATHISTP  MCRHPHYS  
MCRHPHYSF  MCRHPHYSL  MCRHPHYSP  MCRHTREAT  

Entry Points

Name Comments DBIA/ICR reference
CONSP
DISP
NARRF
CONS
NARRL
PHYSL
LIN
BACKP
ORDERA
BRIEFF
BRIEFL
CONSS
NARRP
PHYSP
BACKF
DIAGF
FUL
ORDER
PRT
ALLP
EXIT
SEL ; Visit Date Selection
LOCK ;LOCK GLOBAL THAT IS BEING ACCESSED BY ANOTHER USER
DEATHP
LABF
HAQL
HISTP
HAQF
DIAGL
DIAGP
LABP
IM
HISTL
DEATHL
HAQP
QSTART
HISTF
USURE
GETLAB ;
TRETF
DEATHF
QUE
GETDATA ; Get Patient Demographic data
PHYSF
DEL ;DELETE RHEUMATOLOGY VISIT
ORDER1
MCRHMED

External References

Name Field # of Occurrence
^%ZIS QUE
HOME^%ZIS PRT+4
^%ZISC QSTART+3
^%ZTLOAD QUE+1
^DIC PRT+1, DEL+4, GETLAB+2
YN^DICN DISP, USURE
^DIE LIN
^DIK USURE+1
GETS^DIQ GETDATA+7
EN^DIQ1 QSTART+2
EN^MCARD FUL+2, DISP+1
CONSULT^MCARGE CONS
CONSULT^MCARGES CONSS
CONSULT^MCARGP CONSP
RHFULL^MCARP PRT
RHPRT^MCARP QSTART+3
EN1^MCARSUP MCRHMED
EN1^MCMAG IM
ORDER^MCPARAM ORDER
QTASK^MCPARAM LIN, FUL+1, FUL+2
$$ETHN^MCPFTP1 PRT+2
DOIT^MCPSOP PRT+3
^MCRH3 FUL+1
DEM^VADPT PRT+1
KVAR^VADPT EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !!,"Would you like a display of the data for this visit"
  • Line Location: DISP+0
Function Call: WRITE
  • Prompt: !,"Nothing Deleted"
  • Line Location: USURE+0
Function Call: READ
  • Timeout: 2
  • Variable: X
  • Line Location: USURE+1
Function Call: WRITE
  • Prompt: !!,"Entry deleted."
  • Line Location: USURE+1
Function Call: WRITE
  • Prompt: !!,*7,"THIS ENTRY IS BEING EDITED BY ANOTHER USER. TRY LATER."
  • Line Location: LOCK+1
Routine Call
  • %ZIS
  • Line Location:
    • PRT+4
Routine Call
  • DIE
  • Line Location:
    • LIN
Routine Call
  • DIC
  • Line Location:
    • PRT+1
    • DEL+4
    • GETLAB+2
Routine Call
  • %ZIS
  • Line Location:
    • QUE

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GETS^DIQ
^LR - [#63] Classic Fileman Calls
^MCAR(701 - [#701] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PRT+4
^LR - [#63] GETLAB+1
^MCAR( ORDER1
^MCAR(697.2 - [#697.2] ORDERA
^MCAR(701 - [#701] FUL
^UTILITY("DIQ1" QSTART!

Label References

Name Line Occurrences
DEL DISP, USURE, USURE+1
DISP DISP
EXIT CONS, CONSS, CONSP, MCRHMED, PRT, PRT+1, PRT+4, PRT+5, LIN, FUL+1
, FUL+2, DEL+4, QUE
GETDATA PRT+2
GETLAB PRT+4
IM ORDER1
ORDER1 LIN, FUL+1, FUL+2
ORDERA LIN, FUL+1, FUL+2
QSTART PRT+4
QUE PRT+5
SEL ALLP, DIAGP, BACKP, NARRP, LABP, HAQP, HISTP, PHYSP, DEATHP, DIAGL
, NARRL, HAQL, HISTL, PHYSL, DEATHL, BRIEFL, DIAGF, BACKF, NARRF, TRETF
, LABF, HAQF, HISTF, PHYSF, DEATHF, PRT+3, PRT+4, LIN, FUL+1, FUL+2
USURE DISP

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DISP*, USURE*, EXIT!
>> %ZIS QUE*
DA PRT+1*, FUL, DEL+4*, DISP+1*, USURE+1*, QSTART*, EXIT!
DA( QSTART+2*
DA(1 GETLAB+2*, QSTART+2*
DFN PRT+1*, EXIT!, GETDATA+7, GETDATA+8, GETDATA+9, GETDATA+10, GETDATA+11, GETDATA+12, GETDATA+13, GETDATA+14
, GETDATA+15
DIC PRT+1*, DEL+2*, USURE+1*, GETLAB+2*, QSTART*, EXIT!
DIC("A" SEL+3*, DEL+1*, GETLAB+2*!
DIC("B" GETLAB+1*
DIC(0 PRT+1*, DEL+2*, GETLAB+2*
DIE LIN*, EXIT!
DIK USURE+1*, EXIT!
DJDIS PRT+4*, FUL*, DISP+1*, EXIT!
DJDN PRT+1*, FUL*, DISP+1*, GETLAB+2*, EXIT!
DJSC FUL*, DISP+1*, EXIT!
DLAYGO PRT+1*!
DR LIN*, QSTART+1*, EXIT!
DT1 EXIT!
>> DTOUT LIN, FUL+1, FUL+2, ORDER1
>> DUOUT LIN, FUL+1, FUL+2
H EXIT!
I EXIT!
IO QSTART+3
IO("Q" QUE!, QUE+1
K EXIT!
K1 EXIT!
MC0 PRT+1*!
MCARCODE CONS*, CONSS*, MCRHMED*, EXIT+1!
MCARGDA PRT+1*, EXIT+1!, ORDER1
MCARGDT GETLAB+2*, EXIT+1!
MCARGNUM EXIT+1!, ORDERA*
MCARGRTN QSTART+3*, EXIT+1!
MCARR1 PRT+2~
MCARR1(1 GETDATA+2*
MCARR1(10 GETDATA+5*
MCARR1(11 GETDATA+5*
MCARR1(12 GETDATA+6*
MCARR1(13 GETDATA+14*
MCARR1(14 GETDATA+15*
MCARR1(2 GETDATA+3*
MCARR1(3 GETDATA+8*
MCARR1(4 GETDATA+9*
MCARR1(5 GETDATA+10*
MCARR1(6 GETDATA+11*
MCARR1(7 GETDATA+12*
MCARR1(8 GETDATA+13*
MCARR1(9 GETDATA+4*
MCARR2 GETDATA+1~
MCARR2(2 GETDATA+8, GETDATA+9, GETDATA+10, GETDATA+11, GETDATA+12, GETDATA+13, GETDATA+14, GETDATA+15
MCARRC PRT+2~*, GETDATA+5
MCARZ QUE+1*, EXIT+1!
>> MCBL LIN
>> MCBS FUL
MCFILE SEL+2*, EXIT+1!, ORDER1
MCHOLD PRT+2~*
MCLABDT GETLAB+2*, QSTART+2, EXIT+1!
>> MCLRDA GETLAB+2*, QSTART, QSTART+2
MCLRDFN PRT+4*, GETLAB+1, GETLAB+2, QSTART+2, EXIT+1!
>> MCOEON ORDER, ORDER1
>> MCPRO SEL+2*
MCRH ALLP*, DIAGP*, BACKP*, NARRP*, LABP*, HAQP*, HISTP*, PHYSP*, DEATHP*, DIAGL*
, NARRL*, HAQL*, HISTL*, PHYSL*, DEATHL*, BRIEFL*, DIAGF*, BACKF*, NARRF*, TRETF*
, LABF*, HAQF*, HISTF*, PHYSF*, DEATHF*, BRIEFF*, SEL+3, PRT, PRT+1, PRT+2
, PRT+3, PRT+4, PRT+5, LIN, FUL, FUL+1, EXIT+1!, IM
MCRH1 DEL+4*, DISP+1, USURE+1, EXIT+1!
MCRHB SEL+1~, FUL*, FUL+1
MCRHL EXIT+1!
MCRHLP ALLP*, DIAGP*, BACKP*, NARRP*, LABP*, HAQP*, HISTP*, PHYSP*, DEATHP*, DIAGL*
, NARRL*, HAQL*, HISTL*, PHYSL*, DEATHL*, BRIEFL*, PRT, PRT+4, PRT+5, LIN
, EXIT+1!
MCRHY EXIT+1!
MCSEX PRT+1*, EXIT+1!
PG QSTART*, EXIT+1!
POP QUE, EXIT+1!
PSOPAR PRT+3*, EXIT+1!
STA EXIT+1!
U PRT+1, PRT+2, PRT+3, PRT+4, FUL, GETLAB+2
V LIN*!, FUL*, FUL+2!, EXIT+1!
>> VADM PRT+2
>> VADM(1 GETDATA+2
>> VADM(10 GETDATA+6
>> VADM(2 GETDATA+3
>> VADM(3 GETDATA+4
>> VADM(5 PRT+1, GETDATA+5
>> VADM(8 PRT+2
X USURE+1*, EXIT+1!
X1 EXIT+1!
>> Y PRT+1, PRT+3*, PRT+4, DEL+4, GETLAB+2, QSTART+2*
>> Y(0 PRT+1*, PRT+3, PRT+4
Z EXIT+1!
ZTDESC QUE+1*, EXIT+1!
ZTRTN QUE+1*, EXIT+1!
ZTSAVE EXIT+1!
ZTSAVE("DA" QUE+1*
ZTSAVE("DFN" QUE+1*
ZTSAVE("DT" QUE+1*
ZTSAVE("MC*" QUE+1*
ZTSK QUE+1!
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