Routine: PSOCPA

Information

PSOCPA ;BHAM ISC/LGH - PHARMACY CO-PAY CANCEL & RESET STATUS OPTIONS ;05/27/92

Source Information

Source file <PSOCPA.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA Fileman	3	NOW^%DTC ^DIC $$GET1^DIQ
Integrated Billing	1	($$STATUS,CANCEL,CANIBAM,UPDATE,UPIBAM)^IBARX
Outpatient Pharmacy	1	CHRG^PSOPFSU1

Caller Graph

Caller Graph Total: 12

Package	Total	Caller Graph
Outpatient Pharmacy	12	PSOCIDC2 PSOCP PSOCPB PSOCPC PSOCPD PSOCPIB PSOCPIBC PSOHLNE3 PSOHLNE4 PSOPFSU1 PSORESK1 PSORXED

Entry Points

Name	Comments	DBIA/ICR reference
EXIT
PFS
UPDATE	;if days supply changes during Rx edit, cancel old bill and get new bill number
EN	;Entry point for Remove Co-Pay charge
PFS3	;
PFS2	;
RX	;
RXED2
RXED	; Entry point from PSORXED and PSORESK1...requires PSODA,PSO,PSODAYS,PSOFLAG
CANCEL2
ENDMSG	;
ACTL
REASON	;
EXITA	;
FILE	;
CANCEL	; ; Set x=service^dfn^^user duz ; x(n)=IB number^cancellation reason
RXDEL	; Entry point when Rx is deleted thru menu option -- THIS ENTRY POINT NO LONGER USED WITH MILL BILL COPAY CHANGES
ACTLOG	;ENTER MESSAGE INTO RX COPAY ACTIVITY LOG

External References

Name	Field # of Occurrence
NOW^%DTC	ACTLOG+3
^DIC	RX+2, REASON+4, PFS, PFS+1, RXDEL+1, ACTL+1
$$GET1^DIQ	REASON+1
$$STATUS^IBARX	CANCEL+5, CANCEL+6
CANCEL^IBARX	PFS+7, RXDEL+6
CANIBAM^IBARX	PFS+6
UPDATE^IBARX	UPDATE+24
UPIBAM^IBARX	UPDATE+22, UPDATE+23
CHRG^PSOPFSU1	REASON+6, CANCEL2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: RX+2
Function Call: WRITE	Prompt: !,"Rx # ",PSORXN," is NOT a COPAY transaction...NO action taken." Line Location: RXED+5
Function Call: WRITE	Prompt: !,"Error in processing...No action taken." Line Location: PFS+10
Function Call: WRITE	Prompt: !!,"Co-Pay transaction for Rx # ",PSORXN,$S(PSOREF>0:" refill # "_PSOREF,1:"")," has been cancelled." Line Location: PFS2+1
Function Call: WRITE	Prompt: !!,"Co-Pay transaction for Rx # ",PSORXN,$S(PSOREF>0:" refill # "_PSOREF,1:"")," has been updated." Line Location: PFS2+2
Function Call: WRITE	Prompt: !,"Use Pharmacy Manager Option - Edit Prescriptions - to UPDATE this Rx." Line Location: UPDATE+3
Function Call: WRITE	Prompt: !,"Error in processing...No action taken." Line Location: UPDATE+27
Function Call: WRITE	Prompt: !!,"Co-Pay transaction for Rx # ",PSORXN,$S(PSOREF>0:" refill # "_PSOREF,1:"")," has previously been cancelled." Line Location: EXITA+1
Function Call: WRITE	Prompt: !!,"Unable to UPDATE COPAY TRANSACTON without REMOVAL REASON entry." Line Location: ENDMSG+1
Routine Call	DIC Line Location: RX+2 REASON+4 PFS PFS+1 RXDEL+1 ACTL+1

