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

Package: Lab Service

Routine: LRCAPD


Information

LRCAPD ;SLC/AM/DALOI/FHS - WORKLOAD CODE LIST REPORT;1/16/91 15:34

Source Information

Source file <LRCAPD.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 EN^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Lab Service 4 LR7OU4  LR7OU5  LR7OU641  LRCAPD  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;
EN ;
HEAD3 ;
HEAD2 ;
ERR
NAME ;
PRNT ;
NLTPRT
START ;
PAUSE ;
CLEAN
PCC3 ;
PCC2 ;
PCC ;
DQ ;

External References

Name Field # of Occurrence
^%ZIS EN+2
^%ZISC EN+3, CLEAN+2
^%ZTLOAD EN+3
EN^DIQ START+25, NLTPRT+9
^DIR PAUSE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"I will produce a list of WKLD codes in your file 60 "
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!?10,"Report Queued to "_ION,!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !!?5,"NONE",!
  • Line Location: START+16
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NLTPRT+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRNT+4
Function Call: WRITE
  • Prompt: ?5,"National VA Lab Code: ",$P($G(^LAM(+LRCC,0)),U,2)_" "_$P(^(0),U),!
  • Line Location: PRNT+8
Function Call: WRITE
  • Prompt: ?15
  • Line Location: PRNT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNT+9
Function Call: WRITE
  • Prompt: "[ CPT ",N," ] "
  • Line Location: PRNT+10
Function Call: WRITE
  • Prompt: ?5,"Result NLT Code: ",$P($G(^LAM(+LRCC,0)),U,2)_" "_$P(^(0),U),!
  • Line Location: PRNT+13
Function Call: WRITE
  • Prompt: ?15,"Verify",!
  • Line Location: PRNT+16
Function Call: WRITE
  • Prompt: ?15,"Accession",!
  • Line Location: PRNT+22
Function Call: WRITE
  • Prompt: ?15,"Sample",!
  • Line Location: PRNT+28
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PCC+5
Function Call: WRITE
  • Prompt: ?15,"Verify",!
  • Line Location: PCC+5
