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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOEXRST

Package: Outpatient Pharmacy

Routine: PSOEXRST


Information

PSOEXRST ;BIR/RTR-Reprint/View HL7 Interface batch ;1/1/96

Source Information

Source file <PSOEXRST.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 ^%DT  NOW^%DTC  ^DIR  
Outpatient Pharmacy 2 (,GETPPL)^PSOEXBCH  ^PSOLSET  
Kernel 1 ^%ZISC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSO INTERFACE REPRINT  PSO INTERFACE VIEW  

Entry Points

Name Comments DBIA/ICR reference
HEAD
END
GETN
HEADONE
LIST
BEG
VWPASS
START
QUE
STAT ;
YLOOP
VW
ZZNAME
RACT ;Set activity log
VIEW ;

External References

Name Field # of Occurrence
^%DT BEG+1
NOW^%DTC RACT+6
^%ZISC END+1
^DIR BEG+9, BEG+11, YLOOP+7, VWPASS, VWPASS+3, LIST+1, HEADONE
^PSOEXBCH VWPASS+1
GETPPL^PSOEXBCH QUE
^PSOLSET VW

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter a date/time range to see all batches sent to the External Interface."
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !!,"Gathering batches, please wait...",!
  • Line Location: BEG+2
Function Call: WRITE
  • Prompt: $C(7),!!,"There are no printed batches found for that date/time range!",!
  • Line Location: BEG+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEG+6
Function Call: WRITE
  • Prompt: !?1,"BATCH",?10,"QUEUED TO PRINT ON:",?40,"PRINTED BY:",?56,$E($P($G(^PS(59,PSOSITE,0)),"^"),1,23),!
  • Line Location: BEG+6
Function Call: WRITE
  • Prompt: !?1,"BATCH",?10,"QUEUED TO PRINT ON:",?40,"PRINTED BY:",?56,$E($P($G(^PS(59,PSOSITE,0)),"^"),1,23),!
  • Line Location: BEG+6
Function Call: WRITE
  • Prompt: !?2,AAA,?10,PSODATE,?40,PSOUSER
  • Line Location: BEG+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEG+9
Function Call: WRITE
  • Prompt: !?1,"BATCH",?10,"QUEUED TO PRINT ON:",?40,"PRINTED BY:",?56,$E($P($G(^PS(59,PSOSITE,0)),"^"),1,23),!
  • Line Location: BEG+9
Function Call: WRITE
  • Prompt: !?1,"BATCH",?10,"QUEUED TO PRINT ON:",?40,"PRINTED BY:",?56,$E($P($G(^PS(59,PSOSITE,0)),"^"),1,23),!
  • Line Location: BEG+9
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+11
Function Call: WRITE
  • Prompt: !!?3,"Nothing chosen to "_$S($G(PSOEXVW):"view",1:"reprint"),!
  • Line Location: BEG+11
Function Call: WRITE
  • Prompt: !
  • Line Location: YLOOP+7
Function Call: WRITE
  • Prompt: !!?3,"Nothing queued to reprint!",!
  • Line Location: YLOOP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: VWPASS+0
Function Call: WRITE
  • Prompt: !!?3,"Nothing queued to print!",!
  • Line Location: VWPASS+0
Function Call: WRITE
  • Prompt: !!,"Nothing queued to Reprint!",!
  • Line Location: VWPASS+3
Function Call: WRITE
  • Prompt: !!,"No Active Labels to Reprint!",!
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !!,"LABEL(S) QUEUED TO PRINT!",!
  • Line Location: QUE+7
Function Call: WRITE
  • Prompt: !!?3,"Nothing queued to reprint!",!
  • Line Location: QUE+8
Function Call: WRITE
  • Prompt: ?44,$G(HLZZDRUG)
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: !,"END OF LIST"
  • Line Location: LIST+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,"RX #",?13,"PATIENT NAME",?44,"BATCH ",LLL,!
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,"RX #",?13,"PATIENT NAME",?44,"BATCH ",LLL,!
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADONE+1
Function Call: WRITE
  • Prompt: !,"RX #",?13,"PATIENT NAME",?44,"BATCH ",LLL,!
  • Line Location: HEADONE+1
Function Call: WRITE
  • Prompt: !,"RX #",?13,"PATIENT NAME",?44,"BATCH ",LLL,!
  • Line Location: HEADONE+1
Routine Call
  • DIR
  • Line Location:
    • BEG+9
    • BEG+11
    • YLOOP+7
    • VWPASS
    • VWPASS+3
    • LIST+1
    • HEADONE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" BEG+8, YLOOP+4
