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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSXAUTO

Package: CMOP

Routine: PSXAUTO


Information

PSXAUTO ;BIR/WPB-Routine to Automatically Run CMOP Suspense ;14 DEC 2001

Source Information

Source file <PSXAUTO.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
CMOP 7 SERV^PSXMISC  AUTOMSG^PSXMSGS  GRP1^PSXNOTE  (,EN1)^PSXRCVRY  LOCK^PSXRSUS  PSXSTAT^PSXRSYU  SET^PSXSYS  
VA Fileman 4 NOW^%DTC  ^DIE  $$GET1^DIQ  ^DIR  
Kernel 3 ^%ZTLOAD  ($$FMADD,$$FMDIFF)^XLFDT  (EDIT,OPTSTAT,RESCH)^XUTMOPT  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
CMOP 3 PSXAUTOC  PSXR AUTO TRANSMIT  PSXR SCHEDULED NON-CS TRANS  

Entry Points

Name Comments DBIA/ICR reference
EDTBSCH ; display/edit both schedules as they are interactive with each other
EN ;Entry from Kernel Option Tasking NON-CS
STOPET ; set a stop auto-error-trap node
CHKSCH() ;CHECK Task schedules for 2 hour difference
EDIT ;Edit scheduling of transmissions and parameter "Number of days to transmit"
STARTCS ; entry from edit auto CS Schedule menu option (future - post *41))
TFLAG
DELSCH ;Delete startup time and its pending task
START ;
DSPSCH ;Display schedules for transmissions
GETSCH ; get schedule information from Kernel Option Scheduling
FILE ; if either schedule changed send appropriate message
ENCS ; entry from auto CS Tasking Option Schedule (future-post *41)
ASK
EXIT ;
STARTET ; remove any stop node
LOCK ; >>>**** LOCK OF FILE 550.1 ****<<<
RQUEMSG ; lock on 550.1 not achieved send transmission requeued message

External References

Name Field # of Occurrence
NOW^%DTC RQUEMSG+3
^%ZTLOAD RQUEMSG+8
^DIE TFLAG+7, EDIT+6
$$GET1^DIQ TFLAG+9, GETSCH+7
^DIR EDTBSCH+3, EDIT+11
SERV^PSXMISC FILE+3, FILE+4
AUTOMSG^PSXMSGS FILE+3, FILE+4
GRP1^PSXNOTE RQUEMSG+17
^PSXRCVRY TFLAG+1
EN1^PSXRCVRY TFLAG+5
LOCK^PSXRSUS TFLAG+12
PSXSTAT^PSXRSYU START+9, TFLAG+2, EXIT+3
SET^PSXSYS START+5, TFLAG+4, EDIT+5, DELSCH+4, GETSCH+2, EXIT+2
$$FMADD^XLFDT TFLAG+10, RQUEMSG+4
$$FMDIFF^XLFDT CHKSCH+11
^XMD RQUEMSG+19
EDIT^XUTMOPT EDIT+4
OPTSTAT^XUTMOPT GETSCH+4
RESCH^XUTMOPT DELSCH+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You are not authorized to use this option!"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !,"You are not authorized to use this option!"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,"You are not authorized to use this option!"
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!,"The Station number is missing in the Institution file.",!,"The Station number is required for CMOP transmissions.",!,"Please contact your IRM and have this problem corrected, then try again."
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,"The CMOP is not an active CMOP site and can not schedule auto transmissions."
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !,"A transmission is in progress, try later."
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !,"A transmission is in progress, try later."
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !,$S(PSXCS:"",1:"NON-"),"CS Cancel Schedule Sent to CMOP"
  • Line Location: FILE+3
Function Call: WRITE
  • Prompt: !,$S(PSXCS:"",1:"NON-"),"CS New Schedule Sent to CMOP"
  • Line Location: FILE+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EDTBSCH+1
Function Call: WRITE
  • Prompt: @IOF,!,"Sorry, there has to be at least 2 hours between the daily transmission runs.",!
  • Line Location: EDIT+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDIT+11
Function Call: WRITE
  • Prompt: !,?25,"CS Transmission",?55,"Non-CS Transmission"
  • Line Location: DSPSCH+7
Function Call: WRITE
  • Prompt: !,"Scheduled to Run",?25,CSDATE,?55,NCSDATE
  • Line Location: DSPSCH+8
Function Call: WRITE
  • Prompt: !,"Frequency (hrs)",?25,CSHOUR,?55,NCSHOUR
  • Line Location: DSPSCH+9
Function Call: WRITE
  • Prompt: !,"Thru days",?25,CSTHRU,?55,NCSTHRU
  • Line Location: DSPSCH+10
Function Call: WRITE
  • Prompt: !,"Tasking ID",?25,CSTSK,?55,NCSTSK
  • Line Location: DSPSCH+11
Routine Call
  • DIE
  • Line Location:
    • TFLAG+7
    • EDIT+6
Routine Call
  • DIR
  • Line Location:
    • EDTBSCH+3
    • EDIT+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSX(550 - [#550] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DSPSCH+6, RQUEMSG+5
^PSX(550 - [#550] START+6, START+7, EN+2, EN+3, TFLAG, TFLAG+2
^PSX(550.1 - [#550.1] START+8, LOCK+1, EXIT+1
^PSX(550.2 - [#550.2] TFLAG+5
^XTMP("PSXAUTOERR" STOPET+1*, STARTET+1!
^XUSEC("PSX XMIT" START+3
^XUSEC("PSXAUTOX" START+2
^XUSEC("PSXCMOPMGR" START+4

Label References

Name Line Occurrences
$$CHKSCH EDIT+8
DELSCH EDIT+10
DSPSCH EDTBSCH+1
EDIT EDTBSCH+7
EDTBSCH ASK, EDTBSCH+8
EXIT START+9, FILE+6, LOCK+1
GETSCH START+11, FILE+1, CHKSCH+2, CHKSCH+4, DSPSCH+2, DSPSCH+4
RQUEMSG LOCK+1
START PSXAUTO+6
TFLAG TFLAG

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% RQUEMSG+4, RQUEMSG+5, EXIT+4!
%DT EXIT+4!
CSDATE CHKSCH+1~, CHKSCH+3*, CHKSCH+8*, CHKSCH+9, CHKSCH+10, DSPSCH+1~, DSPSCH+3*, DSPSCH+6*, DSPSCH+8
CSHOUR CHKSCH+1~, CHKSCH+3*, DSPSCH+1~, DSPSCH+3*, DSPSCH+9
CSTHRU CHKSCH+1~, CHKSCH+3*, DSPSCH+1~, DSPSCH+3*, DSPSCH+10
CSTSK CHKSCH+1~, CHKSCH+3*, CHKSCH+6, DSPSCH+1~, DSPSCH+3*, DSPSCH+11
DA TFLAG+7!*, EDIT+6*
DIC TFLAG+7!
DIE TFLAG+7!*, EDIT+6*
DIR EDTBSCH+2!, EDTBSCH+3!, EDIT+11!, EXIT+5!
DIR("A" EDTBSCH+2*, EDIT+11*
DIR(0 EDTBSCH+2*, EDIT+11*
DIROUT EXIT+6!
DIRUT EXIT+5!
DR TFLAG+7!*, EDIT+6*
DT TFLAG+10, CHKSCH+8, STOPET+1
DTE EXIT+4!
DTOUT EXIT+5!
DTTM FILE+5!, RQUEMSG+5*, RQUEMSG+11, EXIT+4!
DTTM( START+11*, FILE+2, FILE+3
DUOUT EXIT+5!
DUZ START+2, START+3, START+4, START+10
FREQ EXIT+4!
IOF EDTBSCH+1, EDIT+9
LCNT EXIT+4!
LL EXIT+4!
N EXIT+4!
NCSDATE CHKSCH+1~, CHKSCH+5*, CHKSCH+8*, CHKSCH+9, CHKSCH+10, DSPSCH+1~, DSPSCH+5*, DSPSCH+6*, DSPSCH+8
NCSHOUR CHKSCH+1~, CHKSCH+5*, DSPSCH+1~, DSPSCH+5*, DSPSCH+9
NCSTHRU CHKSCH+1~, CHKSCH+5*, DSPSCH+1~, DSPSCH+5*, DSPSCH+10
NCSTSK CHKSCH+1~, CHKSCH+5*, CHKSCH+6, DSPSCH+1~, DSPSCH+5*, DSPSCH+11
NEXT EXIT+6!
NUM EXIT+4!
>> PSOINST TFLAG+11*
PSXAUTO FILE+3*, FILE+4*, EXIT+4!
PSXCS STARTCS+1*, START+1*, START+11*, FILE+1*, FILE+2, FILE+3, FILE+4, ENCS+1*, EN+1*, EN+4*
, TFLAG+9, EDTBSCH+5~, EDTBSCH+6*, EDIT+2*, EDIT+3, EDIT+6, EDIT+11, CHKSCH+1~, CHKSCH+2*, CHKSCH+4*
, DELSCH+1*, DELSCH+2, GETSCH+1*, GETSCH+3, GETSCH+7, DSPSCH+1~, DSPSCH+2*, DSPSCH+4*, RQUEMSG+1*, RQUEMSG+6
, RQUEMSG+9, RQUEMSG+11
PSXDATE START+11, FILE+2, FILE+3, CHKSCH+3, CHKSCH+5, GETSCH+5*, GETSCH+6*, DSPSCH+3, DSPSCH+5, EXIT+4!
>> PSXDIVML TFLAG+11*
PSXDUZ START+10*, EXIT+4!
>> PSXFLAG TFLAG+11*
PSXHOUR FILE+3*, CHKSCH+3, CHKSCH+5, GETSCH+5*, GETSCH+6*, DSPSCH+3, DSPSCH+5, EXIT+4!
PSXLOCK START+9, EXIT+6!
>> PSXSTAT START+9*, TFLAG+2*, EXIT+3*
PSXSYS START+5, TFLAG+2~*, TFLAG+4, TFLAG+7, TFLAG+9, TFLAG+11, EDIT+5, EDIT+6, DELSCH+4, GETSCH+2
, GETSCH+7, EXIT+2, EXIT+6!
>> PSXTRANS TFLAG+11*
PSXXDIV EXIT+6!
PSXZTSK EN+4*, GETSCH+6*, EXIT+4!
RE EXIT+6!
RECD EXIT+4!
RR EXIT+4!
SDATE EXIT+5!
SITE EXIT+4!
START EXIT+4!
STDATE EXIT+4!
THRU TFLAG+9*, TFLAG+10, CHKSCH+3, CHKSCH+5, GETSCH+5*, GETSCH+7*, DSPSCH+3, DSPSCH+5, EXIT+6!
TIME EXIT+4!
>> TPRTDT TFLAG+10*
TSDIF CHKSCH+1~, CHKSCH+11*, CHKSCH+13, CHKSCH+14
TSK GETSCH+4!
TSK(1 CHKSCH+3, CHKSCH+5, GETSCH+4*, GETSCH+6, DSPSCH+3, DSPSCH+5
>> TXT(1 RQUEMSG+11*
>> TXT(2 RQUEMSG+12*
>> TXT(3 RQUEMSG+13*
>> TXT(4 RQUEMSG+14*
>> TXT(5 RQUEMSG+15*
>> TXT(6 RQUEMSG+16*
U GETSCH+6
X EXIT+4!
>> X1 CHKSCH+9*, CHKSCH+10*, CHKSCH+11
>> X2 CHKSCH+9*, CHKSCH+10*, CHKSCH+11
XMDUN EXIT+4!
XMDUZ RQUEMSG+9*, EXIT+4!
XMSUB RQUEMSG+9*, EXIT+4!
>> XMTEXT RQUEMSG+10*
XMZ EXIT+4!
XX TFLAG+9*, EDIT+3*, EDIT+4, DELSCH+2*, DELSCH+3, GETSCH+3*, GETSCH+4, GETSCH+7*, EXIT+6!
Y EDTBSCH+4, EDTBSCH+6, DSPSCH+6*, RQUEMSG+5*, EXIT+4!
ZTDESC RQUEMSG+6*, EXIT+5!
ZTDTH RQUEMSG+4*, EXIT+5!
ZTIO RQUEMSG+7*, EXIT+5!
ZTREQ EXIT+5!, EXIT+7*
ZTRTN RQUEMSG+7*, EXIT+5!
ZTSAVE EXIT+5!
ZTSAVE("PSXCS" RQUEMSG+2*
ZTSK EN+4*, TFLAG+7, RQUEMSG+12, EXIT+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All