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

Package: Medicine

Routine: MCARPAL


Information

MCARPAL ;WISC/TJK-PACEMAKER ACTIVE PATIENT LIST ;5/7/96 13:35

Source Information

Source file <MCARPAL.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 1 DEM^VADPT  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Medicine 1 MCARPACEPATIENT  

Entry Points

Name Comments DBIA/ICR reference
PRINT1
PR
HEAD
LEAD
CALC1
EXIT ;
PRINT
CALC
MANUF

External References

Name Field # of Occurrence
^%ZIS MCARPAL+8
^%ZISC EXIT+3
^%ZTLOAD MCARPAL+9
$$GET1^DIQ HEAD+2
DEM^VADPT CALC1+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"ACTIVE PATIENT LIST"
  • Line Location: MCARPAL+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: MCARPAL+3
Function Call: WRITE
  • Prompt: "*"
  • Line Location: MCARPAL+3
Function Call: WRITE
  • Prompt: !,"*",?37,"NOTICE",?79,"*"
  • Line Location: MCARPAL+4
Function Call: WRITE
  • Prompt: !,"*",?79,"*",!,"*",?10,"This report has been set up to print with a line length of 132",?79,"*",!,"*",?10,"characters. Select a device that uses a 132 character line length.",?79,"*"
  • Line Location: MCARPAL+5
Function Call: WRITE
  • Prompt: !,"*",?79,"*",!
  • Line Location: MCARPAL+6
Function Call: WRITE
  • Prompt: "*"
  • Line Location: MCARPAL+6
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: MCARPAL+7
Function Call: WRITE
  • Prompt: !!,MCARNM
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: !,$E(Y,1,3),"-",$E(Y,4,5),"-",$E(Y,6,9)
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: ?17
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: Y
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: ?29,$S(Y=1:"EAST PSC FOLLOW-UP",Y=4:"REGISTRY ONLY",Y=7:"WEST PSC FOLLOW-UP",1:"")
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: ?51,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3)
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: ?60,Y,?64,Z,?77,$P(X,U,4)
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: ?90,$S($P(X,U,5)=698.1:"V: ",1:"A: "),$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3)
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: ?102,Y,?106,Z,?119,$P(X,U,4)
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: @IOF,!!,?47,"VETERANS ADMINISTRATION MEDICAL CENTER",?120,"Pg.",PG
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,?132-$L($$GET1^DIQ(4.3,1,217))/2,$$GET1^DIQ(4.3,1,217)
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,?52,"PACEMAKER ACTIVE PATIENT LIST"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !!,"PATIENT",?51,"GENERATOR IMPLANT DATA",?93,"V AND A LEAD IMPLANT DATA"
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !,"SSN",?17,"DOB",?29,"STATUS",?51,"DATE",?60,"MFR MODEL",?77,"SER. NO.",?93,"DATE",?102,"MFR MODEL",?119,"SER. NO."
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,?51,LN,?93,LN
  • Line Location: HEAD+6
Routine Call
  • %ZIS
  • Line Location:
    • MCARPAL+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^XMB(1 - [#4.3] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MCAR( LEAD
^MCAR(690 - [#690] CALC1+1
^MCAR(698 - [#698] CALC1
^MCAR(698.4 - [#698.4] MANUF+1
^MCAR(698.6 - [#698.6] MANUF
^TMP($J CALC!, CALC1+5*, PRINT1, PRINT1+5, LEAD*, PR+1, PR+2

Label References

Name Line Occurrences
CALC1 CALC1+1, CALC1+2, CALC1+5
EXIT MCARPAL+7, MCARPAL+8, MCARPAL+9, PRINT1, PRINT1+1, PRINT1+6
HEAD PRINT, PRINT1+1, PRINT1+5
LEAD CALC1+4
MANUF PR+1, PR+2
PR PRINT1+5
PRINT CALC1
PRINT1 PRINT1+6

Naked Globals

Name Field # of Occurrence
^( PRINT1, PR+1, PR+2
^("P2" CALC1+1
^(0 MANUF, MANUF+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS MCARPAL+8*
A PRINT1+1*, PRINT1+5*, PRINT1+6, EXIT+2!
CT CALC1+4*, EXIT+2!, LEAD*
DFN CALC*, CALC1*, CALC1+1, EXIT+2!, LEAD
DIC CALC1+4*, EXIT+2!, LEAD
DOB CALC1+3*, CALC1+5, EXIT+2!
DTIME MCARPAL+7, PRINT1+1, PRINT1+5, EXIT+1
I MCARPAL+3*, MCARPAL+6*, PRINT1+5*, EXIT+2!, LEAD*, PR, PR+1, PR+2
IO MCARPAL+10
IO("Q" MCARPAL+8!, MCARPAL+9!
IOF MCARPAL+2, EXIT+3, HEAD
IOSL PRINT1+1, PRINT1+5
IOST PRINT1+1, PRINT1+5, EXIT+1, EXIT+3
LN PRINT*, EXIT+2!, HEAD+6
MCARCD CALC1+4*, EXIT+2!, LEAD
MCAREG CALC1+1*, CALC1+2, CALC1+5, EXIT+2!
MCARNM CALC1+3*, CALC1+5, PRINT*, PRINT1*, PRINT1+2, PRINT1+5, EXIT+2!, LEAD, PR+1, PR+2
PG PRINT*, EXIT+2!, HEAD*
POP MCARPAL+8, EXIT+2!
SSN CALC1+3*, CALC1+5, EXIT+2!
U MCARPAL+7, CALC1+1, CALC1+3, CALC1+5, PRINT1+1, PRINT1+2, PRINT1+3, PRINT1+4, PRINT1+5, PRINT1+6
, LEAD, PR+1, PR+2, MANUF, MANUF+1
VA EXIT+2!
VADM EXIT+2!
VADM(1 CALC1+3
VADM(2 CALC1+3
VADM(3 CALC1+3
X MCARPAL+7*, PRINT1*, PRINT1+2, PRINT1+3, PRINT1+4, EXIT+1*, EXIT+2!, PR+1*, PR+2*, MANUF
, MANUF+1
Y PRINT1+2*, PRINT1+3*, PRINT1+4*, EXIT+2!, LEAD*, PR+1*, PR+2*, MANUF*
Z EXIT+2!, PR+1, PR+2, MANUF+1*
>> ZTDESC MCARPAL+9*
>> ZTRTN MCARPAL+9*
ZTSK MCARPAL+9!
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