^DPT - [#2] LIST+4, GETN+1, ZZNAME+1
^PS(52.51 - [#52.51] BEG+3, LIST+1, LIST+2, GETN, GETN+1, ZZNAME
^PS(59 - [#59] BEG+6, BEG+9
^PSDRUG - [#50] LIST+5
^PSRX - [#52] LIST+2, LIST+4, LIST+5, LIST+6, STAT+1, RACT+3, RACT+4, RACT+5*, RACT+6*
^TMP($J BEG!, BEG+4*, BEG+5, BEG+7, BEG+13*, YLOOP+2*, YLOOP+3, YLOOP+4, END!, LIST
, LIST+1, GETN
^UTILITY($J BEG!
^VA(200 - [#200] BEG+8, YLOOP+4

Label References

Name Line Occurrences
@( QUE+6
BEG BEG+5
END VW, BEG+1, BEG+10
GETN LIST
HEAD LIST+1
HEADONE LIST+2
LIST VWPASS+2
RACT QUE+5
START BEG+11, YLOOP+7, VWPASS, VWPASS+1, VWPASS+2, VWPASS+3, QUE+2
VW VIEW+1
VWPASS YLOOP+6
ZZNAME BEG+7

Naked Globals

Name Field # of Occurrence
^(0 BEG+8, YLOOP+4, LIST+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % RACT+6
%DT BEG+1!*, END!
%DT("A" BEG+1*
%DT(0 BEG+1*
%ZIS END!
AA BEG+6*, BEG+9*, END!
AAA BEG+7*, BEG+8, END!
BEGDATE BEG+1*, BEG+2*, BEG+3, END!
COUNT BEG+12*, BEG+13*, YLOOP+1*, YLOOP+2*, END!
DIR BEG+9!, BEG+11!, YLOOP+7!, VWPASS!, VWPASS+3!, LIST+1!, HEADONE!
DIR("A" BEG+11*, YLOOP+7*, VWPASS*, VWPASS+3*
DIR("B" YLOOP+7*, VWPASS*, VWPASS+3*
DIR(0 BEG+9*, BEG+11*, YLOOP+7*, VWPASS*, VWPASS+3*, LIST+1*, HEADONE*
>> DIRUT VWPASS
DTOUT BEG!, BEG+1, BEG+11, YLOOP+7, END!
DUOUT BEG+11, END!
DUZ RACT+6
ENDDATE BEG+1*, BEG+2*, BEG+3, END!
GG END!
HLZNAME END!, GETN+1*
HLZZDRUG END+1!, LIST+5*, LIST+7, LIST+8
HLZZDRUL END+1!, LIST+5*, LIST+7
HLZZNAME END+1!, LIST+4*, LIST+6
INRX END!, LIST+2*, LIST+4, LIST+5, LIST+6, STAT+1
IOF BEG+6, BEG+9, HEAD, HEADONE+1
IOSL BEG+8, LIST+2
JJ BEG+13*, YLOOP+2*, END!
LLL END!, LIST*, LIST+1, HEAD, HEADONE+1, GETN
MMM END!
NM1 END!, GETN*
NM2 END!, GETN*
NM3 END!, GETN*, GETN+1
NNN END!
POP END!
PPL QUE+4!*, END+1!, RACT+2
PPLPAR QUE+4*, END!
PPLX QUE+2, END+1!
PPLX( QUE+3, QUE+4
PSEXSTAT END+1!, STAT+2*
PSIDATE BEG+7*, BEG+8, YLOOP+4*, END!, ZZNAME
PSODATE BEG+8*, YLOOP+4*, YLOOP+5, END!
PSODUZ BEG+7*, BEG+8, YLOOP+4*, END!, ZZNAME
PSOEXREP QUE+6*, END!
PSOEXREX QUE+1!, QUE+3, QUE+7, END+1!
PSOEXVW BEG+11, YLOOP+3, YLOOP+6, VWPASS+2, END+1!, VIEW+1*
PSOLISTY BEG!, YLOOP+6!, VWPASS*, VWPASS+1, VWPASS+2, END+1!
PSOOUT BEG!, BEG+7, BEG+8, BEG+9*, BEG+10, BEG+11*, VWPASS+2, LIST, LIST+1*, LIST+2
, LIST+9, LIST+10*, HEADONE*
>> PSOPAR VW, QUE+6
PSOREDEV END!
PSORTIME END!
>> PSOSITE BEG+3, BEG+4, BEG+6, BEG+7, BEG+9, YLOOP+4, LIST+1, LIST+2, GETN, ZZNAME
PSOSUREP END!
PSOUSER BEG+8*, YLOOP+4*, YLOOP+5, END!
PSRDATE END+1!
PSRDIV END+1!
PSRDUZ END+1!
PSX END+1!, STAT+1*, STAT+2
PSYLOOP YLOOP*, YLOOP+1, YLOOP+2, END!
RECNT BEG+2*, BEG+4*, BEG+11*, END+1!
REDT END+1!, LIST+1*
REDUZ END+1!, LIST+1*
RR BEG+13*, YLOOP+2*, END+1!
RXPR QUE+4!, END!, END+1!
RXPR( QUE+4*, RACT+3, RACT+6
RXPRX END+1!
RXPRX( QUE+4
SS END+1!, LIST+1*, LIST+2
WFILL RACT+1~, RACT+3*, RACT+6
WIR RACT+1~, RACT+4*, RACT+5*, RACT+6
WRX RACT+1~, RACT+2*, RACT+3, RACT+4, RACT+5, RACT+6
WW RACT+1~, RACT+2*
WWW RACT+1~, RACT+3*, RACT+4*
XXX BEG+3*, BEG+4, END+1!
>> Y BEG+1, BEG+8*, BEG+9, BEG+10, BEG+11, BEG+12, BEG+13, YLOOP+4*, YLOOP+6*, YLOOP+7
, VWPASS, VWPASS+1, VWPASS+3, LIST+1, LIST+9, LIST+10, HEADONE
>> Y( YLOOP, YLOOP+1, YLOOP+2
>> Y(1 YLOOP
ZPPL QUE+3*, QUE+4, END!
ZZ BEG+12*, YLOOP+1*, END+1!
ZZNAME END!, ZZNAME+1*
ZZNM END+1!, ZZNAME*
ZZNM1 END+1!, ZZNAME*, ZZNAME+1
ZZZ BEG+3*, BEG+4, BEG+12*, YLOOP+1*, YLOOP+3*, YLOOP+4, YLOOP+5, END+1!
>> ZZZZ HEAD*, HEADONE+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All