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

Package: Lab Service

Routine: LRCAP64


Information

LRCAP64 ;DALISC/FHS - PURGE 64.1 FILE LMIP PHASE 6

Source Information

Source file <LRCAP64.m>

Call Graph

Call Graph

Call Graph Total: 9

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

Entry Points

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

External References

Name Field # of Occurrence
^%DT SELMT+2
^%ZIS DIS+1
^%ZISC DIS+2, DISDQ+5, END+1
^%ZTLOAD DIS+2
^DIC LRDIV+2
^DIK SELMT+11
^DIR LRDIV+4, SELMT+5, SELMT+7, PAUSE+1
^LRPARAM EN+1
$$FMTE^XLFDT SELMT+3, SELMT+5, SELMT+8, SELMT+10, SELMT+13, DISDQ+4

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 option is used to purge data from WORKLOAD [WKLD] DATA file"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"after is has been transmitted to the national database."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!?10,"If you intend to archive this data, you should FIRST use Fileman"
  • Line Location: ARCH+1
Function Call: WRITE
  • Prompt: !,"option TRANSFER FILE ENTRIES to move the data from the WORKLOAD [WKLD] DATA "
  • Line Location: ARCH+2
Function Call: WRITE
  • Prompt: !,"file (64.1) to the ARCHIVE WORKLAD [WKLD] DATA file (64.19999)"
  • Line Location: ARCH+3
Function Call: WRITE
  • Prompt: !!,"MAKE SURE THE DATA IS NOT PURGED AFTER TRANSFER WHEN USING THE"
  • Line Location: ARCH+4
Function Call: WRITE
  • Prompt: !,"FILEMAN TRANSFER OPTION",!
  • Line Location: ARCH+5
Function Call: WRITE
  • Prompt: !!?5,"Then copy this global [^LRO(64.19999,] to your long term storage media"
  • Line Location: ARCH+6
Function Call: WRITE
  • Prompt: !,"After coping the ^LRO(64.19999) global, FILEMAN can be used to delete"
  • Line Location: ARCH+7
Function Call: WRITE
  • Prompt: !,"all of the data from that file [^LRO(64.19999)]."
  • Line Location: ARCH+8
Function Call: WRITE
  • Prompt: !!,"After the global has been copied, proceed with this step",!!
  • Line Location: ARCH+9
Function Call: WRITE
  • Prompt: !!?10,"NO DATA IN THE FILE "
  • Line Location: LRDIV+1
Function Call: WRITE
  • Prompt: !?10,"Do you want a list of months in the file.",!
  • Line Location: LRDIV+3
Function Call: WRITE
  • Prompt: !!?10,"NO MONTHLY DATA IN THE FILE",!
  • Line Location: SELMT+1
Function Call: WRITE
  • Prompt: !!?7,"YOU CAN ONLY DELETE PAST MONTH'S DATA ",$C(7)
  • Line Location: SELMT+2
Function Call: WRITE
  • Prompt: !!?10,"DO DATA FOR "_$$FMTE^XLFDT(LRMT)
  • Line Location: SELMT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SELMT+5
Function Call: WRITE
  • Prompt: !!?10,"Deleting "_$$FMTE^XLFDT(LRMT)_" DATA ",!
  • Line Location: SELMT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: SELMT+10
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(LRDA)," Not reported NOT DELETED",$C(7)
  • Line Location: SELMT+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: SELMT+11
Function Call: WRITE
  • Prompt: !!,"Data for "_$$FMTE^XLFDT(LRMT)_" deleted "
  • Line Location: SELMT+13
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: DISDQ+1
Function Call: WRITE
  • Prompt: !!?20,"List of Months which have data to be purged",!!
  • Line Location: DISDQ+1
Function Call: WRITE
  • Prompt: !!?10,"NO DATA TO PURGE "
  • Line Location: DISDQ+2
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(LRMT)
  • Line Location: DISDQ+4
Function Call: WRITE
  • Prompt: ?($X+20)
  • Line Location: DISDQ+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>(IOM-12)
  • Line Location: DISDQ+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISDQ+5
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: DISDQ+5
Routine Call
  • DIC
  • Line Location:
    • LRDIV+2
Routine Call
  • DIR
  • Line Location:
    • LRDIV+4
    • SELMT+5
    • SELMT+7
    • PAUSE+1
Routine Call
  • %ZIS
  • Line Location:
    • DIS+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRO(64.1 - [#64.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LRO(64.1 - [#64.1] SELMT+1, SELMT+3, SELMT+10, DISDQ+2
^LRO(67.9 - [#67.9] LRDIV+1

Label References

Name Line Occurrences
DIS LRDIV+4
EN SELMT+1, SELMT+2, SELMT+6, SELMT+7, SELMT+13
END EN+1, LRDIV+1, LRDIV+2, LRDIV+4, SELMT+6, DISDQ+2
PAUSE DISDQ+3
SELMT SELMT+2, SELMT+3

Naked Globals

Name Field # of Occurrence
^( SELMT+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT SELMT+2!*
%ZIS DIS+1!*, END+1!
DA SELMT+10*, END+1!
DA(1 SELMT+9*
DA(2 SELMT+9*
DIC LRDIV+1!, LRDIV+2*, END+1!
DIC(0 LRDIV+2*
DIK SELMT+9*, END+1!
DIR LRDIV+4!, END+1!, PAUSE+1!
DIR("A" SELMT+5*, SELMT+7*
DIR(0 LRDIV+4*, SELMT+5*, SELMT+7*, PAUSE+1*
DIRUT LRDIV+4, SELMT+6, END+1!, PAUSE+2
DT SELMT+2, DISDQ+2
DTOUT LRDIV+4, SELMT+6, END+1!, PAUSE+2
DUOUT LRDIV+4, SELMT+6, END+1!, PAUSE+2
IO DIS+3
IO("Q" DIS+1!, DIS+2!, DISDQ+5!
IOF DISDQ+1, DISDQ+5
IOM DISDQ+4
ION DIS+2
IOSL DISDQ+3
IOST DISDQ+1, DISDQ+3, DISDQ+5
LRAD END+1!
LRDA SELMT+9*, SELMT+10*, END+1!
LRDATA DISDQ+2, DISDQ+4*, END+1!
LRDIC END+1!
LRDIV LRDIV+2*, SELMT+1, SELMT+3, SELMT+9, SELMT+10, DISDQ+2, END+1!
LREND LRDIV+4*, DIS+1*, DIS+2*, DISDQ+2*, DISDQ+3, END+1!, PAUSE+2*
LRINST LRDIV+1*, END+1!
>> LRLABKY EN+1
LRMT SELMT+2*, SELMT+3, SELMT+5, SELMT+8, SELMT+9, SELMT+10, SELMT+13, DISDQ+2*, DISDQ+4*, END+1!
>> POP DIS+1
U EN+1, SELMT+10
>> Y LRDIV+2, LRDIV+4, SELMT+2, SELMT+6, SELMT+7
ZTDESC DIS+2*, END+1!
ZTIO DIS+2*, END+1!
ZTQUEUED DISDQ+5, END+1!
>> ZTREQ DISDQ+5*
ZTRTN DIS+2*, END+1!
Info |  Source |  Call 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