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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSXRTRAN

Package: CMOP

Routine: PSXRTRAN


Information

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

Source Information

Source file <PSXRTRAN.m>

Call Graph

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

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
CMOP 3 PSXERR1  PSXR RETRANSMIT  PSXRTRA1  

Entry Points

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

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
  • DIC
  • Line Location:
    • START+10
    • RESETRX+23
Routine Call
  • DIE
  • Line Location:
    • MSG+5
    • FILE+3
    • F1+1
Routine Call
  • DIR
  • Line Location:
    • CLOSED+9

FileMan Files Accessed Via FileMan Db Call

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

Naked Globals

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!
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 |  Naked Globals |  Local Variables |  All