Routine: BSDU1

Information

BSDU1 ; IHS/ANMC/LJF - IHS UTILITY CALLS-PAT INFO ;

Source file <BSDU1.m>

Package	Total	Caller Graph
IHS Changes To Scheduling	5	BSDAL0 BSDAL2 BSDAM BSDPCP BSDU1
IHS Changes To ADT	4	BDGADD1 BDGPI BDGPI1 BDGPV
Scheduling	1	SDPPTEM

Name	Comments	DBIA/ICR reference
PCLINE(PAT)	;PEP; returns display line of PCP info
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
CMS(PAT)	;EP; displays patient's CMS register memberships, if register allows it
PCP(PAT,ARRAY)	;PEP; -- returns one line of PCP info ; PAT = patient internal entry number ; ARRAY sent by reference and must be set to a string ; Example of call: S ARRAY="ABC" D PCP^BSDU1(PAT,.ARRAY)
SP(N)	; -- SUBRTN to pad N number of spaces
PCPDISP(PAT,BDGY)	;PEP; returns array for multiple line display of PCP info ; Call using D PCPDISP^BSDU1(DFN,.Y) then display Y array
TEAM(PRV)	; returns team ien and name for provider PRV

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	CMS+3
^BSDPCT("AB"	TEAM+2
^DD(9000001	PCP+20
^DIC(16 - [#16]	PCP+20

Name	Field # of Occurrence
PCP^BSDU1	PCPDISP+3
EN^DDIOL	CMS+13
$$GET1^DIQ	PCP+18, PCP+19, PCP+25, PCP+26, PCP+27, PCP+30, PCP+31, PCP+36, PCP+37, PCP+38 , PCP+41, PCP+42, PCP+45, PCP+46, PCP+49, PCP+50, PCP+51, PCP+52, PCP+53, PCP+54 , TEAM+3, CMS+4, CMS+10
$$REPEAT^XLFSTR	PAD+2

Name	Field # of Occurrence
ARRAY	PCP~, PCP+23, PCP+28, PCP+34, PCP+39, PCP+47, PCP+55
BDGX	PCPDISP+2~, PCPDISP+3*
BDGX(1	PCPDISP+5
BDGX(2	PCPDISP+8, PCPDISP+10
BDGX(3	PCPDISP+13, PCPDISP+15, PCPDISP+16
BDGY	PCPDISP~
BDGY(1	PCPDISP+6*
BDGY(2	PCPDISP+11*
BDGY(3	PCPDISP+17*
BSDLN	CMS+1~, CMS+13
BSDLN(	CMS+7, CMS+8, CMS+10*
BSDX	PCLINE+1~, PCLINE+2*
BSDX(1	PCLINE+4
BSDX(2	PCLINE+3, PCLINE+5
CNT	CMS+1~, CMS+5*, CMS+7, CMS+8, CMS+10
D	PAD~, PAD+2
FIRST	CMS+1~, CMS+2, CMS+6, CMS+8, CMS+11
L	PAD~, PAD+2
LINE	PCP+17~, PCP+18, PCP+22, PCP+23, PCP+25, PCP+26, PCP+27, PCP+28, PCP+30, PCP+33* , PCP+34, PCP+36, PCP+37, PCP+38, PCP+39, PCP+41, PCP+44, PCP+45, PCP+46, PCP+47 , PCP+49, PCP+50, PCP+51, PCP+52, PCP+53, PCP+54, PCP+55, PCPDISP+4, PCPDISP+5, PCPDISP+6 , PCPDISP+9, PCPDISP+10, PCPDISP+11, PCPDISP+14, PCPDISP+15, PCPDISP+16, PCPDISP+17
N	SP~, SP+1
PAT	PCP~, PCP+18, PCP+19, PCP+25, PCP+26, PCP+27, PCP+30, PCP+31, PCP+36, PCP+37 , PCP+38, PCP+41, PCP+42, PCP+45, PCP+46, PCP+49, PCP+50, PCP+51, PCP+52, PCP+53 , PCP+54, PCLINE~, PCLINE+2, PCPDISP~, PCPDISP+3, CMS~, CMS+3
PCP	PCP+17~, PCP+19, PCP+20, PCP+21, PCP+22, PCP+31, PCP+32, PCP+33, PCP+42, PCP+43 , PCP+44
PRV	TEAM~, TEAM+1, TEAM+2
REG	CMS+1~, CMS+2, CMS+3, CMS+4, CMS+10
>> TEAM	PCP+21, PCP+22, PCP+32, PCP+33, PCP+43*, PCP+44
U	PCP+20, PCP+22, PCP+33, PCP+44, TEAM+3
X	TEAM+2~, TEAM+3, PCLINE+1~, PCLINE+3, PCLINE+4, PCLINE+5, PCLINE+6