Routine: PSOTALK

Call Graph

Call Graph Total: 11

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
Registration	1	DEM^VADPT

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

Package

Total

Caller Graph

Outpatient Pharmacy

PSO SCRIPTALK MANUAL EXTERNAL PSO SCRIPTALK MANUAL INTERNAL PSOTALK1

Entry Points

External References

Name	Field # of Occurrence
C^%DTC	PSOEXP+1
^%ZTLOAD	TRANS+5
^DIC	BARE+2, PROV+1, EPROV+1
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+29
DEM^VADPT	GATHER+3
$$FMTE^XLFDT	EDATE
$$NOW^XLFDT	TRANS+4
$$NAMEFMT^XLFNAME	PROV+2
$$UP^XLFSTR	GATHER+15, GATHER+19, GATHER+20, GATHER+21, GATHER+22

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: !!," Queuing ScripTalk label" Line Location: BARE+7
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: !!," Queuing ScripTalk label" Line Location: BARI+11
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
Routine Call	DIC Line Location: BARE+2 PROV+1 EPROV+1

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
^PS(59 - [#59]	TRANS+2, AUTO+3, 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, 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

Label References

Name	Line Occurrences
$$ACODE	GATHER+26
$$CITY	GATHER+25
$$CLERK	GATHER+26
$$DATE	GATHER+7
$$DF	GATHER+31
$$DRUG	GATHER+22, GATHER+30
$$EDATE	GATHER+27
$$EPAT	GATHER+28
$$EPHON	GATHER+26
$$EPROV	GATHER+30
$$FILNO	GATHER+27
$$LAST4	GATHER+28
$$PAT55	EN, BARE+4, BARI+7, ID
$$PHONE	GATHER+4
$$PROV	GATHER+21
$$QTY	GATHER+31
$$RFILLS	GATHER+8, FILNO
$$RXALPHA	GATHER+6
$$RXNUM	GATHER+5, GATHER+27
$$SIGPOE	GATHER+19
$$SIGPOEX	GATHER+20
$$SITE	GATHER+26
$$STATE	GATHER+25
$$TFILLS	GATHER+27, FILNO
$$VRPH	GATHER+26
$$WARN	GATHER+23
$$ZIP	GATHER+25
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+3
GATHER	EN+3, BARE+6, BARI+10
OVERLAY	GO+1
PCHK	TRANS+1, AUTO+2
PICOTAG	GO+1
PSOEXP	GATHER+24
SIGPOEE	SIGPOE+2
SIGPOEEX	SIGPOEX+2
TRANS	EN+3, BARE+8, BARI+12
XMITP	PICOTAG+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DATE	EN+2~, CLEAN!, GATHER+7*, PICOTAG+2
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+22, PICOTAG+1, PICOTAG+2
DT	PSOEXP+1
EDATE	EN+2~, CLEAN!, DATE+1*, DATE+2
FIELDNO	DEFLINE~
>> FILLS	GATHER+8*, PICOTAG+2
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+25*
LINE(10	GATHER+30*
LINE(2	GATHER+26*
LINE(3	GATHER+27*
LINE(4	GATHER+28*
LINE(5	GATHER+29*
LINE(6	GATHER+29*
LINE(7	GATHER+29*
LINE(8	GATHER+30*
LINE(9	GATHER+31*
MI	GATHER+10~, GATHER+12*, GATHER+14
NWARN	WARN~, WARN+2*
OFFSET	DEFLINE~
PHONE	EN+2~, CLEAN!, GATHER+4*, PICOTAG+2
PROV	EN+2~, CLEAN!, GATHER+21*, PICOTAG+2
PRTOUT	DEFLINE~, DEFLINE+1
>> PSLION	PCHK+2
PSOCTP	CLEAN+1!, PICOTAG, XMITP, XMITP+1
PSOCTV	CLEAN+1!
PSOEXPDT	CLEAN+1!, GATHER+26, PSOEXP+1, PSOEXP+2
>> 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+29
PSOLNE(2	GATHER+29
PSOLNE(3	GATHER+29
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!, TRANS+1, TRANS+2, PCHK+3, PCHK+6, AUTO+3
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+3, 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
>> 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+2
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, 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+2, RXALPHA+1~, RXALPHA+2, RXALPHA+3
>> RXF	FILLS
RXNUM	EN+2~, CLEAN!, GATHER+5*, PICOTAG+2
>> RXP	QTY
SIG	EN+2~, CLEAN!, GATHER+19*
>> SIG2(	SIGPOE+7, SIGPOEX+6
>> SIG2(0	SIGPOE+4, SIGPOEX+4
SIGX	EN+2~, CLEAN!, GATHER+20*, PICOTAG+2
>> SUSPT	PCHK+2
U	TRANS+2, AUTO+3
VADM	CLEAN!
VADM(1	GATHER+9
WARN	EN+2~, CLEAN!, GATHER+23, PICOTAG+2, 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+2*, 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	TRANS+4*
>> ZTDTH	TRANS+4*
>> ZTIO	TRANS+2, TRANS+3, PCHK+2, PCHK+6*
>> ZTQUEUED	GO+3
>> ZTREQ	GO+3*
>> ZTRTN	TRANS+4*
>> ZTSAVE("*"	TRANS+4*

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

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOTALK

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

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: