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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^QA(740.5

Package: Quality Assurance Integration

Global: ^QA(740.5


Information

FileMan FileNo FileMan Filename Package
740.5 QA AUDIT Quality Assurance Integration

Description

Directly Accessed By Routines, Total: 9

Package Total Routines
Quality Assurance Integration 6 QAQ AUDIT LIST    QAQAUTL    ^QA(740.5    AUDIT TRAIL    QAQADLAU    QAQAUDIT    
Clinical Monitoring System 1 QAMPINQ5    
Occurrence Screen 1 QAOSPAUD    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Clinical Monitoring System 1 QAMPINQ5    
Occurrence Screen 1 QAOSPAUD    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Clinical Monitoring System 1 FALL OUT(#743.1)[100]    
Occurrence Screen 1 QA OCCURRENCE SCREEN(#741)[27]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[#740.51(.02)]    
VA FileMan 1 FILE(#1)[.01]    

Fields, Total: 3

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

  • INPUT TRANSFORM:  K:'((X'<740)&(X<750)) X
  • LAST EDITED:  NOV 20, 1989
  • HELP-PROMPT:  Please enter the name of a QA file.
  • DESCRIPTION:  
    This is the QA FILE that is being audited.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  740.5^B
    1)= S ^QA(740.5,"B",$E(X,1,30),DA)=""
    2)= K ^QA(740.5,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  740.5^AA1^MUMPS
    1)= S QA=$S($D(^QA(740.5,DA,0)):^(0),1:""),QA(2)=$P(QA,"^",2) S:QA(2)'="" ^QA(740.5,"AA",X,QA(2),DA)="" K QA
    2)= S QA=$S($D(^QA(740.5,DA,0)):^(0),1:""),QA(2)=$P(QA,"^",2) K:QA(2)'="" ^QA(740.5,"AA",X,QA(2),DA) K QA
.02 ENTRY 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  N %,C D EN2^QAQAUTL
  • LAST EDITED:  NOV 20, 1989
  • HELP-PROMPT:  Enter the Internal Entry Number between 1 and 999999999
  • DESCRIPTION:  
    This is the IEN of the file entry being audited.
    UNEDITABLE
  • CROSS-REFERENCE:  740.5^AA2^MUMPS
    1)= S QA=$S($D(^QA(740.5,DA,0)):^(0),1:""),QA(1)=$P(QA,"^") S:QA(1)'="" ^QA(740.5,"AA",QA(1),X,DA)="" K QA
    2)= S QA=$S($D(^QA(740.5,DA,0)):^(0),1:""),QA(1)=$P(QA,"^") K:QA(1)'="" ^QA(740.5,"AA",QA(1),X,DA) K QA
1 AUDIT TRAIL 1;0 DATE Multiple #740.51 740.51

  • DESCRIPTION:  
    This is the trail of the activity associated with the IEN of the file.

External References

Name Field # of Occurrence
EN2^QAQAUTL .02OT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(740.5 - [#740.5] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% .02OT+1~
C .02OT+1~
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K)
QA .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K)
QA(1 .02(XREF 1S), .02(XREF 1K)
QA(2 .01(XREF 2S), .01(XREF 2K)
U ID.02+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02+1!, .02(XREF 1S), .02(XREF 1K)
>> Y .02OT+1
>> Y(0 .02OT+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All