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

Entry Points

Name Comments DBIA/ICR reference
EN ;
ARCH ;
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 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
Info |  Source |  Entry Points |  Interaction Calls