Routine: PSOPFSU0

Information

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

Name	Comments	DBIA/ICR reference
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.
GACTOF	;Get orig fill data
GACTRF	;Called from GACT. Get refill data
CHLOC()	;FIND CHARGE LOCATION
GOC	;Called from GACTOF and GACTRF. Parse OP classifications and ICD's. Don't send null values.
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
MCDIV(RX,FILL)	;Get MC DIVISION from the Rx/Fill
CLOK	;