Routine: IBCSC5B

Information

IBCSC5B ;ALB/ARH - ADD/ENTER PROSTHETIC ITEMS ; 12/28/93

Source Information

Source file <IBCSC5B.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA Fileman	3	FILE^DICN ^DIE ^DIR
IFCAP	1	$$DESCR^PRCPUX1
Integrated Billing	1	$$EXSET^IBEFUNC

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Integrated Billing	4	IBCF331 IBCF4 IBCSC5 IBCSCE

Entry Points

Name	Comments	DBIA/ICR reference
EN	;add/edit prosthetic items for a bill, IBIFN required
PIDISP(DFN,DT1,DT2,ARRAY,PDARR)	; display all prosthetic items (660) for a patient and date range
HELP(IFN)	;called for help from prosthetics enter to display existing devices, displays devices from 660 and 399
DATE(X)	;
EDIT(PIFN)	;
DISP(PDARR)	;screen display of existing prosthetic devices for a bill,
ASKPD(PD)	;
EXIT
ASKDT(IBDT1,IBDT2,IBDT)	;
BILL(IBIFN)	; display all existing prescription refills (52) for a patient and date range
ADD(IBDT,IFN,IBPD,PIFN)	;
SET(IFN,PDARR)	;setup array of all prosthetic devices for bill, array name should be passed by reference	ICR #3810 Status: Active Usage: Private
PIN(PITEM)	;given the pros item IFN (661 ptr) returns name for printing (661,.01^441,.05)	ICR #3810 Status: Active Usage: Private
E1

External References

