Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Global: ^ECX(727.822

Package: DSS Extracts

Global: ^ECX(727.822


Information

FileMan FileNo FileMan Filename Package
727.822 TREATING SPECIALTY CHANGE SETUP EXTRACT DSS Extracts

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
DSS Extracts 3 ^ECX(727.822    ECX8221    ECX8222    

Pointer To FileMan Files, Total: 7

Package Total FileMan Files
Registration 4 MAS MOVEMENT TYPE(#405.2)[18]    PATIENT MOVEMENT(#405)[12]    SPECIALTY(#42.4)[15]    PATIENT(#2)[4]    
Scheduling 2 LOCATION TYPE(#40.9)[7]    HOSPITAL LOCATION(#44)[14]    
DSS Extracts 1 DSS EXTRACT LOG(#727)[2]    

Fields, Total: 21

Field # Name Loc Type Details
.01 SEQUENCE NUMBER 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
  • LAST EDITED:  OCT 15, 1996
  • HELP-PROMPT:  Enter a number between 1 and 999999999, 0 decimal digits.
  • DESCRIPTION:  
    The record number for this extract entry.
  • TECHNICAL DESCR:  
    The internal entry number (IEN) for this record. This entry is DINUMed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  727.822^AINV^MUMPS
    1)= S ^ECX(727.822,"AINV",-X,DA)=""
    2)= K ^ECX(727.822,"AINV",-X,DA)
    3)= DO NOT DELETE.
    This is an inverse entry cross reference.  It is used to find the last entry in the file.  It is essential for the management of the extract and the purge of extract data.
1 YEAR MONTH 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<6)!'(X?6N) X
  • OUTPUT TRANSFORM:  S Y=$$ECXYMX^ECXUTL(Y)
  • LAST EDITED:  SEP 24, 1997
  • HELP-PROMPT:  Answer must be 6 characters in length.
  • DESCRIPTION:  
    A six character numeric string representing the year and the month for which this extract was performed.
  • TECHNICAL DESCR:  
    Format is YYYYMM; Year 2000 compliant per vendor.
  • CROSS-REFERENCE:  727.822^AM
    1)= S ^ECX(727.822,"AM",$E(X,1,30),DA)=""
    2)= K ^ECX(727.822,"AM",$E(X,1,30),DA)
    3)= DO NOT DELETE
    This cross reference is essential for moving data from this file to file 727.817 to be transfered to the DSS software.
    DO NOT DELETE OR MODIFY.
2 EXTRACT NUMBER 0;3 POINTER TO DSS EXTRACT LOG FILE (#727) DSS EXTRACT LOG(#727)

  • LAST EDITED:  OCT 15, 1996
  • HELP-PROMPT:  Enter the extract number for this extract.
  • DESCRIPTION:  
    The corresponding entry in the DSS EXTRACT LOG file (#727) for this extract.
  • TECHNICAL DESCR:  
    A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to pick up the header for the mail message.
  • CROSS-REFERENCE:  727.822^AC
    1)= S ^ECX(727.822,"AC",$E(X,1,30),DA)=""
    2)= K ^ECX(727.822,"AC",$E(X,1,30),DA)
    3)= DO NOT DELETE.
    This cross reference is essential for managing and purging data in this file.
3 FACILITY 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • LAST EDITED:  OCT 16, 1996
  • HELP-PROMPT:  Enter the station number where this extract was performed.
  • DESCRIPTION:  
    Identifies the facility for this extract record.
  • TECHNICAL DESCR:  
    For the Treating Specialty Change Setup extract, the FACILITY field is null.
