Global: ^AQACIHS

FileMan FileNo	FileMan Filename	Package
9002159	QA IHS ADMISSION	Quality Assurance

Package	Total	Routines
Local Area Programs	1	AZAXDPM1

Package	Total	Routines
Quality Assurance	2	AQACQRI1 AQACQRI2

Package	Total	FileMan Files
DRG Grouper	2	ICD OPERATION/PROCEDURE(#80.1)[25] ICD DIAGNOSIS(#80)[5, 15, 21]
IHS Patient	1	PATIENT(#9000001)[.02]
Kernel	1	PROVIDER(#6)[8]
Quality Assurance	1	QA SCREENS(#9002160.8)[#9002159.02(.01)]
Utility Tables	1	LOCATION(#9999999.06)[1]

Fields, Total: 26

Field #	Name	Loc	Type	Details
.01	DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter the date this patient was (or is scheduled to be) admitted to the IHS facility.` CROSS-REFERENCE: `9002159^B` 1)= S ^AQACIHS("B",$E(X,1,30),DA)="" 2)= K ^AQACIHS("B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9002159^10` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AQACIHS(D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(9002159,.01,1,2,1.4) 1.4)= S DIH=$S($D(^AQACIHS(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,9,99)) S DIH=DIH_U" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"":U_%,1:""),DIH=9002159,DIG=10 D ^DICR:$N(^DD(DIH,DI G,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AQACIHS(D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(9002159,.01,1,2,2.4) 2.4)= S DIH=$S($D(^AQACIHS(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,9,99)) S DIH=DIH_U" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"":U_%,1:""),DIH=9002159,DIG=10 D ^DICR:$N(^DD(DIH,DI G,1,0))>0 CREATE VALUE)= TODAY DELETE VALUE)= TODAY FIELD)= DATE ESTABLISHED
.02	NAME	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `OCT 14, 1987` HELP-PROMPT: `Enter the patient's name, DOB, or health record number. The patient must be registered in the patient registration system.` CROSS-REFERENCE: `9002159^C` 1)= S ^AQACIHS("C",$E(X,1,30),DA)="" 2)= K ^AQACIHS("C",$E(X,1,30),DA)
1	SU LOCATION	0;3	POINTER TO LOCATION FILE (#9999999.06)	**********************REQUIRED FIELD********************** LOCATION(#9999999.06) LAST EDITED: `AUG 29, 1987` HELP-PROMPT: `Enter the Service Unit at which this patient is admitted.`
2	DISCHARGE DATE	0;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter the date this patient was discharged from the IHS facility.` CROSS-REFERENCE: `9002159^AC` 1)= S ^AQACIHS("AC",$E(X,1,30),DA)="" 2)= K ^AQACIHS("AC",$E(X,1,30),DA)
3	LOS ACT		COMPUTED	MUMPS CODE: `X ^DD(9002159,3,9.6) S X=$S(Y(9002159,3,3):Y(9002159,3,4),Y(9002159,3,5):Y(9002159,3,6),Y(9002159,3,7):Y(9002159,3,8),Y(9002159,3,9):Y(9002159,3,11),Y(9002159,3,12):X) S X=$J(X,0,0)` 9.2 = S Y(9002159,3,1)=$S($D(^AQACIHS(D0,0)):^(0),1:"") S X=$P(Y(9002159,3,1),U,1),Y(9002159,3,2)=X,X=DT S Y=X,X=Y(9002159,3,2),X=X S X=X=Y,Y(9002159,3,3)=X S X=1 9.3 = X ^DD(9002159,3,9.2) S Y(9002159,3,4)=X S X=$P(Y(9002159,3,1),U,4)=$P(Y(9002159,3,1),U,1),Y(9002159,3,5)=X S X=1,Y(9002159,3,6)=X S X=$P(Y(9002159,3,1),U,4)'="" 9.4 = X ^DD(9002159,3,9.3) S Y(9002159,3,7)=X S X=$P(Y(9002159,3,1),U,4),X1=X,X2=$P(Y(9002159,3,1),U,1),X="" D:X2 ^%DTC:X1 S X=X,Y(9002159,3,8)=X S X=$P(Y(9002159,3,1),U,4) 9.5 = X ^DD(9002159,3,9.4) S X=X="",Y(9002159,3,9)=X,Y(9002159,3,10)=X,X=DT S X=X,X1=X,X2=$P(Y(9002159,3,1),U,1),X="" D:X2 ^%DTC:X1 S X=X,Y(9002159,3,11)=X S X=1 9.6 = X ^DD(9002159,3,9.5) S Y(9002159,3,12)=X S X=0 9.7 = X ^DD(9002159,3,9.6) S Y(9002159,3,15)=X S X=0 ALGORITHM: `$S(DATE=TODAY:1,DISCHARGE DATE=DATE:1,DISCHARGE DATE'="":DISCHARGE DATE-DATE,DISCHARGE DATE="":TODAY-DATE,1:0) (ALWAYS 0 DECIMAL DIGITS)` LAST EDITED: `NOV 07, 1987`
4	DIAGNOSIS OR TREATMENT	0;5	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `AUG 29, 1987` HELP-PROMPT: `Enter a free text description of this patient's principal diagnosis (3-30 chars).`
5	ICD-9CM	0;6	POINTER TO ICD DIAGNOSIS FILE (#80)	**********************REQUIRED FIELD********************** ICD DIAGNOSIS(#80) LAST EDITED: `NOV 13, 1987`
7	SERVICE	0;7	SET	**********************REQUIRED FIELD********************** 'G' FOR GEN MED; 'S' FOR SURGERY; 'O' FOR OB; 'N' FOR NEWBORN; 'GY' FOR GYN; 'UN' FOR UNKNOWN; 'OR' FOR ORTHOPEDICS; 'P' FOR PEDIATRICS; 'PS' FOR PSYCHIATRY; LAST EDITED: `JUN 27, 1988`
8	ATTENDING PHYSICIAN	0;8	POINTER TO PROVIDER FILE (#6)	**********************REQUIRED FIELD********************** PROVIDER(#6) LAST EDITED: `AUG 29, 1987` HELP-PROMPT: `Enter the name of the Attending Physician. This physician must already be in the Provider file.`
9	DATE LAST EDIT	0;9	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X`
10	DATE ESTABLISHED	0;10	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the DATE field of the QA IHS ADMISSION File`
11	CODE		COMPUTED	MUMPS CODE: `S Y(9002159,11,1)=$S($D(^AQACIHS(D0,0)):^(0),1:"") S X=$S('$D(^ICD9(+$P(Y(9002159,11,1),U,6),0)):"",1:$P(^(0),U,1))\1 S X=$J(X,0,0)` ALGORITHM: `ICD\1 (ALWAYS 0 DECIMAL DIGITS)` LAST EDITED: `NOV 13, 1987`
12	DISCHARGE STATUS	0;11	SET	**********************REQUIRED FIELD********************** 'A' FOR ACUTE TRANS; 'AM' FOR AMA; 'H' FOR HOME; 'S' FOR SNF; 'U' FOR UNSPEC TRANS; 'UNK' FOR UNKNOWN; 'DA>48' FOR DIED W/ AUTOPSY AFTER 48 HRS; 'DA<48' FOR DIED W/ AUTOPSY BEFORE 48 HRS; 'DN>48' FOR DIED W/O AUTOPSY AFTER 48 HRS; 'DN<48' FOR DIED W/O AUTOPSY BEFORE 48 HRS; 'I' FOR ICF; LAST EDITED: `JAN 27, 1988` HELP-PROMPT: `Enter this patient's discharge status.`
13	AGE AT ADMISSION		COMPUTED	MUMPS CODE: `X ^DD(9002159,13,9.4) S Y=X,X=Y(9002159,13,2),X=X,X1=X,X2=Y,X="" D:X2 ^%DTC:X1 S X=X\365.25 S D0=Y(9002159,13,80) S X=$J(X,0,0)` 9.2 = S Y(9002159,13,80)=$S($D(D0):D0,1:""),Y(9002159,13,1)=$S($D(^AQACIHS(D0,0)):^(0),1:"") S X=$P(Y(9002159,13,1),U,1),Y(9002159,13,2)=X 9.3 = X ^DD(9002159,13,9.2) S D0=$P(Y(9002159,13,1),U,2) S:'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(9002159,13,180)=$S($D(D0):D0,1:""),Y(9002159,13,101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") 9.4 = X ^DD(9002159,13,9.3) S D0=$P(Y(9002159,13,101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(9002159,13,201)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(9002159,13,201),U,3) ALGORITHM: `DATE-(NAME:NAME:DOB)\365.25 (ALWAYS 0 DECIMAL DIGITS)` LAST EDITED: `OCT 14, 1987`
14	COMPLICATION	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` HELP-PROMPT: `If this patient had a complication during this hospitilization, enter a free text description (3-30 chars).`
15	COMP. ICD-9CM	0;13	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `NOV 13, 1987`
17	NBN BIRTHWEIGHT	2;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Enter the Newborn Infant's Birthweight in grams.`
18	SCREENING CODE	3;0	POINTER Multiple #9002159.02	9002159.02
19	AGE RANGE		COMPUTED	MUMPS CODE: `X $P(^DD(9002159,13,0),U,5,99) S Y(9002159,19,1)=X S X=Y(9002159,19,1)\10` ALGORITHM: `AGE AT ADMISSION\10`
20	AGE RANGE2		COMPUTED	MUMPS CODE: `X ^DD(9002159,20,9.3) S X=$S(Y(9002159,20,2):Y(9002159,20,3),Y(9002159,20,4):Y(9002159,20,5),Y(9002159,20,6):X)` 9.2 = X $P(^DD(9002159,13,0),U,5,99) S Y(9002159,20,1)=X S X=Y(9002159,20,1)<18,Y(9002159,20,2)=X S X=17,Y(9002159,20,3)=X S X=Y(9002159,20,1)<35 9.3 = X ^DD(9002159,20,9.2) S Y(9002159,20,4)=X S X=18,Y(9002159,20,5)=X S X=1,Y(9002159,20,6)=X S X=35 ALGORITHM: `$S(#13<18:17,#13<35:18,1:35)`
21	NBN ICD-9	0;14	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `NOV 13, 1987`
22	NBN CODE		COMPUTED	MUMPS CODE: `S Y(9002159,22,1)=$S($D(^AQACIHS(D0,0)):^(0),1:"") S X=$S('$D(^ICD9(+$P(Y(9002159,22,1),U,14),0)):"",1:$P(^(0),U,1))\1 S X=$J(X,0,0)` ALGORITHM: `NBN ICD\1 (ALWAYS 0 DECIMAL DIGITS)` LAST EDITED: `NOV 13, 1987`
23	HR NUMBER		COMPUTED	MUMPS CODE: `S X=$S('($D(DUZ(2))#2):"",'DUZ(2):"",'$D(^AUPNPAT($P(^AQACIHS(D0,0),"^",2),41,DUZ(2),0)):"",1:$P(^AUPNPAT($P(^AQACIHS(D0,0),"^",2),41,DUZ(2),0),"^",2))` ALGORITHM: `S X=$S('($D(DUZ(2))#2):"",'DUZ(2):"",'$D(^AUPNPAT($P(^AQACIHS(D0,0),"^",2),41,DUZ(2),0)):"",1:$P(^AUPNPAT($P(^AQACIHS(D0,0),"^",2),41,DUZ(2),0),"^",2))` LAST EDITED: `OCT 14, 1987`
24	PROCEDURE	0;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 27, 1988` HELP-PROMPT: `Enter a description of this patient's principal operation/procedure (3-30 characters in length).`
25	PROCEDURE ICD-9CM	0;16	POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1)	ICD OPERATION/PROCEDURE(#80.1) LAST EDITED: `MAY 27, 1988`
26	PCODE		COMPUTED	MUMPS CODE: `S Y(9002159,26,1)=$S($D(^AQACIHS(D0,0)):^(0),1:"") S X=$S('$D(^ICD0(+$P(Y(9002159,26,1),U,16),0)):"",1:$P(^(0),U,1))\1 S X=$J(X,0,0)` ALGORITHM: `PROCEDURE ICD\1 (ALWAYS 0 DECIMAL DIGITS)`

Customize PDF page

Package: Quality Assurance

Global: ^AQACIHS

Information

Description

Directly Accessed By Routines, Total: 1

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 6

Fields, Total: 26