Routine: PSXRTRAN

Information

PSXRTRAN ;BIR/WPB/PDW-Batch Retransmission Routine ;13 Mar 2002 3:09 PM

Source Information

Call Graph

Call Graph Total: 24

Package	Total	Call Graph
CMOP	12	EN^PSXBLD (,EN)^PSXERR ERRMSG^PSXERR1 RESET^PSXNEW (EN,GRP)^PSXNOTE (GETDATA,OERRLOCK)^PSXRPPL OERRCLR^PSXRSUS (AFTER1,PSXSTAT)^PSXRSYU (CANMSG,REPORT,SETSTAT)^PSXRTRA1 START^PSXRXU SET^PSXSYS TOP^PSXUTL
VA Fileman	5	NOW^%DTC ^DIC ^DIE ($$GET1,GETS)^DIQ ^DIR
Kernel	3	^%ZTLOAD $$FMTE^XLFDT $$KSP^XUPARAM
MailMan	2	XMZ^XMA2 (,ENT1)^XMD
Pharmacy Data Management	1	PSOUL^PSSLOCK
Registration	1	DEM^VADPT

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
CMOP	3	PSXERR1 PSXR RETRANSMIT PSXRTRA1

Entry Points

Name	Comments	DBIA/ICR reference
RESET
F1
TESTREL(RXDA,FILL)	; test release date, gather RX data, store for report
CANMSG	; lock on 550.1 not achieved send transmission cancelled message
ENTRAN	;Entry for data transmission
XMZ
NO
RESETRX	; pull, reset RXs from 550.2 RX multiple, if released do not send, make report
LOCK	; >>>** LOCK OF FILE 550.1 **<<<
FILE
NOTRAN	;no RXs passed testing to go into a new transmission
START
QUE	;
SDT	;functional code as to SDT^PSXRPPL test and set individual RXs into 550.2
CLOSED
MSG	;Get patient order data
EXIT
TXT
HDR	;Get header data

External References

