Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRO(64.1 - [#64.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call