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: ANRV FEE PT

Package: Visual Impairment Service Team

Sort Template: ANRV FEE PT


Source Information

Name Value
NAME ANRV FEE PT
SORT FIELD DATA
  1. FILE OR SUBFILE NO.:   2040
    GET CODE:   S Y(1)=$S($D(^ANRV(2040,D0,13)):^(13),1:"") S X=$P(Y(1),U,2),X=X S X=X'="I" I D0>0 S DISX(1)=X
    QUERY CONDITION:   I DISX(1)
    DESCRIPTION OF SORT:   INTERNAL(VIST ELIGIBLE (AMIS))'=""I""
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S Y(1)=$S($D(^ANRV(2040,D0,13)):^(13),1:"") S X=$P(Y(1),U,2),X=X S X=X'="I" I D0>0 S DISX(1)=X
    FIELD NAME:   INTERNAL(VIST ELIGIBLE (AMIS))'="I"
    SORT QUALIFIERS BEFORE FIELD:   @"@B
    SORT QUALIFIERS AFTER FIELD:   ;L1
  2. FILE OR SUBFILE NO.:   2040
    GET CODE:   S Y(1)=$S($D(^ANRV(2040,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(2)=X
    QUERY CONDITION:   I DISX(2)'=""
    DESCRIPTION OF SORT:   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(^ANRV(2040,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(2)=X
    FIELD NAME:   NAME
    SORT QUALIFIERS BEFORE FIELD:   @".01
    CROSS REFERENCE DATA:   ^ANRV(2040,"B",^ANRV(2040,^2
    POINT TO CROSS REFERENCE:   ^DPT("B",
  3. FILE OR SUBFILE NO.:   161.01
    GET CODE:   X DPP(3,"OVF201",9.2) S X=X["CARD",Y(203)=X S X=$P(Y(201),U,2)>2930805,Y=X,X=Y(203),X=X&Y I D1>0 S DISX(3)=X
    QUERY CONDITION:   I DISX(3)
    DESCRIPTION OF SORT:   TREATMENT TYPE CODE[""CARD""&(TO DATE>T)
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   X DPP(3,"OVF201",9.2) S X=X["CARD",Y(203)=X S X=$P(Y(201),U,2)>2930805,Y=X,X=Y(203),X=X&Y I D1>0 S DISX(3)=X
    MULTIPLE FIELD DATA:
    1. MULT.FILE OR SUBFILE NO.:   161
      NODE:   1
    RELATIONAL JUMP FIELD DATA:
    1. RELATIONAL START FILE NO.:   2040
      NEXT SUBSCRIPT:   200
      TO FILE OR SUBFILE:   161
      GLOBAL REFERENCE:   FBAAA(
      MULTIVALUED FLAG:   NOT MULTI-VALUED
      RELATIONAL CODE:   X DPP(3,"OVF0",9.2) S D0=D0 S:'$D(^FBAAA(+D0,0)) D0=-1 S D(0)=D0 S Y(201)=$S($D(^FBAAA(D0,0)):^(0),1:"") S X=$S('$D(^DPT(+$P(Y(201),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0)
    OVERFLOW DATA:
    1. FIRST SUBSCRIPT FOR OVERFLOW:   OVF0
      SECOND SUBSCRIPT FOR OVERFLOW:   9.2
      OVERFLOW CODE:   S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S D(0)=D0 S I(100,0)=$S($D(D0):D0,1:"")
    2. FIRST SUBSCRIPT FOR OVERFLOW:   OVF201
      SECOND SUBSCRIPT FOR OVERFLOW:   9.2
      OVERFLOW CODE:   S Y(202)=$C(59)_$S($D(^DD(161.01,.095,0)):$P(^(0),U,3),1:""),Y(201)=$S($D(^FBAAA(D0,1,D1,0)):^(0),1:"") S X=$P($P(Y(202),$C(59)_$P(Y(201),U,13)_":",2),$C(59),1)
    FIELD NAME:   TREATMENT TYPE CODE["CARD"&(TO DATE>T)
    SORT QUALIFIERS BEFORE FIELD:   ""@B
    SORT QUALIFIERS AFTER FIELD:   ;L1
DATE CREATED 1993-08-05 13:50:00
FILE VIST ROSTER
DATE LAST USED 1998-04-30 00:00:00

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(161.01 OVF03P21
^DPT - [#2] P21, P25, RCOD3P11, OVF03P11
^FBAAA - [#161] RCOD3P11, OVF03P21

Naked Globals

Name Field # of Occurrence
^(0 P21, P25, RCOD3P11, OVF03P11, OVF03P21
^(13 P11, P15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D(0 RCOD3P11, OVF03P11
D0 P11, P15, P21, P25, RCOD3P11, OVF03P11, OVF03P21
>> D1 P31, P35, OVF03P21
>> DISX(1 P11, P13, P15
>> DISX(2 P21, P23, P25
>> DISX(3 P31, P33, P35
>> DPP(3 P31, P35, RCOD3P11
>> I(0 RCOD3P11, OVF03P11
>> I(100 OVF03P11
U P11, P15, P21, P25, P31, P35, RCOD3P11, OVF03P11, OVF03P21
X P11, P15, P21, P25, P31, P35, RCOD3P11, OVF03P21
>> Y P31, P35
Y(1 P11, P15, P21, P25, OVF03P11
>> Y(201 P31, P35, RCOD3P11, OVF03P21
>> Y(202 OVF03P21
>> Y(203 P31, P35
Source Information |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All