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 |  Local Variables  | All
Print Page as PDF
Routine: LRCAP67

Package: Lab Service

Routine: LRCAP67


Information

LRCAP67 ;DALISC/FHS - PURGE 67.9 FILE LMIP PHASE 5

Source Information

Source file <LRCAP67.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 4 ^DIC  ^DIK  EN^DIQ  ^DIR  
Lab Service 1 ^LRPARAM  

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 LMIP 5  

Entry Points

Name Comments DBIA/ICR reference
EN ;
ARCH ;
SELDIV ;
SELMT ;
DIS ;
DISDQ ;
END ;
PAUSE ;

External References

Name Field # of Occurrence
^%ZIS DIS+1
^%ZISC DIS+2, DISDQ+7, END+1
^%ZTLOAD DIS+2
^DIC SELDIV+2, SELMT+2
^DIK SELMT+8
EN^DIQ SELMT+2, SELMT+5, DISDQ+6
^DIR ARCH+5, SELMT+3, SELMT+6, PAUSE+1
^LRPARAM EN+1
$$FMTE^XLFDT SELMT+3, SELMT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Sorry you do not have the proper security Key",!!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!?5,"This routine is used to purge data from LAB MONTHLY WORKLOAD file"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"after it has been transmitted to the national database. It can also be used to"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"clear the file and recompute data found to be erroneous after review.",!!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !?10,"If you intend to archive this data have your Site Manager save"
  • Line Location: ARCH+1
Function Call: WRITE
  • Prompt: !,"in the appropriate manner the global, ^LRO(67.9, to desired media "
  • Line Location: ARCH+2
Function Call: WRITE
  • Prompt: !,"before deleting any data.",!!
  • Line Location: ARCH+3
Function Call: WRITE
  • Prompt: !?10,"Do you want a list of monthly compiled data in the file.",!
  • Line Location: ARCH+4
Function Call: WRITE
  • Prompt: !!?10,"NO DATA IN THE FILE "
  • Line Location: SELDIV+1
Function Call: WRITE
  • Prompt: !!?10,"NO MONTHLY DATA IN THE FILE",!
  • Line Location: SELMT+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: SELMT+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: SELMT+5
Function Call: WRITE
  • Prompt: !!?10,"Deleting "_$$FMTE^XLFDT(LRMT)_" DATA ",!
  • Line Location: SELMT+7
Function Call: WRITE
  • Prompt: !!,"DATA DELETED",!!
  • Line Location: SELMT+8
Function Call: WRITE
  • Prompt: !!?10,"NO DATA TO PURGE "
  • Line Location: DISDQ+2
Function Call: WRITE
  • Prompt: @IOF,!!?30,$P(^DIC(4,LRDIV,0),U)
  • Line Location: DISDQ+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISDQ+7
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: DISDQ+7
Routine Call
  • %ZIS
  • Line Location:
    • DIS+1
Routine Call
  • DIC
  • Line Location:
    • SELDIV+2
    • SELMT+2
Routine Call
  • DIR
  • Line Location:
    • ARCH+5
    • SELMT+3
    • SELMT+6
    • PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] DISDQ+3, DISDQ+5
^LRO(67.9 - [#67.9] SELDIV+1, SELMT+1, DISDQ+2, DISDQ+3, DISDQ+4

Label References

Name Line Occurrences
DIS ARCH+5
EN SELDIV+2, SELMT+1, SELMT+2, SELMT+4, SELMT+6, SELMT+8
END EN+1, ARCH+5, SELDIV+1, SELMT+4, DISDQ+2
PAUSE DISDQ+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DIS+1!*, END+1!
DA SELMT+2!*, SELMT+5*, DISDQ+6!*, END+1!
DA(1 SELMT+2*, SELMT+5*, DISDQ+6*
DA(2 SELMT+2*, SELMT+5*, DISDQ+6*
DIC SELDIV+1!, SELDIV+2*, SELMT+2*, SELMT+5*, DISDQ+6!*, END+1!
DIC(0 SELDIV+2*
DIK SELMT+8*, END+1!
DIR ARCH+5!, END+1!, PAUSE+1!
DIR("A" SELMT+3*, SELMT+6*
DIR(0 ARCH+5*, SELMT+3*, SELMT+6*, PAUSE+1*
DIRUT ARCH+5, SELMT+4, END+1!, PAUSE+2
DR SELMT+2!*, SELMT+5*, DISDQ+6!*
DTOUT ARCH+5, SELMT+4, END+1!, PAUSE+2
DUOUT ARCH+5, SELMT+4, END+1!, PAUSE+2
IO DIS+3
IO("Q" DIS+1!, DIS+2!, DISDQ+7!
IOF DISDQ+1, DISDQ+5, DISDQ+7
ION DIS+2
IOSL DISDQ+5
IOST DISDQ+1, DISDQ+5, DISDQ+7
LRAD DISDQ+4*, DISDQ+6, END+1!
LRDA SELMT+2*, SELMT+5, END+1!
LRDATA DISDQ+2, DISDQ+6*, END+1!
LRDIC SELMT+2*, SELMT+5, SELMT+8, END+1!
>> LRDIV SELDIV+2*, SELMT+1, SELMT+2, SELMT+5, DISDQ+3*, DISDQ+4, DISDQ+5, DISDQ+6
LREND ARCH+5*, DIS+1*, DIS+2*, DISDQ+2*, DISDQ+3, DISDQ+4, DISDQ+5, END+1!, PAUSE+2*
LRINST SELDIV+1*, SELDIV+2, SELMT+1, SELMT+2, SELMT+5, DISDQ+2*, DISDQ+3, DISDQ+4, DISDQ+6, END+1!
>> LRLABKY EN+1
LRMT SELMT+2*, SELMT+3, SELMT+7, END+1!
>> POP DIS+1
U EN+1, SELMT+2, DISDQ+3, DISDQ+5
>> Y ARCH+5, SELDIV+2, SELMT+2, SELMT+4, SELMT+6
ZTDESC DIS+2*, END+1!
ZTIO DIS+2*, END+1!
ZTQUEUED DISDQ+7, END+1!
>> ZTREQ DISDQ+7*
ZTRTN DIS+2*, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All