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

Package: CMOP

Routine: PSXREJ


Information

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

Source Information

Source file <PSXREJ.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$IEN^XUMF  
VA Fileman 3 ^%DT  NOW^%DTC  $$GET1^DIQ  

Entry Points

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

External References

Name Field # of Occurrence
^%DT EN+1, ENDATE+1
NOW^%DTC SUB+1
^%ZIS END
HOME^%ZIS QUE+8
^%ZISC EXIT+3
^%ZTLOAD QUE+5
$$GET1^DIQ REF+6
$$FMTE^XLFDT EN+2, ENDATE+2, REF+7
$$IEN^XUMF REF+6

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
Routine Call
  • %ZIS
  • Line Location:
    • QUE+8
Routine Call
  • %ZIS
  • Line Location:
    • END

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SUB+1
^PSX(552 REF+6
^PSX(552.1 START+2, START+3, REF+2, REF+3, REF+6, REF+7, REF+8, REF+9
^PSX(552.2 REF+1, REF+13, GETDATA+1, GETDATA+2, GETDATA+3, GETDATA+6

Label References

Name Line Occurrences
ENDATE ENDATE+4
EXIT EN+1, ENDATE+1, END, END+1, END+2, START+5
GETDATA REF+13
LIST GETDATA+11, GETDATA+12
QUE END+1
REF START+3
START END+2
SUB REF+13
SUB1 LIST+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SUB+1!
%DT EN+1*!, ENDATE+1*!, EXIT+2!
%DT("A" EN+1*!, ENDATE+1*!, EXIT+2!
%DT("B" EN+1*!, ENDATE+1*!, EXIT+2!
%DT(0 EN+1*!, ENDATE+1*!, EXIT+2!
%ZIS END*, EXIT+1!
>> AGNCY REF+6*
BAR GETDATA+11*, EXIT!, LIST+2, LIST+6!
BAT EXIT!
BEG EXIT!
BRUGNUM EXIT!
CNT REF+13*, EXIT!, SUB1+2*, LIST+4*, LIST+5*
DIC EXIT!
DIR EXIT+1!
DIROUT EXIT+1!
DIRUT EXIT+1!
DRUGNM GETDATA+9*, EXIT!, LIST+2, LIST+6!
DRUGNUM GETDATA+9*, LIST+6!
DTOUT EN+1, ENDATE+1, EXIT+1!
DUOUT EXIT+1!
EDATE GETDATA+10*, EXIT!
END EXIT!
EXDATE GETDATA+9*, GETDATA+10, EXIT!, LIST+6!
FINISH ENDATE+2*, START+4, EXIT+1!
I EXIT+1!, SUB1+1*
IDATE GETDATA+9*, EXIT!
IO START+1
IO("Q" END+1, EXIT+3!
IOF SUB
ION END
ISSDATE GETDATA+9*, EXIT!, LIST+6!
LINE EXIT!, SUB1+1*
NAME GETDATA+5*, EXIT+1!, LIST+1, LIST+3
>> NAME1 LIST+1, LIST+3*
NEXT EXIT!
NEXT2 EXIT!
NM GETDATA+5*, EXIT!
NODE GETDATA+3*, GETDATA+4, GETDATA+5, GETDATA+6, EXIT!
>> OR1 REF+12*, LIST, LIST+4*
ORDER GETDATA+1*, EXIT+1!, LIST, LIST+4
PHAR REF+6*, EXIT!, SUB+2
>> POP END
PSOION EXIT!
PSX1 EXIT!
PSXA EN+2*, ENDATE+4, ENDATE+5*, START+2*, START+3, EXIT!
PSXB START+3*, REF+1, REF+13, EXIT+1!, SUB
PSXDA START+3*, REF+2, REF+3, REF+6, REF+7, REF+8, REF+9, EXIT+1!
PSXE ENDATE+2*, ENDATE+4, ENDATE+5*, START+2, EXIT!
PSXFLAG START+4, EXIT+1!, LIST+4*
PSXLION END*, QUE+5, EXIT!
REASON GETDATA+2!*, LIST, LIST+6!
REC REF+13*, GETDATA+1, GETDATA+2, GETDATA+3, GETDATA+6, EXIT+1!
RECD EXIT!
RXNUM GETDATA+9*, EXIT!, LIST+2, LIST+6!
SITE REF+6*, EXIT!, SUB+2
SITEN REF+3*, REF+4, REF+6, EXIT!
SS GETDATA+5*, EXIT!
SSN GETDATA+5*, EXIT+1!
ST REF+6*, EXIT!
>> START EN+2*, START+4
TDTM REF+7*, EXIT!, SUB+3
TNODE GETDATA+6*, GETDATA+7, GETDATA+8, GETDATA+9, GETDATA+11, EXIT!
TOTORD REF+9*, EXIT!, SUB+3
TOTRX REF+8*, EXIT!, SUB+3
TTNODE EXIT!
U REF+3, REF+6, REF+7, REF+8, REF+9
X ENDATE+3!, REF+6*, REF+7*, EXIT!
Y EN+1, EN+2, ENDATE+1, ENDATE+2, ENDATE+3!, EXIT!, SUB+1*!
ZTDESC QUE+1*, EXIT+1!
ZTIO QUE+5*, EXIT+1!
>> ZTQUEUED EXIT+4
>> ZTREQ EXIT+4*
>> ZTRTN QUE+1*
ZTSAVE EXIT+1!
ZTSAVE("FINISH" QUE+4*
ZTSAVE("PSXA" QUE+3*
ZTSAVE("PSXB" QUE+2*
ZTSAVE("PSXDA" QUE+2*
ZTSAVE("PSXE" QUE+3*
ZTSAVE("PSXLION" QUE+3*
ZTSAVE("START" QUE+4*
ZTSK QUE+6, EXIT+1!
ZX GETDATA+6*, GETDATA+8, EXIT+1!
ZZ GETDATA+1*, GETDATA+3*, GETDATA+6, GETDATA+8*, EXIT!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All