Name	Field # of Occurrence
FILE^DICN	ADD+1
^DIE	ADD+2, EDIT+1
^DIR	ASKDT+2, ASKPD+2
$$EXSET^IBEFUNC	PIDISP+12
$$DESCR^PRCPUX1	PIN+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " ??" Line Location: E1+2
Function Call: WRITE	Prompt: !,"This prosthetic item does not exist in this patients prosthetics record.",! Line Location: E1+3
Function Call: WRITE	Prompt: ! Line Location: E1+4
Function Call: WRITE	Prompt: "... ADDED" Line Location: ADD+2
Function Call: WRITE	Prompt: !,$$DATE(IBX),?12,$P(IBZ,U,1),?20,$P(IBZ,U,2) Line Location: DISP+5
Function Call: WRITE	Prompt: !,$S($D(PDARR(+DDT,PI)):"*",1:"") Line Location: PIDISP+11
Function Call: WRITE	Prompt: ?2,$$DATE(DDT),?12,$P(PNAME,U,1),?20,$E($P(PNAME,U,2),1,30),?55,$E($$EXSET^IBEFUNC($P(IBX,U,14),660,12),1,4),?62,$$EXSET^IBEFUNC($P(IBY,U,3),660,62),?70,$J(+$P(IBX,U,16),9,2) Line Location: PIDISP+12
Routine Call	DIE Line Location: ADD+2 EDIT+1
Routine Call	DIR Line Location: ASKDT+2 ASKPD+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBA(362.5 - [#362.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	BILL+2, BILL+3
^IBA(362.5 - [#362.5]	SET+3, SET+4
^RMPR(660	PIDISP+4, PIDISP+5, PIDISP+10
^RMPR(661	ASKPD+2, PIN+1

Label References

Name	Line Occurrences
$$ADD	E1+2
$$ASKDT	E1
$$ASKPD	E1+1
$$BILL	EN+1, HELP+1
$$DATE	DISP+5, PIDISP+12
$$PIN	DISP+5, PIDISP+10
DISP	EN+2, HELP+1
E1	E1+1, E1+2, E1+4
EDIT	E1+4
EXIT	E1
PIDISP	EN+2, HELP+1
SET	EN+2, E1+4, HELP+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAY	PIDISP~, PIDISP+3!
ARRAY(	PIDISP+6*, PIDISP+9, PIDISP+10
CNT	SET+2~, SET+3, SET+4, SET+5
DA	ADD+1!, ADD+2!, EDIT+1!
DDT	PIDISP+3~, PIDISP+5, PIDISP+6, PIDISP+9, PIDISP+10, PIDISP+11, PIDISP+12
DFN	EN+1*, EN+2, PIDISP~, PIDISP+3, PIDISP+4
DIC	ADD+1*, ADD+2!, EDIT+1!
DIC(0	ADD+1*
DIDEL	EDIT+1*!
DIE	ADD+2!, EDIT+1!
DIR	ASKDT+2!, ASKPD+2!
DIR("?"	ASKDT+1*
DIR("??"	ASKDT+1*
DIR("A"	ASKDT+2, ASKPD+2
DIR("B"	ASKPD+2*
DIR(0	ASKDT+2, ASKPD+2
DIRUT	ASKDT+2!, ASKPD+2!
DO	ADD+1!
DR	ADD+2!, EDIT+1!
DT1	PIDISP~, PIDISP+3*, PIDISP+5
DT2	PIDISP~, PIDISP+3*, PIDISP+5
DTOUT	ASKDT+2!
IBC	SET+2~*, SET+3
IBDT	E1*, E1+1, E1+2, E1+3, EXIT!, ASKDT~, ADD~, ADD+1
IBDT1	EN+1*, EN+2, E1, EXIT!, ASKDT~, ASKDT+2
IBDT2	EN+1*, EN+2, E1, EXIT!, ASKDT~, ASKDT+2
IBIFN	EN+1, EN+2, E1+2, E1+4, ASKDT+1, BILL~, BILL+2, BILL+3
IBPD	E1+1*, E1+2, E1+3, EXIT!, ADD~, ADD+2
IBPDA	EN+2, E1+4, EXIT!, HELP+1~
IBPDA(	E1+1, E1+2
IBPDE	EN+2, EXIT!
IBPDE(	E1+1, E1+2, E1+3
IBPIFN	E1, E1+2, E1+4, EXIT!
IBX	EN+1, EXIT!, ADD+1~, ADD+2, ADD+3, SET+2~, SET+3, DISP+2~, DISP+4, DISP+5 , HELP+1~, PIDISP+3~, PIDISP+5, PIDISP+6, PIDISP+10, PIDISP+12, PIN+1~, BILL+2~, BILL+3*
IBY	SET+2~, SET+4, DISP+2~, DISP+4, DISP+5, PIDISP+3~, PIDISP+10, PIDISP+12, PIN+1~, PIN+2 , BILL+2~, BILL+3, BILL+4
IBZ	DISP+2~, DISP+5*
IFN	ADD~, ADD+2, SET~, SET+2, SET+5, HELP~, HELP+1
IOF	PIDISP+8
PD	ASKPD~, ASKPD+2
PDARR	SET~, SET+2!, SET+5*, DISP~, PIDISP~
PDARR(	SET+4*, DISP+4, PIDISP+11
PI	PIDISP+3~, PIDISP+9*, PIDISP+10, PIDISP+11
PIFN	ADD~, ADD+2, EDIT~, EDIT+1, SET+2~, SET+3, SET+4, PIDISP+3~, PIDISP+4, PIDISP+5 , PIDISP+6, PIDISP+10*
PITEM	PIN~, PIN+1
PNAME	PIDISP+3~, PIDISP+10*, PIDISP+12
U	EN+1, SET+4, DISP+5, HELP+1, PIDISP+5, PIDISP+6, PIDISP+12, PIN+1, BILL+2, BILL+3
X	ASKPD+1~, ADD+1*!, DATE~, DATE+1
Y	ASKDT+3, ASKPD+1~, ASKPD+2*, ASKPD+3, ADD+2

Customize PDF page

Package: Integrated Billing

Routine: IBCSC5B

Call Graph Total: 5

Caller Graph Total: 4