4 PATIENT NO. - DFN 0;5 POINTER TO PATIENT FILE (#2) PATIENT(#2)

  • LAST EDITED:  OCT 16, 1996
  • HELP-PROMPT:  Enter the name of the patient for this extract record.
  • DESCRIPTION:  
    The name of the patient for this extract record.
  • TECHNICAL DESCR:  
    Derived from the PATIENT field (.03) in the PATIENT MOVEMENT file (#405), which is a pointer to the PATIENT file (#2). This data represents the patient DFN.
5 SSN 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1"P") X
  • LAST EDITED:  OCT 15, 1996
  • HELP-PROMPT:  Your answer must be 9 to 10 characters in length.
  • DESCRIPTION:  
    The patient's social security number.
  • TECHNICAL DESCR:  Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4) in the TREATING SPECIALTY CHANGE SETUP EXTRACT file (#727.822), SSN data is derived from the SOCIAL SECURITY NUMBER field (.09) in the PATIENT file
    (#2).
6 NAME 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • LAST EDITED:  OCT 15, 1996
  • HELP-PROMPT:  Your answer must be 4 characters in length.
  • DESCRIPTION:  
    The first four characters of the patient's last name.
  • TECHNICAL DESCR:  Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4) in the TREATING SPECIALTY CHANGE SETUP EXTRACT file (#727.822), NAME data is derived from the NAME field (.01) in the PATIENT file (#2). The first
    four characters of the first "," piece are used, padded with trailing spaces if necessary.
7 IN OUT PATIENT INDICATOR 0;8 POINTER TO LOCATION TYPE FILE (#40.9) LOCATION TYPE(#40.9)

  • LAST EDITED:  OCT 15, 1996
  • HELP-PROMPT:  Enter the appropriate inpatient or outpatient indicator.
  • DESCRIPTION:  
    Indicates whether the patient was an inpatient or an outpatient for this extract entry.
  • TECHNICAL DESCR:  
    For the Treating Specialty Change Setup extract this field is set to 3, indicating inpatient status in the LOCATION TYPE file (#40.9).
8 DAY 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<8) X
  • OUTPUT TRANSFORM:  S Y=$$ECXDATEX^ECXUTL(Y)
  • LAST EDITED:  SEP 24, 1997
  • HELP-PROMPT:  Answer must be 8 characters in length.
  • DESCRIPTION:  
    An 8-character numeric string that represents the date on which the Treating Specialty change took place.
  • TECHNICAL DESCR:  Data source:
    PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)
    This field is always exactly 8 numeric characters in length.  The format is YYYYMMDD; for example, 19970923.  If the date cannot be determined, then a default is used.  The default date value is the value of the YEAR MONTH
    field (#1) concatenated with "01" for the day (DD) portion.  Year 2000 compliant per vendor.
9 PRODUCT 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  OCT 15, 1996
  • HELP-PROMPT:  The product or feeder key for this extract.
  • DESCRIPTION:  
    The product or feeder key for this extract.
  • TECHNICAL DESCR:  
    For the Treating Specialty Change Setup extract, the PRODUCT field is null.
10 ADMISSION DATE 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<8) X
  • OUTPUT TRANSFORM:  S Y=$$ECXDATEX^ECXUTL(Y)
  • LAST EDITED:  SEP 24, 1997
  • HELP-PROMPT:  Answer must be 8 characters in length.
  • DESCRIPTION:  
    An 8-character numeric string that represents the date of the Admission associated with this Treating Specialty change.
  • TECHNICAL DESCR:  Data source:
    PATIENT MOVEMENT file (#405); ADMISSION/CHECK-IN MOVEMENT field (#.14)
    then to PATIENT MOVEMENT FILE (#405); DATE/TIME (#.01)
    This field is always exactly 8 numeric characters in length.  The format is YYYYMMDD; for example, 19970923.  If the date cannot be determined, then a default is used.  The default date value is the value of the YEAR MONTH
    field (#1) concatenated with "01" for the day (DD) portion.  Year 2000 compliant per vendor.
11 DISCHARGE DATE 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<8) X
  • OUTPUT TRANSFORM:  S Y=$$ECXDATEX^ECXUTL(Y)
  • LAST EDITED:  SEP 24, 1997
  • HELP-PROMPT:  Answer must be 8 characters in length.
  • DESCRIPTION:  
    This 8-character numeric string represents a Discharge date associated with the Treating Specialty change.
  • TECHNICAL DESCR:  For the Treating Specialty Change Setup extract, the DISCHARGE DATE field is null.
    Format is YYYYMMDD; Year 2000 compliant per vendor.
12 MOVEMENT FILE # 0;13 POINTER TO PATIENT MOVEMENT FILE (#405) PATIENT MOVEMENT(#405)

  • LAST EDITED:  OCT 15, 1996
  • HELP-PROMPT:  Enter the patient movement number associated with this extract record.
  • DESCRIPTION:  
    Current patient movement record associated with this extract record.
  • TECHNICAL DESCR:  
    The ^DGPM("ATS",DFN,ADM,INV_DATE, cross reference is used to obtain the current movement number associated with this patient. It is a pointer to the PATIENT MOVEMENT file (#405).
13 TYPE 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  OCT 15, 1996
  • HELP-PROMPT:  Your answer must be 1 character in length.
  • DESCRIPTION:  
    The type of movement for this patient.
  • TECHNICAL DESCR:  
    Using the "ATT"_TYPE cross reference where TYPE=6 (specialty change).
14 GAINING WARD 0;15 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  OCT 16, 1996
  • HELP-PROMPT:  Enter the patient's ward.
  • DESCRIPTION:  
    The ward on which this patient was placed.
  • TECHNICAL DESCR:  
    For the Treating Specialty Change Setup extract, the GAINING WARD field is null.
15 NEW TREATING SPECIALTY 0;16 POINTER TO SPECIALTY FILE (#42.4) SPECIALTY(#42.4)

  • LAST EDITED:  OCT 16, 1996
  • HELP-PROMPT:  Enter the name of the treating specialty associated with this extract record.
  • DESCRIPTION:  
    The name of the treating specialty associated with this extract record.
  • TECHNICAL DESCR:  NEW TREATING SPECIALTY is derived from the FACILITY TREATING SPECIALTY field (.09) in the PATIENT MOVEMENT file (#405). This facility treating specialty data is a pointer to the FACILITY TREATING SPECIALTY file (#45.7).
    Using the SPECIALTY field (1) in the FACILITY TREATING SPECIALTY file (#45.7), the pointer to the SPECIALTY file (#42.4) is obtained.
16 DURATION 0;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>5000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 15, 1996
  • HELP-PROMPT:  Enter a number between 0 and 5000, 0 decimal digits.
  • DESCRIPTION:  
    Duration of stay within this movement.
  • TECHNICAL DESCR:  
    Calculated as current treating specialty date minus the date (DATE/TIME field (.01) of the PATIENT MOVEMENT file (#405)) of the last treating specialty change.
17 ATTENDING PHYSICIAN 0;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<1) X
  • LAST EDITED:  OCT 16, 1996
  • HELP-PROMPT:  Enter attending physician for this patient.
  • DESCRIPTION:  
    The attending physician assigned to this patient with this movement.
  • TECHNICAL DESCR:  Derived from the ATTENDING PHYSICIAN field (.19) of the PATIENT MOVEMENT file (#405). If ATTENDING PHYSICIAN is a pointer to the NEW PERSON file (#200), it is stored as "2"_pointer value. If ATTENDING PHYSICIAN is a
    pointer to the PROVIDER file (#6), it is stored as "6"_pointer value.
18 MOVEMENT TYPE 0;19 POINTER TO MAS MOVEMENT TYPE FILE (#405.2) MAS MOVEMENT TYPE(#405.2)

  • LAST EDITED:  OCT 15, 1996
  • HELP-PROMPT:  Enter the patient movement number associated with this extract record.
  • DESCRIPTION:  
    The MAS movement type for this movement.
  • TECHNICAL DESCR:  
    MOVEMENT TYPE is derived from the MAS MOVEMENT TYPE field (.18) of the PATIENT MOVEMENT file (#405). It is a pointer to the MAS MOVEMENT TYPE file (#405.2).
19 TRT TIME 0;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6)!'(X?6N) X
  • OUTPUT TRANSFORM:  S Y=$$ECXTIMEX^ECXUTL(Y,0)
  • LAST EDITED:  SEP 24, 1997
  • HELP-PROMPT:  Answer must be 6 characters in length.
  • DESCRIPTION:  
    A 6-character numeric string representing the time of day when the Treating Specialty change took place.
  • TECHNICAL DESCR:  Data source:
    PATIENT MOVEMENT file (#405); DATE/TIME field (#.01);
    2nd "." piece only.
    This field is always exactly 6 numeric characters in length; if time cannot be determined, then "000300" is used as default.
20 ADMISSION TIME 0;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6)!'(X?6N) X
  • OUTPUT TRANSFORM:  S Y=$$ECXTIMEX^ECXUTL(Y,0)
  • LAST EDITED:  SEP 24, 1997
  • HELP-PROMPT:  Answer must be 6 characters in length.
  • DESCRIPTION:  
    A 6-character numeric string that represent the time of day of the Admission associated with this Treating Specialty change.
  • TECHNICAL DESCR:  Data source:
    PATIENT MOVEMENT file (#405); ADMISSION/CHECK-IN MOVEMENT field (#.14)
    then to PATIENT MOVEMENT FILE (#405); DATE/TIME (#.01)
    This field is always exactly 6 numeric characters in length; if time cannot be determined, then "000300" is used as default.

External References

Name Field # of Occurrence
$$ECXDATEX^ECXUTL 8OT+1, 10OT+1, 11OT+1
$$ECXTIMEX^ECXUTL 19OT+1, 20OT+1
$$ECXYMX^ECXUTL 1OT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECX(727.822 - [#727.822] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K)
>> DINUM .01+1*
X .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 3+1!, 5+1!
, 6+1!, 8+1!, 9+1!, 10+1!, 11+1!, 13+1!, 16+1!, 17+1!, 19+1!, 20+1!
>> Y 1OT+1*, 8OT+1*, 10OT+1*, 11OT+1*, 19OT+1*, 20OT+1*
>> Y(0 1OT+1*, 8OT+1*, 10OT+1*, 11OT+1*, 19OT+1*, 20OT+1*
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All