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 |  Found Entries |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^DIC(39.1

Package: Registration

Global: ^DIC(39.1


Information

FileMan FileNo FileMan Filename Package
39.1 EMBOSSED CARD TYPE Registration

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
Registration 4 DG5382PR    DGPWB    ^DIC(39.1    DGPWPOST    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Registration 3 DG5382PR    DG5382PT    DGPWPOST    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Registration 3 EMBOSSING DATA(#39.2)[#39.12(.01)]    EMBOSSER EQUIPMENT FILE(#39.3)[1]    PATIENT(#2)[#39.13(.01)]    

Fields, Total: 9

Field # Name Loc Type Details
.001 CARD TYPE NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • DESCRIPTION:  
    This field contains the internal record number that is associated with this data card type.
    SOURCE OF DATA: GENERATED BY FILE MANAGER
.01 NAME 0;1

  • INPUT TRANSFORM:  K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
  • LAST EDITED:  JAN 02, 1985
  • DESCRIPTION:  
    This field contains the name of this card type. Card type names must be between 3 and 30 characters in length.
    SOURCE OF DATA: DEVELOPER
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  39.1^B
    1)= S ^DIC(39.1,"B",$E(X,1,30),DA)=""
    2)= K ^DIC(39.1,"B",$E(X,1,30),DA)
1 DEFAULT DEVICE 0;2 POINTER TO EMBOSSER EQUIPMENT FILE FILE (#39.3) EMBOSSER EQUIPMENT FILE(#39.3)

  • LAST EDITED:  JUL 12, 1985
  • DESCRIPTION:  This field is used to assign the default embosser device to be associated with each card type (Service Connected, Non-Service Connected, Non-Veteran, Free Text, etc.). Each card type may be associated with a different
    embosser device. Default devices are assigned at each site by the computer site manager. If a default device is not entered here, the user will be prompted for a device.
    This field points to the EMBOSSER EQUIPMENT file (#39.3). Therefore, the device selected here must match an entry in that file.
    SOURCE OF DATA: COMPUTER SITE MANAGER
2 MANDATORY HOLD 0;3 SET
  • '1' FOR YES;
  • '2' FOR NO;
  • '0' FOR ASK;

  • LAST EDITED:  FEB 08, 1985
  • DESCRIPTION:  This field is used to determine whether or not data cards should be printed immediately or put into 'Hold' status, or if the user should be prompted for the correct action. This field can be set up with a different action
    for each card type (Service Connected, Non-Service Connected, Non-Veteran, Free Text, etc.)..
    The computer site manager should set this field to YES to automatically place the cards in 'Hold' status, to NO to automatically 'Print' the cards immediately, or to ASK to ask the user to 'Print' or 'Hold'. If this field
    is not edited, the system defaults to ASK.
    SOURCE OF DATA: COMPUTER SITE MANAGER
3 DEFAULT NUMBER OF CARDS 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>8)!(X<1)!(X?.E1"."1N.N) X
  • DESCRIPTION:  This field is used to assign the number of duplicate cards to be embossed for each card type (Service Connected, Non-Service Connected, Non-Veteran, Free Text, etc.). Each card type may be assigned a different default
    number of cards. The default number of cards must be a number between one and eight.
    SOURCE OF DATA: COMPUTER SITE MANAGER
5 TYPE 0;6 SET
************************REQUIRED FIELD************************
  • '1' FOR NON SERVICE CONNECTED;
  • '2' FOR SERVICE CONNECTED;
  • '9' FOR FREE TEXT;
  • '3' FOR NON-VETERAN;
  • '10' FOR WRISTBAND;

  • LAST EDITED:  FEB 16, 1995
  • HELP-PROMPT:  Enter the type of card.
  • DESCRIPTION:  
    This field should contain the name and code number associated with this data card type. ('1' for NON SERVICE CONNECTED, '2' for 'SERVICE CONNECTED, '3' fNON-VETERAN, or '9' for FREE TEXT, '10' for WRISTBAND.)
    SOURCE OF DATA: DEVELOPER
  • CROSS-REFERENCE:  39.1^C
    1)= S ^DIC(39.1,"C",$E(X,1,30),DA)=""
    2)= K ^DIC(39.1,"C",$E(X,1,30),DA)
10 LINE NUMBER 1;0 Multiple #39.11 39.11

  • DESCRIPTION:  
    This multiple field contains information about each line to be printed on the data cards.
    SOURCE OF DATA: DEVELOPER
11 MAIL TO REQUESTOR 0;5 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  NOV 01, 1985
  • DESCRIPTION:  This field is used to determine if users who request data cards who are not in the DGEMBOSSER mail group should receive embosser error messages. If this field is set to YES, then a user who requests a card that does not
    get embossed due to an error will receive an error message. If this field is set to NO, only members of the DGEMBOSSER mail group will receive the message.
    SOURCE OF DATA: COMPUTER SITE MANAGER
12 CARDS IN HOLD HOLD;0 POINTER Multiple #39.13 39.13

  • DESCRIPTION:  
    This multiple contains the number of this card type that are presently in hold awaiting printing.

Found Entries, Total: 5

NAME: NON-SERVICE CONNECTED    NAME: SERVICE CONNECTED    NAME: NON-VET    NAME: FREE TEXT    NAME: WRISTBAND    

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(39.1 - [#39.1] .01(XREF 1S), .01(XREF 1K), 5(XREF 1S), 5(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA .01(XREF 1S), .01(XREF 1K), 5(XREF 1S), 5(XREF 1K)
X .001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), 3+1!, 5(XREF 1S), 5(XREF 1K)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  Global Variables Directly Accessed |  Local Variables  | All