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: PSOTALK

Package: Outpatient Pharmacy

Routine: PSOTALK


Information

PSOTALK ;BIR/EJW - SCRIPTALK INTERFACE FROM VISTA ;12/20/17 19:09

Source Information

Source file <PSOTALK.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 4 ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$NAMEFMT^XLFNAME  $$UP^XLFSTR  
Outpatient Pharmacy 4 OTHL1^PSOLBL3  ^PSOLSET  $$ZZ^PSOSUTL  ($$LSIG,$$READER,INST)^PSOTALK1  
VA FileMan 2 C^%DTC  ^DIC  
Health Level Seven 1 $$HLPHONE^HLFNC  
Pharmacy Data Management 1 ($$DRUG,$$WTEXT)^PSSWRNA  
Registration 1 DEM^VADPT  

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: 3

Package Total Caller Graph
Outpatient Pharmacy 3 PSO SCRIPTALK MANUAL EXTERNAL  PSO SCRIPTALK MANUAL INTERNAL  PSOTALK1  

Entry Points

Name Comments DBIA/ICR reference
EN
CLEAN
BARE
BAREO
BARI
BARIO
GATHER ;
TRANS ;If printer mapping defined use it; otherwise print by division 01/19/07
TRANSQ ;
PCHK ;Check for printers that are mapped to a ScripTalk printer
GO
OVERLAY
DEFLINE(XCORD,YCORD,PRTOUT,FIELDNO,OFFSET) ;
PICOTAG
XMITP
ID()
AUTO ;;v1.2c - LABEL REPRINTING FUNCTIONS 3-12-02
PAT55()
PHONE() ;changes below 1.2c*1 to swap to site signed-on vs. site from Rx
CITY()
STATE()
ZIP()
SITE()
ACODE()
EPHON()
CLERK()
PSOEXP ;
VRPH()
RXNUM()
RXALPHA() ;RETURN RENEWAL LETTER OR SPACE CHARACTER
DATE() ;CHANGED 7-30-01 TO USE EDATE FORMAT ALSO WHEN SPEAKING
EDATE()
FILLS()
TFILLS()
RFILLS() ;NEW REFILLS REMAINING METHOD 9-21-00, BASED ON PTST+5^PSORXVW
FILNO()
EPAT()
LAST4()
SIG() ;THIS SUBROUTINE WILL BE ABANDONED IF SIGPOE WORKS v1.2c 3-13-02
SIGPOE() ;v1.2c - NEW SUBROUTINE TO GIVE MESSAGE FOR LONG SIGS FOR THE HUMAN READABLE PORTION
SIGPOEE
SIGPOEX() ;v1.2c - NEW SUBROUTINE TO GIVE MESSAGE FOR LONG SIGS FOR THE READ ALOUD PORTION
SIGPOEEX
PROV() ;PROVIDER NAME
EPROV() ;
QTY()
DF()
DRUG()
WARN()
SET10 ;Set readable data for 10K printers, 1280 max characters
WNALL() ;Message when unable to print any warnings
WNREM() ;Message when only able to print some warnings
SIGALL() ;Sig plus all other information besides warnings is too long

External References

Name Field # of Occurrence
C^%DTC PSOEXP+1
^%ZTLOAD TRANSQ+3
^DIC BARE+2, PROV+1, EPROV+1
$$HLPHONE^HLFNC SET10+19
OTHL1^PSOLBL3 SIGPOE+4, SIGPOEX+4
^PSOLSET BARE+3, BARI+9
$$ZZ^PSOSUTL DRUG
$$LSIG^PSOTALK1 SIG+1, SIG+2, SIGPOEX+8
$$READER^PSOTALK1 BARI+2
INST^PSOTALK1 GATHER+30
$$DRUG^PSSWRNA SET10+13
$$WTEXT^PSSWRNA SET10+16
DEM^VADPT GATHER+3
$$FMTE^XLFDT EDATE
$$NOW^XLFDT TRANSQ+2
$$NAMEFMT^XLFNAME PROV+2
$$UP^XLFSTR GATHER+15, GATHER+20, GATHER+21, GATHER+22, GATHER+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BARE+2
Function Call: WRITE
  • Prompt: !,"Patient not enrolled in ScripTalk program."
  • Line Location: BARE+4
