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

Package: CMOP

Routine: PSXREJ


Information

PSXREJ ;BIR/BAB-Rejected Messages Report ;04/08/97 2:06 PM

Source Information

Source file <PSXREJ.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;GET BEGIN DATE
ENDATE ;GET ENDING DATE
END
QUE ;
START ;
REF ;
GETDATA ;
EXIT
SUB
SUB1
LIST

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Ending date must follow beginning date!"
  • Line Location: ENDATE+4
Function Call: WRITE
  • Prompt: !,"No Device Selected"
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,"Job Canceled"
  • Line Location: QUE+6
Function Call: WRITE
  • Prompt: !!,"Job Queued"
  • Line Location: QUE+7
Function Call: WRITE
  • Prompt: !!,"There were no rejected messages for the date range selected: ",START," to ",FINISH
  • Line Location: START+4
Function Call: WRITE
  • Prompt: @IOF,?18,"CMOP Rejected Messages for Transmission # ",PSXB,!
  • Line Location: SUB+0
Function Call: WRITE
  • Prompt: ?23,"Printed : ",Y,!!
  • Line Location: SUB+1
Function Call: WRITE
  • Prompt: "Facility : ",SITE,?40,"Division: ",PHAR
  • Line Location: SUB+2
Function Call: WRITE
  • Prompt: !,"Received on ",$P(TDTM,":",1,2),?40,"Total Orders: ",TOTORD,?60,"Total Rx's: ",TOTRX,!
  • Line Location: SUB+3
Function Call: WRITE
  • Prompt: !,"ORDER",?15,"NAME",?28,"RX NUMBER",?39,"BAR CODE",?54,"DRUG NAME"
  • Line Location: SUB1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SUB1+1
Function Call: WRITE
  • Prompt: LINE
  • Line Location: SUB1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SUB1+2
Function Call: WRITE
  • Prompt: !!,$P(ORDER,"-",3)," REJECTED REASON: ",REASON
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: ?28,RXNUM,?39,BAR,?54,$E(DRUGNM,1,25)
  • Line Location: LIST+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call