Global: ^AQACHSAD

FileMan FileNo	FileMan Filename	Package
9002157	QA CHS ADMISSION	Quality Assurance

Package	Total	Routines
Local Area Programs	1	AZAXDPM1
Quality Assurance	1	AQACDCS

Package	Total	Routines
Quality Assurance	2	AQACQR1 AQACQR2

Package	Total	FileMan Files
Utility Tables	2	LOCATION(#9999999.06)[.05] VENDOR(#9999999.11)[1]
DRG Grouper	1	ICD DIAGNOSIS(#80)[5, 20, 25]
IHS Patient	1	PATIENT(#9000001)[.02]
Kernel	1	PROVIDER(#6)[8, #9002157.02(.03)]
Quality Assurance	1	QA SCREENS(#9002160.8)[#9002157.01(.01)]

Fields, Total: 32

Field #	Name	Loc	Type	Details
.01	DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 29, 1987` HELP-PROMPT: `Enter the date this patient was (or is scheduled to be) admitted to the Contract Care Facility.` CROSS-REFERENCE: `9002157^B` 1)= S ^AQACHSAD("B",$E(X,1,30),DA)="" 2)= K ^AQACHSAD("B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9002157^10` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AQACHSAD(D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(9002157,.01,1,2,1.4) 1.4)= S DIH=$S($D(^AQACHSAD(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,12,99)) S DIH=DIH_U" S %=$P(DIH,U,14,999),DIU=$P(DIH,U,13),^(0)=$P(DIH,U,1,12)_U_DIV_$S(%]"":U_%,1:""),DIH=9002157,DIG=10 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(^AQACHSAD(D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(9002157,.01,1,2,2.4) 2.4)= S DIH=$S($D(^AQACHSAD(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,12,99)) S DIH=DIH_U" S %=$P(DIH,U,14,999),DIU=$P(DIH,U,13),^(0)=$P(DIH,U,1,12)_U_DIV_$S(%]"":U_%,1:""),DIH=9002157,DIG=10 D ^DICR:$N(^DD(DIH ,DIG,1,0))>0 CREATE VALUE)= TODAY DELETE VALUE)= TODAY FIELD)= DATE E
.02	NAME	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `OCT 11, 1987` CROSS-REFERENCE: `9002157^C` 1)= S ^AQACHSAD("C",$E(X,1,30),DA)="" 2)= K ^AQACHSAD("C",$E(X,1,30),DA)
.05	SU LOCATION	0;11	POINTER TO LOCATION FILE (#9999999.06)	**********************REQUIRED FIELD********************** LOCATION(#9999999.06) LAST EDITED: `MAY 19, 1987` HELP-PROMPT: `Enter the Service Unit from which this patient was referred.`
.07	3RD PARTY	0;14	SET	**********************REQUIRED FIELD********************** 'MCD' FOR MCD; 'MCR' FOR MCR; 'PVT' FOR PVT; 'M&P' FOR M&P; 'N' FOR NO; 'M&M' FOR M&M; 'OTH' FOR OTH; LAST EDITED: `MAY 27, 1988` HELP-PROMPT: `Enter the 3rd Party Eligibility Status for this CHS Patient`
.08	CHS PHYSICIAN	0;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 20, 1987` HELP-PROMPT: `Enter the name of the physician at the CHS facility to whom this patient was referred.`
1	CONTRACT FACILITY	0;3	POINTER TO VENDOR FILE (#9999999.11)	**********************REQUIRED FIELD********************** VENDOR(#9999999.11) INPUT TRANSFORM: `S DIC("S")="I $P(^AUTTVTYP($P(^AUTTVNDR(Y,11),U,3),0),U,1)<""04""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 12, 1988` HELP-PROMPT: `Enter the name of the CHS facility where this patient is hospitalized.` SCREEN: `S DIC("S")="I $P(^AUTTVTYP($P(^AUTTVNDR(Y,11),U,3),0),U,1)<""04"""` EXPLANATION: `Only Vendors with a VENDOR TYPE CODE of 01, 02, or 03 are selectable.`
2	DISCHARGE DATE	0;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 05, 1988` HELP-PROMPT: `Enter the date this patient was discharged from the CHS facility.` CROSS-REFERENCE: `9002157^AC` 1)= S ^AQACHSAD("AC",$E(X,1,30),DA)="" 2)= K ^AQACHSAD("AC",$E(X,1,30),DA)
3	LOS ACT		COMPUTED	MUMPS CODE: `X ^DD(9002157,3,9.6) S X=$S(Y(9002157,3,3):Y(9002157,3,4),Y(9002157,3,5):Y(9002157,3,6),Y(9002157,3,7):Y(9002157,3,8),Y(9002157,3,9):Y(9002157,3,11),Y(9002157,3,12):X) S X=$J(X,0,0)` 9.2 = S Y(9002157,3,1)=$S($D(^AQACHSAD(D0,0)):^(0),1:"") S X=$P(Y(9002157,3,1),U,1),Y(9002157,3,2)=X,X=DT S Y=X,X=Y(9002157,3,2),X=X S X=X=Y,Y(9002157,3,3)=X S X=1 9.3 = X ^DD(9002157,3,9.2) S Y(9002157,3,4)=X S X=$P(Y(9002157,3,1),U,4)=$P(Y(9002157,3,1),U,1),Y(9002157,3,5)=X S X=1,Y(9002157,3,6)=X S X=$P(Y(9002157,3,1),U,4)'="" 9.4 = X ^DD(9002157,3,9.3) S Y(9002157,3,7)=X S X=$P(Y(9002157,3,1),U,4),X1=X,X2=$P(Y(9002157,3,1),U,1),X="" D:X2 ^%DTC:X1 S X=X,Y(9002157,3,8)=X S X=$P(Y(9002157,3,1),U,4) 9.5 = X ^DD(9002157,3,9.4) S X=X="",Y(9002157,3,9)=X,Y(9002157,3,10)=X,X=DT S X=X,X1=X,X2=$P(Y(9002157,3,1),U,1),X="" D:X2 ^%DTC:X1 S X=X,Y(9002157,3,11)=X S X=1 9.6 = X ^DD(9002157,3,9.5) S Y(9002157,3,12)=X S X=0 9.7 = X ^DD(9002157,3,9.6) S Y(9002157,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: `MAY 19, 1987` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH`
5	ICD-9CM	0;6	POINTER TO ICD DIAGNOSIS FILE (#80)	**********************REQUIRED FIELD********************** ICD DIAGNOSIS(#80) LAST EDITED: `NOV 13, 1987`
6	LOS 75%	0;7	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 19, 1987` HELP-PROMPT: `Enter the 75th percentile for length of stay for this patient's diagnosis.`
7	SERVICE	0;8	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	REFERRING PHYSICIAN	0;9	POINTER TO PROVIDER FILE (#6)	**********************REQUIRED FIELD********************** PROVIDER(#6) LAST EDITED: `MAY 19, 1987` HELP-PROMPT: `Enter the name of the IHS physician who is referring this patient for hospitalization. The IHS physician must be in the Provider file.`
9	DATE LAST EDIT	0;10	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 15, 1987`
10	DATE ESTABLISHED	0;13	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 16, 1987` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the DATE field of the QA CHS ADMISSION File`
11	CODE		COMPUTED	MUMPS CODE: `S Y(9002157,11,1)=$S($D(^AQACHSAD(D0,0)):^(0),1:"") S X=$S('$D(^ICD9(+$P(Y(9002157,11,1),U,6),0)):"",1:$P(^(0),U,1))\1 S X=$J(X,0,0)` ALGORITHM: `ICD-9CM\1 (ALWAYS 0 DECIMAL DIGITS)` LAST EDITED: `NOV 13, 1987`
12	DISCHARGE STATUS	0;16	SET	**********************REQUIRED FIELD********************** 'A' FOR ACUTE TRANS; 'AM' FOR AMA; 'H' FOR HOME; 'S' FOR SNF; 'U' FOR UNSPEC TRANS; 'UNK' FOR UNKNOWN; 'D' FOR DIED; 'I' FOR ICF; LAST EDITED: `JUL 01, 1988` HELP-PROMPT: `Enter this patient's discharge status.`
13	CHS APPROVAL	0;17	SET	**********************REQUIRED FIELD********************** 'A' FOR APPROVED; 'I' FOR DEN.INEL; 'L' FOR DEN.OTHER; 'U' FOR UNKNOWN; LAST EDITED: `JAN 30, 1989`
16	DOB		COMPUTED DATE	MUMPS CODE: `X ^DD(9002157,16,9.2) X $P(^DD(9000001,1102.2,0),U,5,99) S Y(9002157,16,101)=X S X=Y(9002157,16,101) S D0=Y(9002157,16,80)` 9.2 = S Y(9002157,16,80)=$S($D(D0):D0,1:""),Y(9002157,16,1)=$S($D(^AQACHSAD(D0,0)):^(0),1:""),D0=$P(Y(9002157,16,1),U,2) S:'$D(^AUPNPAT(+D0,0)) D0=-1 9.3 = X ^DD(9002157,16,9.2) S Y(9002157,16,101)=$S($D(^AZQSUPT(D0,0)):^(0),1:""),D0=$P(Y(9002157,16,101),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1 ALGORITHM: `NAME:DOB` LAST EDITED: `OCT 14, 1987`
18	AGE AT ADMISSION		COMPUTED	MUMPS CODE: `X ^DD(9002157,18,9.2) S X=X\365.25 S X=$J(X,0,0)` 9.2 = X $P(^DD(9002157,16,0),U,5,99) S Y(9002157,18,2)=X S Y(9002157,18,1)=$S($D(^AQACHSAD(D0,0)):^(0),1:"") S X=$P(Y(9002157,18,1),U,1),X1=X,X2=Y(9002157,18,2),X="" D:X2 ^%DTC:X1 S X=X ALGORITHM: `DATE-DOB\365.25 (ALWAYS 0 DECIMAL DIGITS)`
19	COMPLICATION	0;18	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JUL 31, 1987` HELP-PROMPT: `If this patient had a complication during this hospitilization, enter a free text description (3-30 chars).`
20	COMP. ICD-9CM	0;19	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `NOV 13, 1987`
21	NBN BIRTHWEIGHT	0;20	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 11, 1987` HELP-PROMPT: `Enter this mother's newborn infant's Birthweight in grams.`
22	AGE RANGE		COMPUTED	MUMPS CODE: `X $P(^DD(9002157,18,0),U,5,99) S Y(9002157,22,1)=X S X=Y(9002157,22,1)\10 S X=$J(X,0,0)` ALGORITHM: `AGE AT ADMISSION\10 (ALWAYS 0 DECIMAL DIGITS)`
23	AGE RANGE2		COMPUTED	MUMPS CODE: `X ^DD(9002157,23,9.3) S X=$S(Y(9002157,23,2):Y(9002157,23,3),Y(9002157,23,4):Y(9002157,23,5),Y(9002157,23,6):X) S X=$J(X,0,0)` 9.2 = X $P(^DD(9002157,18,0),U,5,99) S Y(9002157,23,1)=X S X=Y(9002157,23,1)<18,Y(9002157,23,2)=X S X=17,Y(9002157,23,3)=X S X=Y(9002157,23,1)<35 9.3 = X ^DD(9002157,23,9.2) S Y(9002157,23,4)=X S X=18,Y(9002157,23,5)=X S X=1,Y(9002157,23,6)=X S X=35 ALGORITHM: `$S(AGE AT ADMISSION<18:17,AGE AT ADMISSION<35:18,1:35) (ALWAYS 0 DECIMAL DIGITS)`
24	SCREENING CODE	1;0	POINTER Multiple #9002157.01	9002157.01
25	NBN ICD-9	2;1	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `NOV 13, 1987`
26	NBN CODE		COMPUTED	MUMPS CODE: `S Y(9002157,26,1)=$S($D(^AQACHSAD(D0,2)):^(2),1:"") S X=$S('$D(^ICD9(+$P(Y(9002157,26,1),U,1),0)):"",1:$P(^(0),U,1))\1 S X=$J(X,0,0)` ALGORITHM: `NBN I\1 (ALWAYS 0 DECIMAL DIGITS)` LAST EDITED: `NOV 13, 1987`
27	HR NUMBER		COMPUTED	MUMPS CODE: `S X=$S('($D(DUZ(2))#2):"",'DUZ(2):"",'$D(^AUPNPAT($P(^AQACHSAD(D0,0),"^",2),41,DUZ(2),0)):"",1:$P(^AUPNPAT($P(^AQACHSAD(D0,0),"^",2),41,DUZ(2),0),"^",2))` 9.2 = S Y(9002157,27,80)=$S($D(D0):D0,1:""),Y(9002157,27,1)=$S($D(^AQACHSAD(D0,0)):^(0),1:""),D0=$P(Y(9002157,27,1),U,2) S:'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(9002157,27,180)=$S($D(D0):D0,1:"") 9.3 = X ^DD(9002157,27,9.2) S Y(9002157,27,181)=$S($D(D1):D1,1:"") S X="ALBUQUERQUE HOSPITAL" K DIC S Y=-1,DIC="^AUPNPAT(D0,41,",DIC(0)="NMF" D ^DIC:D0>0 S (D,D1)=+Y ALGORITHM: `S X=$S('($D(DUZ(2))#2):"",'DUZ(2):"",'$D(^AUPNPAT($P(^AQACHSAD(D0,0),"^",2),41,DUZ(2),0)):"",1:$P(^AUPNPAT($P(^AQACHSAD(D0,0),"^",2),41,DUZ(2),0),"^",2))` LAST EDITED: `OCT 14, 1987`
28	IND.EXT.STAY	2;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>69!($L(X)<3) X` LAST EDITED: `OCT 14, 1987` HELP-PROMPT: `ANSWER MUST BE 3-69 CHARACTERS IN LENGTH`
29	NEXT REVIEW DATE	2;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 18, 1987` HELP-PROMPT: `Enter the date for pending utilization review.`
30	REVIEW	3;0	DATE Multiple #9002157.02	9002157.02

Customize PDF page

Package: Quality Assurance

Global: ^AQACHSAD

Information

Description

Directly Accessed By Routines, Total: 2

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 6

Fields, Total: 32