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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^QA(743.1

Package: Clinical Monitoring System

Global: ^QA(743.1


Information

FileMan FileNo FileMan Filename Package
743.1 FALL OUT Clinical Monitoring System

Description

Directly Accessed By Routines, Total: 16

Package Total Routines
Clinical Monitoring System 16 DATA    QAMAHO2    QAMAHO3A    QAMAHO4    QAMAHO5    QAMARCH1    QAMAUTO2    QAMAUTO6
QAMAUTO7    QAMC9    QAMEDT5    QAMEDT5A    QAMPFAL0    QAMPINQ1    ^QA(743.1    QAMPINQ5

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Clinical Monitoring System 5 QAMARCH1    QAMAUTO2    QAMEDT5    QAMEDT5A    QAMPINQ5    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Clinical Monitoring System 2 QA MONITOR(#743)[.02]    DATA ELEMENT(#743.4)[#743.11(.01)]    
Quality Assurance Integration 1 QA AUDIT(#740.5)[100]    
Registration 1 PATIENT(#2)[.01]    

Fields, Total: 6

Field # Name Loc Type Details
.01 PATIENT 0;1 POINTER TO PATIENT FILE (#2) PATIENT(#2)

  • LAST EDITED:  JAN 18, 1991
  • HELP-PROMPT:  Choose a entry from the patient file.
  • DESCRIPTION:  
    This field is a pointer to the patient file. This field holds an actual patient from the patient file.
  • TECHNICAL DESCR:  
    This field is a pointer to the patient file. No LAYGO is allowed from the '.01' field to the patient file (^DPT global).
  • DELETE TEST:  1,0)= S QADL=1 I 0
  • CROSS-REFERENCE:  743.1^B
    1)= S ^QA(743.1,"B",$E(X,1,30),DA)=""
    2)= K ^QA(743.1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  743.1^AA1^MUMPS
    1)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(2)=$P(QAM,U,2),QAM(3)=$P(QAM,U,3) S:QAM(2)]""&(QAM(3)]"") ^QA(743.1,"AA",QAM(2),QAM(3),X,DA)="" K QAM
    2)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(2)=$P(QAM,U,2),QAM(3)=$P(QAM,U,3) K:QAM(2)]""&(QAM(3)]"") ^QA(743.1,"AA",QAM(2),QAM(3),X,DA) K QAM
    3)= CANNOT DELETE CROSS-REFERENCE!!
    Cross-reference of MONITOR, EVENT DATE, and PATIENT.
  • CROSS-REFERENCE:  743.1^AB1^MUMPS
    1)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(2)=$P(QAM,"^",2),QAM(3)=$P(QAM,"^",3) S:QAM(2)]""&(QAM(3)]"") ^QA(743.1,"AB",QAM(2),X,QAM(3),DA)="" K QAM
    2)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(2)=$P(QAM,"^",2),QAM(3)=$P(QAM,"^",3) K:QAM(2)]""&(QAM(3)]"") ^QA(743.1,"AB",QAM(2),X,QAM(3),DA) K QAM
    Cross-reference of MONITOR, PATIENT, and EVENT DATE.
.02 MONITOR 0;2 POINTER TO QA MONITOR FILE (#743) QA MONITOR(#743)

  • LAST EDITED:  FEB 15, 1991
  • HELP-PROMPT:  Enter the name of a valid QA MONITOR.
  • DESCRIPTION:  
    This field contains the name of the monitor that the patient fell out under.
  • CROSS-REFERENCE:  743.1^AA2^MUMPS
    1)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(1)=$P(QAM,U,1),QAM(3)=$P(QAM,U,3) S:QAM(1)]""&(QAM(3)]"") ^QA(743.1,"AA",X,QAM(3),QAM(1),DA)="" K QAM
    2)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(1)=$P(QAM,U,1),QAM(3)=$P(QAM,U,3) K:QAM(1)]""&(QAM(3)]"") ^QA(743.1,"AA",X,QAM(3),QAM(1),DA) K QAM
    3)= CROSS-REFRENCE MUST NOT BE DELETED!!
    Links the three fields together to allow only one $D check for the entries in the fields
    Cross-reference of MONITOR, EVENT DATE, and PATIENT.
  • CROSS-REFERENCE:  743.1^AB2^MUMPS
    1)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(1)=$P(QAM,"^"),QAM(3)=$P(QAM,"^",3) S:QAM(1)]""&(QAM(3)]"") ^QA(743.1,"AB",X,QAM(1),QAM(3),DA)="" K QAM
    2)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(1)=$P(QAM,"^"),QAM(3)=$P(QAM,"^",3) K:QAM(1)]""&(QAM(3)]"") ^QA(743.1,"AB",X,QAM(1),QAM(3),DA) K QAM
    Cross-reference of MONITOR, PATIENT, and EVENT DATE.
  • CROSS-REFERENCE:  743.1^C
    1)= S ^QA(743.1,"C",$E(X,1,30),DA)=""
    2)= K ^QA(743.1,"C",$E(X,1,30),DA)
.03 EVENT DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 18, 1991
  • HELP-PROMPT:  Enter the date of the event.
  • DESCRIPTION:  
    This field contains the event date for this patient and this monitor.
  • TECHNICAL DESCR:  
    Date the patient from PATIENT file (#2) becomes auto enrolled.
  • CROSS-REFERENCE:  743.1^AA3^MUMPS
    1)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(1)=$P(QAM,U,1),QAM(2)=$P(QAM,U,2) S:QAM(1)]""&(QAM(2)]"") ^QA(743.1,"AA",QAM(2),X,QAM(1),DA)="" K QAM
    2)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(1)=$P(QAM,U,1),QAM(2)=$P(QAM,U,2) K:QAM(1)]""&(QAM(2)]"") ^QA(743.1,"AA",QAM(2),X,QAM(1),DA) K QAM
    3)= CANNOT DELETE CROSS-REFRENCE!!
    Cross-reference of MONITOR, EVENT DATE, and PATIENT.
  • CROSS-REFERENCE:  743.1^AB3^MUMPS
    1)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(1)=$P(QAM,"^"),QAM(2)=$P(QAM,"^",2) S:QAM(1)]""&(QAM(2)]"") ^QA(743.1,"AB",QAM(2),QAM(1),X,DA)="" K QAM
    2)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(1)=$P(QAM,"^"),QAM(2)=$P(QAM,"^",2) K:QAM(1)]""&(QAM(2)]"") ^QA(743.1,"AB",QAM(2),QAM(1),X,DA) K QAM
    Cross-reference of MONITOR, PATIENT, and EVENT DATE.
.04 DATE RECORD CREATED 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 18, 1992
  • HELP-PROMPT:  Enter the date this record was added to the file.
  • DESCRIPTION:  
    For auto enrolled fall outs this is the date auto enroll ran for. For manually entered fall outs this is the date the fall out was entered.
  • CROSS-REFERENCE:  743.1^ADRC
    1)= S ^QA(743.1,"ADRC",$E(X,1,30),DA)=""
    2)= K ^QA(743.1,"ADRC",$E(X,1,30),DA)
1 DATA 1;0 POINTER Multiple #743.11 743.11

  • DESCRIPTION:  
    This is a pointer to the DATA ELEMENT file. Enter a valid data element.
100 AUDIT AUDIT;1 POINTER TO QA AUDIT FILE (#740.5) QA AUDIT(#740.5)

  • LAST EDITED:  APR 22, 1991
  • HELP-PROMPT:  Enter the audit file pointer.
  • DESCRIPTION:  
    This is a pointer to the audit file entry for this fall out record. The audit file contains data on what was done to this record and when it was done.
    WRITE AUTHORITY: ^
  • CROSS-REFERENCE:  743.1^AUDIT^MUMPS
    1)= Q
    2)= N QAUDIT S QAUDIT("FILE")=743.1,QAUDIT("DA")=DA D:$D(QADL) ^QAQADLAU K QADL Q
    The kill logic of this cross reference deletes the audit file entry for this record when this record is deleted.

External References

Name Field # of Occurrence
^%DT .03+1, .04+1
Y^DIQ ID.02+1
^QAQADLAU 100(XREF 1K)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(743 ID.02+1
^QA(743 - [#743] ID.02+1
^QA(743.1 - [#743.1] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
.02(XREF 3S), .02(XREF 3K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1K)

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .03+1*, .04+1*
%I ID.02+1*!
>> C ID.02+1*
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
.02(XREF 3S), .02(XREF 3K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1K), 100(XREF 1K)
>> DIC ID.02+1
QADL .01DEL1+1*, 100(XREF 1K)
QAM .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K)
.03(XREF 2S), .03(XREF 2K)
QAM(1 .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)
QAM(2 .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)
QAM(3 .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
QAUDIT 100(XREF 1K)
QAUDIT("DA" 100(XREF 1K)
QAUDIT("FILE" 100(XREF 1K)
U ID.02+1, ID.03+1, .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
X .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
.02(XREF 3S), .02(XREF 3K), .03+1*!, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .04+1*!, .04(XREF 1S), .04(XREF 1K)
>> Y ID.02+1*, .03+1, .04+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All