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

Package: Lab Service

Routine: LRCAPAM3


Information

LRCAPAM3 ;SLC/FHS - LAB PHASE 3 LMIP DATA COLLECTION PRINT REPORT ;8/23/91 1039;

Source Information

Source file <LRCAPAM3.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
ASK1 ;
DT
ASK2 ;
DQ ;
EXIT ;
QUEUE ;
LOOP ;
LOOP2 ;
HEADER ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?(IOM-$L(LINE))\2,LINE,!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !?(IOM-$L(LINE))\2,LINE,!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !?(IOM-$L(LINE))\2,LINE,!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !?(IOM-$L(LINE))\2,LINE,!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !?(IOM-$L(LINE))\2,LINE,!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !?5,"Division ",$P($P(LN,U,3),"$$$")," has data for ",$$FMTE^XLFDT(LRDATE,"1D")
  • Line Location: ASK1+2
Function Call: WRITE
  • Prompt: !!?10,"I do not have any data in the file ",!!
  • Line Location: ASK1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !!?10,"I do not have data for this ",$$FMTE^XLFDT(LRDT1,"1D"),!!,$C(7)
  • Line Location: DT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK2+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK2+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+4
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: DQ+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUEUE+3
Function Call: WRITE
  • Prompt: !?5,"Unable to enter User into 'CERTIFIED BY' field in file #67.9",!?10,"Div: [ ",LRDV2," ]for the month of ",$$FMTE^XLFDT(LRDT),!
  • Line Location: LOOP+11
Function Call: WRITE
  • Prompt: !!?5,"Nothing to Report",!!
  • Line Location: LOOP+19
Function Call: WRITE
  • Prompt: !!
  • Line Location: LOOP+23
Function Call: WRITE
  • Prompt: $E(LRCCD,15)
  • Condition for execution: $E(LRCCD,15)
  • Line Location: LOOP2+8
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP2+8
Function Call: READ
  • Variable: LRX
  • Timeout: DTIME
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $G(LRPAGE)
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"Lab WORKLOAD data Report for Div/Institution: ",$P($G(^DIC(4,LRDV2X,0)),U)_" / "_$P($G(^DIC(4,LRDV1X,0)),U),?(IOM-10)," Page: ",LRPAGE
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?(IOM-$L(LRHDT))/2,LRHDT
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !," Printed: ",LRPRDT,!
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: ?5,"[ XX* data ] NOT included in total ",!
  • Line Location: HEADER+5
Info |  Source |  Entry Points |  Interaction Calls