Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRCAPAM4

Package: Lab Service

Routine: LRCAPAM4


Information

LRCAPAM4 ; IHS/DIR/AAB - LMIP PHASE 4 BUILD MAILMAN MESSAGES FOR LAB LMIP WORKLOAD TRANS 8/23/91 1039 ;

Source Information

Source file <LRCAPAM4.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
MailMan 1 ^XMD  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LR WKLD LMIP 4  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS ASK1+2
^%ZISC CLEAN, CLEAN+3
^%ZTLOAD ASK1+3
^DIR GO+1
$$FMTE^XLFDT DQ+3, MAIL+1
$$NOW^XLFDT DQ+3
^XMD MAIL+3

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
Routine Call
  • DIR
  • Line Location:
    • GO+1
Routine Call
  • %ZIS
  • Line Location:
    • ASK1+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] MAIL+5
^LAH("LABWL" DQ+4, DQ+6, DQ+9, PRINT+3
^LRO(67.9 - [#67.9] MAIL+7, MAIL+9*
^TMP($J EN1+1!, DQ+1!, CLEAN!, LOOP1+1*, CHK+10, CHK+11*, NEWMSG+2!, NEWMSG+5*

Label References

Name Line Occurrences
CLEAN GO+1, ASK1+2, ASK1+3
ERR MAIL+6, MAIL+7
EXIT GO+1, DQ+5, DQ+6
LOOP1 DQ+9
MAIL NEWMSG+1
NEWMSG DQ+10, LOOP1+2, CHK+10
PRINT DQ+6, LOOP1+3, LOOP1+5, LOOP1+6, CHK

Naked Globals

Name Field # of Occurrence
^( DQ+9, PRINT+3
^(0 CHK+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ASK1+2!*, CLEAN!
>> DEQUEUED DQ
DIR GO+1!, ASK1+2!, CLEAN!
DIR("A" GO+1*
DIR("B" GO+1*
DIR(0 GO+1*
>> DIRUT GO+1
DUZ MAIL+2
I PRINT+1~, PRINT+3*
IO DQ, EXIT+2
IO("Q" ASK1+3
IO(0 EXIT+2
IOF EN1+1, EXIT+1
IOM EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7
ION ASK1+3
IOST ASK1+4, EXIT+1
LINE EN1+2*, EN1+3*, EN1+4*, EN1+5*, EN1+6*, EN1+7*, CLEAN+1!
LRCHC DQ+8*, CLEAN+1!, CHK+10, CHK+11*, NEWMSG+3*
LRCHK CLEAN+2!, LOOP1+4*, LOOP1+5, LOOP1+6, CHK+1, CHK+2, CHK+3, CHK+4, CHK+5, CHK+6
, CHK+7
LRCPM DQ+4*, CLEAN+1!, CHK+10
>> LRDEBUG CLEAN
LRDLN DQ+8*, DQ+10, CLEAN+1!, LOOP1+1*, CHK+11*, CHK+12, NEWMSG+3*
LRDV1 CLEAN+1!, LOOP1+1*, LOOP1+2, LOOP1+3, NEWMSG+4*, MAIL+5
LRDV1X CLEAN+2!, MAIL+5*, MAIL+6, MAIL+7, MAIL+9
LRDV2 CLEAN+1!, LOOP1+1*, LOOP1+2, LOOP1+3, NEWMSG+4*, MAIL+5
LRDV2X CLEAN+2!, MAIL+5*, MAIL+6, MAIL+7, MAIL+9
LRDVDT CLEAN+1!, LOOP1+1*, LOOP1+2, LOOP1+3, NEWMSG+4*, MAIL+7
LREND GO+1*, DQ+6, DQ+7*, DQ+9*, DQ+10, EXIT+1, CLEAN+1!, LOOP1+3*, LOOP1+5*, LOOP1+6*
, CHK, CHK+9*, NEWMSG+1, MAIL+3*
LRHD1 DQ+6*, DQ+7, DQ+8*, CLEAN+1!, LOOP1+1*, CHK+10*, NEWMSG+4*, NEWMSG+5, MAIL+1
LRLLN DQ+4*, CLEAN+1!
LRMSM CLEAN+1!
LRMSN DQ+8*, CLEAN+3!, NEWMSG+1, NEWMSG+3*, MAIL+1
LRSEQ DQ+8*, CLEAN+2!, LOOP1+1*, LOOP1+2*, LOOP1+6, CHK+1*, CHK+2*, CHK+3*, CHK+4*, CHK+5*
, CHK+6, CHK+7*, CHK+10*, NEWMSG+3*
LRSLN DQ+9*, CLEAN+1!, LOOP1+1, LOOP1+3, LOOP1+5, LOOP1+6, CHK+8, PRINT+2, PRINT+3
LRSUB CLEAN+1!, MAIL+1*, MAIL+4
LRTXT DQ+9*, EXIT+1*, EXIT+2, CLEAN+3!, LOOP1+1, LOOP1+2, LOOP1+4, CHK+10, CHK+11, NEWMSG+4
LRX CLEAN+2!, CLEAN+3!, LOOP1+4*
LRX4 CLEAN+3!, MAIL+8*
LRXM CLEAN+3!, MAIL+7*, MAIL+8*, MAIL+9
NODE CLEAN+3!, MAIL+7*, MAIL+9
>> POP ASK1+2
U LOOP1+1, LOOP1+2, NEWMSG+4, MAIL+1, MAIL+8
X CLEAN+3!, PRINT+1~, PRINT+3*
XMDUZ CLEAN+3!, MAIL+2*
XMSUB CLEAN+3!, MAIL+1*
XMTEXT CLEAN+3!, MAIL+2*
XMY CLEAN+3!
XMY( MAIL+2*
XMZ CLEAN+3!, MAIL+3, MAIL+4, MAIL+8
Y GO+1, CLEAN+3!
>> ZTDESC ASK1+3*
>> ZTDTH ASK1+3*
>> ZTIO ASK1+3*
>> ZTREQ DQ*
>> ZTRTN ASK1+3*
ZTSK ASK1+2!, ASK1+3, CLEAN+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All