STANDARD DATA DICTIONARY #665.4 -- PROS LETTER TRANSACTION FILE FILE 9/29/25 PAGE 1
STORED IN ^RMPR(665.4, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file stores all patient letters generated by prosthetic purchasing agents.
DD ACCESS: @
IDENTIFIED BY: LETTER TYPE (#1), NON-AMIS GENERATION DATE (#11)
CROSS
REFERENCED BY: PRINTED DATE(AC), PRINTED DATE(AH1), NON-AMIS GENERATION DATE(AH2), NAME(B), NON-AMIS GENERATION DATE(C)
665.4,.01 NAME 0;1 POINTER TO PATIENT FILE (#2) (Required)
LAST EDITED: MAY 03, 1995
HELP-PROMPT: Enter the Patient's name.
DESCRIPTION:
Pointer to the MAS Patient File.
CROSS-REFERENCE: 665.4^B
1)= S ^RMPR(665.4,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(665.4,"B",$E(X,1,30),DA)
665.4,.05 LETTER TO: 5;2 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
LAST EDITED: MAY 02, 1995
HELP-PROMPT: Answer must be 3-30 characters in length.
665.4,1 LETTER TYPE 0;2 POINTER TO PROS LETTER FILE (#665.2)
LAST EDITED: JUN 02, 1993
HELP-PROMPT: Enter the type of letter for this transaction.
DESCRIPTION:
This field points to file 665.2. It stores the type of letter for this transaction.
665.4,2 PRINTED DATE 0;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 22, 1995
HELP-PROMPT: Enter the date the letter was printed.
DESCRIPTION:
If a letter has been printed, it may not be edited. This field stores the printed flag.
CROSS-REFERENCE: 665.4^AC^MUMPS
1)= I $P(^RMPR(665.4,DA,0),U,5)=1 S ^RMPR(665.4,"AC",$E(X,1,20),DA)=""
2)= K ^RMPR(665.4,"AC",$E(X,1,20),DA)
Used for counting AMIS denials by date.
CROSS-REFERENCE: 665.4^AH1^MUMPS
1)= S ^RMPR(665.4,"AH",$P(^RMPR(665.4,DA,0),U,1),(9999999-$P(^RMPR(665.4,DA,0),U,3)),DA)=""
2)= K ^RMPR(665.4,"AH",$P(^RMPR(665.4,DA,0),U,1),(9999999-$P(^RMPR(665.4,DA,0),U,3)),DA)
AH1 AND AH2 CROSS REFF BOTH SET AH XREFF THAT SORTS BY PATIENT AND DATE.
665.4,3 LETTER 1;0 WORD-PROCESSING #665.43 (NOWRAP)
DESCRIPTION:
This is the actual printed letter sent to the patient.
LAST EDITED: JUL 08, 1992
HELP-PROMPT: Enter the text of the letter.
665.4,4 EMPLOYEE 0;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 26, 1992
HELP-PROMPT: Enter the name of the employee who created the letter.
DESCRIPTION:
This field stores the employee who created the letter.
665.4,5 DENIAL FLAG 0;5 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUL 08, 1992
HELP-PROMPT: Enter 0 for NO, 1 for YES.
DESCRIPTION:
Field is used to calculate AMIS Denials if set to YES.
665.4,6 STATION 0;6 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: SEP 29, 1992
HELP-PROMPT: Enter the Station number for this letter transaction.
DESCRIPTION:
This field stores the station that generated the letter to the patient.
665.4,7 VENDOR 2;1 POINTER TO VENDOR FILE (#440)
LAST EDITED: JAN 05, 1994
DESCRIPTION:
Vendor for FL 10-90 purposes.
665.4,8 ITEM 3;0 Multiple #665.48
LAST EDITED: JUL 28, 1994
DESCRIPTION: This field contains items for which a request for quotation has been made on the ADP FL 10-90 form.
The item is NOT tied to the Item Master file.
665.48,.01 ITEM 0;1 FREE TEXT (Required) (Multiply asked)
INPUT TRANSFORM: K:$L(X)>80!($L(X)<3) X
LAST EDITED: JUN 20, 1995
HELP-PROMPT: Enter an item to include in this request - 3 to 80 characters allowed.
DESCRIPTION: This field contains the item for which a request for a quotations has been made on the ADP FL
10-90.
CROSS-REFERENCE: 665.48^B
1)= S ^RMPR(665.4,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(665.4,DA(1),3,"B",$E(X,1,30),DA)
665.4,9 SIGNED BY 4;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: FEB 09, 1994
HELP-PROMPT: Answer must be 3-30 characters in length.
665.4,10 SIGNER'S TITLE 4;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: FEB 09, 1994
HELP-PROMPT: Answer must be 3-30 characters in length.
665.4,11 NON-AMIS GENERATION DATE 5;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 23, 1995
TECHNICAL DESCR:
THIS IS THE DATE LETTER WAS FIRST GENERATED. IT HAS NO OTHER USE, AND IS NOT USED TO COUNT AMIS.
CROSS-REFERENCE: 665.4^AH2^MUMPS
1)= S ^RMPR(665.4,"AH",$P(^RMPR(665.4,DA,0),U,1),(9999999-$P(^RMPR(665.4,DA,5),U,1)),DA)=""
2)= K ^RMPR(665.4,"AH",$P(^RMPR(665.4,DA,0),U,1),(9999999-$P(^RMPR(665.4,DA,5),U,1)),DA)
BOTH AH1 AND AH2 CROSS REFFERENCES SET THE AH CROSS REFFERENCE OF LETTER BY PATIENT AND DATE.
CROSS-REFERENCE: 665.4^C
1)= S ^RMPR(665.4,"C",$E(X,1,30),DA)=""
2)= K ^RMPR(665.4,"C",$E(X,1,30),DA)
FILES POINTED TO FIELDS
INSTITUTION (#4) STATION (#6)
NEW PERSON (#200) EMPLOYEE (#4)
PATIENT (#2) NAME (#.01)
PROS LETTER (#665.2) LETTER TYPE (#1)
VENDOR (#440) VENDOR (#7)
INPUT TEMPLATE(S):
RMPR FL 10-90 ADP JAN 07, 1994@13:55 USER #0
Accepts input for FL 10-90
PRINT TEMPLATE(S):
RMPR BLANK JAN 05, 1994@09:09 USER #0 @
Prints a blank header for page numbering purposes for Correspondence module.
RMPR FL 10-90 ADP JAN 25, 1994@15:11 USER #0 @
Prints out first half of FL 10-90.
RMPR FL 10-90 CONT HEAD JAN 21, 1994@03:55 USER #0 @
Prints header for FL 10-90 Continuation form.
RMPR FL 10-90 CONT TRLR JAN 20, 1994@14:36 USER #0 @
Prints trailer for FL 10-90 continuation form.
RMPR ITEM JAN 21, 1994@03:48 USER #0 @
Prints item(s) for FL 10-90
RMPR PAGE SEP 21, 1995@15:25 USER #0 @
Writes the trailer that print page numbers on the bottoms of correspondence.
SORT TEMPLATE(S):
RMPR FL 10-90 ADP JAN 06, 1994@14:13 USER #0
SORT BY: @LETTER TYPE// From 'FL 10-90 ADP' To 'FL 10-90 ADP^FL 10-90 ADP'
WITHIN LETTER TYPE, SORT BY: NUMBER// (User is asked range)
Sorts file 665.4 by letter type.
FORM(S)/BLOCK(S):