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    QAOSPSS0    QAOSPSY0    QAOSWRK0    ^QA(741.99    QAOSPSR0    QAOSPTR0
QAOSPURG    QAOSPWT0    QAOSSFR0    QAOSSFR1    ^QA(741.4    QAOUTL0    ^QA(741.1    ^QA(741.5
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