Routine: PSORX1

Information

PSORX1 ;BIR/SAB-medication processing driver ;06-Aug-2012 08:59;PLS

Call Graph

Call Graph Total: 31

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	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

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

Naked Globals

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

Marked Items

Name	Field # of Occurrence
$T(HAVEHDR^ORRDI1	REMOTE+1

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSORX1

Information

Source Information

Call Graph

Call Graph Total: 31

Caller Graph

Caller Graph Total: 12

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