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 |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^AQAGP

Package: Quality Assurance

Global: ^AQAGP


Information

FileMan FileNo FileMan Filename Package
9002166.4 QI PARAMETER Quality Assurance

Description

Directly Accessed By Routines, Total: 14

Package Total Routines
Quality Assurance 14 AQALDG4    AQALDG5    AQALDG51    AQALDG53    AQAOCHK0    AQAOLARP    AQAOPAR    AQAOPAR1
AQAOPOS2    AQAOPU1    AQAOT23    AQAOT231    AQAOT232    AQAOT41    

Accessed By FileMan Db Calls, Total: 11

Package Total Routines
Quality Assurance 11 AQALDG4    AQALDG5    AQAOLARP    AQAOPAR    AQAOPAR1    AQAOPOS2    AQAOPU1    AQAOT23
AQAOT231    AQAOT232    AQAOT41    

Pointer To FileMan Files, Total: 7

Package Total FileMan Files
Quality Assurance 3 QI FUNCTIONS(#9002168.1)[#9002166.414(.01)]    QI INDICATORS(#9002168.2)[#9002166.413(.01), #9002166.415(.01)]    QI USER(#9002168.9)[#9002166.411(.01)]    
Kernel 1 SERVICE/SECTION(#49)[#9002166.42(.01)]    
Registration 1 WARD LOCATION(#42)[.05, .06]    
Taxonomy 1 TAXONOMY(#9002226)[#9002166.43(.01)]    
Utility Tables 1 LOCATION(#9999999.06)[.01]    

Fields, Total: 48

Field # Name Loc Type Details
.01 FACILITY 0;1 POINTER TO LOCATION FILE (#9999999.06)
************************REQUIRED FIELD************************
LOCATION(#9999999.06)

  • INPUT TRANSFORM:  S DINUM=X Q
  • LAST EDITED:  DEC 17, 1992
  • HELP-PROMPT:  Set up parameters for all IHS facilities serviced by this computer system.
  • TECHNICAL DESCR:  
    Quality Improvement facility locations.  System can handle more than one facility per UCI.  Each facility will have different a parameter setup.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002166.4^B
    1)= S ^AQAGP("B",$E(X,1,30),DA)=""
    2)= K ^AQAGP("B",$E(X,1,30),DA)
    3)= REGULAR 'B' XREF
.02 OCCURRENCE REVIEW LIMIT 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 08, 1993
  • TECHNICAL DESCR:  Used by QAI Mgt. System. Used to determine when an occurrence is overdue for review. Based on occurrence date for those needing initial review. Based on review date for those referred on to other users or QI teams or
    waiting to be closed out.
  • EXECUTABLE HELP:  D OVERDUE^AQAOHPA1
.03 JCAHO IMS BEGIN DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 29, 1993
  • HELP-PROMPT:  Enter the date you wish to begin collecting data for the JCAHO IMS.
  • TECHNICAL DESCR:  
    Used by QI LINKAGES-JCAHO package.  Determines earliest discharge date for JCAHO IMS transmission.
.04 INCLUDE DAY SURGERIES? 0;4 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  DEC 29, 1993
  • HELP-PROMPT:  Do you want Day Surgeries included in JCAHO Indicator Analysis Reports?
  • TECHNICAL DESCR:  
    Used by upcoming QI LINKAGES-JCAHO package.
.05 NICU WARD 1 0;5 POINTER TO WARD LOCATION FILE (#42) WARD LOCATION(#42)

  • LAST EDITED:  FEB 11, 1994
.06 NICU WARD 2 0;6 POINTER TO WARD LOCATION FILE (#42) WARD LOCATION(#42)

  • LAST EDITED:  FEB 11, 1994
1 LOCAL COMPLICATION TAXONOMY TAX;0 POINTER Multiple #9002166.43 9002166.43
100 FACILITY REPORT FACRPT;0 Multiple #9002166.41 9002166.41
1001 ADT TRANSFER-IN LINK ADT;1 SET
************************REQUIRED FIELD************************
  • '1' FOR ON;
  • '0' FOR OFF;

  • LAST EDITED:  DEC 17, 1992
  • EXECUTABLE HELP:  D LNKQUES^AQAOPAR
1002 TRANSFER-IN INDICATOR ADT;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<7) X
  • LAST EDITED:  DEC 17, 1992
  • HELP-PROMPT:  Answer must be 7 characters in length
1003 TRANSFER-IN GLOBAL REF ADT;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  DEC 17, 1992
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
1004 TRANSFER-IN DUP OK ADT;4 SET
************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  AUG 02, 1994
  • EXECUTABLE HELP:  D DUPQUES^AQAOPAR
    UNEDITABLE
1011 ADT READMISSION LINK ADT;11 SET
************************REQUIRED FIELD************************
  • '1' FOR ON;
  • '0' FOR OFF;

  • LAST EDITED:  DEC 21, 1992
  • EXECUTABLE HELP:  D LNKQUES^AQAOPAR
1012 READMISSION INDICATOR ADT;12 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<7) X
  • LAST EDITED:  DEC 21, 1992
  • HELP-PROMPT:  Answer must be 7 characters in length.
1013 READMISSION GLOBAL REF ADT;13 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  DEC 21, 1992
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
1014 READMISSION DUP OK ADT;14 SET
************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  AUG 02, 1994
  • EXECUTABLE HELP:  D DUPQUES^AQAOPAR
    UNEDITABLE
1021 ADT ADMIT AFTER DS LINK ADT;21 SET
************************REQUIRED FIELD************************
  • '1' FOR ON;
  • '0' FOR OFF;

  • LAST EDITED:  DEC 21, 1992
  • EXECUTABLE HELP:  D LNKQUES^AQAOPAR
1022 ADMIT AFTER DS INDICATOR ADT;22 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<7) X
  • LAST EDITED:  DEC 21, 1992
  • HELP-PROMPT:  Answer must be 7 characters in length.
1023 ADMIT AFTER DS GLOBAL REF ADT;23 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  DEC 21, 1992
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
1024 ADMIT AFTER DS DUP OK ADT;24 SET
************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  AUG 02, 1994
  • EXECUTABLE HELP:  D DUPQUES^AQAOPAR
    UNEDITABLE
1031 ADT ICU TRANSFER ADT;31 SET
************************REQUIRED FIELD************************
  • '1' FOR ON;
  • '0' FOR OFF;

  • LAST EDITED:  AUG 02, 1994
  • EXECUTABLE HELP:  D LNKQUES^AQAOPAR
1032 ICU TRANSFER INDICATOR ADT;32 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<7) X
  • LAST EDITED:  DEC 21, 1992
  • HELP-PROMPT:  Answer must be 7 characters in length.
1033 ICU TRANSFER GLOBAL REF ADT;33 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  DEC 21, 1992
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
1034 ICU TRANSFER DUP OK ADT;34 SET
************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  DEC 21, 1992
  • EXECUTABLE HELP:  D DUPQUES^AQAOPAR
1041 ADT AMA DISCHARGE LINK ADT;41 SET
************************REQUIRED FIELD************************
  • '1' FOR ON;
  • '0' FOR OFF;

  • LAST EDITED:  DEC 21, 1992
  • EXECUTABLE HELP:  D LNKQUES^AQAOPAR
1042 AMA DISCHARGE INDICATOR ADT;42 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<7) X
  • LAST EDITED:  DEC 21, 1992
  • HELP-PROMPT:  Answer must be 7 characters in length.
1043 AMA DISCHARGE GLOBAL REF ADT;43 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  DEC 21, 1992
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
1044 AMA DISCHARGE DUP OK ADT;44 SET
************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  AUG 02, 1994
  • EXECUTABLE HELP:  D DUPQUES^AQAOPAR
    UNEDITABLE
1051 ADT TRANSFER-OUT LINK ADT;51 SET
************************REQUIRED FIELD************************
  • '1' FOR ON;
  • '0' FOR OFF;

  • LAST EDITED:  DEC 21, 1992
  • EXECUTABLE HELP:  D LNKQUES^AQAOPAR
1052 TRANSFER-OUT INDICATOR ADT;52 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<7) X
  • LAST EDITED:  DEC 21, 1992
  • HELP-PROMPT:  Answer must be 7 characters in length.
1053 TRANSFER-OUT GLOBAL REF ADT;53 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  DEC 21, 1992
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
1054 TRANSFER-OUT DUP OK ADT;54 SET
************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  AUG 02, 1994
  • EXECUTABLE HELP:  D DUPQUES^AQAOPAR
    UNEDITABLE
1061 ADT INPT DEATH LINK ADT;61 SET
************************REQUIRED FIELD************************
  • '1' FOR ON;
  • '0' FOR OFF;

  • LAST EDITED:  DEC 21, 1992
  • EXECUTABLE HELP:  D LNKQUES^AQAOPAR
1062 INPT DEATH INDICATOR ADT;62 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<7) X
  • LAST EDITED:  DEC 21, 1992
  • HELP-PROMPT:  Answer must be 7 characters in length.
1063 INPT DEATH GLOBAL REF ADT;63 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  DEC 21, 1992
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
1064 INPT DEATH DUP OK ADT;64 SET
************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  AUG 02, 1994
  • EXECUTABLE HELP:  D DUPQUES^AQAOPAR
    UNEDITABLE
1071 ADT RETURN TO ICU ADT;71 SET
************************REQUIRED FIELD************************
  • '1' FOR ON;
  • '0' FOR OFF;

  • LAST EDITED:  AUG 02, 1994
  • EXECUTABLE HELP:  D LNKQUES^AQAOPAR
1072 RETURN TO ICU INDICATOR ADT;72 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<7) X
  • LAST EDITED:  SEP 02, 1993
  • HELP-PROMPT:  Answer must be 7 characters in length.
1073 RETURN TO ICU GLOBAL REF ADT;73 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  MAY 13, 1994
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
1074 RETURN TO ICU DUP OK ADT;74 SET
************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  SEP 02, 1993
  • EXECUTABLE HELP:  D DUPQUES^AQAOPAR
1075 RETURN TO ICU DELAY-# OF DAYS ADT;75 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 29, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • EXECUTABLE HELP:  D RICU^AQAOPAR
2001 JCAHO IMS BEGIN DATE JCAHO;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 20, 1994
  • EXECUTABLE HELP:  S XQH="AQAJ PARAMETERS" D EN^XQH S XQH=""
2002 HCO ID NUMBER JCAHO;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 23, 1994
  • EXECUTABLE HELP:  S XQH="AQAJ PARAMETERS" D EN^XQH S XQH=""
2003 TRANSMISSION PASSWORD JCAHO;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  SEP 20, 1994
  • EXECUTABLE HELP:  S XQH="AQAJ PARAMETERS" D EN^XQH S XQH=""
2004 HCO SITE ID JCAHO;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 23, 1994
  • EXECUTABLE HELP:  S XQH="AQAJ PARAMETERS" D EN^XQH S XQH=""
2005 DATA FILE DIRECTORY JCAHO;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  OCT 21, 1994
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
2006 LAST BATCH COUNTER JCAHO;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 26, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
9000 LINKED SERVICES SRV;0 POINTER Multiple #9002166.42 9002166.42
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All