Global: ^AQAOC

FileMan FileNo	FileMan Filename	Package
9002167	QI OCCURRENCE	Quality Assurance

Package	Total	Routines
Quality Assurance	69	AQALDG53 AQALNK AQALNK1 AQAOBUL AQAOCHK AQAOCHK0 AQAOCHK4 AQAODEL AQAOEDTP AQAOENTQ AQAOENTR AQAOLKP AQAOPC11 AQAOPC21 AQAOPC22 AQAOPC41 AQAOPC42 AQAOPC51 AQAOPC71 AQAOPC82 AQAOPR22 AQAOPR3 AQAOPR71 AQAOPR72 AQAOREV AQAOREV1 AQAOSEC AQAOT04 AQAOT11 AQAOT111 AQAOT112 AQAOT12 AQAOT13 AQAOT131 AQAOT17 AQAOT21 AQAOT26 AQAOT28 AQAOT31 AQAOT311 AQAOT32 AQAOT34 AQAOT45 AQAOT46 AQAOT49 AQAOT55 AQAOT59 AQAOT65 AQAOT651 AQAOT652 AQAOT67 AQAOT68 AQAOT82 AQAOT84 AQAOT93 AQAOT94 AQAOT941 AQAOT942 AQAOUDEL AQAOUSA AQAOUSA1 AQAOVAL AQAOX71 AQAOX72 AQAOX73 AQAOX74 AQAOX76 AQAOX77 AQAOX78
Local Area Programs	1	AZAXDPM1

Package	Total	Routines
Quality Assurance	35	AQALNK AQALNK1 AQAODEL AQAOEDTS AQAOENTR AQAOENTS AQAOLKP AQAOPC22 AQAOPC3 AQAOPC42 AQAOPC71 AQAOPR2 AQAOPR21 AQAOPR3 AQAOPR72 AQAOT04 AQAOT11 AQAOT111 AQAOT112 AQAOT12 AQAOT13 AQAOT131 AQAOT17 AQAOT21 AQAOT26 AQAOT28 AQAOT31 AQAOT311 AQAOT32 AQAOT34 AQAOT45 AQAOT46 AQAOT49 AQAOUDEL AQAOVAL