FileNo	Call Tags
^IBE(350.3 - [#350.3]	Classic Fileman Calls
^PSRX - [#52]	Classic Fileman Calls, GET1^DIQ
52.1	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSRX - [#52]	RXED+2, RXED+5, RXED+6, RXED+7, RXED+10, RXED+12, RXED+13, RXED+14, REASON+3, REASON+5 , PFS+3, PFS+5, CANCEL2+1, FILE+3, FILE+4, FILE+5, FILE+6, UPDATE+9, UPDATE+11, UPDATE+18 , ACTLOG+1, ACTL, ACTL+3, ACTL+4

Label References

Name	Line Occurrences
ACTL	ACTL
ACTLOG	PFS2+3, RXDEL+8
CANCEL	REASON+3
CANCEL2	REASON+3, PFS+2, PFS+6
ENDMSG	REASON+4, PFS
EXIT	RX+1, RX+2, RXED+5, RXED+7, RXED2+1, REASON+4, REASON+5, REASON+8, PFS, PFS+1 , PFS+10, PFS+11, CANCEL2+1, CANCEL2+2, CANCEL2+4, UPDATE+3, UPDATE+12, UPDATE+27, UPDATE+28, PFS3+2 , RXDEL+9
EXITA	CANCEL+5, CANCEL+6
FILE	CANCEL2+3, PFS3+1
PFS	REASON+3
PFS2	REASON+5, CANCEL2+2
REASON	RXED+4, RXED+12
RXED2	RXED+10
UPDATE	REASON+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ACTL+3
>> COPAYFLG	REASON+4, PFS
>> DA	UPDATE+2, EXIT*
DIC	RX+2!, REASON+4!, PFS!, PFS+1!, RXDEL+1!, ACTL+1!
DIC("A"	REASON+4, PFS
DIC("S"	REASON+4, PFS
DIC(0	RX+2, REASON+4, PFS, PFS+1, RXDEL+1, ACTL+1
DUZ	PFS+3, UPDATE+9, RXDEL+4, ACTL+3
POTBILL	RXED+1~, RXED+7, RXED2, RXED2+1, PFS+4, PFS+5, PFS+6, FILE+3, FILE+4, FILE+5 , FILE+6, UPDATE+20, UPDATE+21, UPDATE+24
>> PREA	PFS2+1, PFS2+2, RXDEL+8, ACTLOG+3, ACTL+3
>> PSI	ACTLOG+3, ACTL, ACTL+3, ACTL+4
PSO	EN+2*, RX+1, RXED+5, RXED+6, RXED+7, RXED+10, RXED2, REASON+3, REASON+5, REASON+7 , CANCEL+6, PFS, PFS+1, PFS2+1, PFS2+2, EXITA+1, EXIT+1!, EXIT+2, ENDMSG+1
>> PSOCOMM	PFS2+1, PFS2+2, ACTL+2
PSOCPUN	UPDATE+11*, UPDATE+12, UPDATE+19, EXIT+1!, EXIT+2!
PSODA	RX+2, RXED+2, RXED+5, RXED+6, RXED+7, RXED+10, RXED+12, RXED+13, RXED+14, REASON+1 , REASON+3, REASON+5, REASON+6, PFS+3, PFS+5, CANCEL2, CANCEL2+1, FILE+3, FILE+4, FILE+5 , FILE+6, UPDATE+9, UPDATE+11, UPDATE+15, UPDATE+18, RXDEL+3, EXIT+1!, ACTLOG+1, ACTL, ACTL+3 , ACTL+4
>> PSODAYS	UPDATE+12
PSOFLAG	EN+1*, UPDATE+3, EXIT+1!
PSOIB	RXED+6, RXED+7, RXED+14, RXED2, RXED2+1, CANCEL+5, CANCEL+6, PFS+4, RXDEL+5, EXIT+1!
PSOIBST	CANCEL+3~, CANCEL+5, CANCEL+6
>> PSONW	ACTL+3
>> PSOOLD	ACTL+3
>> PSOPAR7	PFS+3, UPDATE+9, RXDEL+4
PSOPARNT	UPDATE+18*, UPDATE+19, EXIT+1!, EXIT+2!
>> PSOPFS	RXED+4, REASON+3, REASON+5, REASON+6, PFS+2, CANCEL2, CANCEL2+2, ACTLOG+1
PSORD	REASON+1~*, REASON+5, CANCEL2
PSOREF	RXED+4, RXED+7, RXED+11, RXED+13*, RXED+14, REASON+1, REASON+6, CANCEL+5, CANCEL+6, PFS+4 , PFS+5, CANCEL2, FILE+3, FILE+4, FILE+5, FILE+6, PFS2+1, PFS2+2, UPDATE+15, UPDATE+18 , EXITA+1, EXIT+1!, ACTL+3
PSORSN	REASON+4, PFS, PFS+1, PFS+4, PFS+5, UPDATE+19, RXDEL+1, RXDEL+5, EXIT+1!, ACTL+1
PSORSNZ	ACTL+1!, ACTL+2, ACTL+3, ACTL+5!
PSORXN	RXED+2, RXED+5, PFS+4, PFS+5, PFS+11, FILE+3, FILE+5, PFS2+1, PFS2+2, UPDATE+15 , UPDATE+19, UPDATE+21, UPDATE+28, RXDEL+3, RXDEL+5, EXITA+1, EXIT+1!, EXIT+2!
PSZ	RXED+13*, EXIT+1!
>> RX	RXDEL+3, RXDEL+4
>> RXN	RXDEL+3
SAVEDA	UPDATE+1~, UPDATE+2*, EXIT
>> TYPE	RXED+4
X	PFS+1, PFS+3, UPDATE+9, RXDEL+1, RXDEL+4, EXIT+1!, EXIT+2!, ACTLOG+2~, ACTL+1
X(	PFS+4, PFS+5, UPDATE+15, UPDATE+19, UPDATE+21, RXDEL+5
Y	RX+2, REASON+4, PFS, PFS+1, PFS+10, UPDATE+27, RXDEL+1, RXDEL+2!, RXDEL+7, EXIT+1! , EXIT+2!, ACTLOG+2~, ACTL+1
Y(	PFS+11, FILE+3, FILE+5, UPDATE+28

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCPA

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items