Function Call: WRITE
  • Prompt: !,"Prescription not ACTIVE"
  • Line Location: BARE+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: BAREO+1
Function Call: WRITE
  • Prompt: !,"Prescription not on file"
  • Line Location: BARI+6
Function Call: WRITE
  • Prompt: !,"Patient not enrolled in ScripTalk program."
  • Line Location: BARI+7
Function Call: WRITE
  • Prompt: !,"Prescription not ACTIVE"
  • Line Location: BARI+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: BARIO+1
Function Call: WRITE
  • Prompt: !,"^XA",!,"^FO250,700^XGE:RX.GRF^FS"
  • Line Location: GO+0
Function Call: WRITE
  • Prompt: !,"^PQ1,0,1,Y",!,"^XZ"
  • Line Location: GO+2
Function Call: WRITE
  • Prompt: !,"^AFR,20,10^FO"_XCORD_","_YCORD_"^FR^CI0^FD"_PRTOUT_"^FS"
  • Line Location: DEFLINE+1
Function Call: WRITE
  • Prompt: !,"^RX"_$S(PSOCTP<10:"0",1:"")_PSOCTP_","_XMIT_"^FS"
  • Line Location: XMITP+0
Function Call: WRITE
  • Prompt: !,PSOTK11
  • Line Location: SET10+22
Function Call: WRITE
  • Prompt: !,PSOTK11
  • Line Location: SET10+28
Function Call: WRITE
  • Prompt: !,PSOTK11
  • Line Location: SET10+34
Function Call: WRITE
  • Prompt: !,PSOTK11
  • Line Location: SET10+44
