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

Package: Outpatient Pharmacy

Routine: PSOTALK3


Information

PSOTALK3 ;BIR/EJW - SCRIPTALK UTILITIES ;02 Oct 2003 7:31 AM

Source Information

Source file <PSOTALK3.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 ^DIC  ^DIE  ^DIR  
Kernel 2 ^%ZTLOAD  $$NOW^XLFDT  
Outpatient Pharmacy 1 ^PSOLSET  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Outpatient Pharmacy 4 PSO SCRIPTALK DEVICE DEF'N  PSO SCRIPTALK REINITIALIZE  PSO SCRIPTALK SAMPLE LABEL  PSO SCRIPTALK TEST DEVICE  

Entry Points

Name Comments DBIA/ICR reference
STDEV1 ;
TPUT ;SET VARIABLE 'PSOTEST' TO OUTPUT STRING
STDEVQ ;
TLABEL ;
TTRANS ;RE-INITIALIZE SCRIPTALK PRINTER
STDEVD ;Define ScripTalk device by division
STDEV ;Define ScripTalk printer for a Division or map another print device to the ScripTalk Printer
TEST ;
STDEVM ;Map a printer to a ScripTalk printer
TESTLAB ;
TINIT ;

External References

Name Field # of Occurrence
^%ZTLOAD TTRANS+6, TEST+7, TESTLAB+6
^DIC STDEVD+3
^DIE STDEVD+6, STDEVM+1
^DIR STDEV1+9
^PSOLSET TTRANS+1, TEST+3, TESTLAB+1
$$NOW^XLFDT TTRANS+4, TEST+4, TESTLAB+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Pharmacy Division Must be Selected!",!
  • Line Location: TTRANS+1
Function Call: WRITE
  • Prompt: !,"No ScripTalk printer defined for division."
  • Line Location: TTRANS+3
Function Call: WRITE
  • Prompt: !,"^XA ^MD30 ^XZ"
  • Line Location: TINIT+1
Function Call: WRITE
  • Prompt: !,"^XA ^MD30 ^XZ"
  • Line Location: TINIT+2
Function Call: WRITE
  • Prompt: !,"^XA ~SD30 ^XZ"
  • Line Location: TINIT+3
Function Call: WRITE
  • Prompt: !,"^XA ^MFF,F ^XZ"
  • Line Location: TINIT+4
Function Call: WRITE
  • Prompt: !,"^XA ^LT20 ^XZ"
  • Line Location: TINIT+5
Function Call: WRITE
  • Prompt: !,"^XA ^MTT ^XZ"
  • Line Location: TINIT+6
Function Call: WRITE
  • Prompt: !,"^XA ^JUS ^XZ"
  • Line Location: TINIT+7
Function Call: WRITE
  • Prompt: $C(7),!!,"Pharmacy Division Must be Selected!",!
  • Line Location: TEST+3
Function Call: WRITE
  • Prompt: !,"No ScripTalk printer defined for division."
  • Line Location: TEST+5
Function Call: WRITE
  • Prompt: !,PSOTEST
  • Line Location: TPUT+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Pharmacy Division Must be Selected!",!
  • Line Location: TESTLAB+1
Function Call: WRITE
  • Prompt: !,"No ScripTalk printer defined for division."
  • Line Location: TESTLAB+3
Function Call: WRITE
  • Prompt: !,"The following test data will be sent to the ScripTalk printer:",!
  • Line Location: TESTLAB+5
Function Call: WRITE
  • Prompt: !
  • Line Location: TESTLAB+5
Function Call: WRITE
  • Prompt: !,"^XA"
  • Line Location: TLABEL+1
Function Call: WRITE
  • Prompt: !,"^FO250,700^XGE:RX.GRF^FS"
  • Line Location: TLABEL+2
Function Call: WRITE
  • Prompt: !,"^FO250,700^XGE:RX.GRF^FS"
  • Line Location: TLABEL+3
Function Call: WRITE
  • Prompt: !,"^AFR,20,10^FO531,50^FR^CI0^FD7305 N. MILITARY TRL Exp: January 01,2002^FS"
  • Line Location: TLABEL+4
Function Call: WRITE
  • Prompt: !,"^AFR,20,10^FO503,50^FR^CI0^FDRX#82382787 January 01,2001 Fill 01 OF 01^FS"
  • Line Location: TLABEL+5
Function Call: WRITE
  • Prompt: !,"^AFR,20,10^FO475,50^FR^CI0^FDJOE VETERAN^FS"
  • Line Location: TLABEL+6
Function Call: WRITE
  • Prompt: !,"^AFR,20,10^FO447,50^FR^CI0^FDTAKE 1 CAPSULE THREE TIMES DAILY^FS"
  • Line Location: TLABEL+7
Function Call: WRITE
  • Prompt: !,"^AFR,20,10^FO419,50^FR^CI0^FD^FS"
  • Line Location: TLABEL+8
Function Call: WRITE
  • Prompt: !,"^AFR,20,10^FO391,50^FR^CI0^FD^FS"
  • Line Location: TLABEL+9
Function Call: WRITE
  • Prompt: !,"^AFR,20,10^FO363,50^FR^CI0^FD^FS"
  • Line Location: TLABEL+10
Function Call: WRITE
  • Prompt: !,"^AFR,20,10^FO335,50^FR^CI0^FDDr. BEN CASEY MD^FS"
  • Line Location: TLABEL+11
