Routine: PSXVCK1

Information

PSXVCK1 ;BIR/WPB-Routine to check for Release Data Ack MSG ;16 Jul 1999 9:56 AM

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA FileMan	6	^%DT NOW^%DTC ^DIC ^DIE $$GET1^DIQ ^DIR
Kernel	4	(,REQ)^%ZTLOAD ($$FMDIFF,$$FMTE)^XLFDT $$NAME^XUAF4 $$IEN^XUMF

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
CMOP	2	PSX RELEASE DATA RECOVERY PSXVCK

Entry Points

Name	Comments	DBIA/ICR reference
EN
EN1	;
QUE
RESET1
RESET
RST
RST1
SEND
HDR
WORK	;S CNT=$G(CNT)+1 K STOP
SITE
GET
RPT
PG
NO
NO1
EX
EX1
KDIR

External References

Name	Field # of Occurrence
^%DT	RESET+5
NOW^%DTC	SEND+7, GET, RPT+1
^%ZTLOAD	QUE
REQ^%ZTLOAD	RST+1
^DIC	EN+3
^DIE	SEND+5, SEND+10
$$GET1^DIQ	EN1+2
^DIR	RESET+1, PG+1, NO
$$FMDIFF^XLFDT	GET
$$FMTE^XLFDT	GET+3, RPT+1
$$NAME^XUAF4	SITE
$$IEN^XUMF	EN1+2, SITE

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"All release data has been acknowledged." Line Location: EN+1
Function Call: WRITE	Prompt: !,"All release data has been acknowledged for ",$G(SITENAME) Line Location: EN1+3
Function Call: WRITE	Prompt: !,"No Data for the Report!" Line Location: EN1+5
Function Call: WRITE	Prompt: !,"Job Started." Line Location: QUE+1
Function Call: WRITE	Prompt: !,"Enter message number or numbers separated by commas" Line Location: RESET1+0
Function Call: WRITE	Prompt: !!,"Messages Resent!!" Line Location: RST1+1
Function Call: WRITE	Prompt: @IOF,! Line Location: HDR+2
Function Call: WRITE	Prompt: ?8,"RELEASE DATA NOT ACKNOWLEDGED" Line Location: HDR+3
Function Call: WRITE	Prompt: !,?SP,$G(SITENAME) Line Location: HDR+4
Function Call: WRITE	Prompt: !,?SP1,$G(DAY),! Line Location: HDR+5
Function Call: WRITE	Prompt: !,"MESSAGE",?10,"DATE/TIME DATA RETURNED",?37,"TOTAL Rx's",! Line Location: HDR+6
Function Call: WRITE	Prompt: "=" Line Location: HDR+6
Function Call: WRITE	Prompt: ! Line Location: HDR+7
Function Call: WRITE	Prompt: !,$J(MSG,7),?10,TIME,?37,$J(RXS,10) Line Location: RPT+9
Function Call: WRITE	Prompt: ! Line Location: PG+1
Function Call: WRITE	Prompt: !,"No data was resent." Line Location: NO1+0
Function Call: WRITE	Prompt: @IOF Line Location: EX+0
Routine Call	DIC Line Location: EN+3
Routine Call	DIE Line Location: SEND+5 SEND+10
Routine Call	DIR Line Location: RESET+1 PG+1 NO

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^PSX(552 - [#552]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSX(552 - [#552]	EN1+2, SITE
^PSX(552.4 - [#552.4]	SEND, SEND+1, SEND+2, SEND+3, SEND+5
^PSX(554 - [#554]	EN+1, EN1+3, RST, RST+1, RST+2, SEND+8, SEND+9, SEND+10, SEND+11!, WORK+2 , GET, GET+2, GET+3, EX+1
^TMP("PSXVMSG"	EN!, EN1+5, RESET+3, GET+6*, RPT, RPT+2, RPT+7, EX1+1!

Label References

Name	Line Occurrences
EX	EN+3, EN1+5, EN1+7, QUE+2, RESET+5, RST+1, RST1+2
EX1	NO1
GET	WORK+2
HDR	RPT+4, RPT+5
KDIR	EN+3, RESET, RESET+2, PG, NO
NO1	NO
PG	EN1+5, RPT+5
QUE	RESET+5
RESET	EN1+6, NO
RESET1	RESET+1
RPT	EN1+4
RST1	RST
SEND	RST1
SITE	HDR+1
WORK	EN1+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	RESET+6!, SEND+10, SEND+11!, GET, RPT+1!
%DT	RESET+5*!, RESET+6!
%DT("A"	RESET+5*, RESET+6!
%DT("B"	RESET+5*, RESET+6!
%DT(0	RESET+5*, RESET+6!
ACK	GET+3*, GET+6, GET+7!
ACKD	RPT+8*, RPT+9, RPT+11!
AGNCY	EN1+2!, SITE!
CHK	RPT+1, RPT+4, RPT+12, EX1!
CKR	EX1+1!
CKR1	EX1+1!
CNT	RESET+1, GET+6*, EX1!
DA	SEND+4, SEND+5!, SEND+9, SEND+11!
DA(1	SEND+4, SEND+9
DAY	HDR+5, RPT+1*, EX1!
DIC	EN+2*, EN+3!, EN1+2!, KDIR!
DIC("A"	EN+2*, KDIR!
DIC(0	EN+2*, KDIR!
DIE	SEND+4, SEND+5!, SEND+9, SEND+11!
DIR	RESET+1!, PG+1!, NO!, KDIR!
DIR("?"	RESET+1*
DIR("A"	RESET+1, NO, KDIR!
DIR("B"	NO*, KDIR!
DIR(0	RESET+1, PG+1!, NO*, KDIR!
DIROUT	RESET+1, PG+1!, NO, KDIR!
DIRUT	RESET+1, PG+1!, NO, KDIR!
DR	SEND+5!, SEND+10, SEND+11!
DTOUT	EN+3, RESET+1, RESET+5, RESET+6!, PG+1!, NO, KDIR!
DUOUT	EN+3, RESET+1, PG+1!, NO, KDIR!
FAC	SITE, RPT+2*, RPT+4, RPT+7, RPT+12, EX1!
I	RST1, HDR+6, HDR+8!, EX1!
IOF	HDR+2, EX
LN	HDR+7, RPT+5, RPT+10, EX1!
MSG	RPT+2*, RPT+7, RPT+9, EX1!
MSGN	GET+3, GET+4, GET+6, RPT+8, EX1!
NODE	RPT+7*, RPT+8, RPT+11!, EX1!, EX1+1!
NUM	RESET+3*, EX1+1!
OLD	SEND+8*, SEND+9, SEND+10, SEND+11!, EX1+1!
R	RESET+3*, RESET+4!
RC	RST, RST+1, RST+2, EX+1, EX1+2!
REC	WORK+2*, GET, GET+2, GET+3, EX1!
REPLY	RESET!, RESET+3*, RESET+6!, RST1, EX1!
RESP	RESET+6!, EX1+2!
RPLY	RESET+1*, RESET+3, RESET+4!
RX	EX1+2!
RXS	RPT+8*, RPT+9, RPT+11!, EX1!
SITE	EN+4, EN1+2, EN1+3, RESET+3, WORK+2, GET+6, EX1!
>> SITE1	EN+3*, EN+4, EN1+2
SITENAME	EN1+2, EN1+3, HDR+4, SITE, EX1!
SP	EN1+2, HDR+4, SITE, EX1!
SP1	HDR+5, RPT+1*, EX1!
STOP	HDR, WORK+1!, RPT+2, RPT+3, RPT+6, PG+1*, EX1!
TIME	GET+3, GET+6, GET+7!, RPT+8, RPT+9, RPT+11!, EX1!
TIMECHK	GET*, GET+1, EX1+1!
TRX	GET+3*, GET+6, GET+7!, EX1!
TSKTM	QUE, RESET+5*, EX1+2!
TXMZ	RST1*, SEND, SEND+1, SEND+2, SEND+8, SEND+11!
X	EN+3, EN1+2!, RESET1!, RESET+1, RESET+6!, SITE!, KDIR!
XX	SEND+1*, SEND+2, SEND+3, SEND+4, SEND+5, SEND+6!, EX1!
Y	EN+3, EN1+2!, RESET+1, RESET+5, RESET+6!, SITE!, NO, KDIR!
ZTDESC	QUE, RST+1, EX1+2!
ZTDTH	QUE, RST+1, EX1+2!
ZTIO	QUE, RST+1, EX1+2!
>> ZTREQ	RST+2*
ZTRTN	QUE, RST+1, EX1+2!
>> ZTSAVE("REPLY"	QUE, RST+1, EX1+2!
>> ZTSAVE("TSKTM"	EX1+2!
>> ZTSK	QUE+1, RST1+1, EX
ZZ	SEND+1, SEND+2, SEND+3, SEND+4, SEND+5, SEND+6!

Customize PDF page

Package: CMOP