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: ^AQAGU

Package: Quality Assurance

Global: ^AQAGU


Information

FileMan FileNo FileMan Filename Package
9002166.3 QI AUDIT Quality Assurance

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Quality Assurance 2 AQAOCHK0    AQAOT59    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Quality Assurance 2 AQAOAUD    AQAOPR9    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Quality Assurance 2 QI USER(#9002168.9)[.03]    QI OCCURRENCE(#9002167)[.02]    

Fields, Total: 7

Field # Name Loc Type Details
.01 AUDIT DATE & TIME 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 15, 1992
  • HELP-PROMPT:  date/time stamp
  • TECHNICAL DESCR:  
    Date and time stamp when entry was created.
  • CROSS-REFERENCE:  9002166.3^B
    1)= S ^AQAGU("B",$E(X,1,30),DA)=""
    2)= K ^AQAGU("B",$E(X,1,30),DA)
    3)= REGULAR 'B' XREF
.02 OCCURRENCE IFN 0;2 POINTER TO QI OCCURRENCE FILE (#9002167)
************************REQUIRED FIELD************************
QI OCCURRENCE(#9002167)

  • LAST EDITED:  JUN 15, 1992
  • TECHNICAL DESCR:  
    Pointer to occurrence on which some function was performed.
  • CROSS-REFERENCE:  9002166.3^AC
    1)= S ^AQAGU("AC",$E(X,1,30),DA)=""
    2)= K ^AQAGU("AC",$E(X,1,30),DA)
    3)= TO FIND ALL AUDIT ENTRIES BY OCCURRENCE
    Used to pull all audit entries by occurrence for Audit report on QAI Package Administration menu.
.03 USER 0;3 POINTER TO QI USER FILE (#9002168.9)
************************REQUIRED FIELD************************
QI USER(#9002168.9)

  • LAST EDITED:  JUN 15, 1992
  • TECHNICAL DESCR:  
    Computer user signed in during audited function.
  • CROSS-REFERENCE:  9002166.3^C
    1)= S ^AQAGU("C",$E(X,1,30),DA)=""
    2)= K ^AQAGU("C",$E(X,1,30),DA)
    3)= ALLOWS LOOKUP BY USER
    Allows lookup by user for Audit Report on QAI Package Administration menu.
.035 USER INITIALS COMPUTED

  • MUMPS CODE:  X ^DD(9002166.3,.035,9.4) S X=$P(Y(9002166.3,.035,201),U,2) S D0=Y(9002166.3,.035,80)
    9.2 = S Y(9002166.3,.035,80)=$S($D(D0):D0,1:""),Y(9002166.3,.035,1)=$S($D(^AQAGU(D0,0)):^(0),1:""),D0=$P(Y(9002166.3,.035,1),U,3) S:'$D(^AQAO(9,+D0,0)) D0=-1
    9.3 = X ^DD(9002166.3,.035,9.2) S Y(9002166.3,.035,180)=$S($D(D0):D0,1:""),Y(9002166.3,.035,101)=$S($D(^AQAO(9,D0,0)):^(0),1:"")
    9.4 = X ^DD(9002166.3,.035,9.3) S D0=$P(Y(9002166.3,.035,101),U,1) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(9002166.3,.035,201)=$S($D(^VA(200,D0,0)):^(0),1:"")
  • ALGORITHM:  .03:.01:INITIAL
  • TECHNICAL DESCR:  
    Computed field to expedite printing of user initials.
.04 ACTION 0;4 SET
************************REQUIRED FIELD************************
  • 'O' FOR OPEN;
  • 'E' FOR EDIT;
  • 'C' FOR CLOSE;
  • 'D' FOR DELETE;

  • LAST EDITED:  JUN 15, 1992
  • HELP-PROMPT:  function user performed
  • TECHNICAL DESCR:  
    Type of function performed that triggered creation of audit entry.
.05 COMMENT 0;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JUN 15, 1992
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • TECHNICAL DESCR:  
    Free text additional comment sent by software to expand on ACTION.
.06 OCC REVIEW IFN 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 21, 1992
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • TECHNICAL DESCR:  
    Subfile number of REVIEW STAGE multiple.  Entered if function was performed on the subfile.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All