Package	Total	FileMan Files
Quality Assurance	6	QI AUDIT(#9002166.3)[.02] QI OCC CRITERIA(#9002166.5)[.02] QI OCC DRUG(#9002166.6)[.02] QI OCC PROVIDER(#9002166.7)[.02] QI OCC DIAGNOSIS(#9002166.8)[.02] QI OCC PROCEDURE(#9002166.9)[.02]

Package	Total	FileMan Files
Quality Assurance	8	QI INDICATORS(#9002168.2)[.08] QI ACTION(#9002168.6)[.16, 96, #9002167.01(.07)] QI REVIEW STAGE(#9002168.7)[.13, 92, #9002167.01(.01)] QI FINDINGS(#9002168.8)[.15, 94, #9002167.01(.05)] QI USER(#9002168.9)[.19, 95, #9002167.01(.09), #9002167.03(.01), #9002167.12(.01)] QI TEAM(#9002169.1)[.14, .19, #9002167.01(.02), #9002167.01(.03), #9002167.01(.09), #9002167.03(.01), #9002167.12(.01)] QI EXCEPTION(#9002169.2)[.12] QI LEVEL(#9002169.3)[.111, .17, 93, 97, 98, #9002167.01(.011), #9002167.01(.06)]
IHS Patient	2	PATIENT(#9000001)[.02] VISIT(#9000010)[.03]
Kernel	2	SERVICE/SECTION(#49)[.07] NEW PERSON(#200)[.14, #9002167.01(.02)]
Lab Service	1	BLOOD PRODUCT(#66)[11002]
Scheduling	1	HOSPITAL LOCATION(#44)[.06]
Utility Tables	1	LOCATION(#9999999.06)[.09]

Fields, Total: 39

Field #	Name	Loc	Type	Details
.01	CASE IDENTIFIER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<7)!'(X'?1P.E) X` LAST EDITED: `APR 19, 1994` HELP-PROMPT: `Answer must be 7 characters in length.` CROSS-REFERENCE: `9002167^B` 1)= S ^AQAOC("B",$E(X,1,30),DA)="" 2)= K ^AQAOC("B",$E(X,1,30),DA) 3)= REGULAR 'B' XREF
.011	AUTOMATIC ENTRY	0;11	SET	'1' FOR YES; LAST EDITED: `DEC 21, 1992` HELP-PROMPT: `Used by link utility`
.012	REVIEWED FOR RISK MGT	0;12	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 16, 1993` EXECUTABLE HELP: `D RISKMGT^AQAOHREV` CROSS-REFERENCE: `9002167^AF^MUMPS` 1)= S ^AQAOC("AF",$E(X,1,30),DA)="" K ^AQAOC("AFF",$P(^AQAOC(DA,0),U),DA) 2)= K ^AQAOC("AF",$E(X,1,30),DA) S ^AQAOC("AFF",$P(^AQAOC(DA,0),U),DA)="" 3)= USED TO PRINT RM REPORT - REVIEWED OCC This cross-ref kills the AFF xref at set time. This means there are 2 xref dealing with RM review. This one for occurrences already reviewed for risk mgt issues and AFF for those not yet reviewed. See xref for field .01.
.02	PATIENT NAME	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `APR 18, 1994` CROSS-REFERENCE: `9002167^AA1^MUMPS` 1)= S AQAO=$S($D(^AQAOC(DA,0)):^(0),1:""),AQAO("IND")=$P(AQAO,U,8),AQAO("DT")=$P(AQAO,U,4) S:(AQAO("IND")]"")&(AQAO("DT")]"") ^AQAOC("AA",AQAO("IND"),AQAO("DT"),X,DA)="" K AQAO 2)= S AQAO=$S($D(^AQAOC(DA,0)):^(0),1:""),AQAO("IND")=$P(AQAO,U,8),AQAO("DT")=$P(AQAO,U,4) K:(AQAO("IND")]"")&(AQAO("DT")]"") ^AQAOC("AA",AQAO("IND"),AQAO("DT"),X,DA) K AQAO 3)= INDICATOR,OCC DATE,PATIENT,OCC IFN XREF MUMPS xref for indicator, occurrence date, patient, occurrence ifn: Used to pull occurrences for an indicator within a certain date range. Also used to check if an occurrence has already been created for an indicator/date/patient combination. Used by many routines in this package. CROSS-REFERENCE: `9002167^C` 1)= S ^AQAOC("C",$E(X,1,30),DA)="" 2)= K ^AQAOC("C",$E(X,1,30),DA) 3)= ALLOWS LOOKUP BY PATIENT NAME Allows lookup by patient name when user is asked to select an occurrence. CROSS-REFERENCE: `9002167^AE^MUMPS` 1)= S AQAO("VST")=$P($G(^AQAOC(DA,0)),U,3) S:AQAO("VST")]"" ^AQAOC("AE",X,AQAO("VST"),DA)="" K AQAO 2)= S AQAO("VST")=$P($G(^AQAOC(DA,0)),U,3) K:AQAO("VST")]"" ^AQAOC("AE",X,AQAO("VST"),DA) K AQAO 3)= TO FIND ALL VISIT OCC BY PATIENT Created as a way to pull all visits linked to occurrences for a patient.
.025	AGE		COMPUTED	MUMPS CODE: `X ^DD(9002167,.025,9.3) S Y=X,X=Y(9002167,.025,2),X=X,X1=X,X2=Y,X="" D:X2 ^%DTC:X1 S Z=X\365.25,X=$S(Z>2:Z_" YRS",X<31:X_" DYS",1:X\30_" MOS") K Z S D0=Y(9002167,.025,80)` 9.2 = S Y(9002167,.025,80)=$S($D(D0):D0,1:""),Y(9002167,.025,1)=$S($D(^AQAOC(D0,0)):^(0),1:"") S X=$P(Y(9002167,.025,1),U,4),Y(9002167,.025,2)=X 9.3 = X ^DD(9002167,.025,9.2) S D0=$P(Y(9002167,.025,1),U,2) S:'$D(^AUPNPAT(+D0,0)) D0=-1 X $P(^DD(9000001,1102.2,0),U,5,99) S Y(9002167,.025,101)=X S X=Y(9002167,.025,101) ALGORITHM: `OCCURRENCE DATE-(PATIENT NAME:DOB)\365.25` LAST EDITED: `APR 18, 1994` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.03	VISIT DATE	0;3	POINTER TO VISIT FILE (#9000010)	VISIT(#9000010) LAST EDITED: `APR 18, 1994` CROSS-REFERENCE: `9002167^AE1^MUMPS` 1)= S AQAO("PAT")=$P($G(^AQAOC(DA,0)),U,2) S:AQAO("PAT")]"" ^AQAOC("AE",AQAO("PAT"),X,DA)="" K AQAO 2)= S AQAO("PAT")=$P($G(^AQAOC(DA,0)),U,2) K:AQAO("PAT")]"" ^AQAOC("AE",AQAO("PAT"),X,DA) K AQAO 3)= TO FIND ALL VISIT OCCURRENCES FOR A PATIENT Created to allow lookup of visits linked to occurrences for a patient. CROSS-REFERENCE: `9002167^AV^MUMPS` 1)= S AQAO("IND")=$P($G(^AQAOC(DA,0)),U,8) S:AQAO("IND")]"" ^AQAOC("AV",AQAO("IND"),X,DA)="" K AQAO 2)= S AQAO("IND")=$P($G(^AQAOC(DA,0)),U,8) K:AQAO("IND")]"" ^AQAOC("AV",AQAO("IND"),X,DA) K AQAO 3)= TO FIND ALL VISITS FOR AN INDICATOR Used to find occurrence ifn for visits created from a search template. Xref uses indicator subscript to separate these occurrences from others created for the same visits.
.04	OCCURRENCE DATE	0;4	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 29, 1994` HELP-PROMPT: `Enter date of occurrence.` CROSS-REFERENCE: `9002167^AA2^MUMPS` 1)= S AQAO=$S($D(^AQAOC(DA,0)):^(0),1:""),AQAO("IND")=$P(AQAO,U,8),AQAO("PT")=$P(AQAO,U,2) S:(AQAO("IND")]"")&(AQAO("PT")]"") ^AQAOC("AA",AQAO("IND"),X,AQAO("PT"),DA)="" K AQAO 2)= S AQAO=$S($D(^AQAOC(DA,0)):^(0),1:""),AQAO("IND")=$P(AQAO,U,8),AQAO("PT")=$P(AQAO,U,2) K:(AQAO("IND")]"")&(AQAO("PT")]"") ^AQAOC("AA",AQAO("IND"),X,AQAO("PT"),DA) K AQAO 3)= INDICATOR,OCC DATE,PATIENT,OCC IFN XREF See description under Patient Name field AA1 xref CROSS-REFERENCE: `9002167^ACL^MUMPS` 1)= S AQAO=$G(^AQAOC(DA,1)) S:$P(AQAO,U)=1 ^AQAOC("ACL",X,DA)="" K AQAO 2)= K ^AQAOC("ACL",X,DA) 3)= OCC BY DATE FOR CLOSED OCC ONLY Mumps xref by date for closed occurrences only.
.06	WARD/CLINIC	0;6	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `JUN 11, 1992` HELP-PROMPT: `Enter INPATIENT WARD or OUTPATIENT CLINIC where patient was treated.`
.07	SERVICE	0;7	POINTER TO SERVICE/SECTION FILE (#49)	SERVICE/SECTION(#49) LAST EDITED: `JUN 11, 1992` HELP-PROMPT: `Enter HOSPITAL SERVICE associated with this visit.`
.08	CLINICAL INDICATOR	0;8	POINTER TO QI INDICATORS FILE (#9002168.2)	**********************REQUIRED FIELD********************** QI INDICATORS(#9002168.2) LAST EDITED: `APR 18, 1994` CROSS-REFERENCE: `9002167^AA3^MUMPS` 1)= S AQAO=$S($D(^AQAOC(DA,0)):^(0),1:""),AQAO("PT")=$P(AQAO,U,2),AQAO("DT")=$P(AQAO,U,4) S:(AQAO("PT")]"")&(AQAO("DT")]"") ^AQAOC("AA",X,AQAO("DT"),AQAO("PT"),DA)="" K AQAO 2)= S AQAO=$S($D(^AQAOC(DA,0)):^(0),1:""),AQAO("PT")=$P(AQAO,U,2),AQAO("DT")=$P(AQAO,U,4) K:(AQAO("PT")]"")&(AQAO("DT")]"") ^AQAOC("AA",X,AQAO("DT"),AQAO("PT"),DA) K AQAO 3)= INDICATOR,OCC DATE,PATIENT,OCC IFN XREF See description under Patient Name field "AA1" xref. CROSS-REFERENCE: `9002167^D` 1)= S ^AQAOC("D",$E(X,1,30),DA)="" 2)= K ^AQAOC("D",$E(X,1,30),DA) 3)= ALLOWS LOOKUP BY INDICATOR Allows lookup by clinical indicator CROSS-REFERENCE: `9002167^AV1^MUMPS` 1)= S AQAO("VST")=$P($G(^AQAOC(DA,0)),U,3) S:AQAO("VST")]"" ^AQAOC("AV",X,AQAO("VST"),DA)="" K AQAO 2)= S AQAO("VST")=$P($G(^AQAOC(DA,0)),U,3) K:AQAO("VST")]"" ^AQAOC("AV",X,AQAO("VST"),DA) K AQAO 3)= TO FIND ALL VISITS FOR AN INDICATOR See description under VISIT field for AV xref.
.09	FACILITY	0;9	POINTER TO LOCATION FILE (#9999999.06)	**********************REQUIRED FIELD********************** LOCATION(#9999999.06) LAST EDITED: `AUG 05, 1992`
.11	CASE STATUS	1;1	SET	**********************REQUIRED FIELD********************** '0' FOR OPEN; '1' FOR CLOSED; '2' FOR DELETED; LAST EDITED: `APR 18, 1994` HELP-PROMPT: `Not seen by users.` CROSS-REFERENCE: `9002167^AD^MUMPS` 1)= S ^AQAOC("AD",$E(X,1,3),DA)="" K:X=2 ^AQAOC("AFF",$P(^AQAOC(DA,0),U),DA) 2)= K ^AQAOC("AD",$E(X,1,30),DA) S:X=2 ^AQAOC("AFF",$P(^AQAOC(DA,0),U),DA)="" 3)= REGULAR XREF PLUS KILL FOR RM REPORT This xref includes a regular xref for this field plus a kill of the "AFF" xref if the status = 2 (deleted). The AFF xref on field .01 is used to report all occurrences not yet reviewed for risk mgt issues. A deleted occurrence does not need to be reviewed. CROSS-REFERENCE: `9002167^ACL2^MUMPS` 1)= S AQAO=$G(^AQAOC(DA,0)),AQAO("DT")=$P(AQAO,U,4) S:(X=1)&(AQAO("DT")]"") ^AQAOC("ACL",AQAO("DT"),DA)="" K AQAO 2)= S AQAO=$G(^AQAOC(DA,0)),AQAO("DT")=$P(AQAO,U,4) K:AQAO("DT")]"" ^AQAOC("ACL",AQAO("DT"),DA) K AQAO 3)= OCC BY DATE FOR CLOSED OCC ONLY Mumps xref by date for closed occurrences only
.111	POTENTIAL FOR ADVERSE OUTCOME	1;11	POINTER TO QI LEVEL FILE (#9002169.3)	QI LEVEL(#9002169.3) INPUT TRANSFORM: `S DIC("S")="I $P(^AQAO1(3,Y,0),U,3)="""",$P(^(0),U,2)'=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S:Y]"" Y=$P(^AQAO1(3,Y,0),U)_" "_$P(^(0),U,2)` LAST EDITED: `APR 01, 1993` SCREEN: `S DIC("S")="I $P(^AQAO1(3,Y,0),U,3)="""",$P(^(0),U,2)'="""""` EXPLANATION: `CHOOSE ACTIVE RISK OUTCOMES ONLY` EXECUTABLE HELP: `D RISK^AQAOHOCC`
.112	DELETION REASON	1;12	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3) X` LAST EDITED: `MAR 14, 1994` HELP-PROMPT: `Answer must be 3-50 characters in length.`
.12	EXCEPTION	1;2	POINTER TO QI EXCEPTION FILE (#9002169.2)	QI EXCEPTION(#9002169.2) LAST EDITED: `JUN 11, 1992` EXECUTABLE HELP: `D EXC^AQAOHOCC`
.13	INITIAL REVIEW STAGE	1;3	POINTER TO QI REVIEW STAGE FILE (#9002168.7)	**********************REQUIRED FIELD********************** QI REVIEW STAGE(#9002168.7) INPUT TRANSFORM: `S DIC("S")="I +$P(^(0),U,2)<4" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 05, 1992` HELP-PROMPT: `Enter the appropriate review level for this INITIAL REVIEW.` SCREEN: `S DIC("S")="I +$P(^(0),U,2)<4"` EXPLANATION: `ONLY LEVELS 1 THRU 3 ALLOWED FOR INITIAL REVIEW`
.14	INITIAL REVIEWER	1;4	VARIABLE POINTER	**********************REQUIRED FIELD********************** NEW PERSON(#200) QI TEAM(#9002169.1) LAST EDITED: `DEC 24, 1992` EXECUTABLE HELP: `D REVR^AQAOHOCC`
.15	INITIAL FINDING	1;5	POINTER TO QI FINDINGS FILE (#9002168.8)	**********************REQUIRED FIELD********************** QI FINDINGS(#9002168.8) INPUT TRANSFORM: `S DIC("S")="I $P(^AQAO(8,Y,0),U,4)'=""I"",$D(AQAORLX),$P(^AQAO(8,Y,0),U,3)[AQAORLX" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 05, 1992` HELP-PROMPT: `Enter the reviewer's finding for this occurrence.` SCREEN: `S DIC("S")="I $P(^AQAO(8,Y,0),U,4)'=""I"",$D(AQAORLX),$P(^AQAO(8,Y,0),U,3)[AQAORLX"` EXPLANATION: `Only those findings DESIGNATED for this Review Stage`
.16	INITIAL ACTION	1;6	POINTER TO QI ACTION FILE (#9002168.6)	**********************REQUIRED FIELD********************** QI ACTION(#9002168.6) INPUT TRANSFORM: `S DIC("S")="I $D(AQAORLX),$P(^AQAO(6,Y,0),U,3)[AQAORLX" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 10, 1992` HELP-PROMPT: `Enter Action RECOMMENDED by the reviewer.` SCREEN: `S DIC("S")="I $D(AQAORLX),$P(^AQAO(6,Y,0),U,3)[AQAORLX"` EXPLANATION: `Enter only actions DESIGNATED for this review level`
.17	ADVERSE OUTCOME OF OCCURRENCE	1;7	POINTER TO QI LEVEL FILE (#9002169.3)	QI LEVEL(#9002169.3) INPUT TRANSFORM: `S DIC("S")="I $P(^AQAO1(3,Y,0),U,3)="""",$P(^(0),U,4)'=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S:Y]"" Y=$P(^AQAO1(3,Y,0),U)_" "_$P(^(0),U,4)` LAST EDITED: `DEC 02, 1992` SCREEN: `S DIC("S")="I $P(^AQAO1(3,Y,0),U,3)="""",$P(^(0),U,4)'="""""` EXPLANATION: `CHOOSE ACTIVE OCCURRENCE OUTCOMES ONLY` EXECUTABLE HELP: `D OUTCOME^AQAOHOCC`
.18	INITIAL REVIEW DATE	1;8	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 26, 1992` HELP-PROMPT: `Enter the DATE the review was performed.`
.19	REFERRED TO	1;9	VARIABLE POINTER	**********************REQUIRED FIELD********************** QI TEAM(#9002169.1) QI USER(#9002168.9) LAST EDITED: `APR 22, 1994` CROSS-REFERENCE: `9002167^AXMB1^MUMPS` 1)= I '$D(DIU(0)) D INITIAL^AQAOBUL 2)= Q 3)= SENDS BULLETIN This cross-reference sends a bulletin to the person the occurrence case has been reffered to. If the referral is to a QI team, no bulletin will be sent.
.21	REVIEW COMMENTS	1RC;0	WORD-PROCESSING #9002167.06
1	REVIEW STAGE	REV;0	POINTER Multiple #9002167.01	9002167.01 LAST EDITED: `OCT 27, 1992`
2	CASE SUMMARY	CASE;0	WORD-PROCESSING #9002167.02
3	ADDITIONAL REFERRAL	IADDRV;0	VARIABLE POINTER Multiple #9002167.03	9002167.03
91	DATE CASE CLOSED	FINAL;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 29, 1992` HELP-PROMPT: `Enter date the final determination was made for this occurrence.`
92	FINAL REVIEW STAGE	FINAL;2	POINTER TO QI REVIEW STAGE FILE (#9002168.7)	QI REVIEW STAGE(#9002168.7) LAST EDITED: `DEC 29, 1992` HELP-PROMPT: `Enter the REVIEW LEVEL at which the final conclusion was made.`
93	FINAL OUTCOME POTENTIAL	FINAL;3	POINTER TO QI LEVEL FILE (#9002169.3)	QI LEVEL(#9002169.3) INPUT TRANSFORM: `S DIC("S")="I $P(^AQAO1(3,Y,0),U,3)="""",$P(^(0),U,2)'=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S:Y]"" Y=$P(^AQAO1(3,Y,0),U)_" "_$P(^(0),U,2)` LAST EDITED: `APR 01, 1993` SCREEN: `S DIC("S")="I $P(^AQAO1(3,Y,0),U,3)="""",$P(^(0),U,2)'="""""` EXPLANATION: `CHOOSE ACTIVE RISK OUTCOMES ONLY` EXECUTABLE HELP: `D RISK^AQAOHOCC`
94	CONCLUSION	FINAL;4	POINTER TO QI FINDINGS FILE (#9002168.8)	QI FINDINGS(#9002168.8) LAST EDITED: `JUL 07, 1994` HELP-PROMPT: `Enter the FINAL FINDING determined for this occurrence review.`
95	CLOSED BY	FINAL;5	POINTER TO QI USER FILE (#9002168.9)	QI USER(#9002168.9) LAST EDITED: `DEC 29, 1992`
96	FINAL ACTION	FINAL;6	POINTER TO QI ACTION FILE (#9002168.6)	QI ACTION(#9002168.6) LAST EDITED: `JUL 07, 1994` HELP-PROMPT: `Enter the ACTION to be taken as a result of this review process.`
97	FINAL OCC OUTCOME LEVEL	FINAL;7	POINTER TO QI LEVEL FILE (#9002169.3)	QI LEVEL(#9002169.3) INPUT TRANSFORM: `S DIC("S")="I $P(^AQAO1(3,Y,0),U,3)="""",$P(^(0),U,4)'=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S:Y]"" Y=$P(^AQAO1(3,Y,0),U)_" "_$P(^(0),U,4)` LAST EDITED: `DEC 29, 1992` SCREEN: `S DIC("S")="I $P(^AQAO1(3,Y,0),U,3)="""",$P(^(0),U,4)'="""""` EXPLANATION: `CHOOSE ACTIVE OCCURRENCE OUTCOMES ONLY` EXECUTABLE HELP: `D OUTCOME^AQAOHOCC`
98	ULTIMATE PATIENT OUTCOME	FINAL;8	POINTER TO QI LEVEL FILE (#9002169.3)	QI LEVEL(#9002169.3) INPUT TRANSFORM: `S DIC("S")="I $P(^AQAO1(3,Y,0),U,3)="""",$P(^(0),U,5)'=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S:Y]"" Y=$P(^AQAO1(3,Y,0),U)_" "_$P(^(0),U,5)` LAST EDITED: `DEC 31, 1992` SCREEN: `S DIC("S")="I $P(^AQAO1(3,Y,0),U,3)="""",$P(^(0),U,5)'="""""` EXPLANATION: `CHOOSE ACTIVE ULTIMATE OUTCOMES ONLY` EXECUTABLE HELP: `D ULTIMATE^AQAOHOCC`
11001	TRANSFUSION DATE & TIME	11000;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 10, 1992` HELP-PROMPT: `Enter the date and time the transfusion took place.`
11002	BLOOD COMPONENT	11000;2	POINTER TO BLOOD PRODUCT FILE (#66)	**********************REQUIRED FIELD********************** BLOOD PRODUCT(#66) LAST EDITED: `NOV 10, 1992`
11003	UNITS ORDERED	11000;3	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<.01)!(X?.E1"."3N.N) X` LAST EDITED: `NOV 10, 1992` HELP-PROMPT: `Type a Number between .01 and 999, 2 Decimal Digits`
11004	VOLUME TRANSFUSED	11000;4	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `NOV 10, 1992` HELP-PROMPT: `Type a Number between 0 and 999, 2 Decimal Digits`
11005	TRANSFUSION REACTION?	11000;5	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; LAST EDITED: `NOV 10, 1992` HELP-PROMPT: `Did the patient suffer a reaction from the transfusion?`

Customize PDF page

Package: Quality Assurance

Global: ^AQAOC

Information

Description

Directly Accessed By Routines, Total: 70

Accessed By FileMan Db Calls, Total: 35

Pointed To By FileMan Files, Total: 6

Pointer To FileMan Files, Total: 15

Fields, Total: 39