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 |  All
Print Page as PDF
Global: ^DGP(45.87

Package: Registration

Global: ^DGP(45.87


Information

FileMan FileNo FileMan Filename Package
45.87 PTF TRANSACTION REQUEST LOG Registration

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
Registration 3 DGPTF09X    DGPTRPO    DGPTRPP    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Registration 4 DGPTF099    DGPTF09X    DGPTRPO    DGPTRPP    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Kernel 2 INSTITUTION(#4)[.1]    NEW PERSON(#200)[.02]    
MailMan 1 MESSAGE(#3.9)[.03]    
Registration 1 VA PATIENT(#2)[.09]    

Fields, Total: 10

Field # Name Loc Type Details
.01 DATE INITIATED 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    This field contains the date and time the user initially submitted the transaction.
  • CROSS-REFERENCE:  45.87^B
    1)= S ^DGP(45.87,"B",$E(X,1,30),DA)=""
    2)= K ^DGP(45.87,"B",$E(X,1,30),DA)
.02 USER 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 01, 1991
  • DESCRIPTION:  
    This field contains the user name who submitted the transaction.
.03 MAIL MSG # 0;3 POINTER TO MESSAGE FILE (#3.9) MESSAGE(#3.9)

  • OUTPUT TRANSFORM:  S Y=+Y
  • LAST EDITED:  MAR 01, 1991
  • DESCRIPTION:  
    This field contains the Mailman message number which contains the transaction that was sent to Austin.
.04 BLOCK 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • LAST EDITED:  FEB 13, 1991
  • HELP-PROMPT:  Answer must be 4 characters in length.
  • DESCRIPTION:  This field contains the transaction type for the request. For example, it can contain the following:
    o  N099 for PTF record deletion
    o  N150 for RPO of a specific admission at a VAMC
    o  N151 for RPO of all admissions at a VAMC
.05 SSN 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<9)!'(X?0.1"P"9N) X
  • LAST EDITED:  FEB 13, 1991
  • HELP-PROMPT:  SSN must be in the form 123456789 or P123456789.
  • DESCRIPTION:  
    Enter the Social Security Number(SSN) of the patient for which you desire information.
  • NOTES:  TRIGGERED by the PATIENT field of the PTF TRANSACTION REQUEST LOG File
.06 ADMISSION DATE/TIME 0;6 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 22, 1991
  • HELP-PROMPT:  DATE/TIME of Patient Admission.
  • DESCRIPTION:  
    Enter the date/time of an admission for the patient(SSN) selected.
.07 ADMITTING FACILITY/SUFFIX 0;7 FREE TEXT

  • INPUT TRANSFORM:  S:$L(X)<6 X=X_$E(" ",1,6-$L(X)) K:$L(X)>6!($L(X)<3)!'(X?3N.3NA.3" ") X
  • LAST EDITED:  SEP 19, 1994
  • HELP-PROMPT:  Answer must be 3-digit facility number, followed immediately by OPTIONAL 1-3 character suffix.
  • DESCRIPTION:  This field contains the facility number and suffix of the VAMC that has admitted the patient in the past.
    This field is filled in by the user when sending a N150 transaction.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ADMITTING INSTITUTION field of the PTF TRANSACTION REQUEST LOG File
.08 REQUESTING FACILITY/SUFFIX 0;8 FREE TEXT

  • INPUT TRANSFORM:  S:$L(X)<6 X=X_$E(" ",1,6-$L(X)) K:$L(X)>6!($L(X)<3)!'(X?3N.3NA.3" ") X
  • LAST EDITED:  SEP 19, 1994
  • HELP-PROMPT:  Answer must be 3-digit facility number, followed immediately by OPTIONAL 1-3 character suffix.
  • DESCRIPTION:  
    This field contains the facility number and the suffix of the VAMC requesting information.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.09 PATIENT 0;9 POINTER TO VA PATIENT FILE (#2) VA PATIENT(#2)

  • LAST EDITED:  FEB 21, 1991
  • DESCRIPTION:  This field contains the patient associated with the transaction submitted. However, it is not required. If filled in then the SSN field will automatically be updated with the patient's SSN, as it appears in the PATIENT
    file.
    If the user has an SSN of a patient not in the site's PATIENT file, the user can enter that SSN directly into the SSN field.
  • CROSS-REFERENCE:  ^^TRIGGER^45.87^.05
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGP(45.87,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(45.87,.09,1,1,1.1) X ^DD(45.87,.09,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(101),U,9) S D0=I(0,0)
    1.4)= S DIH=$S($D(^DGP(45.87,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=45.87,DIG=.05 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGP(45.87,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(45.87,.09,1,1,2.4)
    2.4)= S DIH=$S($D(^DGP(45.87,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=45.87,DIG=.05 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= .09:#.09
    DELETE VALUE)= @
    FIELD)= #.05
.1 ADMITTING INSTITUTION 0;10 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  FEB 21, 1991
  • DESCRIPTION:  This field allows the user to select the VAMC from which admission information is desired. This field is optional but if filled in, the VAMC's station number, as it appears in the INSTITUTION file, will be stuffed into
    the ADMITTING FACILITY/SUFFIX field as a default.
  • CROSS-REFERENCE:  ^^TRIGGER^45.87^.07
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGP(45.87,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(45.87,.1,1,1,1.1) X ^DD(45.87,.1,1,1,1.4)
    1.1)= S X=DIV X ^DD(45.87,.1,1,1,49.2) S Y(104)=X S X=6,X=$E(Y(103),Y(104),X) S D0=I(0,0)
    1.4)= S DIH=$S($D(^DGP(45.87,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=45.87,DIG=.07 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGP(45.87,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(45.87,.1,1,1,2.4)
    2.4)= S DIH=$S($D(^DGP(45.87,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=45.87,DIG=.07 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(4,+D0,0)) D0=-1 S Y(102)=$S($D(^DIC(4,D0,99)):^(99),1:""),Y(101)=X S X=$P(Y(102),U,1)_"      ",Y(103)=X S X=1
    CREATE VALUE)= .1:$E(#99_"      ",1,6)
    DELETE VALUE)= @
    FIELD)= #.07
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All