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

Package: Lab Service

Routine: LRNINES7


Information

LRNINES7 ;DAL/HOAK SEARCH FOR 7 9s ; 10/14/96 16:02

Source Information

Source file <LRNINES7.m>

Entry Points

Name Comments DBIA/ICR reference
INIT ;
CONTROL ;
END ;
DONE
TASK ;
FINDLR ;----------find ALL the 7 nines in ALL OF LR
SET(LRDFN) ;
FIXALL ;
COUNT ;
ACCN(LRNODE) ;
BAKDOR ;-->Maybe the ^LAC can provide accn.
LRSN ;
LRODT ;
LRIDT ;
BYE68
LAC(LRDFN,LRODT,LRIDT) ;
FIXLAC ;
CHKLAC ;
FIXLR ;
FIX68 ;
; COLL. TIME
JOBTIME ;
MOVE ;
ALT ;
SCRNON ;
FLASH ;
SCRNOFF ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"All occurences of 7 9s have been removed and their effects in"
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !,"your data base have been disarmed.",!
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TASK+8
Function Call: WRITE
  • Prompt: !!,"Mission debreifing:"
  • Line Location: TASK+22
Function Call: WRITE
  • Prompt: !,"No problems related to 7-9s have been observed for Yesterday and Today."
  • Line Location: TASK+23
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FINDLR+6
Function Call: WRITE
  • Prompt: "Found ",LRCOUNT," occurrances of 7 9s in ^LR"
  • Line Location: FINDLR+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: COUNT+5
Function Call: WRITE
  • Prompt: IORVON
  • Line Location: MOVE+11
Function Call: WRITE
  • Prompt: ">"
  • Line Location: MOVE+12
Function Call: WRITE
  • Prompt: IORVOFF
  • Line Location: MOVE+13
Function Call: WRITE
  • Prompt: IOELALL
  • Line Location: MOVE+15
Function Call: WRITE
  • Prompt: $P((LRIN/LRJT0)*100,"."),"%"
  • Line Location: MOVE+16
Function Call: WRITE
  • Prompt: IORVON
  • Line Location: ALT+12
Function Call: WRITE
  • Prompt: ">"
  • Line Location: ALT+13
Function Call: WRITE
  • Prompt: IORVOFF
  • Line Location: ALT+14
Function Call: WRITE
  • Prompt: IOELALL
  • Line Location: ALT+16
Function Call: WRITE
  • Prompt: $P(LRHUN,"."),"%"
  • Line Location: ALT+18
Function Call: WRITE
  • Prompt: IOG1
  • Line Location: SCRNON+2
Function Call: WRITE
  • Prompt: IODHLT,$$CJ^XLFSTR($$FMTE^XLFDT(LRDT7,"D"),IOM)
  • Line Location: FLASH+6
Function Call: WRITE
  • Prompt: IODHLB,$$CJ^XLFSTR($$FMTE^XLFDT(LRDT7,"D"),IOM)
  • Line Location: FLASH+8
Info |  Source |  Entry Points |  Interaction Calls