Routine: PSOCPF2

Information

PSOCPF2 ;BIR/BAA - Pharmacy CO-PAY Application Utilities for IB ;02/06/92

Package	Total	Call Graph
List Manager	3	EN^VALM (CLEAR,FULL,PAUSE)^VALM1 EN^VALM2
Outpatient Pharmacy	3	($$ONEPAT,BLD,HDR)^PSOCPF SORT^PSOCPF1 ADDRX^PSOCPF2
VA FileMan	3	(,DD)^%DT ^DIC ^DIR
Integrated Billing	1	EN^IBOLK
Kernel	1	$$UP^XLFSTR
Registration	1	EN^DGRPD

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

Package	Total	Caller Graph
Outpatient Pharmacy	7	PSO PAT MED PAT INQ PSO PATIENT MED ACC PRO PSO PATIENT MED BILL PRO PSO PATIENT MED NEW PAT PSO PATIENT MED PAT BILL PSO PATIENT MED TPJI PSOCPF2
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
PATACP	; ACTION - Account Profile (AP)
BILPRO	; view BILL PROFILE
TPJI	; view THIRD PARTY JOIN INQUIRY
BILINQ	; view PATIENT BILLING INQUIRY
PATINQ	; view PATIENT INQUIRY
NP	; -- change patient,date and prescriptions.
NPQ
RESET	; Reset filters to current patient
FMDATES(PROMPT,SDT,EDT)	; ask for date range
FMDQ
ADDRX	; ; Prescription filter
ASKRX(FILTERS)
ONERX(DIC,IEN,FIRST)

External References

Name	Field # of Occurrence
^%DT	FMDATES+6, FMDATES+13
DD^%DT	FMDATES+4, FMDATES+11
EN^DGRPD	PATINQ+8
^DIC	ONERX+7
^DIR	ADDRX+6
EN^IBOLK	BILINQ+13
$$ONEPAT^PSOCPF	NP+11
BLD^PSOCPF	PATACP+13, BILPRO+14, TPJI+9, BILINQ+14, PATINQ+9, NP+30
HDR^PSOCPF	NP+30
SORT^PSOCPF1	NP+30
ADDRX^PSOCPF2	NP+22
EN^VALM	PATACP+12, BILPRO+13, TPJI+8
CLEAR^VALM1	PATACP+3, BILPRO+5, BILINQ+5
FULL^VALM1	PATACP+1, BILPRO+1, TPJI+1, BILINQ+1, PATINQ+1, NP+4
PAUSE^VALM1	PATACP+11, BILPRO+12, BILINQ+12
EN^VALM2	PATACP+2, BILPRO+3, TPJI+3, BILINQ+3, PATINQ+3
$$UP^XLFSTR	ADDRX+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There is no Bill associated with this entry." Line Location: PATACP+10
Function Call: WRITE	Prompt: !!,"There is no Bill associated with this entry." Line Location: BILPRO+11
Function Call: WRITE	Prompt: !!,"There is no Bill associated with this entry." Line Location: BILINQ+11
Function Call: WRITE	Prompt: !,"Please be patient while I gather the requested data.",! Line Location: NP+29
Function Call: WRITE	Prompt: ! Line Location: ADDRX+6
Routine Call	DIC Line Location: ONERX+7
Routine Call	DIR Line Location: ADDRX+6
Routine Call	VALM Line Location: PATACP+12 BILPRO+13 TPJI+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	PATACP+4, PATACP+7, BILPRO+6, BILPRO+8, TPJI+4, TPJI+6, BILINQ+6, BILINQ+8, PATINQ+4, PATINQ+6 , NP+5, NP+7, NP+26, NP+28, RESET+5, RESET+7

Label References

