Routine: IBCSC5A

Information

IBCSC5A ;ALB/ARH - ADD/ENTER PRESCRIPTION REFILLS ; 12/27/93

Source Information

Source file <IBCSC5A.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	4	^DIC FILE^DICN ^DIE ^DIR
Integrated Billing	2	(ADDNEW,DEFAULT,NEWRX,RXDISP)^IBCSC5C $$RXDUP^IBCU3
Kernel	1	$$FMTE^XLFDT

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Integrated Billing	4	IBCF331 IBCSC5C IBCSCE IBCU6

Entry Points

Name	Comments	DBIA/ICR reference
EN	;add/edit prescription refills for a bill, IBIFN required
ASKRX(IBRXAP,IBPRO)	;
DRUG(IBD)	; get drug
SET(IFN,RXARR,RXARRP)	;setup array of all rx refills for bill, array name should be passed by reference	ICR #3811 Status: Active Usage: Private
HELP(IFN)	;called for help from rx enter to display existing rx, displays rx' from 52 and 399
EDIT(PIFN)	;
ARX1E
ADDE
EXIT
ASKDT(IBDT1,IBDT2,IBDT)	;
DISP(RXARR,RXARRP)	;screen display of existing refills for a bill,
BILL(IBIFN)	; display all existing prescription refills (52) for a patient and date range
E1
ADD(RX,IFN,IBDT,DRUG,PIFN,OTHER)	;

External References

