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 |  External References |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Global: ^DG5

Package: Registration

Global: ^DG5


Information

FileMan FileNo FileMan Filename Package
405.9 MAS V5 CONVERSION [TEMPORARY] Registration

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
Registration 3 MOVEMENT ENTRIES    ROOM (OLD)    TIMES    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
Registration 6 FACILITY MOVEMENT TYPE(#405.1)[#405.999(.02)]    ROOM-BED(#405.4)[#405.9003(4)]    WARD LOCATION(#42)[#405.9003(3)]    *ADMISSION TYPE(#42.1)[#405.999(.01)]    *DISCHARGE TYPE(#42.2)[#405.999(.01)]    *TRANSFER TYPE(#42.3)[#405.999(.01)]    

Fields, Total: 18

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

  • INPUT TRANSFORM:  K:+X'=X!(X>1)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 17, 1989
  • HELP-PROMPT:  Type a Number between 1 and 1, 0 Decimal Digits
  • CROSS-REFERENCE:  405.9^B
    1)= S ^DG5("B",$E(X,1,30),DA)=""
    2)= K ^DG5("B",$E(X,1,30),DA)
10.01 DATE TO RE-INITIALIZE G&L P;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:"^2931001^2941001^2951001^"'[("^"_X_"^") X
  • LAST EDITED:  FEB 22, 1996
  • HELP-PROMPT:  Choose from OCT 1,1993, OCT 1,1994, OCT 1, 1995. Enter '??' for more detailed help.
  • DESCRIPTION:  You must choose a date of either 10/1/88, 10/1/89, or 10/1/90 as the date to initialize your G&L. You should choose the latest possible date, but at the same time be comfortable that your statistics are accurate as of the
    date you choose.  We strongly recommend that you choose 10/1/90 as this will insure your G&Ls are available at the earliest possible time.
    Step 1 of the conversion will convert all your room-beds, movement types, and all inpatient activity for your current inpatients.  Your system will then become available to users.  Once the system is available, step 2 will
    start.  This step will convert all inpatient activity for patients who have been inpatients since the date you chose to initialize your G&L.  Your recalculation will then start.  At the conclusion, all remaining inpatient
    activity will be moved.
    The later you choose to initialize the G&L, the sooner the G&L and other statistical reports will be available.  Please consider this carefully.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





10.05
DO WARDS SHARE BEDS?
P;5
SET 

************************REQUIRED FIELD************************
  • '0' FOR NO;
  • '1' FOR YES;
  • LAST EDITED:  APR 15, 1991
  • HELP-PROMPT:  Enter YES to create a single bed to be used by multiple wards or NO to create multiple unique beds of the same name.  Enter '??' for more help.
  • DESCRIPTION:  Respond YES if your facility has beds which are shared by multiple wards to insure this bed is available to all wards which use it.  If you have multiple beds of the same name which are unique (used only by a single ward),
    answer NO.
    The following assumes both ward 1 and ward 2 have a room called 100 with a bed called 1.  The following displays this bed in the new structure based on your response:
    ROOM-BED 100-1                   ROOM-BED 100-1
    Ward(s) which can assign:        Ward(s) which can assign:
    WARD 1                            WARD1
    ROOM-BED 100-1                          WARD2
    Ward(s) which can assign:
    WARD 2
    By answering NO, you will have two beds 100-1, one is located on ward 1 and one is located on ward 2.
    The second method will create a single bed 100-1 which either ward can use.





28
STOP CONVERSION
STOP;1
SET

  • '1' FOR YES;
  • '0' FOR NO;
  • LAST EDITED:  OCT 28, 1990





50
TIMES
T;0
Multiple #405.9001 
405.9001
  • DESCRIPTION:  This multiple will hold the times that various steps of the conversion started and completed.  It will also hold where a conversion step left off should it fail to complete for any reason.  The conversion will restart from
    that point.
    Do NOT edit any of this data manually.  This data is used by the conversion to insure all steps are completed properly.  Editing of this data may cause the conversion to not create all necessary files.
    The steps that are stored are as follows:
    1 - conversion of room-beds
    2 - conversion of movement types
    3 - conversion of inpatients' movements
    4 - conversion of patients in-house since init date
    5 - G&L recalculation
    6 - conversion of remaining inpatient data.





99
MOVEMENT ENTRIES
ME;0
VARIABLE POINTER  Multiple #405.999
405.999




300
ROOM (OLD)
RE;0
Multiple #405.9003 
405.9003




500
INITIALIZATION DATE
ID;1
DATE 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 02, 1991
  • HELP-PROMPT:  Enter the date/time version 5.0 was initialized
  • DESCRIPTION:  
    This field stores the date and time you initialized version 5 of MAS
    UNEDITABLE





9999999
IHS
IHS;1
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 09, 1994
  • HELP-PROMPT:  Type a Number between 1 and 99999, 0 Decimal Digits





9999999.02
IC
IHS;2
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  FEB 28, 1996
  • HELP-PROMPT:  Answer must be 1-10 characters in length.





9999999.03
DS IC
IHS;3
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  FEB 28, 1996
  • HELP-PROMPT:  Answer must be 1-10 characters in length.





9999999.04
DS
IHS;4
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  FEB 28, 1996
  • HELP-PROMPT:  Answer must be 1-10 characters in length.





9999999.05
SV
IHS;5
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  FEB 28, 1996
  • HELP-PROMPT:  Answer must be 1-10 characters in length.





9999999.06
PM1
IHS;6
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  FEB 28, 1996
  • HELP-PROMPT:  Answer must be 1-10 characters in length.





9999999.07
PM2
IHS;7
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  FEB 28, 1996
  • HELP-PROMPT:  Answer must be 1-10 characters in length.





9999999.08
TS
IHS;8
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  FEB 28, 1996
  • HELP-PROMPT:  Answer must be 1-10 characters in length.





9999999.09
SC
IHS;9
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  FEB 28, 1996
  • HELP-PROMPT:  Answer must be 1-10 characters in length.





9999999.1
DPT
IHS;10
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  FEB 28, 1996
  • HELP-PROMPT:  Answer must be 1-10 characters in length.







External References







Name
Field # of Occurrence




^%DT
10.01+1, 500+1








Global Variables Directly Accessed







Name
Line Occurrences  (* Changed,  ! Killed)




^DG5("B"
.01(XREF 1S), .01(XREF 1K)








Local Variables




  

    
Legend:

    

      
        

           >> 
           Not killed explicitly
          

           * 
          Changed
          

           ! 
          Killed
          

          ~
          Newed
        

      
    

    

  





Name
Field # of Occurrence




>> %DT
10.01+1*, 500+1*




>> DA
.01(XREF 1S), .01(XREF 1K)




X
.01+1!, .01(XREF 1S), .01(XREF 1K), 10.01+1*!, 500+1*!, 9999999+1!, 9999999.02+1!, 9999999.03+1!, 9999999.04+1!, 9999999.05+1!
, 9999999.06+1!, 9999999.07+1!, 9999999.08+1!, 9999999.09+1!, 9999999.1+1!		




>> Y
10.01+1, 500+1








    



Info | 
Desc | 
Directly Accessed By Routines | 
Pointer To FileMan Files | 
Fields | 
External References | 
Global Variables Directly Accessed | 
Local Variables | 
All