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 |  FileMan Files Accessed Via FileMan Db Call |  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

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 ^%DT  NOW^%DTC  $$GET1^DIQ  ^DIR  
Outpatient Pharmacy 2 (,GETPPL)^PSOEXBCH  ^PSOLSET  
Kernel 1 ^%ZISC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

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
VW
START
BEG
YLOOP
VWPASS
QUE
END
LIST
HEAD
HEADONE
GETN
ZZNAME
VIEW ;
STAT ;
RACT ;Set activity log

External References

Name Field # of Occurrence
^%DT BEG+1, BEG+3
NOW^%DTC RACT+6
^%ZISC END+4
$$GET1^DIQ YLOOP+10
^DIR BEG+18, BEG+23, YLOOP+12, YLOOP+15, VWPASSVWPASS+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+3
Function Call: WRITE
  • Prompt: !!,"Gathering batches, please wait...",!
  • Line Location: BEG+6
Function Call: WRITE
  • Prompt: $C(7),!!,"There are no printed batches found for that date/time range!",!
  • Line Location: BEG+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEG+12
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+12
Function Call: WRITE
  • Prompt: AA,!
  • Line Location: BEG+13
Function Call: WRITE
  • Prompt: !?2,AAA,?10,PSODATE,?40,PSOUSER
  • Line Location: BEG+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEG+19
Function Call: WRITE
  • Prompt: !?1,"BATCH",?10,"QUEUED TO PRINT ON:",?40,"PRINTED BY:",?56,$E($P($G(^PS(59,PSOSITE,0)),"^"),1,23),!,AA
  • Line Location: BEG+19
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+22
Function Call: WRITE
  • Prompt: !!?3,"Nothing chosen to "_$S($G(PSOEXVW):"view",1:"reprint"),!
  • Line Location: BEG+24
Function Call: WRITE
  • Prompt: !!,"Batches selected for "_$S($G(PSOEXVW):"Viewing",1:"Reprint")_" are:",!
  • Line Location: YLOOP+3
Function Call: WRITE
  • Prompt: !,"Batch ",ZZZ," Queued for ",PSODATE," by ",PSOUSER
  • Line Location: YLOOP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: YLOOP+9
Function Call: WRITE
  • Prompt: !
  • Line Location: YLOOP+15
