Routine: PSOERPC3

Information

PSOERPC3 ;BIRM/MFR - All Patients (Patient Centric) Hidden Action - Supporting APIs 2 ;08/12/24

Name	Comments	DBIA/ICR reference
CRT	; Entry point of PSO ERX ALL PATIENTS CR DEFAULT TEXT EDIT action protocol
CHKDIVRSN(RSNIEN,DIVREATXT)	;check if the division set a specific change request reason in field 21. Otherwise, display the default text in field 20.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$G(IOINHI),"You do not have the appropriate key (PSDMGR) to access this option.",!,$G(IOINORM) Line Location: CRT+5
Function Call: WRITE	Prompt: !!,$G(IOINHI),"Updates will apply for the ",$$GET1^DIQ(59,PSOSITE,.01)," division only.",$G(IOINORM) Line Location: CRT+7
Function Call: WRITE	Prompt: !,DIWESUB,":" Line Location: CRT+65
Function Call: WRITE	Prompt: !!,$G(IOINHI),"The maximum length for this note is 260 characters.",$G(IOINORM),$C(7) Line Location: CRT+69
Function Call: WRITE	Prompt: !!,$G(IOINHI),"Nothings change. No Action Taken.",$G(IOINORM),$C(7) Line Location: CRT+73
Function Call: WRITE	Prompt: !!,$G(IOINHI),"Error while updating the data: "_$G(DIERR("DIERR",1,"TEXT",1)),$G(IOINORM),$C(7) Line Location: CRT+83
Function Call: WRITE	Prompt: !!,$G(IOINHI),"Update successful for "_$$GET1^DIQ(59,PSOSITE,.01)," division.",$G(IOINORM),$C(7) Line Location: CRT+84