Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^ADEFOL

Package: IHS Dental System

Global: ^ADEFOL

Information

FileMan FileNo	FileMan Filename	Package
9002003.2	DENTAL FOLLOWUP	IHS Dental System

Description

Directly Accessed By Routines, Total: 9

Package	Total	Routines
IHS Dental System	7	ADECLET ADEGRL6 ADEMBA ADEMBD ADEMDEL ADEMNG ADERVW2
Health Summary Components	1	BHSDEN2
Local Area Programs	1	AZAXDPM1

Accessed By FileMan Db Calls, Total: 6

Package	Total	Routines
IHS Dental System	6	ADEMDEL ADEMNG1 ADEMNG6 ADEMP ADEMPLET ADEMPRT

Pointer To FileMan Files, Total: 3

Package	Total	FileMan Files
IHS Dental System	1	DENTAL FOLLOWUP CATEGORY(#9002003.1)[1]
IHS Patient	1	PATIENT(#9000001)[.01]
Kernel	1	PROVIDER(#6)[6]

Fields, Total: 12

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) HELP-PROMPT: `ENTER A VALID PATIENT NAME` DESCRIPTION: FIELD WILL CONTAIN VALID NAME CROSS-REFERENCE: `9002003.2^B` 1)= S ^ADEFOL("B",$E(X,1,30),DA)="" 2)= K ^ADEFOL("B",$E(X,1,30),DA)
1	TYPE	0;2	POINTER TO DENTAL FOLLOWUP CATEGORY FILE (#9002003.1)	DENTAL FOLLOWUP CATEGORY(#9002003.1) LAST EDITED: `MAR 14, 1989` HELP-PROMPT: `ENTER A VALID TYPE` DESCRIPTION: FIELD WILL CONTAIN VALID TYPE CROSS-REFERENCE: `9002003.2^AC^MUMPS` 1)= S ^ADEFOL("TYPE",$P(^ADEFOL(DA,0),U),$P(^ADETYP(X,0),U,4),X,DA)="" 2)= K ^ADEFOL("TYPE",$P(^ADEFOL(DA,0),U),$P(^ADETYP(X,0),U,4),X) CROSS-REFERENCE: `^^TRIGGER^9002003.2^7` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ADEFOL(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9002003.2,1,1,4,1.1) X ^DD(9002003.2,1,1,4,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ADETYP(+D0,0)) D0=-1 S Y(102)=$S($D(^ADETYP(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,4),X=X S X=X S D0=I(0,0) 1.4)= S DIH=$S($D(^ADEFOL(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99)) S DIH=DIH_U" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(0)=$P(DIH,U,1,7)_U_DIV_$S(%]"":U_%,1:""),DIH=9002003.2,DIG=7 D ^DICR:$N(^DD(DIH,DIG, 1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ADEFOL(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" X ^DD(9002003.2,1,1,4,2.4) 2.4)= S DIH=$S($D(^ADEFOL(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99)) S DIH=DIH_U" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(0)=$P(DIH,U,1,7)_U_DIV_$S(%]"":U_%,1:""),DIH=9002003.2,DIG=7 D ^DICR:$N(^DD(DIH,DIG, 1,0))>0 CREATE VALUE)= TYPE:INTERNAL(TYPE) DELETE VALUE)= @ FIELD)= CAT
2	DATE ADDED	0;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X K %DT` LAST EDITED: `MAR 06, 1989` HELP-PROMPT: `ENTER A VALID DATE ADDED` DESCRIPTION: FIELD WILL CONTAIN VALID DATE ADDED
3	ACTION DATE	0;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 17, 1990` HELP-PROMPT: `ENTER A VALID ACTION DATE` DESCRIPTION: FIELD WILL CONTAIN VALID ACTION DATE NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
4	PRIORITY	0;5	SET	'h' FOR HIGH; 'r' FOR ROUTINE; 'u' FOR URGENT; LAST EDITED: `JUN 15, 1989` HELP-PROMPT: `ENTER A VALID PRIORITY` DESCRIPTION: FIELD WILL CONTAIN VALID PRIORITY
5	ACTION TAKEN	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAR 13, 1989` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` DESCRIPTION: FIELD WILL CONTAIN VALID ACTION TAKEN
6	PROVIDER	0;7	POINTER TO PROVIDER FILE (#6)	PROVIDER(#6) HELP-PROMPT: `ENTER A VALID PROVIDER` DESCRIPTION: FIELD WILL CONTAIN VALID PROVIDER
7	CATEGORY	0;8	SET	'rf' FOR REFERRAL; 'rc' FOR RECALL; 'w' FOR WAITING; LAST EDITED: `MAR 06, 1990` HELP-PROMPT: `ENTER A VALID CATEGORY` DESCRIPTION: FIELD WILL CONTAIN VALID CATEGORY NOTES: `TRIGGERED by the TYPE field of the DENTAL FOLLOWUP File`
8	BROKEN APPTS (PAST YEAR)		COMPUTED	MUMPS CODE: `S X=365 D ^ADEMBA` 9.2 = S Y(9002003.2,8,80)=$S($D(D0):D0,1:""),Y(9002003.2,8,1)=$S($D(^ADEFOL(D0,0)):^(0),1:""),D0=$P(Y(9002003.2,8,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1 9.3 = X ^DD(9002003.2,8,9.2) S Y(9002003.2,8,180)=$S($D(D0):D0,1:""),D0=D0 S:'$D(^ADEPAT(+D0,0)) D0=-1 S Y(9002003.2,8,280)=$S($D(D0):D0,1:"") ALGORITHM: `ADEBA(365)` LAST EDITED: `MAR 02, 1989`
9	AGE		COMPUTED	MUMPS CODE: `X ^DD(9002003.2,9,9.2) X $P(^DD(9000001,1102.99,0),U,5,99) S Y(9002003.2,9,101)=X S X=Y(9002003.2,9,101) S D0=Y(9002003.2,9,80)` 9.2 = S Y(9002003.2,9,80)=$S($D(D0):D0,1:""),Y(9002003.2,9,1)=$S($D(^ADEFOL(D0,0)):^(0),1:""),D0=$P(Y(9002003.2,9,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1 ALGORITHM: `NAME:AGE`
10	PHONE		COMPUTED	MUMPS CODE: `X ^DD(9002003.2,10,9.3) S D0=$P(Y(9002003.2,10,101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(9002003.2,10,201)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(9002003.2,10,201),U,1) S D0=Y(9002003.2,10,80)` 9.2 = S Y(9002003.2,10,80)=$S($D(D0):D0,1:""),Y(9002003.2,10,1)=$S($D(^ADEFOL(D0,0)):^(0),1:""),D0=$P(Y(9002003.2,10,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1 9.3 = X ^DD(9002003.2,10,9.2) S Y(9002003.2,10,180)=$S($D(D0):D0,1:""),Y(9002003.2,10,101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") ALGORITHM: `NAME:NAME:PHONE`
100	HRN		COMPUTED	MUMPS CODE: `X ^DD(9002003.2,100,9.3) S X=$S('$D(DUZ(2)):"",$D(^AUPNPAT(D0,41,DUZ(2),0)):$P(^(0),U,2),1:"") S X=X S D0=Y(9002003.2,100,80)` 9.2 = S Y(9002003.2,100,80)=$S($D(D0):D0,1:""),Y(9002003.2,100,1)=$S($D(^ADEFOL(D0,0)):^(0),1:""),D0=$P(Y(9002003.2,100,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1 9.3 = X ^DD(9002003.2,100,9.2) S Y(9002003.2,100,101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") S X=$S('$D(^DPT(+$P(Y(9002003.2,100,101),U,1),0)):"",1:$P(^(0),U,1)) 9.4 = X ^DD(9002003.2,100,9.3) S X=$S('$D(^DPT(+$P(Y(9002003.2,100,101),U,1),0)):"",1:$P(^(0),U,1)) ALGORITHM: `AFUN CHART(#.01)`

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | All