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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: XMRPCTS1

Package: MailMan

Routine: XMRPCTS1


Information

XMRPCTS1 ;(KC-VAMC)/XXX-Simple PCTS front end to MailMan ;02/06/99 10:32

Source Information

Source file <XMRPCTS1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
MailMan 7 EN^XM  (BODY,EDITOFF,EDITON)^XMJMS  TOWHOM^XMJMT  $$JD^XMRPCTS0  (ADDR,CLEANUP,INIT)^XMXADDR  (BLDNSND,CRE8XMZ,MOVEBODY)^XMXSEND  KILLMSG^XMXUTIL  
Kernel 1 $$RJ^XLFSTR  
VA FileMan 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
INIT(XMDUZ,XMUS,XMSTR,XMRI,XMTO,XMABORT) ;
RI(XMRI,XMABORT) ;
TO(XMTO,XMABORT) ;
PROCESS(XMDUZ,XMSTR,XMFM,XMRI,XMTO,XMZ,XMABORT) ;
XMIT(XMDUZ,XMZ,XMINSTR,XMABORT) ;
E ; Edit Text
NCHECK(XMZ) ; If "NNNN" found in text, issue error
T ; Transmit
Q
READY(XMDUZ,XMINSTR,XMRESTR,XMABORT) ;
EXIT ;

External References

Name Field # of Occurrence
^DIR RI+5, TO+5, XMIT+8, READY+6
$$RJ^XLFSTR INIT+8
EN^XM INIT+5
BODY^XMJMS E+1
EDITOFF^XMJMS XMRPCTS1+15
EDITON^XMJMS XMRPCTS1+13
TOWHOM^XMJMT PROCESS+21
$$JD^XMRPCTS0 INIT+10
ADDR^XMXADDR READY+9
CLEANUP^XMXADDR PROCESS+23
INIT^XMXADDR PROCESS+18
BLDNSND^XMXSEND T+2
CRE8XMZ^XMXSEND XMRPCTS1+12
MOVEBODY^XMXSEND PROCESS+16
KILLMSG^XMXUTIL XMRPCTS1+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"TWIX Send aborted !",$C(7)
  • Line Location: XMRPCTS1+17
Function Call: WRITE
  • Prompt: !!,"DUZ not defined..."
  • Line Location: INIT+3
Function Call: WRITE
  • Prompt: !!,"Create PCTS/AMS message.",!
  • Line Location: INIT+6
Function Call: WRITE
  • Prompt: "<blank>"
  • Line Location: RI+6
Function Call: WRITE
  • Prompt: !,"You may add recipients to this message."
  • Line Location: PROCESS+20
Function Call: WRITE
  • Prompt: !!,"<< 4 CONSECUTIVE N's ARE NOT ALLOWED IN THE MSG TEXT !!! >>",!!,$C(7)
  • Line Location: NCHECK+5
Function Call: WRITE
  • Prompt: !,"Answer: ",!
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: !,"T (or just return) to PERMANENTLY transmit the message."
  • Line Location: Q+1
Function Call: WRITE
  • Prompt: !,"E to Edit the text of the message."
  • Line Location: Q+2
Function Call: WRITE
  • Prompt: !,"'^' to cancel the message."
  • Line Location: Q+3
Function Call: WRITE
  • Prompt: !,"Send to: XXX@VHA.DMIA"
  • Line Location: READY+8
Routine Call
  • DIR
  • Line Location:
    • RI+5
    • TO+5
    • XMIT+8
    • READY+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("XMY" EXIT+2!
^TMP("XMY0" EXIT+2!
^XMB(3.9 - [#3.9] INIT+8, NCHECK+3

Label References

Name Line Occurrences
$$NCHECK E+1
@( XMIT+9
E PROCESS+17
INIT XMRPCTS1+11
PROCESS XMRPCTS1+14
READY PROCESS+19
RI INIT+11
TO INIT+12
XMIT PROCESS+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% XMRPCTS1+8*, PROCESS+1~, PROCESS+2*, PROCESS+3*, PROCESS+6
DIC EXIT+1!
DIR RI+1~, TO+1~, XMIT+1~, READY+1~
DIR("?" RI+4*, TO+4*, READY+4*, READY+5*
DIR("??" XMIT+7*
DIR("A" RI+3*, TO+3*, XMIT+5*, READY+3*
DIR("B" XMIT+6*
DIR(0 RI+2*, TO+2*, XMIT+4*, READY+2*
DIRUT RI+1~, TO+1~, XMIT+1~, XMIT+8, READY+1~, READY+6
DTOUT RI+1~, RI+5, TO+1~, TO+5, EXIT+1!
DUOUT RI+1~, RI+5, TO+1~, TO+5
DUZ INIT+2
I PROCESS+1~, PROCESS+3*, PROCESS+4*, PROCESS+5*, PROCESS+6*, PROCESS+7*, PROCESS+8*, PROCESS+9*, PROCESS+10*, PROCESS+11*
, PROCESS+12*, PROCESS+13*, PROCESS+14*, PROCESS+15*, NCHECK+1~, NCHECK+2*, NCHECK+3*, EXIT+1!
NCNT NCHECK+1~, NCHECK+2*, NCHECK+3*, NCHECK+4
U INIT+8
X RI+1~, TO+1~, XMIT+1~
XCNP EXIT+1!
XMABORT XMRPCTS1+2~, XMRPCTS1+10*, XMRPCTS1+11, XMRPCTS1+12*, XMRPCTS1+14, XMRPCTS1+16, INIT~, INIT+4*, INIT+11, INIT+12
, RI~, RI+5*, TO~, TO+5*, PROCESS~, PROCESS+17, PROCESS+19, PROCESS+21, PROCESS+22, XMIT~
, XMIT+3, XMIT+8*, E+1, READY~, READY+6*
XMDUZ XMRPCTS1+11, XMRPCTS1+13, XMRPCTS1+14, XMRPCTS1+15, INIT~, PROCESS~, PROCESS+19, PROCESS+21, PROCESS+22, XMIT~
, E+1, T+2, READY~, READY+9
XMFINISH XMIT+1~, XMIT+2*, XMIT+3, T+1*
XMFM XMRPCTS1+2~, XMRPCTS1+7*, XMRPCTS1+8, XMRPCTS1+14, PROCESS~, PROCESS+7, EXIT+1!
XMINSTR PROCESS+1~, PROCESS+19, PROCESS+21, PROCESS+22, XMIT~, T+2, READY~, READY+9
XMOUT EXIT+1!
>> XMPCTS0("ERR" XMRPCTS1+8
XMRESTR PROCESS+1~, PROCESS+19, PROCESS+21, E+1, READY~, READY+9
XMRI XMRPCTS1+2~, XMRPCTS1+11, XMRPCTS1+14, INIT~, INIT+11, RI~, RI+7*, RI+8*, PROCESS~, PROCESS+3
, PROCESS+5, EXIT+1!
XMSEQ INIT+1~, INIT+8*, INIT+10, EXIT+1!
XMSTR XMRPCTS1+2~, XMRPCTS1+11, XMRPCTS1+14, INIT~, INIT+10*, PROCESS~, PROCESS+5, EXIT+1!
XMTEXT PROCESS+1~
XMTEXT( PROCESS+5*, PROCESS+6*, PROCESS+7*, PROCESS+8*, PROCESS+9*, PROCESS+10*, PROCESS+11*, PROCESS+12*, PROCESS+13*, PROCESS+14*
, PROCESS+15*
XMTM EXIT+1!
XMTO XMRPCTS1+2~, XMRPCTS1+11, XMRPCTS1+14, INIT~, INIT+12, TO~, TO+6*, PROCESS~, PROCESS+8, EXIT+1!
XMUS XMRPCTS1+2~, XMRPCTS1+6*, XMRPCTS1+8, XMRPCTS1+11, INIT~, INIT+10, EXIT+1!
XMXUSEC EXIT+1!
XMZ XMRPCTS1+12, XMRPCTS1+13, XMRPCTS1+14, XMRPCTS1+19, PROCESS~, PROCESS+16, PROCESS+22, XMIT~, E+1, NCHECK~
, NCHECK+3, T+2
Y RI+1~, RI+6*, RI+7, TO+1~, TO+6, XMIT+1~, XMIT+9, READY+1~, READY+7
ZTPAR EXIT+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All