Routine: PSOPTPST

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Registration	4	$$GETSTAT^DGMSTAPI ($$GETCUR,GETCUR)^DGNTAPI ($$GETSHAD,GETSHAD)^DGUTL3 ADD^VADPT
VA Fileman	3	$$GET1^DIQ EN^DIQ1 ^DIR
Kernel	2	ENDR^%ZISS ^%ZTLOAD
Outpatient Pharmacy	2	RE^PSODEM $$DT^PSOMLLDT
IHS Changes To Pharmacy	1	($$GP,$$MCD,$$MCR,$$PIN)^APSQPINS
Integrated Billing	1	XTYPE^IBARX
Scheduling	1	($$AO,$$EC,$$IR)^SDCO22

Package

Total

Call Graph

Registration

$$GETSTAT^DGMSTAPI ($$GETCUR,GETCUR)^DGNTAPI ($$GETSHAD,GETSHAD)^DGUTL3 ADD^VADPT

VA Fileman

$$GET1^DIQ EN^DIQ1 ^DIR

Kernel

ENDR^%ZISS ^%ZTLOAD

Outpatient Pharmacy

RE^PSODEM $$DT^PSOMLLDT

IHS Changes To Pharmacy

($$GP,$$MCD,$$MCR,$$PIN)^APSQPINS

Integrated Billing

XTYPE^IBARX

Scheduling

($$AO,$$EC,$$IR)^SDCO22

Package	Total	Caller Graph
Outpatient Pharmacy	8	PSOATRF PSOATRFC PSOBBC PSOREF0 PSORENW0 PSORX1 PSORXEDT PSOTPRX1
IHS Changes To Pharmacy	1	APSPCO
IHS View Patient Record	1	BVPRX

Package

Total

Caller Graph

Outpatient Pharmacy

PSOATRF PSOATRFC PSOBBC PSOREF0 PSORENW0 PSORX1 PSORXEDT PSOTPRX1

IHS Changes To Pharmacy

APSPCO

IHS View Patient Record

BVPRX

Entry Points

External References

Name	Field # of Occurrence
ENDR^%ZISS	INSUR+2, CAP+3
^%ZTLOAD	DEAD+4
$$GP^APSQPINS	INSUR+4, INSUR+8
$$MCD^APSQPINS	INSUR+3, INSUR+4
$$MCR^APSQPINS	INSUR+6
$$PIN^APSQPINS	INSUR+10, INSUR+11
$$GETSTAT^DGMSTAPI	QST+11
$$GETCUR^DGNTAPI	QST+12
GETCUR^DGNTAPI	QST+12
$$GETSHAD^DGUTL3	QST+10
GETSHAD^DGUTL3	QST+10
$$GET1^DIQ	INSUR+8, CAP+2
EN^DIQ1	GET+1
^DIR	DIR+1
XTYPE^IBARX	COPAY
RE^PSODEM	ELIG+1
$$DT^PSOMLLDT	QST+1
$$AO^SDCO22	QST+7
$$EC^SDCO22	QST+9
$$IR^SDCO22	QST+8
ADD^VADPT	ADDRESS

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,$C(7),PSORX("NAME")_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_") DIED "_PSOPTPST(2,PSODFN,.351),! Line Location: DEAD+1
Function Call: WRITE	Prompt: !!?10,$C(7),PSORX("NAME")_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_")" Line Location: INP+0
Function Call: WRITE	Prompt: !!?10,$C(7),PSORX("NAME")_" (XXX-XX-"_$E(SSN,6,9)_")" Line Location: INP+1
Function Call: WRITE	Prompt: !?10,$C(7),"Patient is an Inpatient on Ward "_PSOPTPST(2,PSODFN,.1)_" !!" Line Location: INP+2
Function Call: WRITE	Prompt: !!?10,$C(7),$P($G(^DPT(PSODFN,0)),"^")_" ("_$E(PSOTPSSN,1,3)_"-"_$E(PSOTPSSN,4,5)_"-"_$E(PSOTPSSN,6,9)_")" Line Location: TPB+6
Function Call: WRITE	Prompt: !!?10,$C(7),$P($G(^DPT(PSODFN,0)),"^")_" ("_$E(PSOTPSSN,1,3)_"-"_$E(PSOTPSSN,4,5)_"-"_$E(PSOTPSSN,6,9)_")" Line Location: TPB+7
Function Call: WRITE	Prompt: ! Line Location: TPB+8
Function Call: WRITE	Prompt: !!?10,$C(7),PSORX("NAME")_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_")" Line Location: CNH+1
Function Call: WRITE	Prompt: !,"MAS Eligibility: "_PSOPTPST(2,PSODFN,.361) Line Location: ELIG+0
Function Call: WRITE	Prompt: !,"ERROR IN COPAY ELIGIBILITY ENCOUNTERED." Line Location: COPAY+4
Function Call: WRITE	Prompt: !!,?5 Line Location: REMARKS+0
Function Call: WRITE	Prompt: !?5 Condition for execution: $X+$L($P(PSOX," ",PSOI))+$L(" ")>IOM Line Location: REMARKS+1
Function Call: WRITE	Prompt: $P(PSOX," ",PSOI)_" " Line Location: REMARKS+1
Function Call: WRITE	Prompt: *7," " Line Location: INSUR+5
Function Call: WRITE	Prompt: *7," " Line Location: INSUR+9
Function Call: WRITE	Prompt: *7," " Line Location: INSUR+12
Function Call: WRITE	Prompt: ?($X+2),"CAP STATUS: ",$S(Y=0:"SAFETY CAPS OK",Y=1:IORVON_"NON SAFETY CAPS REQUESTED"_IORVOFF,1:"UNKNOWN STATUS") Line Location: CAP+4
Function Call: WRITE	Prompt: ! Line Location: DIR+0
Routine Call	DIR Line Location: DIR+1

