Routine: BDPIQ

Information

BDPIQ ; IHS/CMI/TMJ - Inquire to a Specific Patient Record ;

Source file <BDPIQ.m>

Package	Total	Call Graph
IHS Designated Provider	3	PAUSE^BDP DIC^BDPFMC PPEP^BDPLMDSP
IHS VA Utilities	2	^XBFMK EN^XBVK
IHS Patient	1	$$DOD^AUPNPAT
VA Fileman	1	^DIR

Name	Comments	DBIA/ICR reference
PROVDISP	;Display if Patient has existing Designated Providers
PATIENT2	; ASK FOR PATIENT UNTIL USER SELECTS OR QUITS
NEXT	;2ND $O

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This patient is deceased." Line Location: PATIENT2+6
Function Call: WRITE	Prompt: ! Line Location: PATIENT2+8
Function Call: WRITE	Prompt: ?10,"CURRENT DESIGNATED PROVIDERS - BY PROVIDER CATEGORY TYPE",! Line Location: PROVDISP+1
Function Call: WRITE	Prompt: !,?15,"Assigned to Patient: " Line Location: PROVDISP+2
Function Call: WRITE	Prompt: ?35,$P($G(^DPT(BDPDFN,0)),U) Line Location: PROVDISP+3
Function Call: WRITE	Prompt: !,?10,"CATEGORY TYPE",?46,"CURRENT PROVIDER ASSIGNED",! Line Location: PROVDISP+4
Function Call: WRITE	Prompt: !,?20,"--NO EXISTING DESIGNATED PROVIDERS--",! Line Location: PROVDISP+5
Function Call: WRITE	Prompt: !,?5,BDPCOUNT,?10,$E(BDPTYPNM,1,30),?50,$E(BDPCPRVP,1,35) Line Location: NEXT+10
Routine Call	DIR Line Location: PATIENT2+7

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^BDPRECN - [#90360.1]	NEXT+7
^BDPRECN("AA"	PROVDISP+5, PROVDISP+9, NEXT+2
^BDPTCAT - [#90360.3]	NEXT+6
^DPT - [#2]	PATIENT2+3, PROVDISP+3, NEXT+5
^VA(200 - [#200]	NEXT+9

Name	Line Occurrences
NEXT	PROVDISP+9

Name	Field # of Occurrence
>> BDPCOUNT	PROVDISP+8, PROVDISP+9, NEXT+10
>> BDPCPRV	NEXT+7*, NEXT+8, NEXT+9
>> BDPCPRVP	NEXT+8, NEXT+9, NEXT+10
>> BDPDETL	PATIENT2+11
BDPDFN	PATIENT2+3*, PATIENT2+5!, PATIENT2+11, PROVDISP+3, PROVDISP+5, PROVDISP+9, NEXT+2, NEXT+5
>> BDPPTNAM	NEXT+5*
>> BDPQ	PATIENT2+4, PROVDISP+5, PROVDISP+6*
>> BDPREC("PAT N	AME" , PATIENT2+3*, PATIENT2+5!
>> BDPRIEN	NEXT+1, NEXT+2, NEXT+4, NEXT+7
>> BDPTYPE	PROVDISP+7, PROVDISP+9, NEXT+2, NEXT+3, NEXT+6
>> BDPTYPNM	NEXT+6*, NEXT+10
DA	PATIENT2+7!
DIC	PATIENT2+1*!
DIC(0	PATIENT2+1*
DIR	PATIENT2+7!
DIR("A"	PATIENT2+7*
DIR("B"	PATIENT2+7*
DIR(0	PATIENT2+7*
>> I	NEXT+11*
U	PATIENT2+3, PROVDISP+3, NEXT+5, NEXT+6, NEXT+7, NEXT+9
>> Y	PATIENT2+2, PATIENT2+3, PATIENT2+5