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

Package: Lab Service

Routine: LRAPWEA


Information

LRAPWEA ;AVAMC/REG - EM GRIDS SCANNED/PRINTS MADE ;1/12/92 18:04

Source Information

Source file <LRAPWEA.m>

Entry Points

Name Comments DBIA/ICR reference
GS
NGS
PM
NPM
CK
CK1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !
  • Prompt: "Select *BLOCK ID#: "
  • Variable: LRX
  • Timeout: DTIME
  • Line Location: LRAPWEA+3
Function Call: WRITE
  • Prompt: $C(7)," Select a number from 1 to ",LR
  • Line Location: LRAPWEA+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: NGS+0
Function Call: WRITE
  • Prompt: !!,"TOTAL NUMBER of grids scanned:",LRZ(8),$S(LRZ(8):"//",1:"")
  • Line Location: NGS+0
Function Call: WRITE
  • Prompt: $C(7),!,$G(^(3))
  • Line Location: NGS+0
Function Call: WRITE
  • Prompt: $C(7),!,"Total number of grids scanned cannot exceed number of grids prepared"
  • Line Location: NGS+1
Function Call: WRITE
  • Prompt: $C(7),!,"Total number of grids scanned cannot be less than previous count (",LRZ(1),")"
  • Line Location: NGS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PM+0
Function Call: WRITE
  • Prompt: $C(7),!,"No prints can be made if no grids prepared."
  • Line Location: NPM+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: NPM+1
Function Call: WRITE
  • Prompt: !!,"TOTAL NUMBER of prints made:",LRZ(10),$S(LRZ(10):"//",1:"")
  • Line Location: NPM+1
Function Call: WRITE
  • Prompt: $C(7),!,$G(^(3))
  • Line Location: NPM+1
Function Call: WRITE
  • Prompt: $C(7),!,"Total number of prints made cannot be less than previous count (",LRZ(2),")"
  • Line Location: NPM+2
Function Call: WRITE
  • Prompt: $C(7),!?3,"Date/time grids scanned ("
  • Line Location: CK+0
Function Call: WRITE
  • Prompt: Y,") cannot be before",!?3,"Date/time grids prepared"
  • Line Location: CK+0
Function Call: WRITE
  • Prompt: " (",Y,")"
  • Condition for execution: Y]""
  • Line Location: CK+0
Function Call: WRITE
  • Prompt: $C(7),!?3,"Date/time prints made ("
  • Line Location: CK1+0
Function Call: WRITE
  • Prompt: Y,") cannot be before",!?3,"Date/time grids prepared"
  • Line Location: CK1+0
Function Call: WRITE
  • Prompt: " (",Y,")"
  • Condition for execution: Y]""
  • Line Location: CK1+0
Info |  Source |  Entry Points |  Interaction Calls