Routine: PSORX1

Package	Total	Call Graph
Outpatient Pharmacy	16	CHKADDR^PSOBAI ^PSOBING1 ^PSOBUILD GMRA^PSODEM EN^PSOHLUP EN^PSOLMAO EN^PSOLMUTL ^PSOLSET DC^PSOORFI2 BLD^PSOORUT1 (,ALLERGY)^PSOORUT2 EN^PSOPATLK DEAD^PSOPTPST RDICHK^PSORMRX ^PSORXL (BBADD,WIND)^PSOSUPOE
VA Fileman	8	NOW^%DTC ^DIC FILE^DICN ^DIE (,EN)^DIK $$GET1^DIQ EN^DIQ1 ^DIR
Registration	3	DISPPRF^DGPFAPI KVA^VADPT (CLEAR,FULL)^VALM1
IHS Changes To Pharmacy	1	SETPTCX^APSPFUNC
IHS Patient	1	$$HRN^AUPNPAT
Order Entry Results Reporting	1	($$HAVEHDR,HAVEHDR)^ORRDI1
Pharmacy Benefits Management	1	LOGDFN^PSUHL

Package

Total

Call Graph

CHKADDR^PSOBAI ^PSOBING1 ^PSOBUILD GMRA^PSODEM EN^PSOHLUP EN^PSOLMAO EN^PSOLMUTL ^PSOLSET
DC^PSOORFI2 BLD^PSOORUT1 (,ALLERGY)^PSOORUT2 EN^PSOPATLK DEAD^PSOPTPST RDICHK^PSORMRX ^PSORXL (BBADD,WIND)^PSOSUPOE

VA Fileman

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

Registration

DISPPRF^DGPFAPI KVA^VADPT (CLEAR,FULL)^VALM1

IHS Changes To Pharmacy

SETPTCX^APSPFUNC

IHS Patient

$$HRN^AUPNPAT

Order Entry Results Reporting

($$HAVEHDR,HAVEHDR)^ORRDI1

Pharmacy Benefits Management

LOGDFN^PSUHL

Package	Total	Caller Graph
Outpatient Pharmacy	9	PSO LM BACKDOOR ORDERS PSOBBC PSODGDGI PSOORFI2 PSOORFI3 PSOORFI5 PSOORFIN PSOPRI PSOVER1
IHS Changes To Pharmacy	2	APSPCO APSPSLBL
IHS Pharmacy Auto Refill System	1	BEXRX7

Package

Total

Caller Graph

Outpatient Pharmacy

PSO LM BACKDOOR ORDERS PSOBBC PSODGDGI PSOORFI2 PSOORFI3 PSOORFI5 PSOORFIN PSOPRI
PSOVER1

IHS Changes To Pharmacy

APSPCO APSPSLBL

IHS Pharmacy Auto Refill System

BEXRX7

Entry Points

Name	Comments	DBIA/ICR reference
PROFILE	;	ICR #2260 Status: Active Usage: Controlled Subscription
MAILP
ELIG	; shows eligibility and disabilities
END
PROFILEX
PT	;
OERR
EOJ	;
RXSTA	; DISPLAY ELIGIBILITY & PROMPT FOR RX PATIENT STATUS
NX
START
INIT	;
PAUSE	;
REMOTE	;
PTX	;
MAIL	; MAKE SURE MAIL STATUS IS COMPATIBLE WITH SCRIPTALK PATIENT
INITX

External References

Name	Field # of Occurrence
NOW^%DTC	OERR+18, OERR+52
SETPTCX^APSPFUNC	PT+6
$$HRN^AUPNPAT	OERR+6
DISPPRF^DGPFAPI	OERR+14
^DIC	OERR+36, RXSTA+9
FILE^DICN	OERR+23
^DIE	OERR+32, RXSTA+10
^DIK	OERR+39
EN^DIK	OERR+24
$$GET1^DIQ	ELIG+3, RXSTA+7
EN^DIQ1	OERR+1
^DIR	REMOTE+4, PAUSE+1
$$HAVEHDR^ORRDI1	REMOTE+2
HAVEHDR^ORRDI1	REMOTE+1
CHKADDR^PSOBAI	OERR+13
^PSOBING1	START+9
^PSOBUILD	OERR+43, PROFILE+1
GMRA^PSODEM	PROFILE+2
EN^PSOHLUP	OERR+26
EN^PSOLMAO	OERR+48
EN^PSOLMUTL	OERR+47
^PSOLSET	INIT+2
DC^PSOORFI2	OERR+45
BLD^PSOORUT1	OERR+47
^PSOORUT2	OERR+47
ALLERGY^PSOORUT2	OERR+7
EN^PSOPATLK	PT+1
DEAD^PSOPTPST	OERR+1
RDICHK^PSORMRX	OERR+20
^PSORXL	START+6
BBADD^PSOSUPOE	START+5
WIND^PSOSUPOE	START+5
LOGDFN^PSUHL	OERR+53
KVA^VADPT	EOJ+3
CLEAR^VALM1	OERR+48
FULL^VALM1	START+1, EOJ+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,$C(7),PSORX("NAME") Line Location: OERR+3
Function Call: WRITE	Prompt: " ("_$$HRN^AUPNPAT(PSODFN,DUZ(2))_")" Line Location: OERR+6
Function Call: WRITE	Prompt: !,$C(7)," No Allergy Assessment!" Line Location: OERR+8
Function Call: WRITE	Prompt: !?10,"Patient has another language preference!",! Line Location: OERR+16
Function Call: WRITE	Prompt: !,"Patient is enrolled to receive ScripTalk 'talking' prescription labels.",! Line Location: OERR+17
Function Call: WRITE	Prompt: $C(7),!!,"Patient Data is Being Edited by Another User!",! Line Location: OERR+28
Function Call: WRITE	Prompt: !!?10,$C(7),PSORX("NAME")_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_")",! Line Location: OERR+29
Function Call: WRITE	Prompt: !!,?5,">>PHARMACY PATIENT DATA<<",! Line Location: OERR+31
Function Call: WRITE	Prompt: !!,?5,">>PHARMACY PATIENT DATA<<",! Line Location: OERR+32
Function Call: WRITE	Prompt: !,?10,$P(VAEL(1,N),"^",2) Line Location: ELIG+2
Function Call: WRITE	Prompt: !,"Eligibility: "_$$GET1^DIQ(9000001,DFN,1112) Line Location: ELIG+3
Function Call: WRITE	Prompt: !!,"REMINDER: CMOP does not fill ScripTalk prescriptions.Please select mail" Line Location: MAILP+0
Function Call: WRITE	Prompt: !,"status: 2 (DO NOT MAIL), 3 (LOCAL REGULAR MAIL) or 4 (LOCAL CERTFIED MAIL)." Line Location: MAILP+1
Function Call: WRITE	Prompt: !,"INVALID MAIL SETTING - ENTER 2,3, OR 4" Line Location: MAILP+4
Function Call: WRITE	Prompt: " ",$S(MAIL=2:"DO NOT MAIL",MAIL=3:"LOCAL REGULAR MAIL",1:"LOCAL CERTIFIED MAIL") Line Location: MAILP+5
Function Call: WRITE	Prompt: !,"Remote data not available - Only local order checks processed." Line Location: REMOTE+3
Function Call: WRITE	Prompt: ! Line Location: REMOTE+4
Function Call: WRITE	Prompt: ! Line Location: REMOTE+4
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: !,"Eligibility: "_$P(VAEL(1),"^",2)_$S(+VAEL(3):" SC%: "_$P(VAEL(3),"^",2),1:"") Line Location: RXSTA+6
Function Call: WRITE	Prompt: !,?10,$P(VAEL(1,N),"^",2) Line Location: RXSTA+8
Routine Call	DIE Line Location: OERR+32 RXSTA+10
Routine Call	DIC Line Location: OERR+36 RXSTA+9
Routine Call	DIR Line Location: REMOTE+4 PAUSE+1

FileNo	Call Tags
^PS(55 - [#55]	Classic Fileman Calls
^AUPNPAT - [#9000001]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DILOCKTM"	OERR+28
^DIC(31 - [#31]	ELIG+5
^DPT - [#2]	OERR+3, OERR+29, ELIG+4
^PS(52.41 - [#52.41]	OERR+45
^PS(53 - [#53]	OERR+33, OERR+40
^PS(55 - [#55]	OERR+16, OERR+17, OERR+22, OERR+24, OERR+26, OERR+27, OERR+28, OERR+32, OERR+33, OERR+34 , OERR+39, OERR+40, OERR+50, OERR+53, MAIL+3, MAILP+6, RXSTA+3
^PS(59 - [#59]	MAIL+1
^PSRX - [#52]	START+4
^TMP("PS"	PTX+1!
^TMP("PSOAL"	EOJ+5!
^TMP("PSOAO"	EOJ+5!
^TMP("PSOBB"	START+8!, OERR+18*
^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!
^XTMP("ORRDI"	REMOTE+3
^XUSEC("PSORPH"	INIT+3

Label References

Name	Line Occurrences
@(	OERR+44
ELIG	OERR+35
END	START, START+1
EOJ	NX, NX+1, OERR+27, OERR+34, OERR+46
INIT	START
MAIL	OERR+17
MAILP	MAILP+4
NX	START+1, START+7
PAUSE	OERR+7
PROFILEX	PROFILE+2
PT	START+1
PTX	PT+2, OERR+48
REMOTE	OERR+9
RXSTA	OERR+25
START	NX, NX+1

Name	Field # of Occurrence
^(0	OERR+45, OERR+53*, ELIG+4, ELIG+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	OERR+18, OERR+51~, OERR+53, EOJ+3!
%DT	EOJ+3!
%I	EOJ+3!
BBFLG	START+9!, EOJ+6!
BBRX	START+9!, EOJ+6!
BINGCRT	START+5*, START+9!
BINGRTE	START+5*, START+9!
C	PTX+1!, EOJ+4!
CLOZPAT	PT+1!
COMM	EOJ+1!
D	EOJ+6!
D0	EOJ+3!
DA	OERR+1!, OERR+23!, OERR+24, OERR+32, OERR+39, OERR+41!, OERR+49!, RXSTA+1~, RXSTA+3*
DAT	EOJ+3!
DD	OERR+23!
DEA	PTX+1!
DEAD	EOJ+4!
DFN	OERR, OERR+49, EOJ+1!, EOJ+3!, ELIG+3, ELIG+4, PROFILE+2*, RXSTA+7
DGI	EOJ+1!
DGS	EOJ+1!
DIC	PT+1!, OERR+1!, OERR+21, OERR+23!, OERR+36!, OERR+49!, RXSTA+9!
DIC("A"	OERR+36, RXSTA+9
DIC("B"	RXSTA+9*
DIC(0	PT+1, OERR+23, OERR+36, RXSTA+9
DIE	OERR+32, OERR+36!, OERR+49!, RXSTA+10
DIK	OERR+24!, OERR+39
DIK(1	OERR+24*
>> DINUM	OERR+23*
DIQ	OERR+1!*
DIR	REMOTE+4!, PAUSE+1!
DIR("A"	REMOTE+4, PAUSE+1
DIR(0	REMOTE+4, PAUSE+1
DIRUT	OERR+37, OERR+41!
>> DISGROUP	START+9
DLAYGO	OERR+21*, OERR+49!
DO	OERR+23!
DR	OERR+1!, OERR+23!, OERR+32, OERR+36!, OERR+49!, RXSTA+10*
DRG	EOJ+3!
DTOUT	OERR+41!
DUOUT	OERR+41!
DUZ	INIT+3
DUZ(2	OERR+6
GMRA	EOJ+6!
GMRAL	EOJ+6!
GMRAREC	EOJ+6!
>> I	ELIG+4*
>> I1	ELIG+4*, ELIG+5, ELIG+6, ELIG+7
II	OERR+45*, OERR+46!
INCOM	EOJ+4!
LOG	EOJ+3!
MAIL	MAIL+2~, MAIL+3, MAILP+2, MAILP+3, MAILP+4, MAILP+5, MAILP+6
>> MEDP	OERR, EOJ+2, EOJ+5
N	ELIG+8!, RXSTA+8*
NOBG	START+7, EOJ+6!
NOPROC	START+1!, OERR+1*
NPPROC	OERR+1!
ORX	EOJ+3!
P1	EOJ+3!
PAT	OERR~, OERR+47*, EOJ+5!
>> PBINGRTE	START+5
POERR	OERR~, OERR+47*, EOJ+4!
POERR("DEAD"	NX, OERR+44, OERR+45
POERR("QFLG"	OERR+27, OERR+28, OERR+34, OERR+36!, OERR+38, OERR+45, OERR+46
PRC	PTX+1!
PS	EOJ+4!
PSCNT	PTX+1!, EOJ+3!, ELIG+5*, ELIG+6, ELIG+7
PSDIS	EOJ+3!, ELIG+5*, ELIG+6, ELIG+7
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	PT+1!, OERR, OERR+1, OERR+3, OERR+6, OERR+13, OERR+14, OERR+16, OERR+17, OERR+20 , OERR+22, OERR+23, OERR+24, OERR+26, OERR+27, OERR+28, OERR+29, OERR+32, OERR+33, OERR+34 , OERR+39, OERR+40, OERR+45, OERR+47, OERR+49, OERR+50, OERR+53, EOJ+1!, PROFILE+2, MAIL+3 , MAILP+6, RXSTA+2, RXSTA+3
>> PSODRG	PROFILE+3*
PSODRUG	START!, EOJ+1!
PSODT	EOJ+6!
PSOERR	START*, EOJ+1!
PSOERR("DEAD"	OERR+46!
PSOFIN	START!, OERR+20, OERR+28, OERR+38, OERR+42
PSOFINFL	PTX+1!
PSOFLAG	EOJ+6!
PSOFROM	START+5*, START+9, EOJ+4!
PSOHD	PTX+1!, EOJ+4!
PSOIBQS	EOJ+1!
PSOID	START!, EOJ+3!
PSOLOUD	OERR+26*!
PSOLST	PTX+1!, EOJ+3!
PSOMED	EOJ+1!
PSON	EOJ+3!
>> PSONOAL	OERR+7*, OERR+8
PSOOPT	PTX+1!, EOJ+1!
>> PSOPAR	INIT+2, INIT+3
PSOPATLK	PTX+1!
PSOPF	PTX+1!, EOJ+1!
PSOPI	EOJ+1!
PSOPTLK	PT+1!
PSOPTPST	EOJ+3!
PSOQFLG	START!, NX, OERR+1!, OERR+21*, OERR+44, OERR+46, EOJ+2!
PSOQUIT	START!, OERR+28, OERR+38, OERR+48, EOJ+5
PSORX	START+6!, EOJ+1!, EOJ+3!, EOJ+6!
PSORX("NAME"	OERR*, OERR+3, OERR+29
PSORX("PATIEN	T STATUS" , OERR+33, OERR+40
PSORX("PSOL"	START+6
PSORX("QFLG"	START, START+1, INIT+1, INIT+2, PT+1, PT+2
PSORX("REFILL"	PROFILE+1, PROFILE+3
PSORX("RENEW"	PROFILE+1, PROFILE+3
PSORX("VERIFY"	INIT+3*
PSORXED	OERR+49!
PSOSD	EOJ+1!, PROFILE+2
PSOSD(	PROFILE+3
>> PSOSITE	MAIL+1
PSOSTA	EOJ+6!, RXSTA+1~, RXSTA+3*, RXSTA+4, RXSTA+9, RXSTA+10
PSOUPDT	OERR+10~, OERR+11, OERR+12, OERR+13
PSOX	OERR+33, OERR+49!, PTX+1!, PROFILE+1, PROFILE+3*, PROFILE+4!
PSOX1	PTX+1!
PSOXFLG	OERR!, OERR+29*, EOJ+3!
PSOXXDFN	OERR+47*, OERR+49, PTX+1!, EOJ+6!
PT	OERR+44*, 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	OERR+44*, EOJ+1!
RTS	EOJ+4!
RX0	EOJ+4!
RX2	EOJ+4!
RX3	EOJ+4!
RXFL	EOJ+6!
RXFL(""	OERR+50
RXN	EOJ+4!
RXNUM	EOJ+4!
RXP	EOJ+4!
RXPR	EOJ+4!
RXREC	START+5*, EOJ+1!
RXRP	EOJ+4!
RXRS	START+6, EOJ+4!
RXRS(	START+3, START+4!
SERS	EOJ+1!
SG	EOJ+4!
SIG	EOJ+4!
SIGOK	PTX+1!
SLPPL	START+3*, START+4, START+5, EOJ+1!
>> SNGLPAT	OERR+14
SPOERR	EOJ+6!
SSN	OERR+3, OERR+29!
ST0	EOJ+1!
STAT	EOJ+1!
STOP	EOJ+1!
STP	PTX+1!, EOJ+4!
STR	PTX+1!, EOJ+4!
TM	START+6!, START+8, OERR+18
TM1	START+6!, START+8, OERR+18
>> VAEL(1	RXSTA+8
VALM	EOJ+6!
VALMBCK	EOJ+6!
VALMKEY	EOJ+6!
VALMSG	EOJ+4!
X	OERR+23*, OERR+41!, PTX+1!
>> XQY0	OERR+12, OERR+14, RXSTA+4
Y	PT+1*, PT+2, PT+6, OERR, OERR+23, OERR+37, OERR+40, OERR+41!, PTX+1!, RXSTA+10

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSORX1

Information

Source Information

Call Graph

Call Graph Total: 31

Caller Graph

Caller Graph Total: 12