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: RMPR OPEN VISITS

Package: Prosthetics

Sort Template: RMPR OPEN VISITS


Source Information

Name Value
NAME RMPR OPEN VISITS
DESCRIPTION
Sorts file 665.1 by date visit closed and date visit opened.
SORT FIELD DATA
  1. FILE OR SUBFILE NO.:   665.1
    GET CODE:   S Y(1)=$S($D(^RMPR(665.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,5)="" I D0>0 S DISX(1)=X
    QUERY CONDITION:   I DISX(1)
    DESCRIPTION OF SORT:   DATE VISIT CLOSED=""""
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S Y(1)=$S($D(^RMPR(665.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,5)="" I D0>0 S DISX(1)=X
    FIELD NAME:   DATE VISIT CLOSED=""
    SORT QUALIFIERS BEFORE FIELD:   @"@B
    SORT QUALIFIERS AFTER FIELD:   ;L1
  2. FILE OR SUBFILE NO.:   665.1
    GET CODE:   S DISX(2)=$P($G(^RMPR(665.1,D0,0)),U,1)
    QUERY CONDITION:   I (DISX(2)]]2951112.99999)&(DISX(2)']]2951113.2359)
    DESCRIPTION OF SORT:   DATE VISIT OPENED from 11/13/95 to 11/13/95@23:59
    SEARCH EFFICIENCY RATING:   2.0000
    PROBABILITY RATING:   0.6667
    DATA TYPE FOR SORTING:   DATE/TIME
    FIELD NO.:   .01
    FIELD NAME:   DATE VISIT OPENED
    SORT QUALIFIERS BEFORE FIELD:   @
    FROM VALUE INTERNAL:   2951112.99999
    FROM VALUE EXTERNAL:   T
    FROM VALUE PRINTABLE:   11/13/95
    TO VALUE INTERNAL:   2951113.2359
    TO VALUE EXTERNAL:   T@23:59
    TO VALUE PRINTABLE:   11/13/95@23:59
    CROSS REFERENCE DATA:   ^RMPR(665.1,"B",^RMPR(665.1,^2
  3. FILE OR SUBFILE NO.:   665.1
    GET CODE:   X DPP(3,"OVF0",9.2) X DPP(3,"OVF1",9.2) I $G(X(3))]"" S DISX(3)=X(3)
    QUERY CONDITION:   I DISX(3)'=""
    DESCRIPTION OF SORT:   PATIENT NAME/INSTITUTION not null
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   X DPP(3,"OVF0",9.2) X DPP(3,"OVF1",9.2) I $G(X(3))]"" S DISX(3)=X(3)
    OVERFLOW DATA:
    1. FIRST SUBSCRIPT FOR OVERFLOW:   OVF0
      SECOND SUBSCRIPT FOR OVERFLOW:   9.2
      OVERFLOW CODE:   S Y(1)=$S($D(^RMPR(665.1,D0,0)):^(0),1:"")
    2. FIRST SUBSCRIPT FOR OVERFLOW:   OVF1
      SECOND SUBSCRIPT FOR OVERFLOW:   9.2
      OVERFLOW CODE:   S X=$P(Y(1),U,2),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 X(3)=X
    FIELD NAME:   PATIENT NAME/INSTITUTION
    SORT QUALIFIERS BEFORE FIELD:   @"1
DATE CREATED 1993-09-14 15:28:00
FILE PROSTHETIC HOME/LIAISON VISITS
DATE LAST USED 1995-11-13 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 OVF03P21

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( OVF03P21
^RMPR(665.1 - [#665.1] P11, P15, P21, OVF03P11

Naked Globals

Name Field # of Occurrence
^( OVF03P21
^(0 P11, P15, OVF03P11, OVF03P21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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