Function Call: WRITE
  • Prompt: ?10,$S($D(^LAM(LRCC,0))#2:$S($P(^(0),U,5):"+"_$P(^(0),U),1:$P(^(0),U)),1:""),?50,$P(LRX,U,2),?73,$S($P(LRX,U,3):$P(LRX,U,3),1:"1"),!
  • Line Location: PCC+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PCC2+5
Function Call: WRITE
  • Prompt: ?15,"Accession",!
  • Line Location: PCC2+5
Function Call: WRITE
  • Prompt: ?10,$S($D(^LAM(LRCC,0))#2:$S($P(^(0),U,5):"+"_$P(^(0),U),1:$P(^(0),U)),1:""),?50,$P(LRX,U,2),?73,$S($P(LRX,U,3):$P(LRX,U,3),1:"1"),!
  • Line Location: PCC2+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PCC3+5
Function Call: WRITE
  • Prompt: ?15,"Sample",!
  • Line Location: PCC3+5
Function Call: WRITE
  • Prompt: ?10,$S($D(^LAM(LRCC,0))#2:$S($P(^(0),U,5):"+"_$P(^(0),U),1:$P(^(0),U)),1:""),?50,$P(LRX,U,2),?73,$S($P(LRX,U,3):$P(LRX,U,3),1:"1"),!
  • Line Location: PCC3+7
Function Call: WRITE
  • Prompt: !!?21,"LIST OF FILE 60 WKLD CODES",?70,"Page ",$J(LRPAG,3),!
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,"IEN",?15,"WKLD Code [TYPE] ",?50,"WKLD Number",?73,"X",!,LRLINE,!
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !!?10,"Alphabetical Listing of WKLD Codes Defined"
  • Line Location: HEAD2+3
Function Call: WRITE
  • Prompt: ?72,"Page ",$J(LRPAG,3),!
  • Line Location: HEAD2+4
Function Call: WRITE
  • Prompt: !!?10,"Alphabetical Listing of NLT or Result NLT Codes Defined"
  • Line Location: HEAD3+3
Function Call: WRITE
  • Prompt: ?72,"Page ",$J(LRPAG,3),!
  • Line Location: HEAD3+4
Function Call: WRITE
  • Prompt: !?10,$C(7)," Error in WKLD Code pointer (",$G(LRCC),") ***** ",!
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLEAN+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: CLEAN+1
Routine Call
  • DIR
  • Line Location:
    • PAUSE+3
Routine Call
  • %ZIS
  • Line Location:
    • EN+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAM - [#64] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] START+7, START+8, START+9, PRNT+5, PRNT+7, PRNT+12, PRNT+15, PRNT+17, PRNT+18, PRNT+20
, PRNT+23, PRNT+24, PRNT+26, PRNT+29, PRNT+30, PCC+2, PCC2+2, PCC3+2, NAME+1
^LAM - [#64] PRNT+8, PRNT+9, PRNT+10, PRNT+11, PRNT+13, PRNT+14, PCC+2, PCC+7, PCC2+2, PCC2+7
, PCC3+2, PCC3+7
^TMP("LR" START+1!, START+15, START+19, NLTPRT, NLTPRT+3, PRNT+11*, PRNT+14*, PCC+2*, PCC2+2*, PCC3+2*
, CLEAN+5!

Label References

Name Line Occurrences
CLEAN EN+2, EN+3, DQ+2
ERR PRNT+11, PRNT+14, PCC+2, PCC2+2, PCC3+2
HEAD START+5, PRNT+4, PCC+5, PCC2+5, PCC3+5
HEAD2 START+14, START+23
HEAD3 NLTPRT+1, NLTPRT+7
NAME PRNT+8, PRNT+13, PRNT+16, PRNT+22, PRNT+28, PCC+5, PCC2+5, PCC3+5
PAUSE START+11, START+21, NLTPRT+5, NLTPRT+11, PRNT+3, PCC+4, PCC2+4, PCC3+4
PCC PRNT+17, PRNT+18
PCC2 PRNT+23, PRNT+24
PCC3 PRNT+29, PRNT+30
PRNT START+9
START DQ+1

Naked Globals

Name Field # of Occurrence
^( START+19, NLTPRT+3
^(0 PRNT+8, PRNT+11, PRNT+13, PRNT+14, PCC+2, PCC+7, PCC2+2, PCC2+7, PCC3+2, PCC3+7
^(64 PRNT+7, PRNT+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CLEAN+4!
%ZIS EN+2!*, CLEAN+3!
%ZIS("A" EN+2*
DA START+19*, NLTPRT+3*, CLEAN+3!
DIC START+18*, NLTPRT+2*, CLEAN+3!
DIR PAUSE+3!, CLEAN+4!
DIR(0 PAUSE+3*
DIRUT CLEAN+4!
DR START+18*, NLTPRT+2*, CLEAN+3!
DTOUT PAUSE+4, CLEAN+4!
DUOUT PAUSE+4, CLEAN+4!
DX EN+2!, CLEAN+4!
>> I START+15*, START+16
IO EN+3
IO("Q" EN+3
IO(0 EN+3
IOF START+4, START+13, START+22, NLTPRT, NLTPRT+6, PRNT+4, PCC+5, PCC2+5, PCC3+5, CLEAN+1
IOM START+2
ION EN+3
IOSL START+20, NLTPRT+4, PRNT+2, PCC+3, PCC2+3, PCC3+3
IOST START+4, NLTPRT, PAUSE+2, CLEAN+1
LRCC PRNT+7*, PRNT+8, PRNT+9, PRNT+10, PRNT+11, PRNT+12*, PRNT+13, PRNT+14, PCC+2*, PCC+7
, PCC2+2*, PCC2+7, PCC3+2*, PCC3+7, ERR, CLEAN+4!
LREND START+2*, START+7, START+10, START+16*, START+19, START+21, START+24, START+26, NLTPRT+3, NLTPRT+4
, NLTPRT+5, NLTPRT+8, NLTPRT+10, PRNT+1, PRNT+2, PRNT+3, PRNT+10, PRNT+15, PRNT+18, PRNT+19
, PRNT+22, PRNT+24, PRNT+25, PRNT+30, PCC+1, PCC+4, PCC+6, PCC2+1, PCC2+4, PCC2+6
, PCC3+1, PCC3+4, PCC3+6, HEAD+1, HEAD2+1, HEAD3+1, PAUSE+1, PAUSE+4*, CLEAN+4!
LRHED CLEAN+3!
LRI START+18*, START+19*, NLTPRT+2*, NLTPRT+3*, CLEAN+3!
LRJ PRNT+15*, PRNT+17, PRNT+18*, PRNT+20*, PRNT+21, PRNT+23, PRNT+24*, PRNT+26*, PRNT+27, PRNT+29
, PRNT+30*, PCC+2, PCC2+2, PCC3+2, CLEAN+3!
LRK PRNT+18*, PRNT+24*, PRNT+30*, CLEAN+3!
LRLINE START+2*, HEAD+4, CLEAN+3!
LRPAG START+2*, HEAD+2*, HEAD+3, HEAD2+2*, HEAD2+4, HEAD3+2*, HEAD3+4, CLEAN+4!
LRTS START+2*, START+8*, START+9, PRNT+5, PRNT+7, PRNT+12, PRNT+15, PRNT+17, PRNT+18, PRNT+20
, PRNT+23, PRNT+24, PRNT+26, PRNT+29, PRNT+30, PCC+2, PCC2+2, PCC3+2, NAME+1, CLEAN+3!
LRTSN START+6*, START+7*, START+8, START+9, CLEAN+3!
>> LRTY NAME+1*
LRX PCC+2*, PCC+7, PCC2+2*, PCC2+7, PCC3+2*, PCC3+7, CLEAN+3!
>> N PRNT+10*
NAME PRNT+6*, CLEAN+3!
NAME1 PRNT+6*, PCC+5*, PCC2+5*, PCC3+5*, NAME+1, NAME+2*, CLEAN+3!
>> POP EN+2
S START+25*, NLTPRT+9*, CLEAN+4!
U PRNT+8, PRNT+11, PRNT+12, PRNT+13, PRNT+14, PCC+2, PCC+7, PCC2+2, PCC2+7, PCC3+2
, PCC3+7, NAME+1
X PAUSE+3!, CLEAN+4!
Y PAUSE+3!, CLEAN+4!
>> ZTDESC EN+3*
>> ZTIO EN+3*
>> ZTQUEUED CLEAN
>> ZTREQ CLEAN*
>> ZTRTN EN+3*
ZTSK CLEAN+4!
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