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 |  ICR |  Found Entries |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^QA(741.1

Package: Occurrence Screen

Global: ^QA(741.1


Information

FileMan FileNo FileMan Filename Package
741.1 QA OCCURRENCE SCREEN CRITERIA Occurrence Screen

Description

Directly Accessed By Routines, Total: 33

Package Total Routines
Occurrence Screen 32 QAO QAI POSSIBLE INCIDENTS    QAOAUTO    QAOC0    QAOEDT2    QAOEDT3    QAOSCNV1    QAOSCNV5    QAOSCNV8
QAOSCREE    QAOSENTR    QAOSPAD0    QAOSPCL0    QAOSPDQ0    QAOSPHDR    QAOSPRD0    QAOSPRS0
QAOSPSM0    QAOSPSM5    QAOSPSR0    QAOSPSS0    QAOSPSY0    QAOSPTR0    QAOSPURG    QAOSPWT0
QAOSSFR0    QAOSSFR1    QAOSWRK0    ^QA(741.1    QAOUTL0    ^QA(741.4    ^QA(741.5    ^QA(741.99
Interim Management Support 1 ECTQSCR    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Occurrence Screen 3 QAOSCREE    QAOSENTR    QAOSERCR    
Interim Management Support 1 ECTQSCR    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
Occurrence Screen 3 QA OCCURRENCE SCREEN(#741)[3]    QA OCCURRENCE CLINICAL REFERRAL(#741.4)[2]    QA OCCURRENCE EXCEPTION(#741.5)[1]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Clinical Monitoring System 1 QA MONITOR(#743)[200]    

Fields, Total: 5

Field # Name Loc Type Details
.01 CODE 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45)!(X<(201-($D(QAQINST)#2*100))) X I $D(X) K:$L(X)>6!($L(X)<3)!((X'?3N)&(X'?3N1"."1.2N))!(X'=+X) X S:$D(X) DINUM=X
  • LAST EDITED:  JUL 08, 1993
  • HELP-PROMPT:  Answer with a number from 201 to 999.99.
  • DESCRIPTION:  
    VAMCs may enter their own screens (201 through 999.99), but may not change existing national screens (101.1,102,107,109). Screens may not have any trailing zeros or decimal points.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  741.1^B
    1)= S ^QA(741.1,"B",$E(X,1,30),DA)=""
    2)= K ^QA(741.1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  741.1^BA^MUMPS
    1)= S ^QA(741.1,"BA",X\1,DA)=""
    2)= K ^QA(741.1,"BA",X\1,DA)
1 SCREEN 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:+$L(X)>90!($L(X)<1) X
  • LAST EDITED:  AUG 29, 1989
  • HELP-PROMPT:  Answer must be 1-90 characters in length.
  • DESCRIPTION:  
    This is the short description of the screen.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 EXPANDED SCREEN 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>120!($L(X)<1) X
  • LAST EDITED:  AUG 29, 1989
  • HELP-PROMPT:  Answer must be 1-120 characters in length.
  • DESCRIPTION:  
    This is the long description of the screen.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  741.1^C
    1)= S ^QA(741.1,"C",$E(X,1,30),DA)=""
    2)= K ^QA(741.1,"C",$E(X,1,30),DA)
100 SCREEN STATUS 0;4 SET
  • '1' FOR INACTIVE;
  • 'N' FOR NATIONAL;
  • 'L' FOR LOCAL;

  • LAST EDITED:  JUL 01, 1991
  • HELP-PROMPT:  Enter the appropriate screen status.
  • DESCRIPTION:  This field controls the auto enroll of the various screens. National and local screens will be auto enrolled if possible. This field is also used by the semi-annual report, any combinations of screen statuses may be
    included on the report.
  • SCREEN:  S DIC("S")="I $S($P(^QA(741.1,D0,0),""^"",4)=""N"":0,Y=""N"":0,1:1)"
  • EXPLANATION:  Nationally mandated screens may not be changed.
200 ASSOCIATED MONITOR 0;5 POINTER TO QA MONITOR FILE (#743) QA MONITOR(#743)

  • LAST EDITED:  MAR 02, 1992
  • HELP-PROMPT:  Enter the monitor that is associated with this screen.
  • DESCRIPTION:  
    This field is used to link the monitor and the screen for the purposes of the auto enroll functions.
  • CROSS-REFERENCE:  741.1^AM
    1)= S ^QA(741.1,"AM",$E(X,1,30),DA)=""
    2)= K ^QA(741.1,"AM",$E(X,1,30),DA)

Found Entries, Total: 14

CODE: 101    CODE: 101.1    CODE: 102    CODE: 103    CODE: 104.1    CODE: 104.2    CODE: 105.1    CODE: 105.2    
CODE: 106.1    CODE: 106.2    CODE: 107    CODE: 108    CODE: 109    CODE: 199    

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #621
  • QUALITY IMPROVEMENT CHECKLIST
    		•

    Global Variables Directly Accessed

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

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID1+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K), 200(XREF 1S), 200(XREF 1K)
    >> DIC("S" 100SCR+1*
    >> DINUM .01+1*
    >> QAQINST .01+1
    U ID1+1
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1+1!, 2+1!, 2(XREF 1S), 2(XREF 1K), 200(XREF 1S)
    , 200(XREF 1K)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All