Routine: PSOBAI

Package	Total	Call Graph
Registration	4	UPDATE^DGADDUTL EN^DGREGAED $$BADADR^DGUTL3 6^VADPT
VA Fileman	2	^DIE ^DIR
Outpatient Pharmacy	1	^PSOLSET

Package	Total	Caller Graph
Outpatient Pharmacy	14	PSOBAIR2 PSOBAIRP PSODISPS PSOHLDS1 PSOLBL4 PSOLBLN PSOLLL1 PSOPAT PSOPMP0 PSORX1 PSORXVW PSOSULBL PSOSULOG PSOTPCLP
CMOP	1	PSXMISC1

Entry Points

Name	Comments	DBIA/ICR reference
PAUSE	;
CHKTEMP(PSODFN)	; see if active temporary address
WARN1	;
UPDATE	;
ULK	;
CHKRX(PSORX)	;CHECK ADDRESS BY RX	ICR #4910 Status: Active Usage: Controlled Subscription
MSG	;
CHKADDR(PSODFN,WARN,UPDATE)	; CHECK ADDRESS BY PATIENT

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?8,"WARNING: The patient address is indicated as a bad" Line Location: WARN1+1
Function Call: WRITE	Prompt: !,?17,"address (",$S(PSOBADR=1:"UNDELIVERABLE",PSOBADR=2:"HOMELESS",1:"OTHER"),")." Line Location: WARN1+2
Function Call: WRITE	Prompt: !,?17,"* Temporary address is active *" Line Location: WARN1+3
Function Call: WRITE	Prompt: !,?17,"Medication will not be mailed to" Line Location: WARN1+4
Function Call: WRITE	Prompt: !,?17,"the patient until the address has been" Line Location: WARN1+5
Function Call: WRITE	Prompt: !,?17,"corrected.",! Line Location: WARN1+6
Function Call: WRITE	Prompt: ! Line Location: UPDATE+16
Function Call: WRITE	Prompt: ! Line Location: UPDATE+17
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Routine Call	DIE Line Location: UPDATE+17
Routine Call	DIR Line Location: UPDATE+5 UPDATE+10 PAUSE+1

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DILOCKTM"	UPDATE+7
^DPT - [#2]	UPDATE+7, ULK+1
^PSRX - [#52]	CHKRX+6
^XUSEC("PSO ADDRESS UPDATE"	UPDATE+3

Name	Line Occurrences
$$CHKTEMP	CHKADDR+9, CHKRX+8
MSG	UPDATE+7
PAUSE	CHKADDR+13, UPDATE+3, UPDATE+7, UPDATE+19
ULK	UPDATE+11, UPDATE+18, UPDATE+19
UPDATE	CHKADDR+12
WARN1	CHKADDR+11

Name	Field # of Occurrence
DA	UPDATE+1~, UPDATE+17*
DFN	CHKTEMP+2~, CHKTEMP+3*
>> DIE	UPDATE+17*
DIR	UPDATE+4!, UPDATE+5!, UPDATE+8!, PAUSE+1!
DIR("A"	UPDATE+4, UPDATE+9, PAUSE+1*
DIR("B"	UPDATE+4, UPDATE+10
DIR(0	UPDATE+4, UPDATE+8, PAUSE+1*
>> DIRUT	UPDATE+11
>> DR	UPDATE+17*
DUZ	UPDATE+3
PSOBADR	CHKADDR+5~, CHKADDR+7, CHKADDR+8, CHKRX+3~, CHKRX+4, CHKRX+7, CHKRX+8, CHKRX+9, CHKRX+10, WARN1+2
PSODFN	CHKADDR~, CHKADDR+6, CHKADDR+7, CHKADDR+9, CHKRX+3~, CHKRX+6*, CHKRX+7, CHKRX+8, CHKTEMP~, CHKTEMP+3 , UPDATE+7, UPDATE+16, UPDATE+17, UPDATE+19, ULK+1
PSOFLG	UPDATE+15~, UPDATE+16
PSOFLG(1	UPDATE+16*
>> PSOPAR	UPDATE+2, UPDATE+3
PSORX	CHKRX~, CHKRX+5, CHKRX+6
PSOSEL	UPDATE+1~, UPDATE+12*, UPDATE+13, UPDATE+18, UPDATE+19
PSOTEMP	CHKADDR+5~, CHKADDR+9, CHKRX+3~, CHKRX+8, CHKRX+9, WARN1+3, CHKTEMP+3, CHKTEMP+4, CHKTEMP+5
UPDATE	CHKADDR~, CHKADDR+12
>> VALMSG	MSG+1*
VAPA	CHKTEMP+2~
VAPA(9	CHKTEMP+4
WARN	CHKADDR~, CHKADDR+10
>> Y	UPDATE+6, UPDATE+12