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

Package: Medicine

Routine: MCARPS


Information

MCARPS ;WISC/TJK,RCH-PROCEDURE SUMMARY REPORTS ;6/18/97 10:53

Source Information

Source file <MCARPS.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Medicine 2 MCPPROC^MCARP  ^MCARPS1  
Registration 1 (DEM,INP,KVAR)^VADPT  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Medicine 1 MCARSUMMARY  

Entry Points

Name Comments DBIA/ICR reference
PR
LOC ;LOCATE PROCEDURES FROM "AC" X-REF
HELP
PROC
TOP
NEW
BEG ;SEARCH FOR SELECTED PATIENT IN CARDIOLOGY FILE
REDISP
PR1
PR0
EXP
PR2
EXIT
FIN
EXP1
CHOOZ

External References

Name Field # of Occurrence
^%ZIS PR
^%ZISC FIN
^%ZTLOAD PR+2
^DIC BEG+3, PROC+2
MCPPROC^MCARP EXP1
^MCARPS1 LOC+3
DEM^VADPT BEG+8
INP^VADPT BEG+9
KVAR^VADPT BEG+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO PROCEDURES FOR THIS PATIENT"
  • Line Location: LOC+1
Function Call: WRITE
  • Prompt: !!,"NO ",$P(@(U_S5_",0)"),U,1)," PROCEDURES FOR THIS PATIENT"
  • Line Location: LOC+2
Function Call: WRITE
  • Prompt: !!,*7,"Report Queued"
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: !,$J(L,2),?4,MCARPROC,?36,Y,?56,$E(K,1,22)
  • Line Location: PR2+6
Function Call: WRITE
  • Prompt: !,?1,M
  • Line Location: PR2+6
Function Call: WRITE
  • Prompt: !,$J(L,2),?4,MCARPROC,?36,Y,?56,$E(K,1,22)
  • Line Location: PR2+7
Function Call: WRITE
  • Prompt: !,?1,M
  • Line Location: PR2+7
Function Call: WRITE
  • Prompt: @IOF,!,"NAME: ",MCARNM,?35,"SSN: ",SSN,?55,"WARD: ",$E(WARD,1,19)
  • Line Location: TOP+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TOP+1
Function Call: WRITE
  • Prompt: !!,"(SUBSPECIALTY)/PROCEDURE",?36,"DATE",?56,"RESULTS"
  • Line Location: TOP+2
Function Call: WRITE
  • Prompt: !,M
  • Line Location: TOP+2
Function Call: READ
  • Timeout: DTIME
  • Variable: R
  • Line Location: EXP+0
Function Call: WRITE
  • Prompt: @IOF,!!
  • Line Location: EXP1+0
Function Call: WRITE
  • Prompt: !,$J(MCRED,2),?4,$P(MCRED1,U),?36,$P(MCRED1,U,6),?56,$E($P(MCRED1,U,7),1,22),!,?1,$P(MCRED1,U,10)
  • Line Location: REDISP+1
Function Call: WRITE
  • Prompt: !,"You may sort this report by date or procedure.",!,"If you choose 'D' (date) all medical procedures will be displayed starting",!,"with the most recent procedure."
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,"If you choose 'P' (procedure), you may specify in the next prompt either a",!,"specific procedure or 'ALL' procedures, alphabetically arranged with the most",!,"recent of that type of procedure displayed first."
  • Line Location: HELP+1
Routine Call
  • DIC
  • Line Location:
    • BEG+3
    • PROC+2
