Routine: IBNCPDPC

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

IBNCPDPC ;DALOI/SS - CLAIMS TRACKING EDITOR for ECME ;3/6/08 16:17

Source Information

Source file <IBNCPDPC.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
List Manager	2	EN^VALM PAUSE^VALM1
Integrated Billing	1	($$ENCL,$$ETYP,BLANK,EN,EXIT,HELP,INIT)^IBTRED
Outpatient Pharmacy	1	RX^PSO52API

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 5

Package	Total	Caller Graph
Integrated Billing	4	IBCC1 IBNCPDP LSTMN CT IBTOBI IBTRED
E Claims Management Engine	1	BPSCT

Entry Points

Name	Comments	DBIA/ICR reference
CT(IBRXIEN,IBRXFIL)	; look up CT entry and call CT listman ; entry point for DBIA# 4693 ; Input: IBRXIEN - internal Rx ien ; IBRXFIL - fill#	ICR #4693 Status: Active Usage: Private
EN	; -- main entry point for IBT EXPAND/EDIT TRACKING
INIT	; -- init variables and list array
HELP	; -- help code
EXIT	; -- exit code
BLANK(LINE)	; -- Build blank line
ETYP(IBTRN)	; -- Expand type of epidose and date
ENCL(IBOE)	; -- output format of classifications
PSOCPVW(IBDFN,IBRX,PSOTMP)	; return RX info ; IBDFN - patient's DFN ; IBRX - ien in #52 ; output in .PSOTMP array

External References

Name	Field # of Occurrence
$$ENCL^IBTRED	ENCL+1
$$ETYP^IBTRED	ETYP+1
BLANK^IBTRED	BLANK+1
EN^IBTRED	EN+1
EXIT^IBTRED	EXIT+1
HELP^IBTRED	HELP+1
INIT^IBTRED	INIT+1
RX^PSO52API	PSOCPVW+7
EN^VALM	CT+13
PAUSE^VALM1	CT+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"There is no Claims Tracking record for this prescription/fill." Line Location: CT+8
Routine Call	VALM Line Location: CT+13

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBT(356 - [#356]	CT+6, CT+12
^TMP($J	PSOCPVW+6!, PSOCPVW+8, PSOCPVW+9, PSOCPVW+10, PSOCPVW+11, PSOCPVW+12!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	CT+5~, CT+12*
IBDFN	PSOCPVW~, PSOCPVW+5, PSOCPVW+7, PSOCPVW+8, PSOCPVW+9, PSOCPVW+10, PSOCPVW+11
IBOE	ENCL~, ENCL+1
IBRX	PSOCPVW~, PSOCPVW+5, PSOCPVW+7, PSOCPVW+8, PSOCPVW+9, PSOCPVW+10, PSOCPVW+11
IBRXFIL	CT~, CT+6
IBRXIEN	CT~, CT+6
IBTRN	CT+5~, CT+6*, CT+7, CT+12, ETYP~, ETYP+1
>> IBTRND	PSOCPVW+8, PSOCPVW+9, PSOCPVW+10, PSOCPVW+11
LINE	BLANK~, BLANK+1
PSOTMP	PSOCPVW~
PSOTMP(52	PSOCPVW+8, PSOCPVW+9, PSOCPVW+10, PSOCPVW+11
U	CT+12, PSOCPVW+11