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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSXLIST

Package: CMOP

Routine: PSXLIST


Information

PSXLIST ;BIR/WPB-Report Routine to List Orders/Rx's in a Batch ;04/08/97 2:06 PM

Source Information

Source file <PSXLIST.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 6 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$NAME^XUAF4  $$IEN^XUMF  
VA Fileman 2 ^DIC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
END
SUB
SUB1
LIST
P512
EN1 ;prints order/rx data from 512 at host
QUE
EX1
EXIT

External References

Name Field # of Occurrence
^%ZIS END
HOME^%ZIS QUE+3
^%ZISC EX1+2
^%ZTLOAD QUE
^DIC EN1+1
^DIR EXIT, LIST+3
$$FMTE^XLFDT P512+5
$$NAME^XUAF4 P512+4
$$IEN^XUMF P512+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Device Selected"
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,"Job Canceled"
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !!,"Job Queued"
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SUB+0
Function Call: WRITE
  • Prompt: !,?25,"Data Transmission # ",BAT,!
  • 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: !,"NAME",?22,"SSN",?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: !,$E(NAME,1,20),?22,$P(SSN,"-",3),?28,RXNUM,?39,BAR,?54,$E(DRUGNM,1,25)
  • Line Location: LIST+0
Routine Call
  • %ZIS
  • Line Location:
    • QUE+3
Routine Call
  • DIC
  • Line Location:
    • EN1+1
Routine Call
  • DIR
  • Line Location:
    • EXIT
    • LIST+3
Routine Call
  • %ZIS
  • Line Location:
    • END

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSX(552 P512+4
^PSX(552.1 P512+2, P512+5, P512+6
^PSX(552.2 P512+8, P512+12

Label References

Name Line Occurrences
EX1 END+1, END+2
EXIT END, END+2
LIST P512+18
P512 END+2
QUE END+1
SUB P512+7, LIST+3, LIST+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS END*, EX1+1!
%ZIS("B" END*
>> AGNCY P512+4*
BAR P512+18*, EX1!, LIST, LIST+7!
BAT EN1+1*, P512+2, P512+8, EX1!, SUB+1
BEG EX1!
BRUGNUM EX1!
CNT EX1!, SUB*, SUB1+2*, LIST+1*, LIST+3, LIST+6
DIC EN1+1*!
DIC("S" EN1+1*
DIC(0 EN1+1*
DIR EXIT!
DIR("A" EXIT*, LIST+3*
DIR(0 EXIT*, LIST+3*
DIROUT EX1+1!, LIST+4!
DIRUT EX1+1!, LIST+4!
DRUGNM P512+16*, EX1!, LIST, LIST+7!
DRUGNUM P512+16*, LIST+7!
DTOUT EN1+1, EX1+1!, LIST+4!
DUOUT EX1+1!, LIST+4!
EDATE P512+17*, EX1!
END EX1!
EXDATE P512+16*, P512+17, EX1!, LIST+7!
FILL EX1+1!
I EX1+1!, SUB1+1*
IDATE P512+16*, EX1!
IO P512+1
IO("Q" END+1, EX1+2!
IOF EXIT, SUB
ION END
IOST EXIT, LIST+2, LIST+5
ISSDATE P512+16*, EX1!, LIST+7!
LINE EX1!, SUB1+1*
NAME P512+11*, EX1+1!, LIST
NEXT LIST+7!
NEXT2 LIST+7!
NM P512+11*, EX1!
NODE P512+8*, P512+10, P512+11, P512+12, EX1!
OKAY P512+8*, P512+18*, EX1!, LIST+7!
ORDNUM P512+8*, EX1+1!
PHAR P512+5*, EX1!, SUB+2
>> POP END
PSLION END*, QUE, EX1!
PSOION EX1!
PTR EX1+1!
REC EX1+1!
REC1 EX1+1!
RECD P512+2*, P512+5, P512+6, EX1!
RELD EX1+1!
RXN EX1+1!
RXNUM P512+16*, EX1!, LIST, LIST+7!
SITE P512+4*, EX1!, SUB+2
SITEN P512+2*, P512+4, EX1!
SS P512+11*, EX1!
SSN P512+11*, EX1+1!, LIST
ST EX1!
STOP END+2, P512+8, P512+9, P512+13, EX1+1!, LIST+3*
TDTM P512+5*, EX1!, SUB+3
TMP EX1+1!
TNODE P512+12*, P512+14, P512+15, P512+16, P512+18, EX1!
TOTORD P512+6*, EX1!, SUB+3
TOTRX P512+6*, EX1!, SUB+3
U P512+5, P512+6
X P512+4~*, P512+5*, EX1!
XX P512+8*, P512+12, EX1!
XXT EX1+1!
Y EN1+1, EN1+2!, P512+4~, LIST+3
ZTDESC QUE*, EX1+1!
ZTIO QUE*, EX1+1!
>> ZTQUEUED P512
>> ZTREQ P512*
ZTRTN QUE*, EX1+1!
>> ZTSAVE("BAT" QUE*, EX1+1!
>> ZTSAVE("PSLION" QUE*, EX1+1!
ZTSK QUE+1, EX1+1!
ZX P512+12*, P512+15, EX1!
ZZ P512+8*, P512+12, P512+15*, EX1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All