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: NURA-S-EXCEPTION

Package: Nursing Service

Sort Template: NURA-S-EXCEPTION


Source Information

Name Value
NAME NURA-S-EXCEPTION
SORT FIELD DATA
  1. FILE OR SUBFILE NO.:   213.5
    GET CODE:   S DISX(1)=$P($G(^NURSA(213.5,D0,0)),U,1)
    QUERY CONDITION:   I DISX(1)=2960828
    DESCRIPTION OF SORT:   DATE equals 8/28/96
    DATA TYPE FOR SORTING:   DATE/TIME
    FIELD NO.:   .01
    FIELD NAME:   DATE
    SORT QUALIFIERS BEFORE FIELD:   @
    FROM VALUE INTERNAL:   2960827.99999
    FROM VALUE EXTERNAL:   2960828
    FROM VALUE PRINTABLE:   8/28/96
    TO VALUE INTERNAL:   2960828
    TO VALUE EXTERNAL:   2960828
    TO VALUE PRINTABLE:   8/28/96
    CROSS REFERENCE DATA:   ^NURSA(213.5,"B",^NURSA(213.5,^2
  2. FILE OR SUBFILE NO.:   213.5
    GET CODE:   S DISX(2)=$P($G(^NURSA(213.5,D0,0)),U,2)
    QUERY CONDITION:   I DISX(2)=0
    DESCRIPTION OF SORT:   AMIS TYPE equals 0 (3 PM TOTALS)
    DATA TYPE FOR SORTING:   SET OF CODES
    FIELD NO.:   .02
    FIELD NAME:   AMIS TYPE
    SORT QUALIFIERS BEFORE FIELD:   @
    FROM VALUE INTERNAL:   -1
    FROM VALUE EXTERNAL:   0
    FROM VALUE PRINTABLE:   0 (3 PM TOTALS)
    TO VALUE INTERNAL:   0
    TO VALUE EXTERNAL:   0
    TO VALUE PRINTABLE:   0 (3 PM TOTALS)
    CROSS REFERENCE DATA:   ^NURSA(213.5,"E",^NURSA(213.5,^2
  3. FILE OR SUBFILE NO.:   213.51
    GET CODE:   X DPP(3,"OVF1",9.2) S Y(101)=$S($D(^NURSF(211.4,D0,0)):^(0),1:""),Y(102)=X,Y=$P(Y(101),U,1) X:$D(^DD(211.4,.01,2)) ^(2) S X=Y S D0=I(0,0) S D1=I(1,0) I D1>0 S DISX(3)=X
    QUERY CONDITION:   I DISX(3)'=""
    DESCRIPTION OF SORT:   NURS LOCATION:NAME not null
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   X DPP(3,"OVF1",9.2) S Y(101)=$S($D(^NURSF(211.4,D0,0)):^(0),1:""),Y(102)=X,Y=$P(Y(101),U,1) X:$D(^DD(211.4,.01,2)) ^(2) S X=Y S D0=I(0,0) S D1=I(1,0) I D1>0 S DISX(3)=X
    MULTIPLE FIELD DATA:
    1. MULT.FILE OR SUBFILE NO.:   213.5
      NODE:   1
    OVERFLOW DATA:
    1. FIRST SUBSCRIPT FOR OVERFLOW:   OVF1
      SECOND SUBSCRIPT FOR OVERFLOW:   9.2
      OVERFLOW CODE:   S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^NURSA(213.5,D0,1,D1,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^NURSF(211.4,+D0,0)) D0=-1
    FIELD NAME:   NURS LOCATION:NAME
    SORT QUALIFIERS BEFORE FIELD:   "
    SORT QUALIFIERS AFTER FIELD:   ;C11;L15;S1;"WARD: "
  4. FILE OR SUBFILE NO.:   213.5
    GET CODE:   S X=" " I D0>0 S DISX(4)=X
    QUERY CONDITION:   I DISX(4)'=""
    DESCRIPTION OF SORT:   "" "" not null
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S X=" " I D0>0 S DISX(4)=X
    FIELD NAME:   " "
    SORT QUALIFIERS BEFORE FIELD:   @"
    SORT QUALIFIERS AFTER FIELD:   ;S1
  5. FILE OR SUBFILE NO.:   213.51
    GET CODE:   S Y(1)=$S($D(^NURSA(213.5,D0,1,D1,0)):^(0),1:"") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D1>0 S DISX(5)=X
    QUERY CONDITION:   I DISX(5)'=""
    DESCRIPTION OF SORT:   PATIENT not null
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S Y(1)=$S($D(^NURSA(213.5,D0,1,D1,0)):^(0),1:"") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D1>0 S DISX(5)=X
    MULTIPLE FIELD DATA:
    1. MULT.FILE OR SUBFILE NO.:   213.5
      NODE:   1
    FIELD NAME:   PATIENT
    SORT QUALIFIERS BEFORE FIELD:   ".01
    CROSS REFERENCE DATA:   ^NURSA(213.5,"C",^NURSA(213.5,^2
    POINT TO CROSS REFERENCE:   ^DPT("B",
DATE CREATED 1990-03-30 15:45:00
FILE NURS AMIS DAILY EXCEPTION REPORT
DATE LAST USED 1996-08-29 00:00:00

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(211.4 P31, P35
^DPT - [#2] P51, P55
^NURSA(213.5 - [#213.5] P11, P21, OVF03P11, P51, P55
^NURSF(211.4 - [#211.4] RJ, P31, P35, OVF03P11

Naked Globals

Name Field # of Occurrence
^(0 P31, P35, OVF03P11, P51, P55
^(2 P31, P35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 P11, P21, P31, P35, OVF03P11, P41, P45, P51, P55
>> D1 P31, P35, OVF03P11, P51, P55
>> DISX(1 P11, P13
>> DISX(2 P21, P23
>> DISX(3 P31, P33, P35
>> DISX(4 P41, P43, P45
>> DISX(5 P51, P53, P55
>> DPP(3 P31, P35
>> I(0 P31, P35, OVF03P11
>> I(1 P31, P35, OVF03P11
U P11, P21, P31, P35, OVF03P11, P51, P55
>> X P31, P35, P41, P45, P51, P55
>> Y P31, P35
>> Y(1 OVF03P11, P51, P55
>> Y(101 P31, P35
>> Y(102 P31, P35
Source Information |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All