Routine: PSOPFSU0

Information

PSOPFSU0 ;BIR/LE,AM - PFSS Get Account & Utilities ;08/09/93

Source Information

Source file <PSOPFSU0.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Integrated Billing	1	$$GETACCT^IBBAPI
VA Fileman	1	($$GET1,GETS)^DIQ

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOPFSU1

Entry Points

Name	Comments	DBIA/ICR reference
CHLOC()	;FIND CHARGE LOCATION
GACT(PSORXN,PSOREF)	;ENTRY POINT: Called from PSON52; PSOR52, PSORN52. Get a PFSS acct ref ; This routine is only called when the PFSS Switch is on.
MCDIV(RX,FILL)	;Get MC DIVISION from the Rx/Fill
GOC	;Called from GACTOF and GACTRF. Parse OP classifications and ICD's. Don't send null values.
CLOK	;
RPH(PSORXN,PSOREF)	;API entry point ; Inputs: PSORXN = prescription IEN, PSOREF = fill number ; Outputs: PSORPH = rel pharm IEN ^ user IEN who performed last activity or rel pharm iF no activity entries^ ; IB Service Section pointer from file 59 ; Returns null values when the Rx is not released or the input values are invalid (i.e. "^^").	ICR #4732 Status: Active Usage: Controlled Subscription
CHKRX(PSORX,PSOF)	;validates Rx & fill. 0=not valid, 1=valid, 2=refill not valid
GACTRF	;Called from GACT. Get refill data
GACTOF	;Get orig fill data

External References

Name	Field # of Occurrence
$$GET1^DIQ	GACT+9, CHLOC+2, CHLOC+3, CHLOC+4, RPH+20, MCDIV+3, MCDIV+4, MCDIV+7
GETS^DIQ	GACTOF+1, GACTRF+1, GOC+1, RPH+7, RPH+8
$$GETACCT^IBBAPI	GACT+14

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ, GETS^DIQ
52.1	GET1^DIQ, GETS^DIQ
52.3	GET1^DIQ
^PS(59 - [#59]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	MCDIV+8
^PS(59 - [#59]	RPH+22, CLOK+1, CLOK+2
^PSRX - [#52]	GACT+17, GACT+18, RPH+19, CHKRX+2, CHKRX+3

Label References

Name	Line Occurrences
$$CHKRX	RPH+6
$$CHLOC	GACT+11
$$MCDIV	GACT+8
CLOK	CHLOC+5
GACTOF	GACT+5
GACTRF	GACT+6
GOC	GACTOF+3, GACTRF+4

Naked Globals

Name	Field # of Occurrence
^("I"	CLOK+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHLOC	CHLOC+1~, CHLOC+4, CHLOC+5, CHLOC+6
CL	CHLOC+1~, CHLOC+5, CLOK+1, CLOK+2
DATA	RPH+5~
DATA(	RPH+14, RPH+15, RPH+16
DATA(52	RPH+10, RPH+11, RPH+12
DIV	RPH+5~, RPH+11, RPH+15, RPH+22, MCDIV+1~, MCDIV+3, MCDIV+4, MCDIV+5, MCDIV+7, MCDIV+8* , MCDIV+9
DT	CLOK+2
FILL	MCDIV~, MCDIV+3, MCDIV+4
I	GACT+3~, GOC+2, GOC+3, GOC+4, GOC+5, RPH+5~, CLOK+1~, CLOK+2
IBSS	RPH+5~, RPH+22*, RPH+24
II	RPH+5~, RPH+20*
INST	MCDIV+1~, MCDIV+7*, MCDIV+8
J	GACT+3~, GOC+4*, GOC+5
PDIV	CHLOC+1~, CHLOC+2, CHLOC+3, CHLOC+4
PSOA	RPH+5~, RPH+19*, RPH+20
PSODFN	GACT+3~, GACT+9*, GACT+14
PSODG	GACT+3~, GACT+14, GOC+6*
PSODG(	GOC+3*
PSODIV	GACT+3~, GACT+8*, GACT+14
PSOEDPH	RPH+5~, RPH+20, RPH+23, RPH+24
PSOF	CHKRX~, CHKRX+1, CHKRX+3
PSOOK	RPH+5~, RPH+6*
PSOPFSAC	GACT+3~, GACT+14*, GACT+16, GACT+17, GACT+18, GACT+19
PSOPV1	GACT+3~, GACT+14
PSOPV1(2	GACT+10*
PSOPV1(3	GACT+11*, GACT+12
PSOPV1(44	GACTOF+2, GACTRF+3
PSOPV1(50	GACT+10*
PSOPV1(7	GACTOF+2, GACTRF+2
PSOPV2	GACT+3~
PSORDT	RPH+5~, RPH+12, RPH+16, RPH+17
PSOREF	GACT~, GACT+5, GACT+6, GACT+8, GACT+17, GACT+18, GACTRF+1, GACTRF+2, GACTRF+3, CHLOC+2 , CHLOC+3, RPH~, RPH+6, RPH+7, RPH+8, RPH+9, RPH+13, RPH+14, RPH+15, RPH+16
PSORPH	RPH+5~, RPH+10, RPH+14, RPH+23, RPH+24*, RPH+25
PSORX	GACT+3~, CHKRX~, CHKRX+1, CHKRX+2, CHKRX+3
PSORX(	GACTRF+2, GACTRF+3, GOC+2, GOC+3, GOC+4, GOC+5
PSORX(52	GACTOF+2
PSORXN	GACT~, GACT+8, GACT+9, GACT+10, GACT+17, GACT+18, GACTOF+1, GACTOF+2, GACTRF+1, GACTRF+2 , GACTRF+3, CHLOC+2, CHLOC+3, GOC+1, GOC+2, GOC+3, GOC+4, GOC+5, RPH~, RPH+6 , RPH+7, RPH+8, RPH+10, RPH+11, RPH+12, RPH+14, RPH+15, RPH+16, RPH+19, RPH+20
PSOZCL	GACT+3~, GACT+14, GOC+6*
PSOZCL(	GOC+5*
RX	MCDIV~, MCDIV+3, MCDIV+4

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOPFSU0

Call Graph Total: 2

Caller Graph Total: 1