Routine: PSOERPC3

Information

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

Package	Total	Call Graph
Outpatient Pharmacy	4	REF^PSOERPC0 WRAP^PSOERUT DIRE^PSOERXX1 PAUSE^PSOSPMU1
VA FileMan	4	UPDATE^DIE $$GET1^DIQ ^DIR EN^DIWE
List Manager	1	FULL^VALM1

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSO ERX ALL PATIENTS CR DEFAULT TEXT EDIT PSOERCR0
Kernel	1	^ORD(101

Entry Points

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.

External References

Name	Field # of Occurrence
UPDATE^DIE	CRT+82
$$GET1^DIQ	CRT+7, CRT+12, CRT+14, CRT+16, CRT+21, CRT+24, CRT+28, CRT+37, CRT+38, CRT+40 , CRT+41, CRT+42, CRT+44, CRT+45, CRT+48, CRT+51, CRT+55, CRT+62, CRT+63, CRT+84 , CHKDIVRSN+8
^DIR	CRT+22, CRT+49
EN^DIWE	CRT+66
REF^PSOERPC0	CRT+4, CRT+22, CRT+31, CRT+73, CRT+74, CRT+86
WRAP^PSOERUT	CRT+18
DIRE^PSOERXX1	CRT+5
PAUSE^PSOSPMU1	CRT+69, CRT+73, CRT+83, CRT+84
FULL^VALM1	CRT+3

Interaction Calls

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
Routine Call	DIE Line Location: CRT+82
Routine Call	DIR Line Location: CRT+22 CRT+49

FileNo	Call Tags
^PS(52.45 - [#52.45]	GET1^DIQ
52.4521	GET1^DIQ
^PS(59 - [#59]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.45 - [#52.45]	CRT+11, CRT+36, CHKDIVRSN+6, CHKDIVRSN+7
^TMP("PSOERPC3"	CRT+57!, CRT+58*, CRT+67, CRT+68, CRT+69, CRT+71, CRT+75, CRT+85!
^XUSEC("PSDMGR"	CRT+4

Label References

Name	Line Occurrences
$$CHKDIVRSN	CRT+27, CRT+54

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CODE	CRT+1~, CRT+10, CRT+11, CRT+12, CRT+13, CRT+14, CRT+16, CRT+36*, CRT+37, CRT+38 , CRT+40, CRT+41, CRT+42, CRT+44, CRT+45
CODETYPE	CRT+1~, CRT+35*, CRT+36
DESC	CRT+1~, CRT+16!
DESC(	CRT+17
DESC(1	CRT+17
>> DIC	CRT+61*
DIERR	CRT+82!, CRT+83
DIERR("DIERR"	CRT+83
DIR	CRT+1~, CRT+10!, CRT+32!
DIR("?"	CRT+10, CRT+15, CRT+19, CRT+34, CRT+42*
DIR("A"	CRT+21, CRT+48
DIR("B"	CRT+21, CRT+48
DIR("L"	CRT+32, CRT+33, CRT+41, CRT+45, CRT+47*
DIR(0	CRT+10, CRT+14, CRT+32, CRT+38
>> DIROUT	CRT+22, CRT+49
>> DIRUT	CRT+22, CRT+49
DIVREATXT	CHKDIVRSN~, CHKDIVRSN+9
DIWESUB	CRT+2~, CRT+65*
DIWETXT	CRT+2~, CRT+62, CRT+63, CRT+64*
>> DUOUT	CRT+66
DUZ	CRT+4
DWLW	CRT+2~, CRT+62*
DWPK	CRT+2~, CRT+62*
EXTRCODE	CRT+1~, CRT+24*, CRT+31, CRT+33, CRT+35, CRT+40, CRT+41, CRT+42, CRT+44, CRT+45 , CRT+47, CRT+63, CRT+78
EXTSCODE	CRT+1~, CRT+23, CRT+51
FDARSNTXT	CRT+2~, CRT+76!
FDARSNTXT(	CRT+79, CRT+80, CRT+81*
FINISH	CRT+1~, CRT+60, CRT+67, CRT+69
HELP	CRT+1~, CRT+17*, CRT+18
HLP	CRT+1~, CRT+10, CRT+15, CRT+19, CRT+33, CRT+42*
I	CRT+1~, CRT+17, CRT+19, CRT+58, CRT+60, CRT+67, CRT+68, CRT+70, CRT+71, CRT+75
IENS	CRT+2~, CRT+9, CRT+78, CRT+79, CRT+80, CHKDIVRSN+4~, CHKDIVRSN+7*, CHKDIVRSN+8
INDEX	CRT+1~, CRT+10!, CRT+32!
INDEX(	CRT+13, CRT+23, CRT+24, CRT+37, CRT+50, CRT+51
>> IOINHI	CRT+5, CRT+7, CRT+69, CRT+73, CRT+83, CRT+84
>> IOINORM	CRT+5, CRT+7, CRT+69, CRT+73, CRT+83, CRT+84
>> LINE	CRT+33, CRT+41, CRT+45, CRT+47
NPLEN	CRT+2~, CRT+61, CRT+69
PSOQUIT	CRT+1~, CRT+30, CRT+31, CRT+49, CRT+59, CRT+60, CRT+66, CRT+74
>> PSOSITE	CRT+7, CRT+79, CRT+84, CHKDIVRSN+5, CHKDIVRSN+6, CHKDIVRSN+7
REACODE	CRT+1~, CRT+21, CRT+23, CRT+24*, CRT+27, CRT+28, CRT+62, CRT+78
REASCODE	CRT+1~, CRT+23, CRT+48, CRT+50, CRT+51, CRT+54, CRT+55, CRT+63, CRT+78, CRT+81
REASTXT	CRT+2~, CRT+75!
REASTXT(	CRT+75*
REATXT	CRT+1~, CRT+23!, CRT+25, CRT+27, CRT+50!, CRT+52, CRT+54
REATXT(	CRT+58, CRT+70, CRT+71
RSNIEN	CHKDIVRSN~, CHKDIVRSN+5, CHKDIVRSN+6, CHKDIVRSN+7
RSONCODE	CRT+1~, CRT+12*, CRT+13, CRT+14, CRT+15
TMPCHNGE	CRT+2~, CRT+59, CRT+70, CRT+71*, CRT+73, CRT+77
>> VALMBCK	CRT+3*
WRPHELP	CRT+1~, CRT+18!
WRPHELP(	CRT+19
X	CRT+2~, CRT+16, CRT+28, CRT+55, CRT+68, CRT+69, CRT+70, CHKDIVRSN+4~, CHKDIVRSN+8*
>> Y	CRT+23, CRT+24, CRT+50, CRT+51

Customize PDF page

Package: Outpatient Pharmacy