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 |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^DIC(195.4

Package: Record Tracking

Global: ^DIC(195.4


Information

FileMan FileNo FileMan Filename Package
195.4 RECORD TRACKING SYSTEM PARAMETERS Record Tracking

Description

Directly Accessed By Routines, Total: 25

Package Total Routines
Record Tracking 19 RT APPL SET-UP    RTB    RTDPA1    RTPSET    RTPURGE    RTQ    RTQ2    RTQ3
RTQ5    RTRAD    RTSM    RTSM1    RTSM4    RTSM5    RTSM6    RTSM8
^DIC(195.4    RTSM61    RTUTL3    
Radiology Nuclear Medicine 3 RADPA    RAPROQ    RAREG3    
Scheduling 2 SDAMU    SDUTL    
Registration 1 DGREG    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Record Tracking 2 RTPURGE    RTSM    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Record Tracking 2 RECORD TRACKING APPLICATION(#195.1)[101201]    RECORD TYPES(#195.2)[102202]    

Fields, Total: 17

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X'="OVERALL PARAMETERS"&(X'="MISSING RECORD") X
  • LAST EDITED:  MAY 02, 1994
  • HELP-PROMPT:  Enter one of the choices from the list above.
  • DESCRIPTION:  
    This defines parameters that are used through out the system and applications.
  • DELETE TEST:  1,0)= I 1 W *7,!,"CAN'T DELETE THIS ENTRY"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  195.4^B
    1)= S ^DIC(195.4,"B",$E(X,1,30),DA)=""
    2)= K ^DIC(195.4,"B",$E(X,1,30),DA)
2 QUEUE THRESHOLD 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 30, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
  • DESCRIPTION:  
    This number is the number of records that can be charged-out or check-in at one time before the system queue's the job to process in the backround.
3 NULL QUEUING DEVICE 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X D PRT^RTDPA3:$D(X)
  • LAST EDITED:  MAY 14, 1987
  • HELP-PROMPT:  ANSWER MUST BE 1-40 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This defines a non-sharable device in the device file which limits the number of requests that are processed simultaneously by the task manager.
  • EXECUTABLE HELP:  D HELP^RTDPA3
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4 OPERATING CONDITIONS 0;4 SET
************************REQUIRED FIELD************************
  • 'n' FOR NORMAL;
  • 'e' FOR EMERGENCY(NORMAL COMPUTER DOWN);

  • LAST EDITED:  APR 07, 1987
  • DESCRIPTION:  This field contains the hardware conditions parameter that tells the system the type of operating conditions that are in effect. The available conditions are: 'N' for normal and 'E' for emergency.
    Under NORMAL conditions, the system uses the parameters set up in the files 195.1, 195.2, 195.9 to determine which input and printer devices to use.  Under EMERGENCY conditions, the system ignores all the location
    parameters set up and the user is prompted for this information.
5 BATCH RECORD,XRAY REQUESTS 0;5 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  APR 12, 1988
  • HELP-PROMPT:  Enter Yes to Batch requests, No to process immediately
  • DESCRIPTION:  No means Appointments for clinics which require records, and/or xrays cause Requests for Records to be processed immediately through the taskmanager, null queuing device, in the background.
    YES means clinic Requests for Records are not made until the clinic requests option is run at night.
    SOURCE OF DATA:   Site manager
6 BATCH REQUESTS CUTOFF (days) 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 12, 1988
  • HELP-PROMPT:  Enter a digit from 1 to 9
  • DESCRIPTION:  
    This defines the number of days in the future that the clinic request option should look for clinic requests for records and/or xrays.
8 OK TO PURGE REQUESTS? 0;8 SET
  • 'y' FOR YES;
  • 'n' FOR NO;

  • LAST EDITED:  APR 28, 1987
  • DESCRIPTION:  
    YES means the purge option will purge requests.
10 OK TO PURGE PULL LISTS? 0;10 SET
  • 'y' FOR YES;
  • 'n' FOR NO;

  • LAST EDITED:  APR 28, 1987
  • DESCRIPTION:  
    YES means the purge option will purge pull lists.
12 OK TO PURGE MOVEMENT LOGS? 0;12 SET
  • 'y' FOR YES;
  • 'n' FOR NO;

  • LAST EDITED:  APR 28, 1987
  • DESCRIPTION:  
    YES means the purge option will purge movements.
20 LABEL PRINTER COOLER COOL;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 09, 1988
  • HELP-PROMPT:  Enter a number from 0 to 99.
  • DESCRIPTION:  
    This defines the number of minutes the program will hang every 100 records when printing barcodes to allow the printer to relax.  It is dynamic.
    SOURCE OF DATA:   site manager
30 INSTITUTION/STATION NUMBER SITE;1 FREE TEXT

  • INPUT TRANSFORM:  S DIC="^DIC(4,",DIC(0)="ENM" D ^DIC K DIC K:Y=-1 X I $D(X) S X=+$P(^DIC(4,+Y,99),"^")
  • LAST EDITED:  MAY 08, 1991
  • HELP-PROMPT:  Enter your Station Number in the Institution file
  • DESCRIPTION:  
    This field should contain the Station Number of the site.  It is usually the same as the ^DD("SITE")
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
100 MAS INTERFACE STATUS UP;1 SET
  • '0' FOR DOWN;
  • '1' FOR UP;

  • LAST EDITED:  SEP 18, 1986
  • DESCRIPTION:  
    UP means clinic requests for records will be processed.  DOWN means clinic requests for records will be ignored.
101 MAS TRACKING APPLICATION MAS;1 POINTER TO RECORD TRACKING APPLICATION FILE (#195.1) RECORD TRACKING APPLICATION(#195.1)

  • LAST EDITED:  AUG 27, 1986
  • DESCRIPTION:  
    This defines the application which is called by clinic requests.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the RECORD TYPE FOR MEDICAL FOLDER field of the RECORD TRACKING SYSTEM PARAMETERS File
  • CROSS-REFERENCE:  195.4^MAS
    1)= S ^DIC(195.4,"MAS",$E(X,1,30),DA)=""
    2)= K ^DIC(195.4,"MAS",$E(X,1,30),DA)
102 RECORD TYPE FOR MEDICAL FOLDER MAS;2 POINTER TO RECORD TYPES FILE (#195.2) RECORD TYPES(#195.2)

  • DESCRIPTION:  
    This defines the record type for the medical record.
  • CROSS-REFERENCE:  ^^TRIGGER^195.4^101
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(195.4,D0,"MAS")):^("MAS"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(195.4,102,1,1,1.1) X ^DD(195.4,102,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(195.2,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(195.2,D0,0)):^(0),1:"") S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^DIC(195.4,DIV(0),"MAS")):^("MAS"),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^("MAS")=DIV_$S(%]"":U_%,1:""),DIH=195.4,DIG=101 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= INTERNAL(#102:#3)
    DELETE VALUE)= NO EFFECT
    FIELD)= #101
200 RADIOLOGY INTERFACE STATUS UP;2 SET
  • '0' FOR DOWN;
  • '1' FOR UP;

  • LAST EDITED:  NOV 10, 1986
  • DESCRIPTION:  
    UP means clinic requests for xrays are processed.  DOWN means clinic requests for xrays are ignored.
201 RADIOLOGY TRACKING APPLICATION RAD;1 POINTER TO RECORD TRACKING APPLICATION FILE (#195.1) RECORD TRACKING APPLICATION(#195.1)

  • LAST EDITED:  AUG 27, 1986
  • DESCRIPTION:  
    This defines the application which is called by radiology scheduling.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the RECORD TYPE FOR MASTER JACKET field of the RECORD TRACKING SYSTEM PARAMETERS File
  • CROSS-REFERENCE:  195.4^RAD
    1)= S ^DIC(195.4,"RAD",$E(X,1,30),DA)=""
    2)= K ^DIC(195.4,"RAD",$E(X,1,30),DA)
202 RECORD TYPE FOR MASTER JACKET RAD;2 POINTER TO RECORD TYPES FILE (#195.2) RECORD TYPES(#195.2)

  • DESCRIPTION:  
    This defines the record type for the radiology application.
  • CROSS-REFERENCE:  ^^TRIGGER^195.4^201
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(195.4,D0,"RAD")):^("RAD"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(195.4,202,1,1,1.1) X ^DD(195.4,202,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(195.2,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(195.2,D0,0)):^(0),1:"") S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^DIC(195.4,DIV(0),"RAD")):^("RAD"),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^("RAD")=DIV_$S(%]"":U_%,1:""),DIH=195.4,DIG=201 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= INTERNAL(#202:#3)
    DELETE VALUE)= NO EFFECT
    FIELD)= #201

Found Entries, Total: 2

NAME: MISSING RECORD    NAME: OVERALL PARAMETERS    

ICR, Total: 3

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #85
  • SCHEDULING
  • ICR #115
  • RADIOLOGY/NUCLEAR MEDICINE
  • ICR #120
  • REGISTRATION
  • External References

    Name Field # of Occurrence
    ^DIC 30+1
    ^DICR 102(XREF 1n1.4), 202(XREF 1n1.4)
    HELP^RTDPA3 3(HELP )
    PRT^RTDPA3 3+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( 102(XREF 1n1.4), 202(XREF 1n1.4)
    ^DD(195.4 102(XREF 1S), 202(XREF 1S)
    ^DIC(195.2 - [#195.2] 102(XREF 1n1.1), 202(XREF 1n1.1)
    ^DIC(195.4 - [#195.4] .01(XREF 1S), .01(XREF 1K), 101(XREF 1S), 101(XREF 1K), 102(XREF 1S), 102(XREF 1n1.4), 201(XREF 1S), 201(XREF 1K), 202(XREF 1S), 202(XREF 1n1.4)
    ^DIC(4 - [#4] 30+1

    Naked Globals

    Name Field # of Occurrence
    ^("MAS" 102(XREF 1S), 102(XREF 1n1.4)
    ^("RAD" 202(XREF 1S), 202(XREF 1n1.4)
    ^(0 102(XREF 1n1.1), 202(XREF 1n1.1)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % 102(XREF 1n1.4), 202(XREF 1n1.4)
    >> D0 102(XREF 1S), 102(XREF 1n1.1), 202(XREF 1S), 202(XREF 1n1.1)
    >> DA .01(XREF 1S), .01(XREF 1K), 101(XREF 1S), 101(XREF 1K), 102(XREF 1S), 201(XREF 1S), 201(XREF 1K), 202(XREF 1S)
    DIC 30+1*!
    DIC(0 30+1*
    >> DIG 102(XREF 1n1.4), 202(XREF 1n1.4)
    >> DIH 102(XREF 1n1.4), 202(XREF 1n1.4)
    >> DIU 102(XREF 1S), 102(XREF 1n1.4), 202(XREF 1S), 202(XREF 1n1.4)
    DIV 102(XREF 1S), 102(XREF 1n1.1), 102(XREF 1n1.4), 202(XREF 1S), 202(XREF 1n1.1), 202(XREF 1n1.4)
    DIV(0 102(XREF 1S), 102(XREF 1n1.4), 202(XREF 1S), 202(XREF 1n1.4)
    >> I(0 102(XREF 1n1.1), 202(XREF 1n1.1)
    U 102(XREF 1S), 102(XREF 1n1.1), 102(XREF 1n1.4), 202(XREF 1S), 202(XREF 1n1.1), 202(XREF 1n1.4)
    X .01+1!, .01(XREF 1S), .01(XREF 1K), 2+1!, 3+1!, 6+1!, 20+1!, 30+1!*, 101(XREF 1S), 101(XREF 1K)
    102(XREF 1S), 102(XREF 1n1.1), 102(XREF 1n1.4), 201(XREF 1S), 201(XREF 1K), 202(XREF 1S), 202(XREF 1n1.1), 202(XREF 1n1.4)
    Y 30+1, 102(XREF 1S), 202(XREF 1S)
    Y(1 102(XREF 1S), 202(XREF 1S)
    Y(101 102(XREF 1n1.1), 202(XREF 1n1.1)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All