Routine: PSORXED

Information

PSORXED ;IHS/DSD/JCM - edit rx utility ;Dec 03, 2020@10:39:54

Source file <PSORXED.m>

Name	Comments	DBIA/ICR reference
START	;this entry point is no longer used.
END
INIT
LKUP	; this line of code is no longer used S PSONUM="RX",PSONUM("A")="EDIT",PSOQFLG=0 D EN1^PSONUM I PSOQFLG!($Q(PSOLIST)']"") S PSORXED("QFLG")=1
PARSE
PROCESS
L1
PROCESSX
CHECK
CHECKX
LOG
LOG1	;
LOGX
POST	; D NEXT D:$G(^PSRX(PSORXED("IRXN"),"IB"))]"" COPAY K PSODAYS,PSORXST
COPAY
RXST
COPAYX
CPCK	;update COPAY
CPCK1
NEXT
EOJ
FILL	;
FILLX
LBL	;
LBLCHK	;
ASKL	;
SETRP

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"Rx Number is Locked by Another User!",! Line Location: CHECK+0
Function Call: WRITE	Prompt: !,$C(7),"This drug has been inactivated. ",! Line Location: CHECK+2
Function Call: WRITE	Prompt: !!,$C(7),"Discontinued prescriptions cannot be edited.",! Line Location: CHECK+6
Function Call: WRITE	Prompt: !!,$C(7),"Non-verified prescriptions cannot be edited.",! Line Location: CHECK+7
Function Call: WRITE	Prompt: !,$C(7),"Patient Status field for this Rx has been changed from a ",$S(PSORXST=0:"COPAYMENT ELIGIBLE",PSORXST=1:"COPAYMENT EXEMPT",1:"") Line Location: RXST+1
Function Call: WRITE	Prompt: !,"patient status." Line Location: RXST+2
Function Call: WRITE	Prompt: " The copay status for this Rx will be automatically adjusted." Line Location: RXST+3
Function Call: WRITE	Prompt: !,"If action needs to be taken to adjust charges you MUST use the" Line Location: RXST+4
Function Call: WRITE	Prompt: !,"Reset Copay Status/Cancel Charges option." Line Location: RXST+5
Function Call: WRITE	Prompt: ! Line Location: RXST+6
Function Call: WRITE	Prompt: ! Line Location: ASKL+1

FileNo	Call Tags
^PSRX - [#52]	Classic Fileman Calls
52.3	GET1^DIQ