Global: ^AQAO(5

FileMan FileNo	FileMan Filename	Package
9002168.5	QI ACTION PLAN	Quality Assurance

Directly Accessed By Routines, Total: 24

Package	Total	Routines
Quality Assurance	24	AQAOAPA AQAOAPC AQAOCHK AQAOCHK4 AQAOCID AQAOPC51 AQAOPC54 AQAOSEC AQAOT07 AQAOT15 AQAOT151 AQAOT152 AQAOT54 AQAOT61 AQAOT62 AQAOT66 AQAOT73 AQAOT74 AQAOT76 AQAOT77 AQAOX851 AQAOX852 AQAOX853 AQAOX854

Accessed By FileMan Db Calls, Total: 13

Package	Total	Routines
Quality Assurance	13	AQAOAPA AQAOAPC AQAOPA1 AQAOPA2 AQAOPA3 AQAOPA4 AQAOPA5 AQAOPA6 AQAOPC54 AQAOT07 AQAOT15 AQAOT151 AQAOT152

Pointer To FileMan Files, Total: 5

Package	Total	FileMan Files
Quality Assurance	3	QI INDICATORS(#9002168.2)[.14] QI ACTION(#9002168.6)[.02, .15] QI TEAM(#9002169.1)[#9002168.52(.01)]
Kernel	1	NEW PERSON(#200)[.08, .11]
Utility Tables	1	LOCATION(#9999999.06)[.12]

Fields, Total: 20

Field #	Name	Loc	Type	Details
.01	ACTION NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X` LAST EDITED: `AUG 12, 1992` HELP-PROMPT: `Computer generated number based on facility, fiscal year, & counter.` UNEDITABLE CROSS-REFERENCE: `9002168.5^B` 1)= S ^AQAO(5,"B",$E(X,1,30),DA)="" 2)= K ^AQAO(5,"B",$E(X,1,30),DA) 3)= REGULAR 'B' XREF
.02	ACTION CATEGORY	0;2	POINTER TO QI ACTION FILE (#9002168.6)	**********************REQUIRED FIELD********************** QI ACTION(#9002168.6) LAST EDITED: `DEC 15, 1993` HELP-PROMPT: `This aids in grouping Action Plans for sorting purposes.`
.03	IMPLEMENTATION DATE	0;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 11, 1992` HELP-PROMPT: `ENTER THE DATE THE PLAN WAS IMPLEMENTED.`
.04	PROPOSED REVIEW DATE	0;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 14, 1992` HELP-PROMPT: `ENTER THE PROPOSED DATE TO REVIEW THE EFFECTIVENESS OF THIS PLAN.`
.05	PLAN STATUS	0;5	SET	**********************REQUIRED FIELD********************** '1' FOR AWAITING IMPLEMENTATION; '2' FOR IMPLEMENTED; '3' FOR REVIEWED-EFFECTIVE CHANGE; '4' FOR REVIEWED-PARTIALLY EFFECTIVE; '5' FOR REVIEWED-INEFFECTIVE CHANGE; '9' FOR DELETED; LAST EDITED: `DEC 14, 1992` HELP-PROMPT: `What is the plan's current status?` CROSS-REFERENCE: `9002168.5^AC` 1)= S ^AQAO(5,"AC",$E(X,1,30),DA)="" 2)= K ^AQAO(5,"AC",$E(X,1,30),DA) 3)= ACTION PLANS BY STATUS DESIGNATION Used to find all action plans by a particular status.
.06	CLOSE DATE	0;6	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 16, 1992` HELP-PROMPT: `ENTER THE DATE THE EVALUATION OF THIS PLAN WAS COMPLETED.`
.07	NEW ACTION PLAN NUMBER	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `JUN 11, 1992` EXECUTABLE HELP: `D NEWNUM^AQAOHAPL`
.08	ENTERED BY	0;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 11, 1992`
.09	ENTERED ON	0;9	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 11, 1992` HELP-PROMPT: `Not seen by user.`
.11	CLOSED OUT BY	0;11	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 16, 1992` HELP-PROMPT: `ENTER THE AUTHOR OF THE EVALUATION REPORT`
.12	RPMS SITE	0;12	POINTER TO LOCATION FILE (#9999999.06)	**********************REQUIRED FIELD********************** LOCATION(#9999999.06) LAST EDITED: `AUG 05, 1992`
.13	DELETION REASON	0;13	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `AUG 06, 1992` HELP-PROMPT: `Enter a short (up to 30 characters) reason the plan has been deleted.`
.14	INDICATOR	0;14	POINTER TO QI INDICATORS FILE (#9002168.2)	**********************REQUIRED FIELD********************** QI INDICATORS(#9002168.2) LAST EDITED: `SEP 15, 1992` HELP-PROMPT: `LINK this Action Plan to the Clinical Indicator to which it relates.` CROSS-REFERENCE: `9002168.5^C` 1)= S ^AQAO(5,"C",$E(X,1,30),DA)="" 2)= K ^AQAO(5,"C",$E(X,1,30),DA) 3)= ALLOWS LOOKUP BY INDICATOR An action plan can be selected by action number or by indicator.
.15	NEXT STEP	0;15	POINTER TO QI ACTION FILE (#9002168.6)	QI ACTION(#9002168.6) LAST EDITED: `APR 06, 1993` HELP-PROMPT: `What is the next step in this QI cycle?`
1	ACTION TAKEN	SUMM;0	WORD-PROCESSING #9002168.51	LAST EDITED: `DEC 15, 1993`
2	IMPLEMENTATION TEAMS	TEAM;0	POINTER Multiple #9002168.52	9002168.52
3	PERFORMANCE MEASUREMENTS	EVAL;0	WORD-PROCESSING #9002168.53	LAST EDITED: `DEC 15, 1993`
4	ACTION ASSESSMENT REPORT	RPT;0	WORD-PROCESSING #9002168.54	LAST EDITED: `DEC 15, 1993`
5	INDICATOR ASSESSMENT REPORT	IND;0	WORD-PROCESSING #9002168.55
99	FACILITY		COMPUTED	MUMPS CODE: `S X=$S('$D(DUZ(2)):"",DUZ(2)=0:"",1:$P(^DIC(4,DUZ(2),0),U))` ALGORITHM: `S X=$S('$D(DUZ(2)):"",DUZ(2)=0:"",1:$P(^DIC(4,DUZ(2),0),U))`

Customize PDF page

Package: Quality Assurance

Global: ^AQAO(5

Information

Description

Directly Accessed By Routines, Total: 24

Accessed By FileMan Db Calls, Total: 13

Pointer To FileMan Files, Total: 5

Fields, Total: 20