Routine: PSOTPRX1

Package	Total	Call Graph
Outpatient Pharmacy	15	^PSOBING1 ^PSOBUILD GMRA^PSODEM EN^PSOHLUP EN^PSOLMAO EN^PSOLMUTL ^PSOLSET DC^PSOORFI2 BLD^PSOORUT1 ^PSOORUT2 DEAD^PSOPTPST ^PSORXL (BBADD,WIND)^PSOSUPOE EXFLAG^PSOTPCAN ST^PSOTPPRV
VA Fileman	7	NOW^%DTC ^DIC FILE^DICN ^DIE (,EN)^DIK EN^DIQ1 ^DIR
Registration	2	(ELIG,KVA)^VADPT (CLEAR,FULL)^VALM1
Adverse Reaction Tracking	1	EN2^GMRAPEM0
Kernel	1	$$UP^XLFSTR

Package

Total

Call Graph

^PSOBING1 ^PSOBUILD GMRA^PSODEM EN^PSOHLUP EN^PSOLMAO EN^PSOLMUTL ^PSOLSET DC^PSOORFI2
BLD^PSOORUT1 ^PSOORUT2 DEAD^PSOPTPST ^PSORXL (BBADD,WIND)^PSOSUPOE EXFLAG^PSOTPCAN ST^PSOTPPRV

VA Fileman

NOW^%DTC ^DIC FILE^DICN ^DIE (,EN)^DIK EN^DIQ1 ^DIR

Registration

(ELIG,KVA)^VADPT (CLEAR,FULL)^VALM1

Adverse Reaction Tracking

EN2^GMRAPEM0

Kernel

$$UP^XLFSTR

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSO TPB RX ENTRY

Package

Total

Caller Graph

Outpatient Pharmacy

PSO TPB RX ENTRY

Name	Comments	DBIA/ICR reference
PROFILE	;
ELIG	; shows eligibility and disabilities
END
PROFILEX	;
PT	;
OERR
PROV	;
CHK	;
NX
START
INIT	;
EOJ	;
KV
MES
PTX	;
WRN
INITX

External References

