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 | Found Entries | All

Print Page as PDF

Global: ^ADEPCD

Package: IHS Dental System

Global: ^ADEPCD

Information

FileMan FileNo	FileMan Filename	Package
9002007	DENTAL PROCEDURE	IHS Dental System

Description

Directly Accessed By Routines, Total: 27

Package	Total	Routines
IHS Dental System	23	ADEAPC ADEAPC1 ADEAPC2 ADEFIX01 ADEGRL ADEGRL2 ADEGRL33 ADEGRL4 ADEGRL6 ADEKNT1 ADELETE ADEPEND ADEPLV1 ADEPME ADEPQA ADEPQA1D ADEPSUB3 ADEPV1 ADEPX01 ADERFLG ADERVW1 ADEXER1 ADEXSU1
M Transfer	2	BMXADE1 BMXADE2
Health Summary Components	1	BHSDEN1
Local Area Programs	1	AZAXDPM1

Accessed By FileMan Db Calls, Total: 5

Package	Total	Routines
IHS Dental System	5	ADEAPC2 ADEGRL6 ADELETE ADEPQA2 ADERFLG

Pointer To FileMan Files, Total: 5

Package	Total	FileMan Files
Utility Tables	2	ADA CODE(#9999999.31)[#9002007.01(.01)] LOCATION(#9999999.06)[2]
IHS Dental System	1	DENTAL OPERATIVE SITE(#9002010.03)[#9002007.01(2)]
IHS Patient	1	PATIENT(#9000001)[.01]
Kernel	1	PROVIDER(#6)[3, 4]

Fields, Total: 18

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `MAR 15, 1989` HELP-PROMPT: `ENTER A VALID NAME` DESCRIPTION: FIELD WILL CONTAIN VALID NAME CROSS-REFERENCE: `9002007^B` 1)= S ^ADEPCD("B",$E(X,1,30),DA)="" 2)= K ^ADEPCD("B",$E(X,1,30),DA)
1	VISIT DATE	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 15, 1989` HELP-PROMPT: `ENTER A VALID VISIT DATE` DESCRIPTION: FIELD WILL CONTAIN VALID VISIT DATE CROSS-REFERENCE: `9002007^AC` 1)= S ^ADEPCD("AC",$E(X,1,30),DA)="" 2)= K ^ADEPCD("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9002007^AD^MUMPS` 1)= S ^ADEPCD("DATE",$P(^ADEPCD(DA,0),U),$E(X,1,30),DA)="" 2)= K ^ADEPCD("DATE",$P(^ADEPCD(DA,0),U),$E(X,1,30),DA)
2	LOCATION OF ENCOUNTER	0;3	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `NOV 17, 1988` HELP-PROMPT: `ENTER A VALID LOCATION OF ENCOUNTER` DESCRIPTION: FIELD WILL CONTAIN VALID LOCATION OF ENCOUNTER CROSS-REFERENCE: `9002007^ALOE` 1)= S ^ADEPCD("ALOE",$E(X,1,30),DA)="" 2)= K ^ADEPCD("ALOE",$E(X,1,30),DA)
3	REPORTING DENTIST	0;4	POINTER TO PROVIDER FILE (#6)	PROVIDER(#6) LAST EDITED: `MAR 03, 1992` HELP-PROMPT: `ENTER A VALID REPORTING DENTIST` DESCRIPTION: FIELD WILL CONTAIN VALID REPORTING DENTIST CROSS-REFERENCE: `9002007^ARPD` 1)= S ^ADEPCD("ARPD",$E(X,1,30),DA)="" 2)= K ^ADEPCD("ARPD",$E(X,1,30),DA)
4	AUXILIARY	0;5	POINTER TO PROVIDER FILE (#6)	PROVIDER(#6) HELP-PROMPT: `ENTER A VALID AUXILIARY` DESCRIPTION: FIELD WILL CONTAIN VALID AUXILIARY
5	EXTRACT FLAG	0;6	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 20, 1989` HELP-PROMPT: `ENTER A VALID EXTRACT FLAG` DESCRIPTION: FIELD WILL CONTAIN VALID EXTRACT FLAG CROSS-REFERENCE: `9002007^AI` 1)= S ^ADEPCD("AI",$E(X,1,30),DA)="" 2)= K ^ADEPCD("AI",$E(X,1,30),DA)
6	HEALTH SUMMARY NOTE	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X D:$D(X) ^AUPNCASE` LAST EDITED: `MAY 03, 1993` HELP-PROMPT: `ANSWER MUST BE 2-80 CHARACTERS IN LENGTH` DESCRIPTION: FIELD WILL CONTAIN VALID HEALTH SUMMARY NOTE NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
7	TOTAL FEE	0;8	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X` LAST EDITED: `NOV 17, 1988` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999, 2 Decimal Digits` DESCRIPTION: FIELD WILL CONTAIN VALID TOTAL FEE
8	DELIVERY MODE	0;9	SET	'c' FOR CONTRACT; 'd' FOR DIRECT; LAST EDITED: `FEB 15, 1989` HELP-PROMPT: `ENTER A VALID DELIVERY MODE` DESCRIPTION: FIELD WILL CONTAIN VALID DELIVERY MODE
100	ADA CODE	ADA;0	POINTER Multiple #9002007.01	9002007.01
200	NARRATIVE NOTE	NAR;0	WORD-PROCESSING #9002007.02
301	VSITDFN	PCC;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1) X` LAST EDITED: `OCT 06, 1993` HELP-PROMPT: `Answer must be 1-12 characters in length.`
302	VPOVDFN	PCC;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1) X` LAST EDITED: `OCT 06, 1993` HELP-PROMPT: `Answer must be 1-12 characters in length.`
303	VPRVDFN	PCC;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1) X` LAST EDITED: `OCT 06, 1993` HELP-PROMPT: `Answer must be 1-12 characters in length.`
304	VDENDFN	PCC;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>200!($L(X)<1) X` LAST EDITED: `OCT 06, 1993` HELP-PROMPT: `Answer must be 1-200 characters in length.`
401	VDENOVER1	PCC1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>239!($L(X)<1) X` LAST EDITED: `OCT 06, 1993` HELP-PROMPT: `Answer must be 1-239 characters in length.`
501	VDENOVER2	PCC2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>239!($L(X)<1) X` LAST EDITED: `OCT 06, 1993` HELP-PROMPT: `Answer must be 1-239 characters in length.`
1000	CHART#		COMPUTED	MUMPS CODE: `S X=$S('($D(DUZ(2))#2):"",'DUZ(2):"",'$D(^AUPNPAT($P(^ADEPCD(D0,0),U),41,DUZ(2),0)):"",1:$P(^AUPNPAT($P(^ADEPCD(D0,0),U),41,DUZ(2),0),U,2))` ALGORITHM: `S X=$S('($D(DUZ(2))#2):"",'DUZ(2):"",'$D(^AUPNPAT($P(^ADEPCD(D0,0),U),41,DUZ(2),0)):"",1:$P(^AUPNPAT($P(^ADEPCD(D0,0),U),41,DUZ(2),0),U,2))` LAST EDITED: `MAR 29, 1989`

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