Function Call: WRITE
  • Prompt: !!?3,"Nothing queued to reprint!",!
  • Line Location: YLOOP+15
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+9
Function Call: WRITE
  • Prompt: !!?3,"Nothing queued to reprint!",!
  • Line Location: QUE+10
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+18
    • BEG+23
    • YLOOP+12
    • YLOOP+15
    • VWPASS
    • VWPASS+3
    • LIST+1
    • HEADONE

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" BEG+16, YLOOP+6
^DPT - [#2] LIST+4, GETN+1, ZZNAME+1
^PS(52.51 - [#52.51] BEG+7, BEG+8, LIST+1, LIST+2, GETNGETN+1, ZZNAME
^PS(59 - [#59] BEG+12, BEG+19
^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+9*, BEG+10, BEG+14, BEG+15, BEG+26*, YLOOP+2*, YLOOP+4, YLOOP+5, END!
LISTLIST+1, GETN
^UTILITY($J BEG!
^VA(200 - [#200] BEG+16, YLOOP+6

Label References

Name Line Occurrences
@( QUE+8
BEG BEG+10
END VWBEG+1, BEG+3, BEG+20, YLOOP+10
GETN LIST
HEAD LIST+1
HEADONE LIST+2
LIST VWPASS+2
RACT QUE+7
START BEG+24, YLOOP+15, VWPASSVWPASS+1, VWPASS+2, VWPASS+3, QUE+2
VW VIEW+1
VWPASS YLOOP+14
ZZNAME BEG+16

Naked Globals

Name Field # of Occurrence
^(0 BEG+16, YLOOP+6, LIST+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % RACT+6
%DT BEG+1!*, BEG+3*!, END!
%DT("A" BEG+1*, BEG+3*
%DT(0 BEG+2*
%ZIS END!
AA BEG+13*, BEG+19, END!
AAA BEG+14*, BEG+15, BEG+17, END!
BEGDATE BEG+2*, BEG+5*, BEG+7, END!
COUNT BEG+25*, BEG+26*, YLOOP+1*, YLOOP+2*, END!
DIR BEG+18!, BEG+22!, BEG+24!, YLOOP+9!, YLOOP+12!, YLOOP+15!, VWPASS!, VWPASS+3!, LIST+1!, HEADONE!
DIR("A" BEG+23*, YLOOP+11*, YLOOP+15*, VWPASS*, VWPASS+3*
DIR("B" YLOOP+11*, YLOOP+15*, VWPASS*, VWPASS+3*
DIR(0 BEG+18*, BEG+23*, YLOOP+11*, YLOOP+15*, VWPASS*, VWPASS+3*, LIST+1*, HEADONE*
DIRUT YLOOP+9!, YLOOP+10, YLOOP+12, VWPASS
DTOUT BEG!, BEG+1, BEG+3, BEG+24, YLOOP+15, END!
DUOUT BEG+24, END!
DUZ RACT+6
ENDDATE BEG+4*, BEG+5*, BEG+7, END!
GG END!
HLZNAME END+1!, GETN+1*
HLZZDRUG END+2!, LIST+5*, LIST+7, LIST+8
HLZZDRUL END+2!, LIST+5*, LIST+7
HLZZNAME END+2!, LIST+4*, LIST+6
INRX END!, LIST+2*, LIST+4, LIST+5, LIST+6, STAT+1
IOF BEG+12, BEG+19, HEADHEADONE+1
IOSL BEG+17, LIST+2
JJ BEG+26*, YLOOP+2*, END!
LLL END!, LIST*, LIST+1, HEADHEADONE+1, GETN
MMM END!
NM1 END+1!, GETN*
NM2 END+1!, GETN*
NM3 END+1!, GETN*, GETN+1
NNN END+1!
POP END+1!
PPL QUE+4!*, END+3!, RACT+2
PPLPAR QUE+5*, QUE+6, END+2!
PPLX QUE+2, END+3!
PPLX( QUE+3, QUE+4
PSEXSTAT END+3!, STAT+2*
PSIDATE BEG+15*, BEG+16, YLOOP+5*, YLOOP+6, END+1!, ZZNAME
PSODATE BEG+16*, BEG+17, YLOOP+6*, YLOOP+7, END+1!
PSODUZ BEG+15*, BEG+16, YLOOP+5*, YLOOP+6, END+1!, ZZNAME
PSOEXREP QUE+8*, END+1!
PSOEXREX QUE+1!, QUE+3, QUE+9, END+3!
PSOEXVW BEG+23, BEG+24, YLOOP+3, YLOOP+14, VWPASS+2, END+3!, VIEW+1*
PSOLISTY BEG!, YLOOP+14!, VWPASS*, VWPASS+1, VWPASS+2, END+2!
PSOMGREP YLOOP+12*, END+3!
PSOOUT BEG!, BEG+14, BEG+17, BEG+18*, BEG+20, BEG+22*, VWPASS+2, LISTLIST+1*, LIST+2
LIST+9, LIST+10*, HEADONE*
>> PSOPAR VWQUE+8
PSOREDEV END+1!
>> PSOREPX YLOOP+12*
PSORTIME END+1!
>> PSOSITE BEG+8, BEG+9, BEG+12, BEG+15, BEG+19, YLOOP+5, YLOOP+10, LIST+1, LIST+2, GETN
ZZNAME
PSOSUREP END+1!
PSOUSER BEG+16*, BEG+17, YLOOP+6*, YLOOP+7, END+1!
PSRDATE END+2!
PSRDIV END+2!
PSRDUZ END+2!
PSX END+3!, STAT+1*, STAT+2
PSYLOOP YLOOP*, YLOOP+1, YLOOP+2, END+1!
RECNT BEG+5*, BEG+9*, BEG+22*, BEG+23, END+2!
REDT END+2!, LIST+1*
REDUZ END+2!, LIST+1*
RR BEG+26*, YLOOP+2*, END+2!
RXPR QUE+4!, END+2!, END+3!
RXPR( QUE+6*, RACT+3, RACT+6
RXPRX END+3!
RXPRX( QUE+5, QUE+6
SS END+2!, 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+8*, BEG+9, END+2!
>> Y BEG+1, BEG+2, BEG+3, BEG+4, BEG+16*, BEG+18, BEG+19, BEG+20, BEG+24, BEG+25
BEG+26, YLOOP+6*, YLOOP+12, YLOOP+14*, YLOOP+15, VWPASSVWPASS+1, VWPASS+3, LIST+1, LIST+9
LIST+10, HEADONE
>> Y( YLOOPYLOOP+1, YLOOP+2
>> Y(1 YLOOP
ZPPL QUE+3*, QUE+4, QUE+5, QUE+6, END+2!
ZZ BEG+25*, YLOOP+1*, END+2!
ZZNAME END+1!, ZZNAME+1*
ZZNM END+3!, ZZNAME*
ZZNM1 END+3!, ZZNAME*, ZZNAME+1
ZZZ BEG+7*, BEG+8, BEG+9, BEG+25*, YLOOP+1*, YLOOP+4*, YLOOP+5, YLOOP+7, END+2!, END+3!
>> ZZZZ HEAD*, HEADONE+1*
Info |  Source |  Call Graph |  Caller 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