Routine: PSOCPD

Information

PSOCPD ;BHAM ISC/BaB - MULTIPLE COPAY CHARGE REMOVAL ;05/27/92

Source Information

Source file <PSOCPD.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Outpatient Pharmacy	4	ACTLOG^PSOCPA (BILL2,REFILL)^PSOCPB SETSUMM^PSOCPC (,FINAL)^PSOLSET
VA Fileman	3	^DIC GETS^DIQ ^DIR
Integrated Billing	1	($$STATUS,CANCEL,STATUS)^IBARX

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOCPB

Entry Points

Name	Comments	DBIA/ICR reference
ASKCAN	; if any charges currently, give option to cancel some or all
ENDMSG	;
FILE	; ; File new Bill # in ^PSRX
SPEED1	;
SELECT	; Choose from list of fills that have charges
ASK
HELP2
ERRBIL
CHKCAN	; SEE IF SELECTION HAS ALREADY BEEN CANCELLED
REASON	; ; Get Cancellation reason
ASKCAN2
CANCEL	;
CR
ASKALL	;PFS - check copay activity log to see if any fills were previously cancelled; mark as cancelled for display
INVALD
SPEED	;
LASTEX	;
PFS
EXIT	;
HELP3
SELECT4
SELECT3
SELECT2	;

External References