Name	Line Occurrences
$$FMDATES	NP+17
ASKRX	ADDRX+12
NPQ	NP+12, NP+19, NP+20, NP+24
ONERX	ASKRX+8
RESET	NP+12, NP+19, NP+20, NP+24, ONERX+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	FMDATES+1~, FMDATES+4!, FMDATES+6!, FMDATES+11!, FMDATES+13!
%DT("A"	FMDATES+6, FMDATES+13
%DT("B"	FMDATES+4, FMDATES+9, FMDATES+11*
%DT(0	FMDATES+9*
>> BDATE	RESET+3*
DFN	TPJI+2~, TPJI+7, BILINQ+2~, PATINQ+2~, PATINQ+7, NP+1~, NP+13, RESET+1
DIC	NP+3~, ASKRX+5*, ASKRX+8, ONERX~
DIC("A"	ONERX+6*
DIC(0	ASKRX+5*
DIR	NP+3~, ADDRX+6!
DIR("?"	ADDRX+3, ADDRX+4
DIR("A"	ADDRX+2*
DIR("B"	ADDRX+2*
DIR(0	ADDRX+2, ADDRX+5
DIRUT	NP+3~, ADDRX+8
DIVS	NP+3~
DT	FMDATES+9
DT1	FMDATES+1~, FMDATES+2, FMDATES+16, FMDQ
DT2	FMDATES+1~, FMDATES+9*, FMDATES+16
DUOUT	NP+3~
ECNT	BILPRO+2~, TPJI+2~, BILINQ+2~, PATINQ+2~
>> EDATE	RESET+3*
EDT	FMDATES~, FMDATES+9, FMDATES+11
FILTERS	ADDRX+12, ASKRX~
FILTERS(0	NP+5, NP+10, NP+13, NP+14, NP+15, NP+25, NP+26, RESET+1, RESET+2, RESET+3 , RESET+4, RESET+5, ADDRX+10, ADDRX+12, ASKRX+12*
FILTERS(1	NP+28, RESET+7, ASKRX+6!, ASKRX+20
FIRST	NP+3~, ASKRX+5, ASKRX+8, ONERX~, ONERX+6, ONERX+8
GOPAT	TPJI+2~, BILINQ+2~, PATINQ+2~
I	BILPRO+2~, TPJI+2~, BILINQ+2~, PATINQ+2~
IB0	FMDATES+1~
IB1	FMDATES+1~, FMDATES+2, FMDATES+3, FMDATES+6
IB2	FMDATES+1~, FMDATES+2, FMDATES+3, FMDATES+13
IBDATES	NP+1~, NP+17*, NP+19, NP+25
IBDFN	NP+1~, NP+10*, RESET+1
IBFULL	BILINQ+2~, BILINQ+9*
IBIFN	BILINQ+2~, BILINQ+9*
IBIL	BILINQ+2~, BILINQ+9*, BILINQ+10
IBXX	PATACP+5, PATACP+7, BILPRO+2~, BILPRO+7, BILPRO+8, TPJI+2~, TPJI+5, TPJI+6, BILINQ+2~, BILINQ+7 , BILINQ+8, PATINQ+2~, PATINQ+5*, PATINQ+6
IEN	NP+3~, ASKRX+7, ASKRX+8, ASKRX+9, ASKRX+10, ASKRX+11, ONERX~, ONERX+8*
J	BILPRO+2~, TPJI+2~, BILINQ+2~, PATINQ+2~
N	NP+3~, ASKRX+19*, ASKRX+20
PAT	NP+1~, NP+11, NP+12, NP+13, RESET+4
PROMPT	FMDATES~, FMDATES+3
PSOIENS	NP+3~, ASKRX+12
PSOIENS(	ASKRX+10*, ASKRX+17, ASKRX+19
PSOIENS2	NP+3~
PSOIENS2(	ASKRX+11*
>> R	NP+6, NP+7, NP+27, NP+28, RESET+6, RESET+7
>> RC	PATACP+7*, PATACP+8
RCBILLDA	BILPRO+2~, BILPRO+9*, BILPRO+10
RCDEBTDA	PATACP+6~, PATACP+8*, PATACP+9
REC	BILPRO+2~, BILPRO+8, BILPRO+9, TPJI+2~, TPJI+6, TPJI+7, BILINQ+2~, BILINQ+8, BILINQ+9, PATINQ+2~ , PATINQ+6, PATINQ+7
>> RXS	RESET+4*
SAVFIL	NP+1~
SAVFIL(0	NP+5*, RESET+2
SAVFIL(1	NP+7*, RESET+7
SDATE	NP+1~, NP+14*, NP+17
SDT	FMDATES~, FMDATES+4
TDATE	NP+1~, NP+15*, NP+17
U	PATACP+8, BILPRO+9, TPJI+7, BILINQ+9, PATINQ+7, NP+10, NP+13, NP+14, NP+15, NP+25 , RESET+1, RESET+3, RESET+4, FMDATES+16, ADDRX+5, ADDRX+10, ADDRX+12, ASKRX+10, ASKRX+11, ASKRX+12
>> VALMBCK	PATACP+14, BILPRO+15, TPJI+10, BILINQ+15, PATINQ+10, NP+12, NP+19, NP+20, NP+24, NP+31 , ONERX+9*
>> VALMBG	NP+30*
VALMQUIT	NP+1~, NP+20
VALMY	PATACP+4, BILPRO+2~, BILPRO+6, TPJI+2~, TPJI+4, BILINQ+2~, BILINQ+6, PATINQ+2~, PATINQ+4
VALMY(	PATACP+5, BILPRO+7, TPJI+5, BILINQ+7, PATINQ+5
X	NP+3~, FMDATES+1~, ADDRX+9*
>> XQORNOD(0	PATACP+2, BILPRO+3, TPJI+3, BILINQ+3, PATINQ+3
XX	NP+3~, ASKRX+15, ASKRX+16, ASKRX+17, ASKRX+18, ASKRX+19, ASKRX+20
Y	NP+3~, NP+24, FMDATES+1~, FMDATES+4, FMDATES+8, FMDATES+9, FMDATES+11, FMDATES+15, FMDATES+16, ADDRX+8 , ADDRX+10, ONERX+8, ONERX+9

Customize PDF page

Package: Outpatient Pharmacy