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

Package: Lab Service

Routine: LRCAPFDS


Information

LRCAPFDS ;DALOI/FHS - EDIT ACTIVATED WKLD CODES BY WKLD LAB SECTION ;5/1/99

Source Information

Source file <LRCAPFDS.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$HTE^XLFDT  $$CJ^XLFSTR  
VA FileMan 3 ^DIC  ^DIE  ^DIR  
Lab Service 1 EN^LRDIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LR WKLD CODE EDIT PRINT  

Entry Points

Name Comments DBIA/ICR reference
EN ;
EDIT ;
ASK
ALL
LOOP ;
PRINT ;
DQ ;
END ;
HEAD ;
DIQ ;
LRSET ;

External References

Name Field # of Occurrence
^%ZIS PRINT+3
^%ZISC PRINT+4, END+1
^%ZTLOAD PRINT+6
^DIC EN+6, EN+13
^DIE EN+8, LOOP+5
^DIR EN+4, EN+12, EN+15, ASKALL+3, PRINT+1
EN^LRDIQ DQ+6, DIQ+1
$$HTE^XLFDT HEAD+3
$$CJ^XLFSTR ALLHEAD+1, HEAD+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !?5,"You have no Activated WKLD CODES ",!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !?5,"This option will allow you to Edit or Print WKLD CODES"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,"EDITING",!
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !?5,"Nothing Selected ",!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(" Database scan was negative.",80),!,$$CJ^XLFSTR(" No WKLD CODES assigned to WKLD CODE LAB SECTION you selected.",80),$C(7),!
  • Line Location: ALL+0
Function Call: WRITE
  • Prompt: !,"STARTING LOOP ",!
  • Line Location: ALL+4
Function Call: WRITE
  • Prompt: !!?5,"Nothing matches your criteria",!
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !,"PRINT",!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!?10,"**** Report Not Queued ****",!
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !!?10," Database scan was negative.",!," No WKLD CODES assigned to WKLD CODE LAB SECTION you selected.",!
  • Line Location: DQ+2
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Activated WKLD Codes",IOM),!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR(LRTIT,IOM),!,$$CJ^XLFSTR(LRDAT,IOM),!
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DIQ+1
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+3
Routine Call
  • DIC
  • Line Location:
    • EN+6
    • EN+13
Routine Call
  • DIE
  • Line Location:
    • EN+8
    • LOOP+5
Routine Call
  • DIR
  • Line Location:
    • EN+4
    • EN+12
    • EN+15
    • ASK
    • ALL+3
    • PRINT+1

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(64.21 - [#64.21] HEAD+2
^LAM - [#64] LRSET+1, LRSET+3
^LAM("AC" EN+9
^TMP("LRLAM" EN+1!, ALLLOOP+1, DQ+2, LRSET+4*

Label References

Name Line Occurrences
ALL ASK
ASK ASK+1
DIQ LOOP+5
END EN+4, EN+5, EN+9, EN+12, EN+13, EN+15, ASKASK+2, ALLALL+3
LOOP+2, LOOP+6, PRINT+1, PRINT+3, PRINT+4, DQ+2
HEAD DQ+4
LRSET ASKASK+4, DQ+1
PRINT EN+15

Naked Globals

Name Field # of Occurrence
^(0 HEAD+2, LRSET+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS PRINT+3!*, END+4!
DA EN+7~, EN+8*, LOOP+4*, DQ+5*, END+2!, DIQ+1
DIC EN+6!*, EN+13!*, EN+14!, DQ+3*, END+2!, DIQ+1*
DIC(0 EN+6*, EN+13*
DIE EN+7~, EN+8*, LOOP+5*, END+2!
DIR EN+1!, EN+11!, EN+13!, EN+14!, EDIT+1!, ALL+1!, PRINT+1!, DQ+4!, END+2!
DIR("?" EN+2*
DIR("A" EN+3*, EN+11*, EN+14*, EDIT+3*, ASK+1*, ALL+1*, ALL+2*, PRINT+1*
DIR("B" EN+4*, EN+12*, PRINT+1*
DIR(0 EN+4*, EN+12*, EN+14*, EDIT+2*, ALL+1*, PRINT+1*
DIRUT EN+4, EN+12, EN+15, ALL+3, LOOP+5, PRINT+1, DQ+6, END+2!, END+4!
DR EN+7~, EN+8*, LOOP+5*, DQ+3*, END+2!, DIQ+1*
DTOUT END+2!
DUOUT END+2!
DUZ EN+1, ALLLOOP+1, LOOP+3, DQ+2, DQ+3, DQ+4, LRSET+4
IO PRINT+4
IO(0 PRINT+4
IOF LOOP+3, END+1
IOM HEAD+1, HEAD+4
ION PRINT+5, PRINT+6
IOST DQ+6, END+1
LRCPT PRINT+2*, END+4!, LRSET+3
LRDAT END+3!, HEAD+3*, HEAD+4
LRDR EDIT+3*, ASK*, ASK+1*, ASK+2, ASK+3*, LOOP+5, END+4!
LREND LOOP+3*, LOOP+4, LOOP+5*, DQ+3*, DQ+5, DQ+6*, END+3!
LRN END+3!, LRSET+1*, LRSET+3, LRSET+4
LRNN LOOP+1*, LOOP+4, DQ+4*, DQ+5, END+3!
LRNODE LOOP+3*, LOOP+4*, DQ+3*, DQ+5*, END+3!, LRSET+1*, LRSET+2, LRSET+4
LRSECT EN+11!, EN+13*, PRINT+5, END+3!, HEAD+2, LRSET+2
LRTIT END+3!, HEAD+2*, HEAD+4
LRWKLD ALL+4*, LOOP+1*, LOOP+2, LOOP+3, END+3!
>> POP PRINT+3
S LOOP+5*, DQ+3*, DQ+6*, END+3!, HEAD+3*
U ASKHEAD+2, LRSET+2, LRSET+4
X ASKALL+4, LOOP+5, END+4!
Y EN+5, EN+6, EN+8, EN+13, EN+15, ASKASK+1, LOOP+5, PRINT+2, END+4!
>> ZTIO PRINT+5*
>> ZTQUEUED DQ+1
>> ZTREQ DQ+1*
>> ZTRTN PRINT+5*
>> ZTSAVE("LRCPT" PRINT+5*
>> ZTSAVE("LRSECT" PRINT+5*
ZTSK PRINT+6!, END+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