Function Call: WRITE
  • Prompt: !,"^AFR,20,10^FO279,50^FR^CI0^FDQTY: 24 TABS^FS"
  • Line Location: TLABEL+12
Function Call: WRITE
  • Prompt: !,"^AFR,20,10^FO251,50^FR^CI0^FDAMOXICILLIN 500MG CAP^FS"
  • Line Location: TLABEL+13
Function Call: WRITE
  • Prompt: !,"^RX01,JOE VETERAN^FS"
  • Line Location: TLABEL+14
Function Call: WRITE
  • Prompt: !,"^RX02,AMOXICILLIN 500MG CAP^FS"
  • Line Location: TLABEL+15
Function Call: WRITE
  • Prompt: !,"^RX03,TAKE 1 CAPSULE THREE TIMES DAILY ^FS"
  • Line Location: TLABEL+16
Function Call: WRITE
  • Prompt: !,"^RX04,010101^FS"
  • Line Location: TLABEL+17
Function Call: WRITE
  • Prompt: !,"^RX05,00^FS"
  • Line Location: TLABEL+18
Function Call: WRITE
  • Prompt: !,"^RX06,020000^FS"
  • Line Location: TLABEL+19
Function Call: WRITE
  • Prompt: !,"^RX07,BEN CASEY^FS"
  • Line Location: TLABEL+20
Function Call: WRITE
  • Prompt: !,"^RX08,2928993888^FS"
  • Line Location: TLABEL+21
Function Call: WRITE
  • Prompt: !,"^RX09,82382787^FS"
  • Line Location: TLABEL+22
Function Call: WRITE
  • Prompt: !,"^RX10, ^FS"
  • Line Location: TLABEL+23
Function Call: WRITE
  • Prompt: !,"^PQ1,0,1,Y"
  • Line Location: TLABEL+24
Function Call: WRITE
  • Prompt: !,"^XZ"
  • Line Location: TLABEL+25
Function Call: WRITE
  • Prompt: !!!
  • Line Location: STDEV1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: STDEVD+1
Function Call: WRITE
  • Prompt: !?5,"Another user is editing this entry."
  • Line Location: STDEVM+2
Routine Call
  • DIE
  • Line Location:
    • STDEVD+6
    • STDEVM+1
Routine Call
  • DIC
  • Line Location:
    • STDEVD+3
Routine Call
  • DIR
  • Line Location:
    • STDEV1+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(59 - [#59] Classic Fileman Calls
^PS(59.7 - [#59.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DILOCKTM" STDEVM+1
^PS(59 - [#59] TTRANS+2, TEST+4, TESTLAB+2
^PS(59.7 - [#59.7] STDEVM+1

Label References

Name Line Occurrences
STDEV1 STDEV1+12
STDEVD STDEV1+11
STDEVM STDEV1+10
STDEVQ STDEV1+9
TLABEL TESTLAB+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA STDEV1+2!, STDEVQ+1!, STDEVD+6*, STDEVM+1*
DIC STDEV1+2!, STDEVQ+1!, STDEVD+1*, STDEVD+3!
DIC("A" STDEVD+1*
DIC("S" STDEVD+2*
DIC(0 STDEVD+1*
DIE STDEV1+2!, STDEVQ+1!, STDEVD+6*, STDEVM+1*
DIR STDEV1+2!, STDEVQ+1!
DIR("?" STDEV1+4*, STDEV1+5*, STDEV1+6*, STDEV1+7*
DIR("A" STDEV1+3*
DIR(0 STDEV1+3*
DIRUT STDEV1+9, STDEVQ+1!, STDEVD+3
DR STDEV1+2!, STDEVQ+1!, STDEVD+6*, STDEVM+1*
DTIME TEST+1
>> PSOPAR TTRANS+1, TEST+3, TESTLAB+1
PSOSITE TTRANS+2, TEST+4, TESTLAB+2, STDEV+1~, STDEV1+8*, STDEVD+5*, STDEVD+6
PSOTEST TEST+1*, TEST+2, TEST+9!, TPUT+1
PSOTYPE STDEV+1~, STDEV1+9*, STDEV1+10, STDEV1+11
>> PSOVEX STDEVD+2
U TTRANS+2, TEST+4, TESTLAB+2
Y STDEV1+9, STDEVQ+1!, STDEVD+3, STDEVD+4, STDEVD+5
ZTDESC TTRANS+4*, TTRANS+6!, TEST+4*, TEST+7!, TESTLAB+2*, TESTLAB+6!
ZTDTH TTRANS+4*, TTRANS+6!, TEST+4*, TEST+7!, TESTLAB+2*, TESTLAB+6!
ZTIO TTRANS+2*, TTRANS+3, TTRANS+6!, TEST+4*, TEST+5, TEST+7!, TESTLAB+2*, TESTLAB+3, TESTLAB+6!
>> ZTQUEUED TTRANS+7, TINIT+8, TEST+8, TPUT+2, TESTLAB+7, TLABEL+26
>> ZTREQ TINIT+8*, TPUT+2*, TLABEL+26*
ZTRTN TTRANS+5*, TTRANS+6!, TEST+6*, TEST+7!, TESTLAB+4*, TESTLAB+6!
>> ZTSAVE("*" TTRANS+5*, TEST+6*, TESTLAB+4*
>> ZTSK TTRANS+7, TEST+8, TESTLAB+7
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 |  Local Variables |  All