Name	Field # of Occurrence
^DIC	REASON+2, SPEED+2
GETS^DIQ	ASKALL+1
^DIR	CANCEL+1, CANCEL+2, SELECT2+4
$$STATUS^IBARX	SELECT+8
CANCEL^IBARX	CANCEL+11
STATUS^IBARX	SELECT+8
ACTLOG^PSOCPA	FILE+7
BILL2^PSOCPB	ASKALL+11, SELECT4
REFILL^PSOCPB	PFS
SETSUMM^PSOCPC	CHKCAN+4
^PSOLSET	CR
FINAL^PSOLSET	LASTEX+2

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "PRESCRIPTION(s): " Formatting: ! Timeout: DTIME Variable: PSX Line Location: ASK+0
Function Call: WRITE	Prompt: !?5,"Enter prescription number(s) for removal of charges. If more than one",!,"separate with commas. Do not exceed 245 characters including commas." Line Location: ASK+1
Function Call: WRITE	Prompt: !!,PSX," is not a valid RX #!!" Line Location: ASK+3
Function Call: WRITE	Prompt: !!,"Rx # ",$P($G(^PSRX(PSODA,0)),"^")," is NOT a COPAY transaction...NO action taken." Line Location: ASK+5
Function Call: WRITE	Prompt: ! Line Location: REASON+2
Function Call: WRITE	Prompt: !?10,PSOI Line Location: INVALD+1
Function Call: WRITE	Prompt: !,"Rx # ",PSORXN," is NOT a COPAY transaction...NO action taken." Line Location: SPEED1+5
Function Call: WRITE	Prompt: !!,"No action taken.",! Line Location: CANCEL+1
Function Call: WRITE	Prompt: !!,"No action taken.",! Line Location: CANCEL+2
Function Call: WRITE	Prompt: ! Line Location: CANCEL+3
Function Call: WRITE	Prompt: !,"......No action taken." Line Location: CANCEL+16
Function Call: WRITE	Prompt: !!,"No Entry # for Rx # "_$P($G(^PSRX(PSODA,0)),"^")_" ...No action taken." Line Location: ERRBIL+0
Function Call: WRITE	Prompt: !!,"Unable to process without REASON entry." Line Location: ENDMSG+1
Function Call: WRITE	Prompt: !!,"Do you want to cancel any charges (Y/N)? " Line Location: ASKCAN2+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASKCAN2+1
Function Call: WRITE	Prompt: !,"Answering YES will allow cancelling of all or selected charges" Line Location: HELP2+0
Function Call: WRITE	Prompt: !,"Answering YES will proceed with cancelling selected charges" Line Location: HELP3+0
Function Call: WRITE	Prompt: !!,"(A)ll or (S)elect Charges? (A/S): " Line Location: ASKALL+7
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASKALL+8
Function Call: WRITE	Prompt: !,"Enter 'A' to cancel all charges or 'S' to select from list of charges" Line Location: ASKALL+10
Function Call: WRITE	Prompt: !!,"* Potential charge indicates fill was not billed due to the annual cap." Line Location: SELECT+16
Function Call: WRITE	Prompt: !,"If cancelled, this fill will not be considered for future copay billing." Line Location: SELECT+17
Function Call: WRITE	Prompt: !!,"Do you wish to continue (Y/N)? " Line Location: SELECT3+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: SELECT3+1
Function Call: WRITE	Prompt: $C(7),!!,J," is an invalid selection. Please try again.",! Line Location: CHKCAN+2
Routine Call	DIC Line Location: REASON+2 SPEED+2
Routine Call	DIR Line Location: CANCEL+1 CANCEL+2 SELECT2+4

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSRX - [#52]	ASK+5, SPEED1+3, SPEED1+5, SPEED1+6, SPEED1+7, SPEED1+11, SPEED1+12, SPEED1+13, SPEED1+14, CANCEL+7 , CANCEL+9, FILE+3, FILE+4, ERRBIL, ASKCAN+1, ASKCAN+5, ASKCAN+6, ASKCAN+7, PFS+2, PFS+3 , SELECT+11
^PSRX("B"	ASK+3, ASK+4

Label References

Name	Line Occurrences
ASK	ASK+1, ASK+3, ASK+4, INVALD, INVALD+3
ASKALL	ASKCAN2+1, ASKALL+10
ASKCAN2	ASKCAN2+1
CANCEL	SPEED1+11
CR	CR
ENDMSG	REASON+2
ERRBIL	SPEED1+7, SPEED1+13
EXIT	ASK+5, SPEED1+5, CANCEL+1, CANCEL+2, CANCEL+16, CANCEL+17, FILE+9
HELP2	ASKCAN2+1
HELP3	SELECT3+3
LASTEX	ASK, ASK+6, SPEED+1
REASON	ASK+6, SPEED+1
SELECT	ASKALL+16
SELECT3	SELECT3+3
SELECT4	SELECT3+2
SPEED	ASK+2
SPEED1	ASK+6, SPEED+2

Name	Field # of Occurrence
^("IB"	SPEED1+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	EXIT+1!, LASTEX+1!
CANTYPE	ASKCAN+2~, ASKALL+14, ASKALL+15
DIC	REASON+2!, SPEED+2!
DIC("A"	REASON+2*
DIC("S"	REASON+2*
DIC(0	REASON+2, SPEED+2
DIR	CANCEL+1!, CANCEL+2!, SELECT2+1!, SELECT2+4!
DIR("?"	SELECT2+2*
DIR("A"	CANCEL+1, CANCEL+2
DIR("B"	CANCEL+1, CANCEL+2
DIR(0	CANCEL+1, CANCEL+2, SELECT2+3*
DTIME	ASK, ASKCAN2+1, ASKALL+8, SELECT3+1
DUZ	CANCEL+7
FOOTNOTE	SELECT+1~, SELECT+2!, SELECT+7*, SELECT+15
I	ASKALL+2, ASKALL+3, SELECT+1~, SELECT2+6, SELECT2+7, SELECT4+1*
J	ASKCAN+2~, ASKCAN+4, ASKCAN+5, ASKCAN+6, ASKCAN+7, PFS+2, PFS+3, ASKALL+3, ASKALL+4, SELECT+1~ , SELECT+4*, SELECT+6, SELECT+7, SELECT+8, SELECT+9, SELECT+11, SELECT+13, SELECT2+3, CHKCAN+1, CHKCAN+2 , CHKCAN+4
PREA	REASON+3*, EXIT+1!, LASTEX+1!
PSI	CHKCAN+3*, CHKCAN+5!
PSINV	INVALD, INVALD+2!, LASTEX+1!
PSINV(	SPEED+2*, INVALD+1
PSO	SPEED1+2*, FILE+5, EXIT+1!, LASTEX+1!
PSOBILL	SELECT+1~, SELECT+4, SELECT+5, SELECT+7, SELECT+8, SELECT+9
PSOCAN	ASKCAN+2~
PSOCAN(	ASKCAN+5, ASKCAN+6, ASKCAN+7, PFS+2, PFS+3, ASKALL+4, SELECT+4, SELECT+6, SELECT+7, SELECT+8* , SELECT+9, SELECT+11, SELECT+13, SELECT2+8, SELECT4+1!, CHKCAN+1, CHKCAN+4
>> PSOCOMM	CHKCAN+4*
PSOCPUN	LASTEX+1!
PSODA	ASK+4, ASK+5, SPEED+2, SPEED1+3, SPEED1+5, SPEED1+6, SPEED1+7, SPEED1+11, SPEED1+12, SPEED1+13 , SPEED1+14, CANCEL+7, CANCEL+9, FILE+3, FILE+4, ERRBIL, EXIT+1!, LASTEX+1!, ASKCAN+1, ASKCAN+5 , ASKCAN+6, ASKCAN+7, PFS+2, PFS+3, ASKALL+1, ASKALL+2, ASKALL+3, ASKALL+4, SELECT+11
PSOFIL	ASKALL+1~, ASKALL+3*, ASKALL+4, ASKALL+5!
PSOFLAG	SPEED1+1*, LASTEX+1!
PSOI	SPEED+2, INVALD+1, LASTEX+1!
PSOIB	SPEED1+6, SPEED1+7, SPEED1+14, CANCEL+8, EXIT+1!, LASTEX+1!
PSOINDPT	CR*, LASTEX+2!
PSOJ	INVALD+1*, LASTEX+1!
>> PSOPAR	CR
>> PSOPAR7	CANCEL+7
PSOPARNT	EXIT+1!, LASTEX+1!
PSOPFSD	ASKALL+1~, ASKALL+5!
PSOPFSD(	ASKALL+2, ASKALL+3
PSOREF	SPEED1+10, SPEED1+12, SPEED1+13, SPEED1+14, CANCEL+8, CANCEL+9, FILE+3, FILE+4, FILE+5, EXIT+1! , LASTEX+1!, ASKCAN+2~, PFS+2, PFS+3
PSORELDT	SELECT+1~, SELECT+4, SELECT+12, SELECT+13, SELECT+14*
PSORSN	REASON+2*, CANCEL+8, CANCEL+9, LASTEX+1!
PSORXN	SPEED1+3*, SPEED1+5, CANCEL+1, CANCEL+8, CANCEL+9, CANCEL+17, FILE+3, FILE+4, FILE+5, EXIT+1! , LASTEX+1!, ASKCAN+6, ASKCAN+7, CHKCAN+4
>> PSOSLCT	SELECT2+7*, SELECT2+8
PSPEED	ASK!, SPEED+1*, CANCEL+1, CANCEL+2, LASTEX+1!
PSPEEDA	ASK!, CANCEL+2*, LASTEX+1!
PSPOUT	ASK!, SPEED+2, CANCEL+2*, LASTEX+1!
PSX	ASK*, ASK+1, ASK+2, ASK+3, ASK+4, SPEED+2, LASTEX+1!
PSZ	SPEED1+12*, EXIT+1!, LASTEX+1!
RX2	SELECT+10~, SELECT+11*, SELECT+12, SELECT+13, SELECT+14
X	SPEED+2, CANCEL+3!, CANCEL+7, EXIT+1!, LASTEX+1!, ASKCAN+3!, PFS+1, ASKCAN2+1, ASKALL+8, ASKALL+9 , ASKALL+10, ASKALL+11, SELECT+3!, SELECT2+5, SELECT3+1*, SELECT3+2, SELECT3+3
X(	CANCEL+8, CANCEL+9, ASKCAN+5, ASKCAN+6, ASKCAN+7, PFS+2, SELECT2+8*, SELECT4+1
X(""	SELECT4
XX	ASKCAN+3!, PFS+1
XX(	ASKCAN+7*, PFS+3
Y	ASK+6, REASON+2, SPEED+1, SPEED+2, CANCEL+1, CANCEL+2, CANCEL+16, EXIT+1!, LASTEX+1!, SELECT2+5 , SELECT2+6, SELECT2+7
Y(	CANCEL+17, FILE+3, FILE+4

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCPD

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items