Name	Field # of Occurrence
NOW^%DTC	OERR+3
^DIC	PT+3, OERR+26
FILE^DICN	OERR+9
^DIE	OERR+18, OERR+20
^DIK	OERR+30
EN^DIK	OERR+10
EN^DIQ1	OERR+1
^DIR	PROV+4
EN2^GMRAPEM0	PROV+5
^PSOBING1	START+11
^PSOBUILD	PROV+7, PROFILE+1
GMRA^PSODEM	PROFILE+2
EN^PSOHLUP	OERR+11
EN^PSOLMAO	PROV+12
EN^PSOLMUTL	PROV+11
^PSOLSET	INIT+2
DC^PSOORFI2	PROV+9
BLD^PSOORUT1	PROV+11
^PSOORUT2	PROV+11
DEAD^PSOPTPST	OERR+1
^PSORXL	START+8
BBADD^PSOSUPOE	START+7
WIND^PSOSUPOE	START+7
EXFLAG^PSOTPCAN	NX
ST^PSOTPPRV	PROV+1
ELIG^VADPT	ELIG+1
KVA^VADPT	EOJ+3
CLEAR^VALM1	PROV+12
FULL^VALM1	START+3, EOJ+3
$$UP^XLFSTR	OERR+20, OERR+22, OERR+31, CHK+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Patient has another language preference!",! Line Location: OERR+2
Function Call: WRITE	Prompt: !!?10,$C(7),PSORX("NAME")_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_")" Line Location: OERR+5
Function Call: WRITE	Prompt: $C(7),!!,"Patient Data is Being Edited by Another User!",! Line Location: OERR+13
Function Call: WRITE	Prompt: !!?10,$C(7),PSORX("NAME")_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_")",! Line Location: OERR+14
Function Call: WRITE	Prompt: !!,?5,">>PHARMACY PATIENT DATA<<",! Line Location: OERR+18
Function Call: WRITE	Prompt: !! Line Location: PROV+4
Function Call: WRITE	Prompt: ! Line Location: PROV+4
Function Call: WRITE	Prompt: $C(7),!!,"Invalid Selection - Only 'NON-VA' patient status can be processed through" Line Location: MES+0
Function Call: WRITE	Prompt: !,"this option. For all other statuses use the regular Patient Prescription" Line Location: MES+1
Function Call: WRITE	Prompt: !,"Processing option" Line Location: MES+2
Function Call: WRITE	Prompt: $C(7),!!?15,"* Current RX Patient Status is "_X_" *" Line Location: WRN+0
Function Call: WRITE	Prompt: !,"Only 'NON-VA' patient status should be processed through this option." Line Location: WRN+1
Function Call: WRITE	Prompt: !,"For all other statuses use the regular Patient Prescription Processing option." Line Location: WRN+2
Function Call: WRITE	Prompt: !,?10,$P(VAEL(1,N),"^",2) Line Location: ELIG+1
Routine Call	DIE Line Location: OERR+18 OERR+20
Routine Call	DIC Line Location: PT+3 OERR+26
Routine Call	DIR Line Location: PROV+4

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DILOCKTM"	OERR+13
^DIC(31 - [#31]	ELIG+3
^DPT - [#2]	OERR, OERR+5, OERR+14, ELIG+2
^PS(52.41 - [#52.41]	PROV+9
^PS(53 - [#53]	OERR+20, OERR+22, OERR+31, OERR+32, CHK+2
^PS(55 - [#55]	START+12, OERR+2, OERR+7, OERR+10, OERR+11, OERR+12, OERR+13, OERR+18, OERR+19, OERR+21 , OERR+30, OERR+32, PROV+6, CHK+2
^PSRX - [#52]	START+6
^TMP("PS"	PTX+1!
^TMP("PSOAL"	EOJ+5!
^TMP("PSOAO"	EOJ+5!
^TMP("PSOBB"	START+10!, OERR+3*
^TMP("PSOHDR"	EOJ+5!
^TMP("PSOPF"	EOJ+5!
^TMP("PSOPI"	EOJ+5!
^TMP("PSOPO"	EOJ+5!
^TMP("PSORXDC"	PT+1!, EOJ+5!
^TMP("PSOSF"	EOJ+5!
^VA(200 - [#200]	PROV+2
^XUSEC("PSORPH"	INIT+3

Name	Line Occurrences
@(	PROV+8
ELIG	OERR+24
END	START+2, START+3
EOJ	NX, OERR+12, OERR+23, PROV+10
INIT	START
KV	OERR+33, PROV+3
MES	OERR+31, CHK+2
NX	START+3, START+9, PROV+1
PROFILEX	PROFILE+2
PT	START+3
PTX	PT+4, PROV+12
START	NX
WRN	OERR+22

Name	Field # of Occurrence
^(0	START+12*, PROV+6, PROV+9, ELIG+2, ELIG+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	OERR+3, EOJ+3!
%DT	EOJ+3!
%I	EOJ+3!
BBFLG	START+11!, EOJ+6!
BBRX	START+11!, EOJ+6!
BINGCRT	START+7*, START+11!
BINGRTE	START+7*, START+11!
C	PTX+1!, EOJ+4!
CLOZPAT	PT+1!
COMM	EOJ+1!
D	EOJ+6!
D0	EOJ+3!
DA	PT+3!, OERR+1!, OERR+9!, OERR+10, OERR+18, OERR+30, PROV+1, PROV+2, PROV+13!
DAT	EOJ+3!
DD	OERR+9!
DEA	PTX+1!
DEAD	EOJ+4!
DFN	OERR, PROV+13, EOJ+1!, EOJ+3!, ELIG+2, PROFILE+2*
DGI	EOJ+1!
DGS	EOJ+1!
DIC	PT+1!, PT+3!, OERR+1!, OERR+4, OERR+9!, OERR+25!, OERR+26!, PROV+13!
DIC("A"	OERR+26*
DIC("B"	OERR+25*
DIC("S"	PT+2*
DIC(0	PT+3, OERR+9, OERR+26*
DIE	OERR+17*, OERR+25!, PROV+13!
DIK	OERR+10!, OERR+30
DIK(1	OERR+10*
>> DINUM	OERR+9*
DIQ	OERR+1!*
DIR	KV!
DIR("A"	PROV+3*
DIR("B"	PROV+4*
DIR(0	PROV+4*
DIRUT	OERR+27, KV!
>> DISGROUP	START+11
DLAYGO	OERR+4*, PROV+13!
DO	OERR+9!
DR	OERR+1!, OERR+9!, OERR+17, OERR+20*, OERR+25!, PROV+13!
DRG	EOJ+3!
DTOUT	OERR+19, KV!
DUOUT	KV!
DUZ	INIT+3
GMRA	EOJ+6!
GMRAL	EOJ+6!
GMRAREC	EOJ+6!
>> I	ELIG+2*
>> I1	ELIG+2*, ELIG+3, ELIG+4, ELIG+5
II	PROV+9*, PROV+10!
INCOM	EOJ+4!
LOG	EOJ+3!
>> MEDP	OERR, EOJ+2, EOJ+5
N	ELIG+1*, ELIG+6!
NOBG	START+9, EOJ+6!
NOPROC	START+3!, OERR+1*
NPPROC	OERR+1!
ORX	EOJ+3!
P1	EOJ+3!
PAT	OERR~, PROV+11*, EOJ+5!
>> PBINGRTE	START+7
POERR	OERR~, PROV+11*, EOJ+4!
POERR("DEAD"	PROV+8, PROV+9
POERR("QFLG"	OERR+12, OERR+13, OERR+23, OERR+25!, OERR+28, OERR+31, PROV+9, PROV+10*
PRC	PTX+1!
PS	EOJ+4!
PSCNT	PTX+1!, EOJ+3!, ELIG+3*, ELIG+4, ELIG+5
PSDIS	EOJ+3!, ELIG+3*, ELIG+4, ELIG+5
PSOACT	PTX+1!
PSOAL	EOJ+3!
PSOBCK	START*, EOJ+3!, EOJ+6!
PSOBILL	EOJ+1!
PSOBXPUL	EOJ+3!
PSOCLC	PTX+1!, EOJ+4!
PSOCNT	EOJ+4!
PSOCPAY	EOJ+1!
PSOCS	PTX+1!
PSOCT	PTX+1!, EOJ+4!
PSODA	EOJ+4!
PSODFN	START+12, NX, PT+1!, OERR, OERR+1, OERR+2, OERR+5, OERR+7, OERR+9, OERR+10 , OERR+11, OERR+12, OERR+13, OERR+14, OERR+18, OERR+19, OERR+21, OERR+30, OERR+32, PROV+6 , PROV+9, PROV+11, PROV+13, CHK+2, EOJ+1!, PROFILE+2
>> PSODRG	PROFILE+3*
PSODRUG	START!, EOJ+1!
PSODT	EOJ+6!
PSOERR	START*, EOJ+1!
PSOERR("DEAD"	PROV+10!
PSOFIN	START!, OERR+5, OERR+13, OERR+28, OERR+34
PSOFINFL	PTX+1!
PSOFLAG	EOJ+6!
PSOFROM	START+7*, START+11, EOJ+4!
PSOHD	PTX+1!, EOJ+4!
PSOIBQS	EOJ+1!
PSOID	START!, EOJ+3!
PSOLOUD	OERR+11*!
PSOLST	PTX+1!, EOJ+3!
PSOMED	EOJ+1!
PSON	EOJ+3!
PSOOPT	PTX+1!, EOJ+1!
>> PSOPAR	INIT+2, INIT+3
PSOPBM	START+12!, PT+1!, OERR+6!, OERR+8, OERR+29!, PROV+6, EOJ+1!
PSOPBM1	START+8*, START+12!, PT+1!
PSOPF	PTX+1!, EOJ+1!
PSOPI	EOJ+1!
PSOPTPST	EOJ+3!
PSOQFLG	START!, OERR+1!, OERR+4*, PROV+8, PROV+10, EOJ+2!
PSOQUIT	START!, OERR+13, OERR+28, PROV+12, EOJ+5
PSORX	START+8!, EOJ+1!
PSORX("NAME"	OERR*, OERR+5, OERR+14
PSORX("PATIEN	T STATUS" , OERR+22, OERR+32
PSORX("PROVID	ER NAME" , PROV+2*
PSORX("PSOL"	START+8
PSORX("QFLG"	START+2, START+3, INIT+1, INIT+2, PT+1, PT+4
PSORX("REFILL"	PROFILE+1, PROFILE+3
PSORX("RENEW"	PROFILE+1, PROFILE+3
PSORX("VERIFY"	INIT+3*
PSORXED	PROV+13!
PSOSD	EOJ+1!, PROFILE+2
PSOSD(	PROFILE+3
PSOSTA	EOJ+6!
>> PSOTPBFG	START+1, START+2
PSOX	OERR+19, OERR+20, OERR+21, OERR+22, OERR+23, PROV+13!, PTX+1!, PROFILE+1, PROFILE+3, PROFILE+4!
PSOX1	PTX+1!
PSOXFLG	OERR!, OERR+14*, EOJ+3!
PSOXXDFN	PROV+11*, PROV+13, PTX+1!, EOJ+6!
PT	PROV+8*, EOJ+1!
PTDY	EOJ+1!
PTRF	EOJ+1!
PTST	EOJ+3!
R3	EOJ+4!
REA	EOJ+4!
RF	EOJ+4!
RFD	EOJ+4!
RFM	EOJ+4!
RFN	EOJ+6!
RLD	EOJ+4!
RN	EOJ+1!
RTN	PROV+8*, EOJ+1!
RTS	EOJ+4!
RX0	EOJ+4!
RX2	EOJ+4!
RX3	EOJ+4!
RXFL	EOJ+6!
RXN	EOJ+4!
RXNUM	EOJ+4!
RXP	EOJ+4!
RXPR	EOJ+4!
RXREC	START+7*, EOJ+1!
RXRP	EOJ+4!
RXRS	START+8, EOJ+4!
RXRS(	START+5, START+6!
SERS	EOJ+1!
SG	EOJ+4!
SIG	EOJ+4!
SIGOK	PTX+1!
SLPPL	START+5*, START+6, START+7, EOJ+1!
SPOERR	EOJ+6!
SSN	OERR+5!, OERR+14!
ST0	EOJ+1!
STAT	EOJ+1!
STOP	EOJ+1!
STP	PTX+1!, EOJ+4!
STR	PTX+1!, EOJ+4!
TM	START+8!, START+10, OERR+3, OERR+8, PROV+6
TM1	START+8!, START+10, OERR+3
>> VAEL(1	ELIG+1
>> VAEL(3	ELIG+1
VALM	EOJ+6!
VALMBCK	EOJ+6!
VALMKEY	EOJ+6!
VALMSG	EOJ+4!
X	OERR+9, OERR+22, PTX+1!, CHK+1, CHK+2, WRN, KV!
Y	PT+4, OERR, OERR+9, OERR+19, OERR+27, OERR+31, OERR+32, PROV+4, PROV+5, PTX+1! , CHK+2*, KV!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOTPRX1

Information

Source Information

Call Graph

Call Graph Total: 26

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: