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

Package: Lab Service

Routine: LRCAPAM4


Information

LRCAPAM4 ;SLC/RS/DALISC/FHS - LMIP PHASE 4 BUILD MAILMAN MESSAGES FOR LAB LMIP WORKLOAD TRANS ;8/23/91 1039;

Source Information

Source file <LRCAPAM4.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
EN1 ;
GO ;
ASK1 ;
DQ
EXIT ;
CLEAN
LOOP1 ;
CHK
NEWMSG ;
MAIL ;
ERR ;
PRINT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !?(IOM-$L(LINE))\2,LINE,!
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !?(IOM-$L(LINE))\2,LINE,!
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !?(IOM-$L(LINE))\2,LINE,!
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !?(IOM-$L(LINE))\2,LINE,!
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !?(IOM-$L(LINE))\2,LINE,!
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !?(IOM-$L(LINE))\2,LINE,!
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: !!?10,"TO CONTINUE YOU MUST ENTER 'YES' - PROCESS ABORTED",!
  • Line Location: GO+1
Function Call: WRITE
  • Prompt: !?10,"Device to print processing errors if any are detected.",!
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: !,$S($G(ZTSK):"Queued to "_ION,1:"Error Not Queued"),!
  • Line Location: ASK1+3
Function Call: WRITE
  • Prompt: !!?5,"Processing data and building Mailman messages ",!
  • Line Location: DQ+2
Function Call: WRITE
  • Prompt: !?15,$TR($$FMTE^XLFDT($$NOW^XLFDT,"1M"),"@"," "),!
  • Line Location: DQ+3
Function Call: WRITE
  • Prompt: !!,"No data in global !!",$C(7)
  • Line Location: DQ+5
Function Call: WRITE
  • Prompt: !!?10,"^LAB(""LABWL"" is corrupt ",!!,$C(7)
  • Line Location: DQ+7
Function Call: WRITE
  • Prompt: !?20,LRTXT,!!
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST)="P"
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !!,"DONE",!!
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !?20,LRTXT,!
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: !!?5,"Header Block Corrupted (^LAH(LABWL,"_LRSLN_")",!
  • Line Location: LOOP1+3
Function Call: WRITE
  • Prompt: !!?5,"Starting charater not correct at position "_LRSLN_" ABORTED",!!
  • Line Location: LOOP1+5
Function Call: WRITE
  • Prompt: !!?5," Sequence not correct ^LAB(LABWL,"_LRSLN_")",!
  • Line Location: LOOP1+6
Function Call: WRITE
  • Prompt: !!,"Data is not in proper sequence [Error = ^LAB(LABWL,"_LRSLN_")"
  • Line Location: CHK+8
Function Call: WRITE
  • Prompt: !!?4,"Error in the call to Mailman",!
  • Line Location: MAIL+3
Function Call: WRITE
  • Prompt: !,LRSUB,!,"Mailman message number ",XMZ
  • Line Location: MAIL+4
Function Call: WRITE
  • Prompt: !!?10,"UNABLE TO STORE MESSAGE NUMBER IN ^LRO(67.9 FILE",!!
  • Line Location: ERR+1
Function Call: WRITE
  • Prompt: !!?5,"Error at subscript < "_LRSLN_" >",!,"Listing of surrounding data",!!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"^LAH(LABWL,",I,") =",!,?6,^(I),!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+4
Info |  Source |  Entry Points |  Interaction Calls