Routine Call
  • DIC
  • Line Location:
    • BARE+2
    • PROV+1
    • EPROV+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^PSRX - [#52] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] PCHK+2, PCHK+3
^DIC(5 - [#5] STATE
^DPT - [#2] EPAT
^PS(55 - [#55] PAT55, SIGPOE+2, SIGPOEX+2, SET10+13
^PS(59 - [#59] TRANS+2, AUTO+4, PHONE+1, CITY, STATE, ZIP, SITE, ACODE, EPHON
^PS(59.7 - [#59.7] TRANS+2, PCHK+4, PCHK+5, PCHK+6
^PSDRUG - [#50] DF, WARN+1
^PSRX - [#52] BARE+5, BARI+6, BARI+8, GATHER+2, PAT55, CLERK, PSOEXP+2, VRPH, RXNUM, RXALPHA+2
, DATE+1, EDATE, TFILLS, RFILLS+1, EPAT, SIG+1, SIG+2, SIGPOE+13, SIGPOE+14, SIGPOE+16
, SIGPOEX+8, SIGPOEX+13, SIGPOEX+14, SIGPOEX+15, PROV+1, EPROV+1, QTY, DF, WARN+1, SET10+8

Label References

Name Line Occurrences
$$ACODE GATHER+27
$$CITY GATHER+26
$$CLERK GATHER+27
$$DATE GATHER+7
$$DF GATHER+32, SET10+7
$$DRUG GATHER+23, GATHER+31
$$EDATE GATHER+28
$$EPAT GATHER+29
$$EPHON GATHER+27
$$EPROV GATHER+31
$$FILNO GATHER+28
$$LAST4 GATHER+29
$$PAT55 EN, BARE+4, BARI+7, ID
$$PHONE GATHER+4
$$PROV GATHER+22
$$QTY GATHER+32, SET10+7
$$RFILLS GATHER+8, FILNO
$$RXALPHA GATHER+6
$$RXNUM GATHER+5, GATHER+28
$$SIGALL SET10+29, SET10+35
$$SIGPOE GATHER+20
$$SIGPOEX GATHER+21
$$SITE GATHER+27
$$STATE GATHER+26
$$TFILLS GATHER+28, FILNO
$$VRPH GATHER+27
$$WARN GATHER+24
$$WNALL SET10+29, SET10+35
$$WNREM SET10+43
$$ZIP GATHER+26
BARE BAREO+2
BAREO BARE+4, BARE+5
BARI BARIO+2
BARIO BARI+4, BARI+6, BARI+7, BARI+8
CLEAN EN+3, BARE+1, BAREO, BARI+1, BARIO
DEFLINE OVERLAY, OVERLAY+1
EN AUTO+4
GATHER EN+3, BARE+6, BARI+10
OVERLAY GO+1
PCHK TRANS+1, AUTO+3
PICOTAG GO+1
PSOEXP GATHER+25
SET10 PICOTAG+1
SIGPOEE SIGPOE+2
SIGPOEEX SIGPOEX+2
TRANS GATHER+19
TRANSQ EN+3, BARE+8, BARI+12
XMITP PICOTAG+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DATE EN+2~, CLEAN!, GATHER+7*, PICOTAG+3
DFN GATHER+1~, GATHER+2*, SIGPOE+2, SIGPOEX+2
DIC BARE+2*!, PROV+1!*, EPROV+1!*
DIC(0 BARE+2*, PROV+1*, EPROV+1*
DRUG EN+2~, CLEAN!, GATHER+23*, PICOTAG+2*, PICOTAG+3, SET10+20, SET10+23, SET10+29, SET10+35, SET10+40
DT PSOEXP+1
EDATE EN+2~, CLEAN!, DATE+1*, DATE+2
FIELDNO DEFLINE~
>> FILLS GATHER+8*, PICOTAG+3, SET10+20, SET10+23, SET10+29, SET10+35, SET10+40
FNAM GATHER+10~, GATHER+11*, GATHER+12, GATHER+13*, GATHER+14
ION PCHK+2
>> IOS TRANS+2
IWARN WARN~, WARN+2*
LINE EN+2~, CLEAN+2!
LINE( OVERLAY, OVERLAY+1
LINE(1 GATHER+26*
LINE(10 GATHER+31*
LINE(2 GATHER+27*
LINE(3 GATHER+28*
LINE(4 GATHER+29*
LINE(5 GATHER+30*
LINE(6 GATHER+30*
LINE(7 GATHER+30*
LINE(8 GATHER+31*
LINE(9 GATHER+32*
MI GATHER+10~, GATHER+12*, GATHER+14
NWARN WARN~, WARN+2*
OFFSET DEFLINE~
PHONE EN+2~, CLEAN!, GATHER+4*, PICOTAG+3, SET10+19
PROV EN+2~, CLEAN!, GATHER+22*, PICOTAG+3, SET10+20, SET10+26, SET10+29, SET10+35, SET10+43
PRTOUT DEFLINE~, DEFLINE+1
>> PSLION PCHK+2
PSOCTP CLEAN+1!, PICOTAG*, XMITP, XMITP+1*
PSOCTV CLEAN+1!
PSODKDFU SET10+6~, SET10+7*
PSOEXPDT CLEAN+1!, GATHER+27, PSOEXP+1*, PSOEXP+2*, PSOEXP+3*
>> PSOLAP PCHK+2
PSOLBSEQ PCHK+1~, PCHK+5*, PCHK+6
PSOLEN CLEAN+2!
PSOLINE CLEAN+2!, OVERLAY*, OVERLAY+1*
PSOLNE CLEAN+2!
PSOLNE(1 GATHER+30
PSOLNE(2 GATHER+30
PSOLNE(3 GATHER+30
PSOLPRT PCHK+1~, PCHK+2*, PCHK+3
PSOLSIG CLEAN+3!, SIGPOE+12*, SIGPOE+16, SIGPOEX+12*, SIGPOEX+15
PSONIOS PCHK+1~, PCHK+3*, PCHK+4, PCHK+5
>> PSOPAR BARE+3, BARI+9
>> PSOPHYS PROV+1*, PROV+2, EPROV+1*, EPROV+2
PSOPMAP CLEAN+3!, BARE~, BARI~, TRANS+1, TRANS+2, PCHK+3*, PCHK+6*, AUTO+2~, AUTO+4
PSORCT CLEAN+1!, RFILLS+1*
PSOSEQ SIGPOE+10~, SIGPOE+13*, SIGPOE+14, SIGPOE+16, SIGPOEX+10~, SIGPOEX+13*, SIGPOEX+14, SIGPOEX+15
PSOSIG CLEAN+3!, SIGPOE+1*, SIGPOE+3*, SIGPOE+7*, SIGPOE+8*, SIGPOE+11*, SIGPOE+16*, SIGPOE+17*, SIGPOEE, SIGPOEX+1*
, SIGPOEX+3*, SIGPOEX+6*, SIGPOEX+7*, SIGPOEX+11*, SIGPOEX+15*, SIGPOEX+16*, SIGPOEEX
PSOSIG1 CLEAN+3!, SIGPOE+14*, SIGPOE+17, SIGPOEX+14*, SIGPOEX+16
>> PSOSITE TRANS+2, AUTO+4, PHONE+1, CITY, STATE, ZIP, SITE, ACODE, EPHON
>> PSOSTALK EN+1*
PSOSTOP CLEAN+3!, SIGPOE+11*, SIGPOE+13, SIGPOE+16*, SIGPOEX+11*, SIGPOEX+13, SIGPOEX+15*
PSOTK11 SET10+6~, SET10+22, SET10+23*, SET10+25*, SET10+26*, SET10+28, SET10+29*, SET10+34, SET10+35*, SET10+40*
, SET10+42*, SET10+43*, SET10+44
PSOTKBT BARE~, BARI~, GATHER+19, TRANS+2*, TRANSQ+1, PCHK+6*, PICOTAG+1, AUTO+2~, PSOEXP+1, PSOEXP+2
, SIGPOEE, SIGPOEX+6, SIGPOEX+8, SIGPOEX+15, SIGPOEEX
PSOTKDFN BARE~, BARI~, GATHER+2*, AUTO+2~, SET10+13
PSOTKDRG SET10+6~, SET10+8*, SET10+13
PSOTKEX SET10+6~, SET10+8*, SET10+9
PSOTKEXD SET10+6~, SET10+9*, SET10+20, SET10+23, SET10+29, SET10+35, SET10+40
PSOTKLAN SET10+6~, SET10+13*, SET10+16
PSOTKLD SET10+6~, SET10+8*, SET10+10
PSOTKLDT SET10+6~, SET10+10*, SET10+20, SET10+23, SET10+29, SET10+35, SET10+40
PSOTKLG SET10+6~
PSOTKLG("LABEL" SET10+18*, SET10+22, SET10+28, SET10+32
PSOTKLG("OTHER" SET10+20*, SET10+22, SET10+28, SET10+32
PSOTKLG("REM" SET10+32*, SET10+34, SET10+38*
PSOTKLG("SIG" SET10+12*
PSOTKLG("WARN" SET10+15*, SET10+17*, SET10+22, SET10+34, SET10+38
PSOTKLOP SET10+6~, SET10+41*, SET10+42
PSOTKLP SET10+6~, SET10+14*, SET10+15*, SET10+24*, SET10+25, SET10+38*, SET10+39*, SET10+41
PSOTKNUM SET10+6~, SET10+8*, SET10+14
PSOTKPHN SET10+6~, SET10+19*, SET10+20, SET10+26, SET10+29, SET10+35, SET10+43
PSOTKQTY SET10+6~, SET10+7*, SET10+20, SET10+23, SET10+29, SET10+35, SET10+40
PSOTKRNM SET10+6~, SET10+14*, SET10+20, SET10+26, SET10+29, SET10+35, SET10+43
PSOTKRX BARE~, BARI~, GATHER+2*, AUTO+2~, SET10+8
PSOTKWIN SET10+6~, SET10+15*, SET10+16
PSOTKWN SET10+6~, SET10+16*, SET10+17
PSOTKWR SET10+6~, SET10+13*, SET10+15
PSOTKWRT SET10+6~
PSOTKWRT( SET10+17*, SET10+24, SET10+25, SET10+42
PSOTKWTO SET10+6~, SET10+15*, SET10+17*, SET10+18, SET10+29, SIGALL+1
PSOTKZND SET10+6~, SET10+8*
PSOTKZT BARE~, BARE+7, BARI~, BARI+11, GATHER+19, TRANS+2*, TRANSQ+1, TRANSQ+2, PCHK+2*, PCHK+6*
, AUTO+2~
>> PSOTREP AUTO+1
PSOTSSN CLEAN+1!, LAST4*, LAST4+1
PSOWDS CLEAN+2!
PSOWORD CLEAN+2!
PTNAME EN+2~, CLEAN!, GATHER+9*, GATHER+11, GATHER+14*, GATHER+15*, GATHER+16*, GATHER+17*, GATHER+18*, PICOTAG+3
, SET10+20, SET10+23, SET10+29, SET10+35, SET10+40
RFILLS EN+2~, CLEAN!, GATHER+8, RFILLS+1*, RFILLS+2
RX BARE~, BARE+2*, BARE+5, BARI~, BARI+2*, BARI+3, BARI+4, BARI+5*, BARI+6, BARI+8
, GATHER+2, PAT55, CLERK, PSOEXP+2, VRPH, RXNUM, RXALPHA+2, DATE+1, EDATE, TFILLS
, RFILLS+1, EPAT, SIG+1, SIG+2, SIGPOE+4, SIGPOE+13, SIGPOE+14, SIGPOE+16, SIGPOEX+4, SIGPOEX+8
, SIGPOEX+13, SIGPOEX+14, SIGPOEX+15, PROV+1, EPROV+1, QTY, DF, DRUG, WARN+1
RXALPHA EN+2~, CLEAN!, GATHER+6*, PICOTAG+3, RXALPHA+1~, RXALPHA+2*, RXALPHA+3
>> RXF FILLS
RXNUM EN+2~, CLEAN!, GATHER+5*, PICOTAG+3
>> RXP QTY
SIG EN+2~, CLEAN!, GATHER+20*
>> SIG2( SIGPOE+7, SIGPOEX+6
>> SIG2(0 SIGPOE+4, SIGPOEX+4
SIGX EN+2~, CLEAN!, GATHER+21*, PICOTAG+3, SET10+11*, SET10+12, SET10+20, SET10+23, SET10+40
>> SUSPT PCHK+2
U TRANS+2, AUTO+4
VADM CLEAN!
VADM(1 GATHER+9
WARN EN+2~, CLEAN!, GATHER+24*, PICOTAG+3, WARN~, WARN+1*, WARN+2
X PSOEXP+1~, SIGPOE+5~, SIGPOE+7*, SIGPOEX+5~, SIGPOEX+6*, PROV+1!*, EPROV+1!*
X1 PSOEXP+1~*
X2 PSOEXP+1~*
XCORD DEFLINE~, DEFLINE+1
XMIT CLEAN+1!, PICOTAG+3*, XMITP
XWARN WARN~, WARN+2*, WARN+3
XX SIGPOE+5~, SIGPOE+7*, SIGPOEX+5~, SIGPOEX+6*
Y BARE+2, PROV+1!, EPROV+1!
YCORD DEFLINE~, DEFLINE+1
>> ZTDESC TRANSQ+2*
>> ZTDTH TRANSQ+2*
ZTIO BARE~, BARI~, TRANSQ+2*, AUTO+2~
>> ZTQUEUED GO+3
>> ZTREQ GO+3*
>> ZTRTN TRANSQ+2*
>> ZTSAVE("*" TRANSQ+2*
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