Routine: PSOHELP3

Information

PSOHELP3 ;BHAM ISC/SAB - outpatient utility routine #4 ;2/17/93 18:00:36

Name	Comments	DBIA/ICR reference
XREF	;code to create 'APD' xref on Drug Interaction file (#56)
EX
SEC
DRUG	;selects drug and updates Rx file with cost (pso720)
EN
OUT
POST	;post install entry point. builds new "ADL" xref for file 52 pso720
EN1
REFILL	;
PARTIAL	;
INSCHK(PSOINS)	;CHECK PATIENT INSTRUCTIONS/OTHER PATIENT INSTRUCTIONS ;*422
DELINS

Name	Line Occurrences
Function Call: WRITE	Prompt: "Building 'APD' X-Ref." Line Location: XREF+1
Function Call: WRITE	Prompt: !!,"This option will update the drug cost on all fills in the PRESCRIPTION" Line Location: DRUG+1
Function Call: WRITE	Prompt: !,"file (#52) based on the selected date range and the current cost in the" Line Location: DRUG+2
Function Call: WRITE	Prompt: !,"DRUG file (#50).",! Line Location: DRUG+3
Function Call: WRITE	Prompt: ! Line Location: DRUG+8
Function Call: WRITE	Prompt: !!,"You can only go back One Year plus 120 days." Line Location: DRUG+11
Function Call: WRITE	Prompt: !!,"Rxs Cost Update Queued",! Line Location: DRUG+24
Function Call: WRITE	Prompt: !,"DEF: "_DEF Line Location: EN1+0
Function Call: WRITE	Prompt: $C(7),!!?5,"OTHER PATIENT INSTRUCTIONS REQUIRED",! Line Location: INSCHK+3
Function Call: WRITE	Prompt: $C(7),!!?5,"PATIENT INSTRUCTIONS REQUIRED",! Line Location: INSCHK+4
Function Call: WRITE	Prompt: $C(7),!!?5,"ANY DATA ENTERED FOR "_$S($G(PSODELINS)=1:"OTHER PATIENT INSTRUCTIONS",1:"PATIENT INSTRUCTIONS") Line Location: DELINS+3
Function Call: WRITE	Prompt: $C(7),!?5,"WILL ALSO BE DELETED.",! Line Location: DELINS+4