Routine: PSXRSUS

Package	Total	Call Graph
CMOP	10	EN^PSXBLD DIV^PSXBLD1 (,EN)^PSXERR GRP1^PSXNOTE EN1^PSXRCVRY (BEGIN,PRT,SDT)^PSXRPPL (RESETVAR,STOREVAR)^PSXRSUS1 PSXSTAT^PSXRSYU EN^PSXRTR SET^PSXSYS
VA Fileman	6	^%DT (C,NOW)^%DTC ^DIE ^DIK $$GET1^DIQ ^DIR
Kernel	4	$$EC^%ZOSV (,UNWIND)^%ZTER ^%ZTLOAD $$FMADD^XLFDT
MailMan	1	^XMD
Outpatient Pharmacy	1	DEV1^PSOSULB1

Package	Total	Caller Graph
CMOP	3	PSXAUTO PSXRPPL1 PSXRTRAN
Outpatient Pharmacy	1	PSOSULB1

Entry Points

Name	Comments	DBIA/ICR reference
EXIT	;
STARTET	;enable auto error trapping
TRANS	;;Called by PSXAUTO Taskman to begin CMOP transmissions one division
TRAPERR	; trap/process error
ASK2
LOCK	; >>>** LOCK OF FILE 550.1 **<<<
DRIV	;calls the remaining routines to build the data for transmission and
DIRECT	;Set PSXCS, PSXTRANS & PSXFLAG as per user choice
EX1
START
PRT1
QUE	; QUEUE the group/individual PSOSITE jobs for trans or the single job for print labels one division
PRT	; print from CMOP suspense
RTR	;
ASK	;Ask 'all divisions y/n' & date range for data transmission & checks for data
QRY
TRANDIVS	;Entry from transmission tasking; loop all divisions / or process only 1
CANMSG	; lock on 550.1 not achieved send transmission/print cancelled message
OERRCLR	; clear any locks left in ^XTMP("OERR-"
STOPET	;disable auto error trapping

External References

Name	Field # of Occurrence
^%DT	ASK2+1
C^%DTC	DRIV+1, LOCK+10
NOW^%DTC	TRAPERR+4
$$EC^%ZOSV	TRAPERR+1
^%ZTER	TRAPERR+18
UNWIND^%ZTER	TRAPERR+24
^%ZTLOAD	QUE+13
^DIE	EXIT+5
^DIK	RTR+2, RTR+7, PRT1+5
$$GET1^DIQ	ASK+6, TRANS+2, TRAPERR+2, TRAPERR+8, TRAPERR+14
^DIR	QRY+8, ASK+7, ASK2+7
DEV1^PSOSULB1	DIRECT+1
EN^PSXBLD	RTR+3
DIV^PSXBLD1	TRANS+6
^PSXERR	TRANS+9, PRT1+3
EN^PSXERR	RTR+4
GRP1^PSXNOTE	CANMSG+11, TRAPERR+9
EN1^PSXRCVRY	LOCK+4, TRAPERR+22
BEGIN^PSXRPPL	DRIV+4
PRT^PSXRPPL	PRT1+2
SDT^PSXRPPL	TRANS+9, PRT1+1
RESETVAR^PSXRSUS1	LOCK+8
STOREVAR^PSXRSUS1	LOCK+3
PSXSTAT^PSXRSYU	START+5, ASK2+8, TRANS+7, EXIT+1, EXIT+7
EN^PSXRTR	RTR+5
SET^PSXSYS	START+6
$$FMADD^XLFDT	TRANS+8, TRAPERR+6
^XMD	CANMSG+13, TRAPERR+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You are not authorized to use this option!" Line Location: START+0
Function Call: WRITE	Prompt: !,"You are not authorized to use this option!" Line Location: START+1
Function Call: WRITE	Prompt: !,"A lock on the RX QUEUE file was not obtainable. A transmission is in progress, try later." Line Location: START+3
Function Call: WRITE	Prompt: !,STATUS," no Manual Transmission nor Print CMOP Suspense allowed at this time" Line Location: START+7
Function Call: WRITE	Prompt: ! Line Location: QRY+0
Function Call: WRITE	Prompt: !!,DIR("A",X),! Line Location: QRY+9
Function Call: WRITE	Prompt: ! Line Location: ASK+1
Function Call: WRITE	Prompt: ! Line Location: ASK2+0
Function Call: WRITE	Prompt: !!,$S(PSXFLAG=1:"NOTHING THRU THIS DATE TO TRANSMIT.",PSXFLAG=2:"NOTHING THRU THIS DATE TO PRINT.",1:0) Line Location: ASK2+4
Function Call: WRITE	Prompt: !!,$S(PSXFLAG=1:"NOTHING THRU THIS DATE TO TRANSMIT.",PSXFLAG=2:"NOTHING THRU THIS DATE TO PRINT.",1:0) Line Location: ASK2+5
Function Call: WRITE	Prompt: ! Line Location: ASK2+7
Function Call: WRITE	Prompt: !,TEXT(XX,0) Line Location: TRAPERR+20
Routine Call	DIE Line Location: EXIT+5
Routine Call	DIR Line Location: QRY+8 ASK+7 ASK2+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSX(550 - [#550]	Classic Fileman Calls
^PSX(550.1 - [#550.1]	Classic Fileman Calls
^PSX(550.2 - [#550.2]	Classic Fileman Calls, GET1^DIQ
^PS(59 - [#59]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ASK2+3
^PS(52.5 - [#52.5]	ASK2+4, ASK2+5
^PS(59 - [#59]	LOCK+6, LOCK+9
^PSX("CMOP TRAN"	EX1!
^PSX(550 - [#550]	START+5, START+7, DRIV+2, EXIT+5
^PSX(550.1 - [#550.1]	START+3, LOCK+1, RTR+2, RTR+7, PRT+1, EX1+4, TRAPERR+7
^PSX(550.2 - [#550.2]	LOCK+4, PRT1+2
^TMP($J	EX1+1!, EX1+3!
^XTMP(	OERRCLR+2!
^XTMP("PSXAUTOERR"	LOCK+7, LOCK+14, PRT+5, STOPET+1*, STARTET+1!
^XTMP("PSXCS"	TRANS+8*
^XTMP("PSXERR "	TRAPERR+6, TRAPERR+7
^XUSEC("PSX XMIT"	START+1
^XUSEC("PSXCMOPMGR"	START

Label References

Name	Line Occurrences
ASK2	ASK+3
CANMSG	LOCK+2, PRT+2
EX1	ASK2+8, PRT+8, PRT1+6
EXIT	START+7, QRY+8, ASK+8, ASK2+2, ASK2+4, ASK2+5, ASK2+7, DRIV+4, LOCK+2, LOCK+5 , LOCK+16, PRT+2
OERRCLR	TRANS+10, RTR+8, PRT+7
PRT1	PRT+6
TRANS	LOCK+11, LOCK+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TRAPERR+4
%DT	ASK2+1*!
%DT("A"	ASK2+1*!
%DT("B"	ASK2+1*!
ANSWER	EX1+2!
CHKDT	ASK2+4*, EX1+3!
CNAME	EX1+1!
DA	RTR+2!, RTR+7!, PRT1+5!, EXIT+3!, EXIT+4, EXIT+5, EXIT+6!
DFN	EX1+1!
DIE	EXIT+3!, EXIT+4*, EXIT+6!
DIK	RTR+2!, RTR+7!, PRT1+5!*
DIR	QRY!, QRY+8!, QRY+11!, ASK+4!, ASK+7!, ASK2+7!, EX1+2!
DIR("?"	QRY+8, ASK+5, ASK+6*
DIR("??"	QRY+8*
DIR("A"	QRY+1, QRY+2, QRY+3, QRY+4, QRY+5, QRY+6, QRY+7, QRY+9, ASK+4, ASK2+7*
DIR("B"	ASK+4, ASK2+7
DIR(0	QRY+1, ASK+4, ASK2+7*
DIROUT	QRY+11!, EX1+2!
DIRUT	QRY+8, QRY+11!, ASK+8, ASK2+7, EX1+2!
DR	EXIT+3!, EXIT+4*, EXIT+6!
DT	TRANS+3, TRANS+8, TRAPERR+6, STOPET+1
DTOUT	QRY+11!, EX1+2!
>> DTTM	TRAPERR+4*, TRAPERR+6, TRAPERR+7, TRAPERR+17
DUOUT	QRY+11!, ASK2+7, EX1+2!
DUZ	START, START+1, QUE+7, TRANS+1
FDATE	EX1+3!
FILNUM	EX1+1!
>> I	LOCK+1, LOCK+2, PRT+1, PRT+2
J	EX1+1!
>> NFLAG	PRT1*
ORST	EX1+3!, OERRCLR+1*, OERRCLR+2
ORSUB	EX1+3!, OERRCLR+1, OERRCLR+2
PDT	ASK2+3*, EX1+3!
PFLAG	ASK2+2, ASK2+4, ASK2+5, ASK2+8, RTR+4*, EX1+3!
PNAME	EX1+1!
>> POP	DRIV+4, EXIT+1
>> PRTDT	ASK2+3, ASK2+4, LOCK+9, LOCK+10
>> PSLION	QUE+5
>> PSOINST	QUE+7*
PSOPAR	DRIV+1, LOCK+5~, LOCK+9*, LOCK+10
PSOSITE	ASK+6, LOCK+5~, LOCK+6, LOCK+9, TRANS+2, TRANS+8, TRAPERR+2, TRAPERR+21, TRAPERR+23
>> PSXBAT	TRANS+10, PRT1+2, PRT1+5, TRAPERR+8, TRAPERR+14
PSXCS	DIRECT+2, QUE+1, TRANS+8, EX1+2!, CANMSG+1, CANMSG+2, CANMSG+5, TRAPERR+12, TRAPERR+14
PSXDAYS	DRIV+1, LOCK+10, EX1+1!
>> PSXDESC	QUE+1*, QUE+3
PSXDIVER	TRANS+6~
PSXDIVML	ASK+3, ASK+9~, LOCK+5
>> PSXDIVNM	TRAPERR+2*, TRAPERR+8, TRAPERR+13
PSXDTRG	DRIV+1, LOCK+10, EX1+1!
PSXDUZ	QUE+7, TRANS+1, EX1+3!
PSXERFLG	TRANS+1, TRANS+9, RTR+4, PRT1, PRT1+3, EX1+3!
>> PSXFLAG	START+2, DIRECT+3, DIRECT+4*, ASK+3, ASK2+1, ASK2+4, ASK2+5, DRIV+4, QUE+3, QUE+4 , QUE+5, CANMSG+3, CANMSG+6
>> PSXIN	TRANS+2*, TRANS+3
PSXJOB	TRANS+9, PRT1+3, EX1+3!
>> PSXLOCK	ASK2+8
PSXOK	EX1+2!
PSXPRECK	TRANS+6*!
PSXPTR	EX1+2!
PSXRXERR	EX1+3!
PSXSITE	QUE+7*, EX1+2!
PSXSTAT	START+5, ASK2+8, TRANS+7, EXIT+1, EXIT+7*, EX1+3!
>> PSXSYS	START+5*, START+7, DRIV+2, QUE+7, EXIT+4
>> PSXTRANS	START+2, DIRECT+3
>> PSXTST	TRANS+2, TRANS+3, TRANS+4
PSXVENDR	DRIV+2*, EX1+3!
>> PSXXDIV	TRAPERR+21*, TRAPERR+23
PSXZTSK	TRANS+1*, EX1+3!
REC	EX1+2!
REF	EX1+2!
REPLY	QRY+10*, DIRECT+1, DIRECT+2, DIRECT+3, DIRECT+4, DIRECT+5!, EX1+2!
RXEX	EX1+3!
RXNUM	EX1+2!
SDT	EX1+2!
SITE	EX1+3!
STATUS	START+7*, EX1+3!
>> STOP	ASK2+7*
TEXT	EX1+2!
TEXT(1	TRAPERR+12*
TEXT(2	TRAPERR+13*
TEXT(3	TRAPERR+14*
TEXT(4	TRAPERR+15*
TEXT(5	TRAPERR+16*
TEXT(6	TRAPERR+17*
>> TPRTDT	ASK2+3*, DRIV+1, LOCK+9
TXT	EX1+2!
TXT(1	CANMSG+5, CANMSG+6
TXT(2	CANMSG+7*
TXT(3	CANMSG+8*
TXT(6	CANMSG+9*
TXT(7	CANMSG+10*
U	QUE+7, TRANS+8, TRAPERR+6, STOPET+1
X	QRY+9, QRY+10!, DRIV+1!, QUE+9, QUE+10, LOCK+10!, TRANS+8, EX1+2!, TRAPERR+6
X1	DRIV+1!, LOCK+10!, EX1+2!
X2	DRIV+1!, LOCK+10!, EX1+2!
XDFN	EX1+3!
>> XMSUB	CANMSG+2, CANMSG+3, TRAPERR+8*
>> XMTEXT	CANMSG+4, TRAPERR+11
>> XXERR	TRAPERR+1*, TRAPERR+6, TRAPERR+15
Y	QRY+8, QRY+10!, ASK+8, ASK+9, ASK2+2, ASK2+3!*, ASK2+7!, EX1+1!, EX1+2!
>> ZTDESC	QUE+3*
>> ZTDTH	QUE+8*
>> ZTIO	QUE+4, QUE+5
>> ZTREQ	PRT1*
>> ZTRTN	QUE+4, QUE+5
>> ZTSAVE(	QUE+9, QUE+10
ZTSK	QUE+12!, QUE+14, TRANS+1

Customize PDF page

Package: CMOP

Routine: PSXRSUS

Information

Source Information

Call Graph

Call Graph Total: 22

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: