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: ^AQAOCC(5

Package: Quality Assurance

Global: ^AQAOCC(5


Information

FileMan FileNo FileMan Filename Package
9002166.5 QI OCC CRITERIA Quality Assurance

Description

Directly Accessed By Routines, Total: 12

Package Total Routines
Quality Assurance 11 AQAOEDTP    AQAOPC11    AQAOPC71    AQAOT171    AQAOT19    AQAOT39    AQAOT65    AQAOT94
AQAOUT    AQAOX651    AQAOX652    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Quality Assurance 3 AQAOT171    AQAOT19    AQAOT39    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Quality Assurance 3 QI CRITERIA CODES(#9002169.4)[.06]    QI REVIEW CRITERIA(#9002169.6)[.01]    QI OCCURRENCE(#9002167)[.02]    
IHS Patient 1 PATIENT(#9000001)[.03]    

Fields, Total: 7

Field # Name Loc Type Details
.01 NAME 0;1 POINTER TO QI REVIEW CRITERIA FILE (#9002169.6)
************************REQUIRED FIELD************************
QI REVIEW CRITERIA(#9002169.6)

  • LAST EDITED:  OCT 13, 1993
  • CROSS-REFERENCE:  9002166.5^B
    1)= S ^AQAOCC(5,"B",$E(X,1,30),DA)=""
    2)= K ^AQAOCC(5,"B",$E(X,1,30),DA)
    3)= REGULAR 'B' XREF
.02 OCCURRENCE 0;2 POINTER TO QI OCCURRENCE FILE (#9002167)
************************REQUIRED FIELD************************
QI OCCURRENCE(#9002167)

  • LAST EDITED:  MAY 10, 1993
  • CROSS-REFERENCE:  9002166.5^AB
    1)= S ^AQAOCC(5,"AB",$E(X,1,30),DA)=""
    2)= K ^AQAOCC(5,"AB",$E(X,1,30),DA)
    3)= FOR CONTEXT SWITCH FROM QI OCC FILE
    Need a regular xref to handle context switch from QI Occurrence file to this file during execution of input template.
  • CROSS-REFERENCE:  9002166.5^AC^MUMPS
    1)= N AQAOX S AQAOX=+^AQAOCC(5,DA,0) S:AQAOX]"" ^AQAOCC(5,"AC",X,AQAOX,DA)=""
    2)= N AQAOX S AQAOX=+^AQAOCC(5,DA,0) K:AQAOX]"" ^AQAOCC(5,"AC",X,AQAOX,DA)
    3)= TO FIND ALL CRITERIA ENTRIES FOR AN OCCURRENCE
    This xref is used to find all review criteria entered for a particular occurrence.  It is used by ^AQAOEDTP to display all criteria already entered during the data entry process.  It is also used by ^AQAOPC11 to group
    criteria by occurrence in the Trending Report - Occurrences by Review Criteria.
.03 PATIENT 0;3 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  APR 28, 1993
.05 YES/NO/NA 0;5 SET
************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;
  • '2' FOR N/A;

  • LAST EDITED:  JUL 28, 1994
.06 CODE 0;6 POINTER TO QI CRITERIA CODES FILE (#9002169.4)
************************REQUIRED FIELD************************
QI CRITERIA CODES(#9002169.4)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^AQAO1(6,""AB"",Y,AQAOCR))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 10, 1993
  • SCREEN:  S DIC("S")="I $D(^AQAO1(6,""AB"",Y,AQAOCR))"
  • EXPLANATION:  ONLY CODES DEFINED FOR THIS CRITERIA ARE LISTED
.07 NUMBER 0;7 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D SETNUM^AQAODIC K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"."3N.N)!(XAQAOHI) X K AQAOLOW,AQAOHI
  • LAST EDITED:  JUL 28, 1994
  • EXECUTABLE HELP:  D SETNUM^AQAODIC W !!,"Enter a number between ",AQAOLOW," and ",AQAOHI," inclusive."
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.08 DATE 0;8 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 28, 1993
  • HELP-PROMPT:  Enter the date that applies.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All