Routine Call
  • %ZIS
  • Line Location:
    • PR

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PR2+7
^MCAR(690 - [#690] LOC+1
^MCAR(697.2 - [#697.2] PR2+2
^TMP("MAG" EXIT+4!
^TMP("MCAR" PR1, PR2, PR2+7*, EXP+1, EXP1, EXIT+2!, REDISP+1

Label References

Name Line Occurrences
@( NEW
BEG CHOOZ+1, LOC+1, LOC+2
CHOOZ CHOOZ+1, BEG+1
EXIT PR, EXP
EXP PR1, PR2+8, EXP1+2
EXP1 EXP+1
FIN PR+2, PR1, EXP, EXP+2
HELP CHOOZ+1
NEW EXP1+2
PR1 PR1, PR2
PR2 PR2+9, EXP+2
PROC BEG+1, PROC+3
REDISP EXP1+2
TOP PR0, PR2+8, EXP+2, REDISP

Naked Globals

Name Field # of Occurrence
^( PR2+1, PR2+7*, REDISP+1
^("COL" EXIT+4!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS PR*!
DA PR2+4*, PR2+7, EXP1*, EXIT+1!
DFN BEG+8*, LOC+1, LOC+2, EXIT+1!, NEW~
DIC BEG+2*, BEG+3!, PROC+2*
DIC(0 BEG+2*, PROC+2*
DTIME CHOOZ, EXP, PROC
DXS EXP1+2!
I PR0*, PR1*, PR2, PR2+1, PR2+7, EXP+2, EXIT+1!, NEW~
IO PR+3
IO("Q" PR!, PR+1!, EXIT+1!
IOF TOP, EXP1, FIN
IOSL PR2+8
IOST PR1, PR2+8, FIN
J PR1+1*, PR2*, PR2+1, PR2+7, EXIT+1!, NEW~
K PR2+4*, PR2+5*, PR2+7, EXIT+2!
L PR0*, PR2+7*, EXP, EXIT+1!, NEW~, REDISP
LL EXIT+1!
LL1 EXIT+1!
LN PR2+8*, TOP+3*, EXP, EXIT+1!, REDISP+1*
M PR2+4*, PR2+7, TOP+2*, EXIT+2!
MCARDT PR2+1*, PR2+7, EXIT+2!
>> MCARGDA EXP1*
MCARGRTN EXP1+1*, EXIT+1!
MCARNM BEG+8*, TOP, EXIT+2!
MCARPPS EXP1*, EXIT+1!, NEW
MCARPROC PR2+1*, PR2+2*, PR2+3*, PR2+7, EXIT+2!
MCL REDISP*, REDISP+1, REDISP+2!
>> MCPRO EXP1*
MCRED REDISP+1*, REDISP+2!
MCRED1 REDISP+1*, REDISP+2!
N EXIT+2!
OT EXP1*, EXP1+1, EXIT+1!
PE PROC!, PROC+3*
POP PR, EXIT+1!
PR PR2+1*, PR2+3, PR2+4, PR2+7, EXIT+1!
R EXP*, EXP+1, EXP1, EXIT+1!
S1 EXIT+1!
S2 EXIT+1!
S4 EXIT+1!
S5 CHOOZ!, BEG+1, LOC+2, EXIT+1!, PROC!*, PROC+1!, PROC+2, PROC+3*
S6 EXIT+1!
SSN BEG+8*, TOP, EXIT+2!, NEW~
U BEG+1, BEG+9, LOC+2, PR2+1, PR2+2, PR2+3, PR2+4, PR2+7, EXP, EXP1
, EXP1+1, REDISP+1, PROC+1, PROC+3
>> VA("PID" BEG+8
>> VADM(1 BEG+8
>> VAIN(4 BEG+9
WARD BEG+9*, TOP, EXIT+2!
WH CHOOZ*, CHOOZ+1*, CHOOZ+2!, BEG+1, BEG+3!, PR2+1, PR2+7
X CHOOZ+2!, PROC+2*
Y CHOOZ+2!, BEG+3!, BEG+8, PR2+7*, PROC+3
Y(0 PROC+3
>> ZTDESC PR+1*
>> ZTQUEUED EXIT
>> ZTREQ EXIT*
>> ZTRTN PR+1*
>> ZTSAVE("DFN" PR+2*
>> ZTSAVE("MC*" PR+2*
>> ZTSAVE("SSN" PR+2*
>> ZTSAVE("WARD" PR+2*
>> ZTSAVE("WH" PR+2*
>> ZTSAVE("^TMP(""MCAR"",$J," PR+2*
ZTSK PR+2!, EXIT!
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