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

Package: Medicine

Routine: MCARGD


Information

MCARGD ;WISC/TJK-DIAGNOSIS FILTER ;3/11/96 12:06

Source Information

Source file <MCARGD.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Medicine 7 MCEPROC^MCARE  BACK^MCARGE  (ORDER,ORDER1)^MCARGEO  POST^MCESEDT  ($$ESTONUM,$$PREEDIT,ESRC)^MCESSCR  QTASK^MCPARAM  ^MCWORKLD  
VA Fileman 3 ^DIC  ^DIE  ^DIR  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Medicine 4 MCARGE  MCARGES  MCARGIDIAG  MCARPULMDIAG  

Entry Points

Name Comments DBIA/ICR reference
LIST
ARR
DPT ;
PRIM
SECSET
EDIT
PROC
REV
EXIT ;
EN1 ;CALLED BY X-REF TO DELETE SECONDARY DIAGNOSIS WHEN IMPRESSION IS DELETED
SEC
SECSET1
PRIM2
PRIM1
ENTERED
COM
CHECK

External References

Name Field # of Occurrence
^DIC DPT+7
^DIE PRIM2, COM+2, REV+1, EDIT, SECSET1
^DIR PRIM+3
MCEPROC^MCARE DPT+2
BACK^MCARGE DPT+11
ORDER^MCARGEO DPT+13
ORDER1^MCARGEO DPT+14
POST^MCESEDT DPT+15
$$ESTONUM^MCESSCR DPT+10
$$PREEDIT^MCESSCR DPT+5
ESRC^MCESSCR DPT+10
QTASK^MCPARAM DPT+14
^MCWORKLD DPT+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(MCDFLAG)
  • Line Location: PROC+0
Function Call: WRITE
  • Prompt: !!?33,"DIAGNOSIS ENTRY",!?33,"--------------",!!
  • Line Location: PROC+0
Function Call: READ
  • Timeout: DTIME
  • Variable: Z
  • Line Location: PRIM1+0
Function Call: WRITE
  • Prompt: !,*7,"Enter Number of Diagnosis That You Wish to Use as Primary Diagnosis",!,"Hit Return if you do not wish to enter any of above"
  • Line Location: PRIM1+1
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: PRIM1+2
Function Call: WRITE
  • Prompt: !,$P(^MCAR(697.5,X,0),U)
  • Line Location: PRIM2+0
Function Call: WRITE
  • Prompt: !!,"Enter Number of Secondary Diagnosis or 'ALL' to enter all: "
  • Line Location: SEC+1
Function Call: READ
  • Timeout: DTIME
  • Variable: Z
  • Line Location: SEC+2
Function Call: WRITE
  • Prompt: !,*7,"Enter Number of Diagnosis from above list or enter 'ALL' for All Diagnoses to be entered as a secondary diagnosis."
  • Line Location: SEC+3
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: SEC+4
Function Call: WRITE
  • Prompt: !,X
  • Line Location: SECSET1+0
Function Call: WRITE
  • Prompt: !!,"Possible ",MCARTY," Diagnoses are: "
  • Condition for execution: J=1
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !,J,". ",$P(^MCAR(697.5,K,0),U)
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: " ****ENTERED****"
  • Line Location: ENTERED+0
Routine Call
  • DIE
  • Line Location:
    • PRIM2
    • COM+2
    • REV+1
    • EDIT
    • SECSET1
Routine Call
  • DIC
  • Line Location:
    • DPT+7