Name	Field # of Occurrence
^DIC	DRUG+1
FILE^DICN	ADD+2
^DIE	ADD+3, EDIT+1
^DIR	ASKRX+3, ASKRX+8, ASKDT+1
ADDNEW^IBCSC5C	EN+3
DEFAULT^IBCSC5C	EXIT
NEWRX^IBCSC5C	EN+3
RXDISP^IBCSC5C	EN+3, HELP+1
$$RXDUP^IBCU3	E1+2
$$FMTE^XLFDT	ASKRX+7, ASKDT+1, DISP+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This rx refill does not exist in Pharmacy for this patient!",! Line Location: E1+3
Function Call: WRITE	Prompt: " ??" Line Location: E1+5
Function Call: WRITE	Prompt: ! Line Location: ASKRX+1
Function Call: WRITE	Prompt: !,$J(IBI,2),")",?7,IBX,?20,$E(IBZ,1,38),?60,$$FMTE^XLFDT(IBY) Line Location: DISP+6
Routine Call	DIE Line Location: ADD+3 EDIT+1
Routine Call	DIC Line Location: DRUG+1
Routine Call	DIR Line Location: ASKRX+3 ASKRX+8 ASKDT+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBA(362.4 - [#362.4]	Classic Fileman Calls
^PSDRUG - [#50]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	BILL+2, BILL+3
^IBA(362.4 - [#362.4]	SET+3, SET+4
^PSDRUG - [#50]	DISP+5, DRUG+1

Label References

Name	Line Occurrences
$$ADD	E1+5
$$ASKDT	E1+1
$$ASKRX	E1
$$BILL	EN+1, HELP+1
$$DRUG	ADD+1
ADDE	ADD+1
ARX1E	ASKRX+3, ASKRX+4, ASKRX+6
DISP	EN+4, HELP+1
E1	E1+1, E1+2, E1+5, E1+6
EDIT	E1+6
EXIT	E1
SET	EN+2, EN+4, E1+6, HELP+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	SET+2~, SET+3, SET+4, SET+5
DA	ADD+2!, ADD+3!, EDIT+1!
>> DFN	EN+1*, EN+3
>> DGRVRCAL	EN+3, E1
DIC	ADD+2, ADD+3!, EDIT+1!, DRUG+1!
DIC(0	ADD+2, DRUG+1
DIDEL	EDIT+1*!
DIE	ADD+3!, EDIT+1!
DIR	ASKRX+3!, ASKRX+8!, ASKDT+1!
DIR("?"	ASKRX+2*
DIR("??"	ASKRX+2*
DIR("A"	ASKRX+3, ASKRX+7, ASKDT+1*
DIR("B"	ASKRX+7, ASKDT+1
DIR(0	ASKRX+3, ASKRX+7, ASKDT+1*
DIRUT	ASKRX+3!, ASKRX+8, ASKDT+1!
DO	ADD+2!
DR	ADD+3!, EDIT+1!
DRUG	ADD~, ADD+1*, ADD+3
DTOUT	ASKDT+1!
IBC	SET+2~*, SET+3
IBCNT	SET+2~, SET+6
IBD	DRUG~, DRUG+1*, DRUG+2
IBDRG	E1+4*, EXIT+1!
IBDT	E1, E1+1, E1+2, E1+3, E1+4, E1+5, EXIT+1!, ASKDT~, ASKDT+1, ADD~ , ADD+3
IBDT1	EN+1*, EN+3, E1+1, EXIT+1!, ASKDT~, ASKDT+1
IBDT2	EN+1*, EN+3, E1+1, EXIT+1!, ASKDT~, ASKDT+1
>> IBI	DISP+4*, DISP+6
IBIFN	EN+1, EN+2, EN+3, EN+4, E1+2, E1+5, E1+6, EXIT, ASKRX+2, BILL~ , BILL+2, BILL+3
IBLIST	EN+3, EXIT+1!
IBPIFN	E1, E1+4, E1+5*, E1+6, EXIT+1!
IBPR	EN+3, EXIT+1!, HELP+1
IBPR(	E1+1, E1+3, E1+5
IBPRO	EN+3, EN+4, E1, E1+6, EXIT+1!, ASKRX~, ASKRX+4, HELP+1
IBPRO(	ASKRX+6
IBRX	E1*, E1+1, E1+2, E1+3, E1+4, E1+5, EXIT+1!
IBRXA	EN+2, EN+3, EN+4, E1+6, EXIT+1!, HELP+1~
IBRXA(	E1+1, E1+2, E1+4
IBRXAP	EN+4, E1, E1+6, EXIT+1!, ASKRX~, ASKRX+4, HELP+1*
IBRXAP(	ASKRX+6
IBRXNEW	EN+1, EN+3, E1+5*, EXIT, EXIT+1!
IBRXOLD	EN+2*, EXIT, EXIT+1!
IBX	EN+1, E1+5, EXIT+1!, ASKRX+1~, ASKRX+4, ASKRX+6, ASKRX+8, ARX1E, ADD+1~, ADD+3* , ADDE, SET+2~, SET+3, SET+6, DISP+2~, DISP+4, DISP+5, DISP+6, HELP+1~, BILL+2~* , BILL+3*
IBY	ASKRX+1~, ASKRX+6, ASKRX+7, ASKRX+8, SET+2~, SET+4, SET+6, DISP+2~, DISP+4, DISP+5 , DISP+6, BILL+2~, BILL+3, BILL+4
IBZ	SET+2~, DISP+2~, DISP+5*, DISP+6
IFN	ADD~, ADD+3, SET~, SET+2, SET+5, HELP~, HELP+1
OTHER	ADD~, ADD+3
PIFN	ADD~, ADD+3, EDIT~, EDIT+1, SET+2~, SET+3*, SET+4
RX	ADD~, ADD+2
RXARR	SET~, SET+2!, SET+5*, DISP~
RXARR(	SET+4*, SET+6, DISP+4, DISP+5
RXARRP	SET~, SET+2!, DISP~
RXARRP(	SET+6*, DISP+4
U	EN+1, EN+2, EN+3, E1, E1+4, E1+5, ASKRX+7, ADD+3, SET+4, DISP+4 , DISP+5, HELP+1, BILL+2, BILL+3
X	ASKRX+1~, ADD+2*!, DRUG+1~
Y	ASKRX+1~, ASKRX+3*, ASKRX+4, ASKRX+8, ASKDT+2, ADD+3, DRUG+1~

Customize PDF page

Package: Integrated Billing

Routine: IBCSC5A

Call Graph Total: 7

Caller Graph Total: 4