FileNo	Call Tags
^PS(55 - [#55]	GET1^DIQ
^AUTNINS - [#9999999.18]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DEAD+1, INP+1, TPB+4, TPB+6, TPB+7, CNH+1
^IBE(350.1 - [#350.1]	COPAY+1
^PS(52.91 - [#52.91]	TPB+3
^PS(55 - [#55]	START+12, REMARKS
^PS(59 - [#59]	COPAY

Label References

Name	Line Occurrences
ADDRESS	START+11
CAP	START+7
CNH	START+8
COPAY	START+10
COPAY1	COPAY1+1
COPAYX	COPAY+4, COPAY1
DEAD	START+3
DIR	INP+2, TPB+9, CNH+2
ELIG	START+9
END	START+1, START+3, START+4, START+5, START+8
EOJ	END
GET	START+2
INP	START+5
INSUR	START+6
QST	COPAYX+2
REMARKS	START+12

Name	Field # of Occurrence
^(0	TPB+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACOM	DEAD+3*, DEAD+4!
ACTYP	COPAY+4, COPAY1, COPAYX!
BL	COPAY+4, COPAY1, COPAYX!
DA	GET, GET+1!, ADDRESS!
DFN	ELIG+1, COPAY, ADDRESS~*!, INSUR+3, INSUR+4, INSUR+6, INSUR+10, INSUR+11
DIC	GET!*, GET+1!
DIQ	GET!*, GET+1!
DIR	DIR!, DIR+1!
DIR("A"	DIR+1*
DIR("B"	DIR+1*
DIR(0	DIR+1*
DIRUT	DIR+2!
DR	GET!*, GET+1!, ADDRESS!
DT	TPB+3, INSUR+3, INSUR+4, INSUR+6, INSUR+10, INSUR+11
DTOUT	DIR+2!
DUOUT	DIR+2!
DUZ	DEAD+4
DUZ("AG"	START+10
>> I	INSUR+5, INSUR+9, INSUR+12*
III	COPAY1*, COPAYX!
IOBOFF	INSUR+1~, INSUR+4, INSUR+8, INSUR+11
IOBON	INSUR+1~, INSUR+4, INSUR+8, INSUR+11
IOM	REMARKS+1
IORVOFF	INSUR+1~, INSUR+4, INSUR+8, INSUR+11, CAP+1~, CAP+4
IORVON	INSUR+1~, INSUR+4, INSUR+8, INSUR+11, CAP+1~, CAP+4
MCR	INSUR+1~, INSUR+6*, INSUR+7, INSUR+8
>> MEDP	TPB+5, TPB+6, TPB+8, CNH
>> POERR	DEAD+1
>> POERR("DEAD"	DEAD+1*
PSOBILL	COPAY!, COPAY+4, COPAY1, QST+3
>> PSOCLC	DEAD+4*
PSOCPAY	COPAY!, COPAY+4, COPAY1
PSODEATH	DEAD+1*, DEAD+4!
>> PSODFN	START+1, START+12, GET, DEAD+1, DEAD+3, INP+1, INP+2, TPB+2, TPB+3, TPB+4 , TPB+6, TPB+7, CNH, CNH+1, CNH+2, ELIG, ELIG+1, COPAY, ADDRESS, REMARKS , INSUR+3, INSUR+4, INSUR+6, INSUR+10, INSUR+11, CAP+2, QST+3, QST+4, QST+7, QST+8 , QST+9, QST+10, QST+11, QST+12
>> PSOFIN	INP+1, TPB+5, TPB+7, TPB+8
>> PSOFROM("PTLKUP"	START+4
PSOI	ADDRESS!, REMARKS+1*, REMARKS+2!
PSOIBQS	QST+2!
PSOIBQS(	QST+3, QST+4, QST+7, QST+8, QST+9, QST+10, QST+11, QST+12
PSONCP	QST+12~
PSONCP("IND"	QST+12
PSONCPX	QST+12~*
PSOPTIB	COPAY*, COPAY+1!, COPAYX!
PSOPTPST	EOJ!
PSOPTPST(2	DEAD+1, DEAD+3, INP+1, INP+2, TPB+7, CNH, CNH+2, ELIG
>> PSOQFLG	START, START+3, START+5, START+8, DEAD+1, CNH+2, COPAY+1, DIR+2, EOJ
>> PSORX("CNH"	CNH+2!*, EOJ!
>> PSORX("NAME"	DEAD+1, INP+1, CNH+1
>> PSOSITE	COPAY
PSOTPSSN	TPB+1~, TPB+4*, TPB+6, TPB+7
PSOX	REMARKS*, REMARKS+1, REMARKS+2!
>> PSOXFLG	INP+1*
SSN	DEAD+1, INP+1!, CNH+1*!
U	INSUR+8
VAPA	EOJ!
X	COPAY, COPAYX!, INSUR+2, CAP+1~, CAP+3*, DIR+2!
Y	COPAY+4, COPAYX!, CAP+1~, CAP+2*, CAP+3, CAP+4, DIR+2!
Y(	COPAY1
>> ZTDESC	DEAD+3*
>> ZTDTH	DEAD+4*
>> ZTIO	DEAD+4*
>> ZTRTN	DEAD+3*
>> ZTSAVE("ACOM"	DEAD+3*
>> ZTSAVE("PSOCLC"	DEAD+4*
>> ZTSAVE("PSODEATH"	DEAD+3*
>> ZTSAVE("PSODFN"	DEAD+3*
ZTSK	DEAD+4!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOPTPST

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
ELIG
END
TPB	;
GET
COPAY
CAP	; IHS/CIA/PLS - 01/06/04 - Display Safety Status for Bottles
INP	;I '$G(PSOXFLG),'$G(PSOFIN),$G(PSOPTPST(2,PSODFN,.1))]"" S PSOXFLG=1,SSN=$P(^DPT(PSODFN,0),"^",9) W !!?10,$C(7),PSORX("NAME")_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_")" K SSN
DEAD	;
START
COPAY1
EOJ
DIR
ADDRESS
REMARKS
INSUR	; IHS/CIA/PLS - 01/06/04 - Display Insurance Information
COPAYX
QST	;Ask new questions for Copay
CNH