Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields
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

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.
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields