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

This file is a log of special PTF transactions submitted to Austin. The following PTF transactions are logged in this file: o N099 for PTF record deletion o N150 for RPO of a specific admission o N151 for RPO of all admissions at a VAMC

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