Routine Call
  • DIR
  • Line Location:
    • PRIM+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^MCAR(699 - [#699] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MCAR( DPT+15
^MCAR(697.2 - [#697.2] DPT+12
^MCAR(697.5 - [#697.5] PRIM2, SECSET, LIST
^MCAR(699 - [#699] PROC, REV, SECSET, SECSET+1, SECSET+2, SECSET+3*, ARR+1, CHECK, CHECK+1, ENTERED
, EN1+2, EN1+3!, EN1+4

Label References

Name Line Occurrences
ARR PROC+1, SEC
CHECK ARR+1
COM PROC+1, SEC, SEC+2, SEC+3
EDIT PROC
ENTERED LIST
EXIT MCARGD+2, PRIM+4, PRIM1, PRIM2, SEC+2, SEC+5, COM+2, REV, REV+1, EDIT
, DPT+8, DPT+10, DPT+13
LIST ARR+1
PRIM1 PRIM, PRIM1+1, PRIM1+2
PRIM2 PRIM+6
PROC DPT+14
SEC PRIM+4, PRIM1+2, SEC+4, SEC+5, EDIT+1
SECSET SEC+2, SEC+5
SECSET1 SECSET+1

Naked Globals

Name Field # of Occurrence
^( SECSET+1, ARR+1
^(0 SECSET+3*, ARR+1, EN1+4*
^(204 CHECK+1
^(27 SECSET*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT+1!
%Y EXIT+1!
%Y1 EXIT+1!
%Y2 EXIT+1!
A ARR!, EXIT+1!
A( LIST*
C EXIT+1!
D EXIT+1!
D0 EXIT+1!
DA PROC*, COM!*, SECSET+1*, SECSET+2*, SECSET+3, EXIT+1!
DA(1 SECSET*, EN1+2, EN1+3, EN1+4
>> DFN DPT+12*
DI EXIT+1!
DIC PROC*, COM!, SECSET!, DPT+3*, EXIT+1!
DIC("A" DPT+6*, DPT+7!
DIC("S" DPT+4*, DPT+5*, DPT+7!
DIC(0 DPT+3*
DIE PROC*, COM!*, SECSET!*, EXIT+1!
DIPGM EXIT+1!
>> DIR("A" PRIM+1*
>> DIR("B" PRIM+2*
>> DIR(0 PRIM+2*
>> DIRUT PRIM+4
DQ EXIT+1!
DR PRIM2*, SEC!, COM!*, REV+1!*, EDIT*, SECSET!, SECSET+1*, SECSET+2*, EXIT+1!
DTIME PRIM1, SEC+2
>> DTOUT MCARGD+2, PRIM2, SEC+5, COM+2, EDIT, DPT+13
>> DUOUT MCARGD+2, DPT+13
I ARR+1*, EXIT+1!, EN1+1~, EN1+2*, EN1+3, EN1+4*
IOF PROC
J PRIM, PRIM1, ARR*, LIST*, EXIT+1!, EN1+1~, EN1+4*
K ARR+1*, CHECK+1, LIST, ENTERED, EXIT+1!
MCARCODE DPT+1, EXIT+1!
MCARGDA PROC, COM, REV, SECSET, SECSET+1, SECSET+2, SECSET+3, ARR+1, CHECK, CHECK+1
, ENTERED, DPT+9*, DPT+10, DPT+12*, DPT+15, DPT+16!
>> MCARGNAM DPT+12*
MCARGNON DPT+16!
MCARGNUM DPT+9*, DPT+12*, DPT+16!
MCARTY PROC*, SEC*, LIST, EXIT+1!
>> MCBACK DPT+10, DPT+11
>> MCDFLAG PROC
>> MCESON DPT+5, DPT+10
MCFILE DPT+3*, DPT+5, DPT+9*, DPT+10, DPT+15, DPT+16!
>> MCPRO DPT+1*
MCPROV EXIT+1!
U PRIM1, PRIM2, SEC+2, SECSET, SECSET+3, ARR+1, LIST, DPT+9, DPT+12, DPT+15
, EN1+4
UNSIGNED DPT+15*, DPT+16!
V PROC+1, SEC, ARR!, EXIT+1!
V( PRIM1+2, PRIM2, SEC+2, SEC+4, SECSET, SECSET+1, SECSET+2, LIST*
X PRIM2*, SECSET*, SECSET1, EXIT+1!, EN1+2, EN1+3
Y PRIM+4, PRIM2, SEC+5, COM+2, EDIT, DPT+8, DPT+9, DPT+12, EXIT+1!
Y(0 DPT+9, DPT+12
Z PRIM+5*, PRIM1*, PRIM1+1, PRIM1+2, PRIM2, SEC+2*, SEC+3, SEC+4, SEC+5, EXIT+1!
ZI SEC+2*, SEC+3!, SEC+5*!, SECSET, SECSET+1, SECSET+2, EXIT+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 |  Naked Globals |  Local Variables |  All