Routine: PSOTALK

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

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*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOTALK

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: