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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSXUNREL

Package: CMOP

Routine: PSXUNREL


Information

PSXUNREL ;BIR/WPB-Report of Rx's Not Released by the Vendor ;29 Jun 2001 2:34 PM

Source Information

Source file <PSXUNREL.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 6 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$NAME^XUAF4  $$IEN^XUMF  
VA Fileman 5 ^%DT  NOW^%DTC  ^DIC  $$GET1^DIQ  ^DIR  
National Drug File 1 $$CMOP^PSNAPIS  

Entry Points

Name Comments DBIA/ICR reference
Q1
DIVISION ;
EN
JOB3 ;Print records from ^TMP
JOB2 ;store information
JOB1 ;(515,"AR",IEN514,RXN)
DEV
EX ;
HDR
JOB
QUE
PG ;line handler
JOBA
PG1 ;
DATE ;DATE SECTION
ORDER ;Print by order,rx,fill
ORDNUM ;Return Order Number

External References

Name Field # of Occurrence
^%DT DATE+3, DATE+6
NOW^%DTC HDR+1
^%ZIS DEV
^%ZISC EX+7
^%ZTLOAD QUE+2
^DIC EN+3, DIVISION+2
$$GET1^DIQ DIVISION+4, DIVISION+6
^DIR Q1+1, JOB+3, JOB3+4, PG+3, PG1+3
$$CMOP^PSNAPIS JOB2+9
$$FMTE^XLFDT HDR+9, HDR+11
$$NAME^XUAF4 HDR+4
$$IEN^XUMF HDR+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"All Rx's have been released."
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,"Ending date must follow starting date!"
  • Line Location: DATE+10
Function Call: WRITE
  • Prompt: !!,"Job Canceled"
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !!,"Job Queued"
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !,ORDER,?18,RX,?28,FILL,?33,$E($G(VAPRT),1,35),?70,DRGID
  • Line Location: ORDER+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,?15,"Report of Unreleased Rxs for Transmission ",BAT
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,?23,"Printed : ",$$FMTE^XLFDT(%,"1P"),!
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,"Facility: ",SITE,?41,"Pharmacy Division: ",PHAR
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,"Transmitted: ",$$FMTE^XLFDT(TDTM,"1P"),?41,"Received: ",$$FMTE^XLFDT(ATM,"1P")
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,"Batch Type: ",PSXTYP,!!
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: "ORDER #",?18,"RX NUMBER",?28,"FILL",?33,"DRUG NAME",?70,"DRUG ID",!,LINE
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EX+6
Routine Call
  • DIC
  • Line Location:
    • EN+3
    • DIVISION+2
Routine Call
  • DIR
  • Line Location:
    • Q1+1
    • JOB+3
    • JOB3+4
    • PG+3
    • PG1+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSX(552 HDR+4
^PSX(552.1 JOB1+4, JOB1+5, JOB1+6, JOB1+7, JOB1+8, JOB1+9, HDR+5
^PSX(552.2 ORDNUM+3, ORDNUM+5, ORDNUM+6
^PSX(552.4 EN, JOB+2, JOB1+3, JOB1+9, JOB1+11, JOB2+1, JOB2+2, JOB2+6, JOB2+10
^TMP($J JOB1+1!, JOB1+10*, JOB1+12!, JOB2+12*, JOB2+13, JOB2+14*, JOB3+2, JOB3+5, ORDER+2, ORDER+3
, ORDER+4, HDR+6, EX+5!

Label References

Name Line Occurrences
DATE Q1+2, DATE+10
DEV EN+7
EN Q1+1
EX EN+1, EN+3, Q1+1, DEV, DEV+1, DEV+3, DIVISION+2, JOB+2, JOB+3, JOB+4
, JOB3+2
HDR JOB3+7, PG+2, PG+5
JOB DEV+2
JOB1 JOB+2
JOB2 JOB1+11
JOB3 JOB1+14
JOBA DEV+3
ORDER JOB3+7
ORDNUM JOB2+7
PG ORDER+7
PG1 JOB3+7
QUE DEV+1

Naked Globals

Name Field # of Occurrence
^( JOB3+5, ORDER+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% HDR+9, EX+1!
%DT DATE+2*, DATE+7!
%DT("A" DATE+2*, DATE+3!, DATE+6*
%DT("B" DATE+2*, DATE+6*
%DT(0 DATE+2*, DATE+6*
%ZIS DEV*, EX+1!
%ZIS("B" DEV*
AGNCY HDR+4*!
ALL DIVISION+3*, EX+4!
AREC JOB1+15!
ATM JOB1+7*, JOB1+10, JOB1+15!, JOB3+6*, HDR+11, EX+1!
BAT JOB1+8*, JOB1+10, JOB1+12, JOB1+15!, JOB2+12, JOB2+13, JOB2+14, JOB3+5*, ORDER+2, ORDER+3
, ORDER+4, ORDNUM+2, ORDNUM+4, HDR+2, HDR+6, HDR+8, EX+1!
CORDER ORDNUM+1!, ORDNUM+2*, ORDNUM+3*, ORDNUM+4*, ORDNUM+5, ORDNUM+6, EX+3!
CORDER(1 JOB2+8, ORDNUM+2*, ORDNUM+3, ORDNUM+6*
DIC EN+2*, EN+3!, DIVISION+1*, DIVISION+2!, DIVISION+7!
DIC("A" EN+2*, DIVISION+1*
DIC(0 EN+2*, DIVISION+1*
DIR Q1+1!, JOB3+4!, PG+3!, PG1+2!, PG1+3!, EX+2!
DIR("?" Q1*
DIR("A" JOB+3*, JOB3+4*
DIR(0 Q1*, JOB+3*, JOB3+4*, PG+3*!, PG1+3*!, EX+2!
DIROUT PG+4!, PG1+4!, EX+2!
DIRUT EN+4!, Q1+1, JOB1+13, JOB1+16!, JOB2+5, PG+3, PG+4!, PG1+3, PG1+4!
DRGID JOB1+15!, JOB2+6*, JOB2+9, JOB2+12, ORDER+5*, ORDER+6, EX+1!
DTOUT EN+3, EN+4!, DATE+4, DATE+8, DIVISION+2, DIVISION+7!, PG+4!, PG1+4!, EX+2!
DUOUT EN+3, DIVISION+2, DIVISION+7!, PG+4!, PG1+4!, EX+2!
END DATE+9*, DATE+10, JOB1+5, EX+3!
FAC1 DIVISION+3*, EX+3!
FILL JOB1+15!, JOB2+10*, JOB2+12, ORDER+3*, ORDER+4*, ORDER+6, EX+1!
IO JOB+1, JOBA+2
IO("Q" DEV+1
IOF JOB3+3, HDR, EX+6
IOM JOB1+2
ION DEV
IOSL DEV, PG+1
IOST JOB+3, JOB3+4, PG+2, PG1+1
LCNT JOB1+16!, EX+1!
LINE JOB1+2*, JOB1+16!, HDR+13, EX+1!
NDFPTR JOB2+6*, EX+2!
OLDBAT JOB1+15!, EX+1!
ORDER JOB2+8*, JOB2+12, ORDER+1*, ORDER+2*, ORDER+3, ORDER+4, ORDER+6, EX+4!
PGL DEV*, EX+4!
PHAR JOB1+16!, HDR+5*, HDR+10, EX+1!
>> POP DEV
PSXANS EN+6*, Q1+1*, JOB2+3, JOB2+4, EX+2!
PSXBEG EN+5*, EN+7, DEV+2, QUE, JOB+2, JOB1+15!, EX+3!
PSXEND JOB+2*, JOBA*, JOB1+3, JOB1+15!
PSXLION DEV*, QUE, EX+1!
PSXTYP JOB2+2*, JOB2+3, JOB2+4, JOB2+14, HDR+6*, HDR+7*, HDR+12, EX+3!
RC5 JOB+2*, JOB1+16!, EX+2!
RCD EX+1!
REC JOB1+15!, EX+1!
REC4 JOB1+9*, JOB1+16!, JOB2+1, JOB2+2, JOB2+6, JOB2+10, EX+2!
REC5 JOB+2*, JOBA*, JOB1+3*, JOB1+4, JOB1+5, JOB1+6, JOB1+7, JOB1+8, JOB1+9, JOB1+10
, JOB1+11, JOB1+13*, JOB1+16!, JOB3+6*, HDR+5
RECD JOB1+15!, JOB2+1*, JOB2+2, JOB2+6, JOB2+10, EX+1!
RX JOB1+11*, JOB1+16!, JOB2+1, JOB2+12, ORDER+2*, ORDER+3*, ORDER+4, ORDER+6, ORDNUM+6
SITE JOB1+16!, HDR+4*, HDR+10, EX+1!
SITEN JOB1+16!, HDR+2*, HDR+4, EX+1!
ST JOB1+16!, EX+1!
START DATE+5*, DATE+10, JOB1+5, EX+3!
STOP Q1+2, DATE+1!, DATE+4*, DATE+8*, JOB+2, JOB3+1!, JOB3+5, ORDER+2, ORDER+3, ORDER+4
, PG+3*, PG+5, PG1+3*, EX+2!, EX+3!
SUB EX+1!
TDTM JOB1+9*, JOB1+10, JOB1+15!, JOB3+6*, HDR+11, EX+1!
U DIVISION+6, JOB1+5, JOB1+7, JOB1+8, JOB1+9, JOB1+10, JOB2+2, JOB2+6, JOB2+10, JOB2+12
, JOB3+6, ORDER+5, HDR+5
VAPRT JOB2+6*, JOB2+9*, JOB2+11*, JOB2+12, ORDER+5*, ORDER+6, EX+2!
X EN+3, EN+5!, Q1+1!, DIVISION+2, DIVISION+7!, QUE+1*, HDR+4~*!, EX+1!, EX+2!
>> XX DIVISION+6*
Y EN+5!, Q1+1!, DATE+4, DATE+5, DATE+8, DATE+9, DIVISION+3, DIVISION+4, DIVISION+6, DIVISION+7!
, HDR+4~!, EX+2!
ZN JOB3+5*, JOB3+6, ORDER+4*, ORDER+5, EX+4!
ZTDESC QUE*, EX+1!
ZTIO QUE*, EX+1!
ZTQUEUED JOB, JOB+1, JOBA+1, JOBA+2, EX+2!
>> ZTREQ JOB*, JOBA+1*
ZTRTN QUE*, EX+1!
>> ZTSAVE( QUE+1*
>> ZTSAVE("PSXBEG" EX+1!
ZTSK QUE+3, EX+1!
ZZCHKDT JOB1+5*, EX+4!
ZZFAC EX+4!
ZZFAC1 DIVISION+1*, DIVISION+4*, DIVISION+6*, JOB1+6, EX+4!
ZZNODE ORDNUM+5*, ORDNUM+6, EX+4!
ZZXC EX+4!
ZZXX EX+4!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All