Name	Field # of Occurrence
NOW^%DTC	FILE+1
^%ZTLOAD	QUE+3
^DIC	START+10, RESETRX+23
^DIE	MSG+5, FILE+3, F1+1
$$GET1^DIQ	START+24, CLOSED+6, CLOSED+8, RESETRX+17, RESETRX+19, MSG+10, TESTREL+3
GETS^DIQ	START+13, START+14
^DIR	CLOSED+9
PSOUL^PSSLOCK	SDT+7
EN^PSXBLD	RESETRX+14
^PSXERR	RESETRX+13
EN^PSXERR	RESETRX+15
ERRMSG^PSXERR1	CLOSED+2
RESET^PSXNEW	RESETRX+9
EN^PSXNOTE	F1+6
GRP^PSXNOTE	NOTRAN+5
GETDATA^PSXRPPL	SDT+6
OERRLOCK^PSXRPPL	SDT+7
OERRCLR^PSXRSUS	F1+9
AFTER1^PSXRSYU	F1+4
PSXSTAT^PSXRSYU	QUE+7, RESET
CANMSG^PSXRTRA1	CANMSG+1
REPORT^PSXRTRA1	F1+12
SETSTAT^PSXRTRA1	F1+11
START^PSXRXU	F1+8
SET^PSXSYS	START+3, START+23
TOP^PSXUTL	START+13, START+14
DEM^VADPT	TESTREL+4
$$FMTE^XLFDT	TESTREL+9
XMZ^XMA2	XMZ+1
^XMD	NOTRAN+6
ENT1^XMD	MSG+14
$$KSP^XUPARAM	RESETRX+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"CMOP processing is inactivated, re-transmission of data not allowed." Line Location: START+4
Function Call: WRITE	Prompt: !,"There is another job in progress, try again later." Line Location: START+6
Function Call: WRITE	Prompt: !,"There is another job in progress, try again later." Line Location: START+7
Function Call: WRITE	Prompt: !!,"No data to re-transmit." Line Location: START+8
Function Call: WRITE	Prompt: !,"Transmission: "_TRAN(.01) Line Location: START+16
Function Call: WRITE	Prompt: !,"Date: "_TRAN(5) Line Location: START+17
Function Call: WRITE	Prompt: !,"Division: "_TRAN(2) Line Location: START+18
Function Call: WRITE	Prompt: !,"Type: "_TRAN(17) Line Location: START+19
Function Call: WRITE	Prompt: !,"CMOP Host: "_TRAN(3) Line Location: START+20
Function Call: WRITE	Prompt: !,"Total RXs: "_TRAN(14) Line Location: START+21
Function Call: WRITE	Prompt: !!,$$GET1^DIQ(550,+PSXSYS,.01)_" is the active host for transmitting "_TRAN(17) Line Location: START+24
Function Call: WRITE	Prompt: !,"The transmission selected has been acknowledged and cannot be re-transmitted." Line Location: CLOSED+1
Function Call: WRITE	Prompt: !!,"This transmission has been re-transmitted once and cannot",!,"be retransmitted again." Line Location: CLOSED+2
Function Call: WRITE	Prompt: !! Line Location: CLOSED+3
Function Call: WRITE	Prompt: !," * Coordinate re-transmissions with ",$$GET1^DIQ(550,+PSXSYS,.01)," CMOP *",! Line Location: CLOSED+8
Function Call: WRITE	Prompt: !!,"Job Cancelled" Line Location: QUE+5
Function Call: WRITE	Prompt: !!,"Re-transmission Queued "_ZTSK Line Location: QUE+6
Function Call: WRITE	Prompt: !,"You are not authorized to use this option!" Line Location: NO+0
Routine Call	DIE Line Location: MSG+5 FILE+3 F1+1
Routine Call	DIC Line Location: START+10 RESETRX+23
Routine Call	DIR Line Location: CLOSED+9

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DIC(4.2 - [#4.2]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ
^PSX(550 - [#550]	GET1^DIQ
^PSX(550.1 - [#550.1]	Classic Fileman Calls
^PSX(550.2 - [#550.2]	Classic Fileman Calls, GET1^DIQ, GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	CLOSED+7
^PS(52.5 - [#52.5]	RESETRX+8, SDT+2, SDT+3
^PS(59 - [#59]	CLOSED+7, LOCK+4, RESETRX+17
^PS(59.7 - [#59.7]	LOCK+6
^PSRX - [#52]	TESTREL+5, TESTREL+6, TESTREL+7, TESTREL+10
^PSX("CMOP TRANS"	EXIT+4!
^PSX(550 - [#550]	START+6, MSG+10
^PSX(550.1 - [#550.1]	LOCK+1, RESETRX+18, MSG+2, MSG+3, MSG+4, EXIT+1
^PSX(550.2 - [#550.2]	START+8, CLOSED, CLOSED+2, CLOSED+4, CLOSED+6, CLOSED+7, RESETRX+3, RESETRX+16, FILE, FILE+4 , F1, F1+2
^TMP($J	LOCK+3!, RESETRX+1!, EXIT+5!
^XMB(3.9 - [#3.9]	TXT, MSG+8
^XTMP("PSXDIVERTCMOP"	MSG+12, MSG+13
^XUSEC("PSX XMIT"	START+2
^XUSEC("PSXCMOPMGR"	START
^XUSEC("PSXRTRAN"	START+1

Label References

Name	Line Occurrences
$$TESTREL	RESETRX+6
CANMSG	LOCK+2
EXIT	START+6, START+7, START+8, START+11, START+24, CLOSED+1, CLOSED+10, QUE+5, QUE+8, LOCK+2 , RESETRX+12, RESET+1
F1	F1
FILE	FILE
NO	START, START+1, START+2
NOTRAN	RESETRX+12
RESET	CLOSED+1, CLOSED+2, CLOSED+10
SDT	RESETRX+10
TXT	HDR+1, HDR+3, HDR+7, MSG+3, MSG+4, MSG+7
XMZ	XMZ+2

Name	Field # of Occurrence
^(0	RESETRX+3, MSG+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	FILE+1, EXIT+3!
BAD	EXIT+3!
BAT	MSG+15!
BMSG	CLOSED+4*, CLOSED+5, EXIT+2!
CLOSED	CLOSED*, CLOSED+1, EXIT+2!
CNTX	EXIT+2!
DA	MSG+5!, MSG+15!, FILE+2, FILE+4!, F1+1*, F1+2!
DFN	RESETRX+5, TESTREL+2~, TESTREL+3, SDT+4
DIC	START+9, START+10!, RESETRX+23!
DIC("S"	START+9*, START+10!
DIC(0	START+9, START+10!, RESETRX+23
DIE	MSG+5!, MSG+15!, FILE+2, FILE+4!, F1+1*, F1+2!
DIR	CLOSED+9!, EXIT+3!
DIR("A"	CLOSED+9*
DIR("B"	CLOSED+9*
DIR(0	CLOSED+9*
DIROUT	EXIT+3!
DIRUT	CLOSED+10, EXIT+3!
DIV	CLOSED+7*, EXIT+3!
DOMAIN	RESETRX+21~, MSG+10*, MSG+12, EXIT+2!
DR	MSG+5!, MSG+15!, FILE+3, F1+1*
DT	MSG+8
DTOUT	START+11, EXIT+3!
DUOUT	START+11, EXIT+3!
DUZ	START, START+1, START+2, CLOSED+5
EMSG	CLOSED+4, RESETRX+17, RESETRX+18, RESETRX+20, EXIT+2!
FILL	RESETRX+5*, RESETRX+6, RESETRX+9, TESTREL~, TESTREL+5, TESTREL+6, TESTREL+7, TESTREL+10, SDT+5~
FILLX	TESTREL+2~, TESTREL+10*
FLAG	EXIT+2!
I	LOCK+1*, LOCK+2, EXIT+4!
ION	LOCK+6
LASTBAT	EXIT+2!
LCNT	TXT, RESETRX+1!, RESETRX+21~, RESETRX+22, MSG+8, EXIT+2!
LMSG	MSG+1, MSG+2, FILE+2, EXIT+3!
LNCT	EXIT+2!
LNTX	MSG+2*, MSG+3, MSG+4, EXIT+3!
MCT	MSG+2*, FILE+2, EXIT+3!
MSG	MSG+1, MSG+2, MSG+3, MSG+4, MSG+5, MSG+6, EXIT+2!
NI	RESETRX+3*, RESETRX+4~
OLDBAT	START+12, START+13, START+14, CLOSED, CLOSED+2, CLOSED+4, CLOSED+6, CLOSED+7, RESETRX+3, RESETRX+9 , RESETRX+16, FILE+3, F1, F1+1, F1+2, F1+3, F1+7, F1+10*, EXIT+2!
OLDBATNM	START+15*, HDR+1, EXIT+4!, NOTRAN+1
OLDSDT	RESETRX+16*, EXIT+3!
ORD	TXT, RESETRX+21~, HDR+1, HDR+3, HDR+7, MSG+3, MSG+4, MSG+7!
PATNM	TESTREL+2~, TESTREL+3*
>> PFLAG	RESETRX+15*
>> PSOINST	LOCK+7*
>> PSOLAP	LOCK+6*
>> PSOPAR	LOCK+4*
>> PSOSITE	CLOSED+4*, LOCK+4, LOCK+5, RESETRX+17
>> PSOSYS	LOCK+6*
PSX	MSG+4*, MSG+15!
PSX(	START+7
PSXBAT	LOCK+3!, RESETRX+12, RESETRX+18, RESETRX+19, MSG+2, MSG+5, FILE, FILE+2, FILE+4, F1+1 , EXIT+3!
PSXBATNM	RESETRX+19*, RESETRX+20, HDR+1, MSG+7, EXIT+4!
>> PSXCS	START+23*, LOCK+5
PSXDIV	RESETRX+17*, RESETRX+20, EXIT+2!
PSXDUZ	CLOSED+5*, RESETRX+17, EXIT+3!
PSXEND	RESETRX+17, RESETRX+18, EXIT+2!
>> PSXERFLG	RESETRX+2*, RESETRX+13, RESETRX+15
PSXFLAG	LOCK+6, RESETRX+2, F1+5*, EXIT+3!
PSXFRST	FILE+2*, FILE+3, EXIT+3!
PSXHDR	RESETRX+20*, HDR+1, EXIT+3!
PSXJOB	START+5, RESETRX+13, EXIT+3!
PSXLAST	FILE+2*, FILE+3, EXIT+2!
PSXMFLAG	EXIT+2!
PSXMSGCT	RESETRX+22, MSG+2, MSG+7, FILE+3, EXIT+2!
PSXOLD	F1+3*, F1+7, F1+10, EXIT+3!
PSXORD	MSG+15!
PSXORD(	HDR+7
PSXORD("A"	HDR+3
PSXORD("B"	HDR+4*
PSXORD("C"	HDR+5*
PSXORD("D"	HDR+6*
>> PSXREF	RESETRX+20*
>> PSXRTRAN	LOCK+9, RESETRX+2
PSXRTRN	LOCK+9, MSG+6, F1+5*, EXIT+3!
PSXRXCT	RESETRX+22, MSG+4, MSG+7, FILE+3, EXIT+2!
PSXRXD	EXIT+3!
PSXSENDR	RESETRX+17*, RESETRX+20, EXIT+2!
PSXSITE	CLOSED+5*, RESETRX+20, EXIT+2!
PSXSTART	CLOSED+5, RESETRX+18, RESETRX+20, EXIT+2!
PSXSTAT	QUE+7, RESET, EXIT+3!
>> PSXSYS	START+4, START+24, CLOSED+5, CLOSED+8, LOCK+7, RESETRX+17, RESETRX+20, MSG+10
>> PSXTDIV	LOCK+5, HDR+2
PSXTDT	RESETRX+20, EXIT+2!
>> PSXTRANS	LOCK+6*
PSXTRDTM	FILE+1*, FILE+3, EXIT+4!
>> PSXTYP	LOCK+5, HDR+2
>> PSXVENDR	LOCK+8*
REC	RESETRX+5, MSG+6, EXIT+2!, SDT+2*, SDT+3
RECV	MSG+10*, EXIT+2!
RELDT	TESTREL+2~, TESTREL+6, TESTREL+7, TESTREL+9
RELDTE	TESTREL+2~
REPLY	TESTREL+2~, TESTREL+8, TESTREL+9, TESTREL+10*, TESTREL+11
RXDA	RESETRX+5*, RESETRX+6, RESETRX+8, RESETRX+9, TESTREL~, TESTREL+3, TESTREL+5, TESTREL+6, TESTREL+7, TESTREL+10 , SDT+2, SDT+5~
RXN	SDT+5~, SDT+7
>> RXNM	TESTREL+5*
S1	EXIT+3!
SDT	SDT+1~, SDT+3*
>> SITEN	RESETRX+17*
SITENUM	RESETRX+17*, RESETRX+20, EXIT+2!
>> SITEX	RESETRX+23*, XMZ
SNDR	CLOSED+6*, EXIT+3!
SSN	TESTREL+2~, TESTREL+4*
STATUS	EXIT+3!
>> TEST	RESETRX+6*, RESETRX+7
TRAN	START+12!, EXIT+4!
TRAN(	START+15, START+16
TRAN(14	START+21
TRAN(17	START+19, START+24
TRAN(2	START+18
TRAN(3	START+20
TRAN(5	START+17
TRANI	START+12!, EXIT+4!
TRANI(17	START+22, HDR+2
TRANI(2	HDR+2
TRANI(3	START+24
TRNDT	CLOSED+7*, EXIT+3!
TXT	NOTRAN+2!
TXT(1	NOTRAN+3*
>> TYP	START+22*, START+23
U	CLOSED, CLOSED+2, CLOSED+4, CLOSED+5, CLOSED+6, CLOSED+7, RESETRX+5, RESETRX+17, RESETRX+20, HDR+1 , MSG+2, MSG+3, MSG+7, MSG+8, MSG+10, TESTREL+4, TESTREL+5, TESTREL+6, TESTREL+7, SDT+3
VADM	TESTREL+2~
VADM(2	TESTREL+4
X	RESETRX+23*!, EXIT+3!
>> XDFN	SDT+4*
XMDUN	MSG+8*, EXIT+2!
XMDUZ	RESETRX+21~, RESETRX+23, MSG+9, EXIT+2!
XMFROM	EXIT+2!
XMSUB	RESETRX+21~, XMZ, EXIT+2!, NOTRAN+1
>> XMTEXT	NOTRAN+4*
XMY	EXIT+2!, NOTRAN+2!
XMY(	MSG+13*
XMY("S.PSXX C	MOP SERVER" , MSG+12*
XMZ	TXT, RESETRX+21~, XMZ+2, MSG+8, EXIT+2!
XQAMSG	EXIT+2!
XSITE	RESETRX+17*, RESETRX+20, EXIT+2!
XX	RESETRX+3, RESETRX+5, MSG+13, EXIT+2!, SDT+3*
Y	START+11, START+12!, CLOSED+7*, CLOSED+10, RESETRX+23!, EXIT+3!
>> YY	QUE+1*
Z	HDR+7*, EXIT+3!
ZCNT	LOCK+3!
>> ZTDESC	QUE+2*
>> ZTDTH	QUE+2*
>> ZTIO	QUE+2*
>> ZTREQ	LOCK+9, EXIT
>> ZTRTN	QUE+2*
>> ZTSAVE(	QUE+1*
>> ZTSAVE("ZZDATA"	QUE+2*
>> ZTSK	QUE+5, QUE+6
ZZ	HDR+7*, EXIT+3!

Customize PDF page

Package: CMOP

Routine: PSXRTRAN

Information

Source Information

Call Graph

Call Graph Total: 24

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

Naked Globals

Local Variables

Legend: