Routine: PSOBBC

Package	Total	Call Graph
Outpatient Pharmacy	19	^PSOBING1 ^PSOBUILD H^PSOCPTRH DEV^PSOCPTRI ICN^PSODPT EN^PSOHLSN1 EN^PSOHLUP ^PSOLSET NOORE^PSONEW LOCK^PSOORCPY (COPAY,DEAD,GET)^PSOPTPST EN^PSOREF0 IHSSET^PSOREF1 EN^PSOREF2 EN^PSORENW0 PROFILE^PSORX1 Q^PSORXL PDIR^PSOTPCAN CLEAN^PSOVER1
VA Fileman	3	NOW^%DTC EN^DIQ1 ^DIR
Registration	2	PID^VADPT $$SITE^VASITE
IHS Changes To Pharmacy	1	OPT^APSPNE4
Integrated Billing	1	($$CHPUS,$$TRI)^IBACUS
Kernel	1	$$DT^XLFDT
Order Entry Results Reporting	1	(LK,ULK)^ORX2
Pharmacy Data Management	1	($$L,PSOL,PSOUL,UL)^PSSLOCK

Package

Total

Call Graph

^PSOBING1  ^PSOBUILD  H^PSOCPTRH  DEV^PSOCPTRI  ICN^PSODPT  EN^PSOHLSN1  EN^PSOHLUP  ^PSOLSET
NOORE^PSONEW  LOCK^PSOORCPY  (COPAY,DEAD,GET)^PSOPTPST  EN^PSOREF0  IHSSET^PSOREF1  EN^PSOREF2  EN^PSORENW0  PROFILE^PSORX1
Q^PSORXL  PDIR^PSOTPCAN  CLEAN^PSOVER1

VA Fileman

NOW^%DTC EN^DIQ1 ^DIR

Registration

PID^VADPT $$SITE^VASITE

IHS Changes To Pharmacy

OPT^APSPNE4

Integrated Billing

($$CHPUS,$$TRI)^IBACUS

Kernel

$$DT^XLFDT

Order Entry Results Reporting

(LK,ULK)^ORX2

Pharmacy Data Management

($$L,PSOL,PSOUL,UL)^PSSLOCK

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSO BATCH BARCODE PSOPRI PSOR52 PSORN52
IHS Pharmacy Auto Refill System	2	BEXRX BEXRX7

Package

Total

Caller Graph

Outpatient Pharmacy

PSO BATCH BARCODE PSOPRI PSOR52 PSORN52

IHS Pharmacy Auto Refill System

BEXRX BEXRX7

Entry Points

Name	Comments	DBIA/ICR reference
IHSFLDS(PSOREF)	;EP - IHS/CIA/PLS - 06/24/05 - Call to setup IHS specific fields
EOJ	;
CNHX
ULK	;
INPTX
NEW	;
DIR	;
SET	;
PT	;	ICR #1030 Status: Active Usage: Controlled Subscription
PTC		ICR #1030 Status: Active Usage: Controlled Subscription
ASKX
INPT	;
INIT	;
CNH	;
PTX
ASK	;	ICR #1030 Status: Active Usage: Controlled Subscription
SETX	;
TRI	;Check for Tricare Rx's
EARLYX
END
ULP
REFILLX	;
SUSP	;
REFILL	;	ICR #1030 Status: Active Usage: Controlled Subscription
PROCESSX	;I $G(PPL) D SETX,TRI,Q^PSORXL K PPL,RXFL ; IHS/CIA/PLS - 01/16/04 ; IHS/CIA/PLS - 01/16/04 - Previous line commented out ; Next five lines added.	ICR #1030 Status: Active Usage: Controlled Subscription
GETRXMX
PID	;
SUSPX
FROM	;
START	;
PROCESS	;
GETRXM	;
ULRX	;
EARLY	;
FROMX

External References

Name	Field # of Occurrence
NOW^%DTC	PROCESS+1
OPT^APSPNE4	PROCESSX+12
EN^DIQ1	INIT+4
^DIR	DIR+1
$$CHPUS^IBACUS	TRI+13
$$TRI^IBACUS	TRI+2
LK^ORX2	GETRXM+20
ULK^ORX2	ULK+3
^PSOBING1	PROCESS+14
^PSOBUILD	PROCESS+12, PT+11
H^PSOCPTRH	TRI+17
DEV^PSOCPTRI	TRI+6
ICN^PSODPT	PT+8
EN^PSOHLSN1	PROCESS+3, PROCESS+4
EN^PSOHLUP	GETRXM+12, PT+10, PTC+1
^PSOLSET	START+2
NOORE^PSONEW	ASK+8
LOCK^PSOORCPY	GETRXM+19
COPAY^PSOPTPST	PTC+9
DEAD^PSOPTPST	PTC+3
GET^PSOPTPST	PTC+2
EN^PSOREF0	REFILL+3
IHSSET^PSOREF1	IHSFLDS+2
EN^PSOREF2	ASK+3
EN^PSORENW0	NEW+4
PROFILE^PSORX1	PROCESS+10
Q^PSORXL	PROCESSX+10
PDIR^PSOTPCAN	PTC+4
CLEAN^PSOVER1	PROCESS+5, EOJ+3
$$L^PSSLOCK	GETRXM+19
PSOL^PSSLOCK	GETRXM+15
PSOUL^PSSLOCK	ULRX+3
UL^PSSLOCK	GETRXM+20, ULP+2
PID^VADPT	PID+3
$$SITE^VASITE	INIT+3
$$DT^XLFDT	TRI+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Please answer the following for this session of prescriptions",! Line Location: ASK+2
Function Call: WRITE	Prompt: !?7,$C(7),$C(7),$C(7),"Not From this Institution" Line Location: GETRXM+9
Function Call: WRITE	Prompt: !,$C(7),"Rx data is not on file !",! Line Location: GETRXM+11
Function Call: WRITE	Prompt: !,$C(7),"Rx has already been deleted." Line Location: GETRXM+13
Function Call: WRITE	Prompt: !,$C(7),"Rx has already been entered" Line Location: GETRXM+14
Function Call: WRITE	Prompt: $C(7),!!?5,$P(PSOMSG,"^",2),! Line Location: GETRXM+16
Function Call: WRITE	Prompt: !,$C(7),"New Patient, please pause" Line Location: PT+2
Function Call: WRITE	Prompt: !!,?9,$G(PSORX("NAME"))_" ",$G(VA("BID")) Line Location: PID+4
Routine Call	DIR Line Location: DIR+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	TRI+1
^DPT - [#2]	PT+7
^IBE(350.1 - [#350.1]	START+3
^PS(52.91 - [#52.91]	PTC+4
^PS(53 - [#53]	PT+12
^PS(55 - [#55]	GETRXM+12, PT+10, PT+12, PTC+1
^PS(59 - [#59]	START+3
^PSRX - [#52]	PROCESS+4, PROCESS+7, GETRXM+11, GETRXM+12, GETRXM+13, GETRXM+17, GETRXM+18, GETRXM+19, GETRXM+20, GETRXM+21 , PT+7, PTC, TRI+11, TRI+12
^TMP("PSORXDC"	PROCESS+5!, EOJ+3!
^TMP("PSORXN"	PROCESS+2, PROCESS+3, PROCESS+5!

Label References

Name	Line Occurrences
@(	PROCESS+14
ASK	START+7
ASKX	ASK+3
CNH	ASK+5
CNHX	CNH+4
DIR	FROM+3, SUSP+5, INPT+4, CNH+4, EARLY+4, GETRXM+8
EARLY	ASK+6
EARLYX	EARLY+4
END	START+3, START+6, START+7
EOJ	START+2, END
FROM	START+6
FROMX	FROM+3
GETRXM	PROCESS+6, GETRXM+9, GETRXM+11, GETRXM+13, GETRXM+14, GETRXM+15, GETRXM+18
GETRXMX	GETRXM+8
IHSFLDS	REFILL+2
INIT	START+2
INPT	ASK+5
INPTX	INPT+4
PID	PTC+6, PTC+8
PROCESS	START+8, PROCESS+7, PROCESS+11, PROCESS+14
PROCESSX	PROCESS+6, PT+5
PT	PROCESS+9
PTC	PROCESS+11
PTX	PTC+3, PTC+4, PTC+6, PTC+8
SET	ASK+7
SETX	PROCESSX+4
SUSP	ASK+4
SUSPX	SUSP+5
TRI	PROCESSX+4
ULK	PROCESS+6, PROCESS+8
ULP	PROCESS+6, PROCESS+8
ULRX	PROCESS+6, PROCESS+14

Name	Field # of Occurrence
^(0	PTC+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PROCESS+1
ACNT	EOJ+1!
ACT	TRI+17~
ADFN	EOJ+1!
BBRX	ASK+1!, PROCESS+14!, GETRXM+10*
BBRX(1	PROCESS+14*
BEXPPL	PROCESSX+12!
>> BEXRX	PROCESSX+9
BINGCRT	ASK+1!, SUSP+6*, PROCESS+14
BINGRTE	ASK+1!, SET+1*, PROCESS+14
CLS	EOJ+1!
CMOP	EOJ+1!
CNT	EOJ+1!
DA	INIT+3, INIT+5!, TRI+5~, TRI+17
>> DFN	PT+7, PT+8, PTC, PID+1*, PID+2
DIC	INIT+3!, INIT+4*, INIT+5!
DIQ	INIT+3!, INIT+4*, INIT+5!
DIQ(0	INIT+4*
DIR	FROMX!, SUSPX!, INPTX!, CNHX!, EARLYX!, GETRXM+1!, GETRXMX!
DIR("?"	GETRXM+4, GETRXM+5, GETRXM+6, GETRXM+7
DIR("A"	FROM+2, SUSP+2, INPT+2, CNH+2, EARLY+2, GETRXM+3
DIR("B"	FROM+2, SUSP+4, INPT+3, CNH+3, EARLY+3*
DIR(0	FROM+1, SUSP+1, INPT+1, CNH+1, EARLY+1, GETRXM+2
DIROUT	DIR+3!
DIRUT	DIR+2, DIR+3!
>> DISGROUP	PROCESS+14
DR	INIT+3!, INIT+4*
DT	PTC+4, TRI+10*, TRI+13
DTOUT	DIR+3!
DUOUT	DIR+3!
DUZ	TRI+11
FDA	TRI+17~
FDR	EOJ+1!
>> FLD(	TRI+16*
>> FLD(99	TRI+16*
HDR	EOJ+1!
I	TRI+17~
IR	TRI+17~
JJ	EOJ+1!
NEWPPL	TRI+5~, TRI+7*, TRI+8, TRI+9, TRI+18
NOW	TRI+17~
POERR	EOJ+1!
PPL	INIT+1!, PROCESS+14, PROCESSX+3, PROCESSX+13!, TRI+3, TRI+7, TRI+18, TRI+20, TRI+21
PSCAN	EOJ+1!
PSDA	TRI+17~
PSOBARID	START+3*!, EOJ+1!
PSOBBC	ASK+3, ASK+8, REFILL+2, REFILL+3, NEW+4, EOJ+1!
PSOBBC("CLERK	CODE" , SET+3, NEW+10*
PSOBBC("CNHOK"	CNH+5, PTC+8, NEW+9
PSOBBC("DFLG"	ASK+3, ASK+8, PROCESS+1, PROCESS+7, PROCESS+9, PROCESS+11, PT+1, PTC+2, PTC+3, PTC+4* , PTC+6, PTC+8, PTX
PSOBBC("DONE"	PROCESS+13*, PROCESS+14, GETRXM+14
PSOBBC("EAOK"	EARLY+5, NEW+6
PSOBBC("EXPIR	ATION DATE" , SET+4, NEW+11*
PSOBBC("FILL	DATE" , SET+2
PSOBBC("INOK"	INPT+5, PTC+6, NEW+8
PSOBBC("IRXN"	PROCESS+7, PROCESS+13, GETRXM+1!, GETRXM+10*, GETRXM+11, GETRXM+12, GETRXM+13, GETRXM+14, GETRXM+15, GETRXM+17 , GETRXM+18, GETRXM+19, GETRXM+20, GETRXM+21, PT+7, PTC, NEW+2
PSOBBC("MAIL/WINDOW"	SET+1, NEW+5*
PSOBBC("NOO"	ASK+8, NEW+4*
PSOBBC("OIRXN"	GETRXM+10, NEW+2
PSOBBC("QFLG"	START+5, START+6, START+7, INIT+1, ASK+3, ASK+8, SUSP+5, INPT+4, CNH+4, EARLY+4 , DIR+2*, PROCESS+6, GETRXM+8
PSOBBC("QS"	SUSP+6, NEW+7
PSOBBC1	EOJ+1!
PSOBBC1("CLER	K CODE" , SET+3*, NEW+10
PSOBBC1("CNHOK"	CNH+5*, NEW+9
PSOBBC1("EAOK"	EARLY+5*, NEW+6
PSOBBC1("EXPI	RATION DATE" , SET+4*, NEW+11
PSOBBC1("FILL	DATE" , SET+2*, NEW+3
PSOBBC1("FROM"	FROM+4*, ASK+8, PROCESS+14, GETRXM+15, GETRXM+18, PTC+4, PTC+9, ULK+1, ULP, ULRX+1 , SETX+1, SETX+2
PSOBBC1("INOK"	INPT+5*, NEW+8
PSOBBC1("MAIL/WINDOW"	SET+1*, NEW+5
PSOBBC1("QS"	SUSP+6*, NEW+7
PSOBBCNO	START+1~, ASK+8*, NEW+4
PSOBCK	EOJ+1!
PSOCOU	EOJ+1!
PSOCOUU	EOJ+1!
PSODFN	START+1~, PROCESS+7, PROCESS+8, PT+7, PT+10, PT+12, PTC, PTC+1, PTC+3, PTC+4 , PTC+6, PTC+8, ULK+2, ULK+3, ULP+1, ULP+2, PID+1
>> PSODFNX(	GETRXM+18, GETRXM+21*, ULK+3!
PSODRUG	IHSFLDS+1~
PSOFROM	REFILL+1~, NEW+1~
PSOINST	INIT+2, INIT+4!, INIT+5*, GETRXM+9
PSOINST(4	INIT+5!
>> PSOLAP	TRI+13
PSOLOUD	GETRXM+12!, PT+10!, PTC+1*!
PSOMSG	GETRXM+15!, GETRXM+16, EOJ+1!
PSONEW3	EOJ+1!
PSONOERR	GETRXM+18!, GETRXM+20*, EOJ+1!
PSONOOR	EOJ+2!
PSOOPT	GETRXMX!, NEW+3*, NEW+12!, EOJ+1!
>> PSOPAR	START+2, ASK+6
PSOPLCK	GETRXM+18, GETRXM+19*, EOJ+1!
PSOPTPST	PTX!
PSOPTPST(2	PTC+3, PTC+6, PTC+8
PSOREF	IHSFLDS~
PSOREFXM	GETRXM+1!, GETRXM+15*, EOJ+1!, ULRX+2, ULRX+3, ULRX+4!
PSORENW3	EOJ+1!
PSORNW	NEW+12!
PSORNW("FILL	DATE" , NEW+3*
PSORX	EOJ+2!
PSORX("BAR CO	DE" , START+5, INIT+1
PSORX("CNH"	PTC+7!, PTC+8*
PSORX("DFLG"	NEW+4*
PSORX("NAME"	PT+7*, PID+4
PSORX("PATIEN	T STATUS" , PT+12*
PSORX("QFLG"	START+3, START+6, START+7, DIR+2
PSOSD	PROCESS+12, EOJ+1!
>> PSOSITE	START+3, TRI+11
PSOTPEXT	PTC+4~!, PTC+5!
PSOWRX	TRI+5~, TRI+8*, TRI+11, TRI+12, TRI+13, TRI+14, TRI+17
PSOWW	TRI+5~, TRI+8*, TRI+9, TRI+14
PSOX	PT+12*, PT+13!
PSOXDFN	GETRXM+12*, GETRXM+13!
PSUS	TRI+17~
RFDT	EOJ+2!
RFN	TRI+17~
RSDT	TRI+17~
RX1	EOJ+2!
RXF	TRI+17~
RXFL	PT+6!, EOJ+1!
RXN	PROCESS+2*, PROCESS+3, PROCESS+4, PROCESS+5!
RXN1	PROCESS+3*, PROCESS+5!
RXS	EOJ+2!
SDA	EOJ+2!
SIG	EOJ+2!
SIGOK	EOJ+2!
STA	EOJ+2!
TM	PROCESS+1*, EOJ+2!
TM1	PROCESS+1*, EOJ+2!
VA	EOJ+2!
VA("BID"	PID+4, PID+5!
VA("PID"	PID+5!
VADM	EOJ+2!
VAEL	EOJ+2!
VALMBCK	EOJ+2!
VALMSG	EOJ+2!
VAPA	EOJ+2!
VAPTYP	PID+3!
WBILL	TRI+5~, TRI+13*, TRI+14
WDUZ	TRI+5~, TRI+11*, TRI+13
WFILL	TRI+5~, TRI+12*, TRI+13
WLOOP	TRI+5~, TRI+12*
WPAT	TRI+5~, TRI+11*, TRI+13
WPPLFLG	TRI+5~, TRI+8, TRI+15, TRI+18
WSITE	TRI+5~, TRI+11*, TRI+13
WWFLAG	TRI+5~, TRI+8, TRI+9
WWNEXT	TRI+5~, TRI+9*
WWW	TRI+5~, TRI+19*, TRI+20, TRI+21
WXRX	TRI+5~
WXRX(	TRI+14*, TRI+19, TRI+20, TRI+21
X	FROMX!, SUSPX!, INPTX!, CNHX!, EARLYX!, GETRXM+9, GETRXM+10, GETRXM+20, GETRXMX!, EOJ+1! , TRI+1, ULK+3*
XFROM	REFILL+1, NEW+1, EOJ+1!, SETX+1, SETX+2
Y	FROM+3, FROM+4, FROMX!, SUSP+6, SUSPX!, INPT+5, INPTX!, CNH+5, CNHX!, EARLY+5 , EARLYX!, GETRXM+20, GETRXMX!, EOJ+1!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOBBC

Information

Source Information