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 | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | All

Print Page as PDF

Global: ^AUTTSU

Package: Utility Tables

Global: ^AUTTSU

Information

FileMan FileNo	FileMan Filename	Package
9999999.22	SERVICE UNIT	Utility Tables

Description

This file contains the designated Service Units and their associated Two Digit codes, plus a pointer to the Area to which it is attached. Changes to this data dictionary should be coordinated thru the IHS DBA. This file reflects entries in the IHS Standard Code Book, section VIII-B Area - Service Unit. Local additions or modifications should not be made. Monthly updates (if required) are provided by the IHS DBA thru the patch module.

Directly Accessed By Routines, Total: 98

Package	Total	Routines
IHS GPRA Information System	43	BGP0ASL BGP0ASL1 BGP0DGPA BGP0DHEA BGP1ASL BGP1ASL1 BGP1DGPA BGP1DHEA BGP2ASL BGP2ASL1 BGP2DGPA BGP2DHEA BGP3ASL BGP3ASL1 BGP3DARA BGP3DARH BGP3DGPA BGP4ASL BGP4ASL1 BGP4DARA BGP4DGPA BGP4DHEA BGP5ASL BGP5ASL1 BGP5DGPA BGP5DHEA BGP6ASL BGP6ASL1 BGP6DGPA BGP6DHEA BGP7ASL BGP7ASL1 BGP7DGPA BGP7DHEA BGP8ASL BGP8ASL1 BGP8DGPA BGP8DHEA BGP9ASL BGP9ASL1 BGP9DGPA BGP9DHEA BGPDAREA
Patient Care Component Reports	29	APCL1AP APCL2AP APCL8AP APCLAAP APCLACC1 APCLACC2 APCLCH1 APCLCH1P APCLCH1S APCLCH2 APCLCP3P APCLCP6P APCLCP9 APCLCP9P APCLCR1 APCLDM5 APCLDV1P APCLHCT2 APCLIIP1 APCLIPC1 APCLIPC2 APCLIPCT APCLOCCK APCLOS APCLOSP APCLPCT APCLPCT1 APCLPCT2 APCLRPLP
Table Maintenance	4	AUMSCBA AUMSCBT AUMUPD3 AUMUPDT
Alcohol Chemical Dependency	3	ACDWASF ACDWSU ACDWUTL
Mental Health Social Services	3	AMHRP2P AMHRP3P AMHRPTST
Contract Health Management Information System	2	ACHSEOB1 ACHSEOB2
Aberdeen GPRA Report	1	CIMGAGPA
Data Warehouse Export System	1	BDWEPRN
Diabetes Registry	1	BDMDM5
IHS Dental System	1	ADEFPC
IHS Patient Registration	1	AGSAMPG
IHS RPMS CHR System	1	BCHRPTST
Kernel	1	^DIC(4
M Transfer	1	BMXADE1
Patient Care Component	1	APCDDVW
Patient Care Component Data Transmission	1	APCPEPRN
Pharmacy Point of Sale	1	ABSPOSR7
Taxonomy	1	ATXBULL
Third Party Billing	1	ABMRMCRD

Accessed By FileMan Db Calls, Total: 45

Package	Total	Routines
Table Maintenance	26	AUM41011 AUM41031 AUM61021 AUM91102 AUM91112 AUM91151 AUM93041 AUM93051 AUM93061 AUM93071 AUM93081 AUM93101 AUM93121 AUM94021 AUM94031 AUM94051 AUM94061 AUM94071 AUM94081 AUM94121 AUM95031 AUMPR914 AUMSCBA AUMSCBT AUMUPD3 AUMUPDT
Patient Care Component Reports	12	APCLCAR2 APCLCH1 APCLCH2 APCLCP9 APCLCPT1 APCLCR1 APCLDV1 APCLIPCT APCLOCCK APCLOR1 APCLOS APCLPCT
Patient Care Component	3	APCDDVD APCDFPPV APCDFUNC
Alcohol Chemical Dependency	1	ACDWSU
Data Warehouse Export System	1	BDWEPRN
Patient Care Component Data Transmission	1	APCPEPRN
iCare	1	BQI11PST

Pointed To By FileMan Files, Total: 7

Package	Total	FileMan Files
Utility Tables	3	COMMUNITY(#9999999.05)[.05] LOCATION(#9999999.06)[.05] RPMS RESERVATION(#9999999.47)[.06]
Alcohol Chemical Dependency	1	CDMIS SERVICE UNIT CATEGORIES(#9002174.7)[#9002174.71(.01)]
Contract Health Management Information System	1	CHS NON-PROCESSED EOBRS(#9002065)[2]
IHS Dental System	1	ADE GENERIC PROVIDER(#9002002.22)[1]
IHS RPMS CHR System	1	CHR PROGRAMS(#90002.51)[.03]

Pointer To FileMan Files, Total: 1

Package	Total	FileMan Files
Utility Tables	1	AREA(#9999999.21)[.02]

Fields, Total: 8

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `9999999.22^B` 1)= S ^AUTTSU("B",$E(X,1,30),DA)="" 2)= K ^AUTTSU("B",$E(X,1,30),DA)
.02	AREA	0;2	POINTER TO AREA FILE (#9999999.21)	**********************REQUIRED FIELD********************** AREA(#9999999.21) CROSS-REFERENCE: `^^TRIGGER^9999999.22^.04` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTSU(D0,0)):^(0),1:"") S X=$P(Y(1),U,4) S DIU=X K Y X ^DD(9999999.22,.02,1,1,1.1) X ^DD(9999999.22,.02,1,1,1.4) 1.1)= S X=DIV X $P(^DD(9999999.22,.0399,0),U,5,99) S Y(1)=X S X=Y(1) 1.4)= S DIH=$S($D(^AUTTSU(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99)) S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=9999999.22,DIG=.04 D ^DICR:$O(^DD(DIH,D IG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTSU(D0,0)):^(0),1:"") S X=$P(Y(1),U,4) S DIU=X K Y S X=DIV S X="" X ^DD(9999999.22,.02,1,1,2.4) 2.4)= S DIH=$S($D(^AUTTSU(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99)) S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=9999999.22,DIG=.04 D ^DICR:$O(^DD(DIH,D IG,1,0))>0 CREATE VALUE)= ASU CODE DELETE VALUE)= @ FIELD)= ASU INDEX
.0299	AREA CODE		COMPUTED	MUMPS CODE: `X ^DD(9999999.22,.0299,9.3) S X=$P(Y(9999999.22,.0299,101),U,2) S D0=Y(9999999.22,.0299,2)` 9.2 = S Y(9999999.22,.0299,2)=$S($D(D0):D0,1:""),Y(9999999.22,.0299,1)=$S($D(^AUTTSU(D0,0)):^(0),1:"") 9.3 = X ^DD(9999999.22,.0299,9.2) S D0=$P(Y(9999999.22,.0299,1),U,2) S:'$D(^AUTTAREA(+D0,0)) D0=-1 S Y(9999999.22,.0299,101)=$S($D(^AUTTAREA(D0,0)):^(0),1:"") ALGORITHM: `AREA:CODE` LAST EDITED: `JUL 31, 1985`
.03	CODE	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2) X` HELP-PROMPT: `ANSWER MUST BE 2 CHARACTERS IN LENGTH` CROSS-REFERENCE: `^^TRIGGER^9999999.22^.04` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTSU(D0,0)):^(0),1:"") S X=$P(Y(1),U,4) S DIU=X K Y X ^DD(9999999.22,.03,1,1,1.1) X ^DD(9999999.22,.03,1,1,1.4) 1.1)= S X=DIV X $P(^DD(9999999.22,.0399,0),U,5,99) S Y(1)=X S X=Y(1) 1.4)= S DIH=$S($D(^AUTTSU(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99)) S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=9999999.22,DIG=.04 D ^DICR:$O(^DD(DIH,D IG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTSU(D0,0)):^(0),1:"") S X=$P(Y(1),U,4) S DIU=X K Y S X=DIV S X="" X ^DD(9999999.22,.03,1,1,2.4) 2.4)= S DIH=$S($D(^AUTTSU(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99)) S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=9999999.22,DIG=.04 D ^DICR:$O(^DD(DIH,D IG,1,0))>0 CREATE VALUE)= ASU CODE DELETE VALUE)= @ FIELD)= ASU INDEX
.0399	ASU CODE		COMPUTED	MUMPS CODE: `X $P(^DD(9999999.22,.0299,0),U,5,99) S Y(9999999.22,.0399,1)=X S Y(9999999.22,.0399,2)=$S($D(^AUTTSU(D0,0)):^(0),1:"") S X=Y(9999999.22,.0399,1)_$P(Y(9999999.22,.0399,2),U,3)` 9.2 = S Y(9999999.22,.0399,2)=$S($D(D0):D0,1:""),Y(9999999.22,.0399,1)=$S($D(^AUTTSU(D0,0)):^(0),1:""),D0=$P(Y(9999999.22,.0399,1),U,2) S:'$D(^AUTTAREA(+D0,0)) D0=-1 ALGORITHM: `AREA CODE_CODE` LAST EDITED: `JUL 31, 1985`
.04	ASU INDEX	0;4	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4)!'(X?4N) X` HELP-PROMPT: `GENERATED` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the AREA field of the SERVICE UNIT File` TRIGGERED by the CODE field of the SERVICE UNIT File CROSS-REFERENCE: `9999999.22^C` 1)= S ^AUTTSU("C",$E(X,1,30),DA)="" 2)= K ^AUTTSU("C",$E(X,1,30),DA)
.05	INACTIVE DATE	0;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `MAY 17, 2013` HELP-PROMPT: `Enter date this Service Unit was inactivated.` CROSS-REFERENCE: `^^TRIGGER^9999999.22^.06` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTSU(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X="I" S DIH=$G(^AUTTSU(DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=9999999.22,DIG=.06 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTSU(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" S DIH=$G(^AUTTSU(DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=9999999.22,DIG=.06 D ^DICR CREATE VALUE)= S X="I" DELETE VALUE)= @ FIELD)= INACTIVE FLAG
.06	INACTIVE FLAG	0;6	SET	'I' FOR INACTIVE; LAST EDITED: `MAY 17, 2013` DESCRIPTION: SERVES AS AN 'INACTIVE' FLAG TO DISPLAY AS AN IDENTIFIER FOR USE BY DATA ENTRY STAFF. WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the INACTIVE DATE field of the SERVICE UNIT File`

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