Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Source Information |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Sort Template: ROR PENDING ERRORS

Package: Clinical Case Registries

Sort Template: ROR PENDING ERRORS


Source Information

Name Value
NAME ROR PENDING ERRORS
DESCRIPTION
This template is used by the [RORMNT PENDING 
ERRORS LIST] menu option to sort and group a list
of patients with erroneous data by error counter 
(value of the COUNTER field). Patients with higher
counters are printed first.
SORT FIELD DATA
  1. FILE OR SUBFILE NO.:   798.31
    GET CODE:   S DISX(1)=$P($G(^RORDATA(798.3,D0,1,D1,0)),U,3) S:DISX(1)]"" DISX(1)=+DISX(1)
    QUERY CONDITION:   I DISX(1)'=""
    DESCRIPTION OF SORT:   COUNTER not null
    DATA TYPE FOR SORTING:   NUMERIC
    MULTIPLE FIELD DATA:
    1. MULT.FILE OR SUBFILE NO.:   798.3
      NODE:   1
    FIELD NO.:   2
    FIELD NAME:   COUNTER
    SORT QUALIFIERS BEFORE FIELD:   -
    SORT QUALIFIERS AFTER FIELD:   ;S
  2. FILE OR SUBFILE NO.:   798.3
    GET CODE:   S X="" I D0>0 S DISX(2)=X
    QUERY CONDITION:   I DISX(2)=""
    DESCRIPTION OF SORT:   """" is null
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S X="" I D0>0 S DISX(2)=X
    FIELD NAME:   ""
    SORT QUALIFIERS BEFORE FIELD:   "
    SORT QUALIFIERS AFTER FIELD:   ;S
    FROM VALUE INTERNAL:   ?z
    FROM VALUE EXTERNAL:   @
    TO VALUE INTERNAL:   @
    TO VALUE EXTERNAL:   @
  3. FILE OR SUBFILE NO.:   798.3
    GET CODE:   S Y(1)=$S($D(^RORDATA(798.3,D0,0)):^(0),1:"") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X
    QUERY CONDITION:   I DISX(3)'=""
    DESCRIPTION OF SORT:   PATIENT NAME not null
    SEARCH EFFICIENCY RATING:   0.0000
    PROBABILITY RATING:   0.0000
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S Y(1)=$S($D(^RORDATA(798.3,D0,0)):^(0),1:"") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X
    FIELD NAME:   PATIENT NAME
    SORT QUALIFIERS BEFORE FIELD:   ".01
    CROSS REFERENCE DATA:   ^RORDATA(798.3,"B",^RORDATA(798.3,^2
    POINT TO CROSS REFERENCE:   ^DPT("B",
  4. FILE OR SUBFILE NO.:   798.3
    QUERY CONDITION:   I D0'=""
    DESCRIPTION OF SORT:   NUMBER not null
    SEARCH EFFICIENCY RATING:   0
    PROBABILITY RATING:   0
    DATA TYPE FOR SORTING:   NUMERIC
    FIELD NO.:   0
    FIELD NAME:   NUMBER
    CROSS REFERENCE DATA:   ^RORDATA(798.3,^RORDATA(798.3,^1
DATE CREATED 2002-07-17 13:39:00
FILE ROR PATIENT EVENTS
WRITE ACCESS @
DATE LAST USED 2006-02-02 00:00:00

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] P31, P35
^RORDATA(798.3 - [#798.3] P11, P31, P35

Naked Globals

Name Field # of Occurrence
^(0 P31, P35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 P11, P21, P25, P31, P35, P43
>> D1 P11
>> DISX(1 P11, P13
>> DISX(2 P21, P23, P25
>> DISX(3 P31, P33, P35
U P11, P31, P35
>> X P21, P25, P31, P35
>> Y(1 P31, P35
Source Information |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All