Routine: PSXAUTO

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

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!

Customize PDF page

Package: CMOP

Routine: PSXAUTO

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: