Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Source Information |  Call Graph |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Sort Template: ONCO FOLLOWUP STATUS RPT

Package: Oncology

Sort Template: ONCO FOLLOWUP STATUS RPT


Source Information

Name Value
NAME ONCO FOLLOWUP STATUS RPT
SORT FIELD DATA
  1. FILE OR SUBFILE NO.:   160
    GET CODE:   S Y(2)=$C(59)_$S($D(^DD(160,15,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^ONCO(160,D0,1)):^(1),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,1)_":",2),$C(59),1)="Alive" I D0>0 S DISX(1)=X
    QUERY CONDITION:   I DISX(1)
    DESCRIPTION OF SORT:   STATUS=""Alive""
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S Y(2)=$C(59)_$S($D(^DD(160,15,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^ONCO(160,D0,1)):^(1),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,1)_":",2),$C(59),1)="Alive" I D0>0 S DISX(1)=X
    FIELD NAME:   STATUS="Alive"
    SORT QUALIFIERS BEFORE FIELD:   "@B
    SORT QUALIFIERS AFTER FIELD:   ;L1
  2. FILE OR SUBFILE NO.:   160
    GET CODE:   S DISX(2)=$P($G(^ONCO(160,D0,1)),U,7)
    QUERY CONDITION:   I DISX(2)'=""
    DESCRIPTION OF SORT:   FOLLOW-UP STATUS not null
    DATA TYPE FOR SORTING:   SET OF CODES
    FIELD NO.:   15.2
    FIELD NAME:   FOLLOW-UP STATUS
    SORT QUALIFIERS BEFORE FIELD:   +#
    FROM VALUE INTERNAL:   -1
    FROM VALUE EXTERNAL:   INACTIVE
    FROM VALUE PRINTABLE:   0 (INACTIVE)
    TO VALUE INTERNAL:   0
    TO VALUE EXTERNAL:   INACTIVE
    TO VALUE PRINTABLE:   0 (INACTIVE)
    CROSS REFERENCE DATA:   ^ONCO(160,"AFS",^ONCO(160,^2
  3. FILE OR SUBFILE NO.:   160
    GET CODE:   X DPP(3,"OVF0",9.2) S X=$P(Y(1),U,1),C=$S(X="":-1,'$D(@(U_$P(X,";",2)_"0)")):-1,1:$P(^(0),U,2)),X=$S(X="":X,'$D(^(+X,0)):"",1:$P(^(0),U,1)),Y=X,C=$S($D(^DD(+C,.01,0)):$P(^(0),U,2),1:"D") D:X]"" Y^DIQ:C'["D" S X=Y,C="," I D0>0 S DISX(3)=X
    QUERY CONDITION:   I DISX(3)'=""
    DESCRIPTION OF SORT:   NAME not null
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   X DPP(3,"OVF0",9.2) S X=$P(Y(1),U,1),C=$S(X="":-1,'$D(@(U_$P(X,";",2)_"0)")):-1,1:$P(^(0),U,2)),X=$S(X="":X,'$D(^(+X,0)):"",1:$P(^(0),U,1)),Y=X,C=$S($D(^DD(+C,.01,0)):$P(^(0),U,2),1:"D") D:X]"" Y^DIQ:C'["D" S X=Y,C="," I D0>0 S DISX(3)=X
    OVERFLOW DATA:
    1. FIRST SUBSCRIPT FOR OVERFLOW:   OVF0
      SECOND SUBSCRIPT FOR OVERFLOW:   9.2
      OVERFLOW CODE:   S Y(1)=$S($D(^ONCO(160,D0,0)):^(0),1:"")
    FIELD NAME:   NAME
    SORT QUALIFIERS BEFORE FIELD:   ".01
DATE CREATED 1997-07-15 13:42:00
FILE ONCOLOGY PATIENT
PRINT TEMPLATE ONCO FOLLOWUP STATUS RPT
WRITE ACCESS @
DATE LAST USED 1997-10-17 00:00:00

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA FileMan 1 Y^DIQ  

External References

Name Field # of Occurrence
Y^DIQ P31, P35

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( P31, P35
^DD(160 P11, P15
^ONCO(160 - [#160] P11, P15, P21, OVF03P11

Naked Globals

Name Field # of Occurrence
^( P31, P35
^(0 P11, P15, P31, P35, OVF03P11
^(1 P11, P15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C P31, P35
D0 P11, P15, P21, P31, P35, OVF03P11
DISX(1 P11, P13, P15
DISX(2 P21, P23
>> DISX(3 P31, P33, P35
>> DPP(3 P31, P35
U P11, P15, P21, P31, P35
X P11, P15, P31, P35
>> Y P31, P35
Y(1 P11, P15, P31, P35, OVF03P11
>> Y(2 P11, P15
Source Information |  Call Graph |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All