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

Package: CMOP

Routine: PSXRSUS


Information

PSXRSUS ;BIR/WPB,BAB,HTW-CMOP Transmission Handler ;15 Dec 2001

Source Information

Source file <PSXRSUS.m>

Call Graph

Call Graph Total: 22

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  

Caller Graph

Caller Graph Total: 4

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
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 |  Local Variables |  All