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: PSXRTR

Package: CMOP

Routine: PSXRTR


Information

PSXRTR ;BIR/BAB,WPB,PWC-Transmit Data to CMOP Host System ;14 Dec 2001

Source Information

Source file <PSXRTR.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point for data transmission, load mailman message and send
XMZ
HDR ;Gather data from header, load NTE1 - NTE5 into mailmessage from PSXORD( array
LOCK ;
XMIT ;Update 550.2 # of ORDs, RXs; rxS IN 52, 52.5: 550.2 to Transmitted
TXT ;
EXIT
DIVERT ; divert transmissions from CMOP to the user evoking the divert
RESET ; reset normal CMOP Patient transmissions

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"EN^PSXRTR DIV: ",PSOSITE," ",+$G(PSXBAT)
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"This will divert CMOP Patient transmissions to the user evoking the divert",!,"for one day or until 'D RESET^PSXRTR' is executed.",!
  • Line Location: DIVERT+1
Function Call: WRITE
  • Prompt: !,"CMOP Patient transmissions >>NOT DIVERTED<<",!
  • Line Location: DIVERT+3
Function Call: WRITE
  • Prompt: !!,"CMOP Patient transmissions >>DIVERTED<< to ",$$GET1^DIQ(200,DUZ,.01),!!,"Use 'D RESET^PSXRTR' to restore normal CMOP Patient transmissions.",!
  • Line Location: DIVERT+6
Function Call: WRITE
  • Prompt: !,"CMOP Patient transmissions >>",N,"<< diverted"
  • Line Location: RESET+3
Function Call: WRITE
  • Prompt: " to ",$$GET1^DIQ(200,XX,.01)
  • Line Location: RESET+4
Function Call: WRITE
  • Prompt: ".",!,"CMOP Patient transmissions are set to go to the CMOP.",!
  • Line Location: RESET+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(4.2 - [#4.2] GET1^DIQ
^PSX(550 - [#550] Classic Fileman Calls
^PSX(550.1 - [#550.1] Classic Fileman Calls
^PSX(550.2 - [#550.2] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call