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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRCAPED1

Package: Lab Service

Routine: LRCAPED1


Information

LRCAPED1 ;SLC/DCM- MANUAL EDIT OF WORKLOAD FILE (CONT.) ;9/1/89 15:46 ;

Source Information

Source file <LRCAPED1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 ^DIC  YN^DICN  ^DIE  
Lab Service 2 ^LRCAPED2  (DASH,EQUALS)^LRX  
Kernel 1 ^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRCAPED  

Entry Points

Name Comments DBIA/ICR reference
A
C
B
AD2
AD1
J
LIST
HEAD
A1
ADD
B1
ASK
DQ
CT

External References

Name Field # of Occurrence
^%ZTLOAD LRCAPED1+4
^DIC A
YN^DICN ASK, LIST, CT
^DIE A+6, A1+3
^LRCAPED2 ASK
DASH^LRX HEAD+1
EQUALS^LRX LIST+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"WORKLOAD entries will be added as a background task later tonight."
  • Line Location: LRCAPED1+4
Function Call: WRITE
  • Prompt: !!,"Are you finished viewing the workload data for this CAP code."
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: *7,!,"THIS IS NOT A QC ENTRY"
  • Line Location: A+2
Function Call: WRITE
  • Prompt: *7,!,"THIS ENTRY DOES NOT HAVE ANY REPEATS!"
  • Line Location: A+3
Function Call: WRITE
  • Prompt: !?5,"'*' MEANS THAT DATE HAS REPEATS",?40,"'#' MEANS THAT DATE IS FOR QC"
  • Line Location: LIST+2
Function Call: READ
  • Prompt: "Press Return .. or '^' to Escape "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: J+0
Function Call: WRITE
  • Prompt: !,Y,?18,$E($S($P(XX,"^",3):$P(^LAB(60,$P(XX,"^",3),.1),"^",1),1:$P(XX,"^",3)),1,20),?38,$E($P(XX,"^",4),1,17),?55
  • Line Location: J+2
Function Call: WRITE
  • Prompt: $S($D(^LAB(62.05,+$P(XX,U,7),0)):$E($P(^(0),U),1,9),1:$P(XX,U,7)),?65,$P(XX,"^",8),?72,$P(XX,"^",9)
  • Line Location: J+3
Function Call: WRITE
  • Prompt: ?77,"*"
  • Condition for execution: $P(XX,"^",14)
  • Line Location: J+3
Function Call: WRITE
  • Prompt: ?78,"#"
  • Condition for execution: $P(XX,"^",13)=62.3
  • Line Location: J+3
Function Call: WRITE
  • Prompt: @IOF,!,"Listed below are the dates' WORKLOAD file entries for this CAP code.",!
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,"REPORT DATE",?18,"TEST NAME",?38,"LOCATION",?55,"URGENCY",?65,"TECH",?72,"ORDER #"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"Current workload count for next date is ",LRA,". Do you wish to change it"
  • Line Location: CT+0
Function Call: WRITE
  • Prompt: !,"Enter the positive or negative amount you want entered for the next WORKLOAD."
  • Line Location: CT+1
Routine Call
  • DIE
  • Line Location:
    • A+6
    • A1+3
Routine Call
  • DIC
  • Line Location:
    • A

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZTSK - [#14.4] DQ!
^DD("DD" J+2
^DIC(3 - [#3] B1
^LAB(60 - [#60] J+2
^LAB(62.05 - [#62.05] J+3
^LRO(67.9 - [#67.9] AD1, AD2, A+5, A+6, LIST+1, B, B1*, B1+1*

Label References

Name Line Occurrences
A A+2, A+3
AD1 LRCAPED1+5, ASK, DQ
AD2 AD2
ADD LRCAPED1+5, ASK
ASK LRCAPED1+4, ASK
B AD2
B1 B1
C A+5
CT ASK, CT+1
HEAD LIST, J+1
J LIST+1
LIST ASK

Naked Globals

Name Field # of Occurrence
^(0 J+3, B1, B1+1*
^(1 B1+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK*, ASK+1!, LIST*, CT*, CT+1
>> A LIST+1*
>> DA A+1*
DIC LRCAPED1+4!, ASK+1!, AD1*, A*, A+1
DIC("S" A*!
DIC(0 A*
DIE A+1*, A+6!, A1+3!
>> DR A+6*, A1+2*, C*
>> DR(1 A1*, A1+1*
DT LRCAPED1+4
DTIME J, CT
DUZ B1
>> I LIST+1*
>> II LRCAPED1+3*, LRCAPED1+5, DQ
IOF HEAD
JJ LRCAPED1+5*, ASK+1!, DQ*
KK ASK+1!
>> LRA LRCAPED1+3, LRCAPED1+4, LRCAPED1+5, ADD, AD2, A, A+3, A+4, A1+2, CT*
, DQ
>> LRCAP LIST+1, C, B1+1
>> LREND LRCAPED1+2*, LRCAPED1+5, A*, A+4*, LIST*, LIST+1, J*
>> LRIFN B*, B1*, B1+1
>> LRIN A1+1, B1
>> LRLOCAB AD1*, B1
>> LRM B1
>> LRSB B1, B1+1
>> LRTIM LRCAPED1+2, ADD, AD2*, LIST+1, B1, B1+1
>> LRTIME LRCAPED1+2*, ADD
>> LRTS AD1*, B1
>> LRTSA AD1*, B1
>> LRTST LRCAPED1+2*, C, B1
>> LRURG AD1*, B1
>> LRX LRCAPED1+4, ASK, ADD, AD2, A+2, A+3, A+4, A1, A1+2, B1
U A+4, J+3, B1, B1+1
>> X J*
XX ASK+1!, LIST+1*, J+2, J+3
>> Y AD1*, A, A+1, A+5, A+6, J+2*
>> Y(0 A+2, A+3, A+4
>> ZTDESC LRCAPED1+4*
>> ZTDTH LRCAPED1+4*
>> ZTIO LRCAPED1+4*
ZTRTN LRCAPED1+4*!
ZTSAVE LRCAPED1+4!
ZTSAVE("II" LRCAPED1+4*
ZTSAVE("L*" LRCAPED1+4*
ZTSK LRCAPED1+4!, DQ, DQ+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All