Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call