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 | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^RMPR(665.4

Package: Prosthetics

Global: ^RMPR(665.4

Information

FileMan FileNo	FileMan Filename	Package
665.4	PROS LETTER TRANSACTION FILE	Prosthetics

Description

This file stores all patient letters generated by prosthetic purchasing agents.

Directly Accessed By Routines, Total: 18

Package	Total	Routines
Prosthetics	18	HO LETTER 3 LIST ITEM RMPOLET0 RMPOLETU RMPOLF0A RMPOLF1 RMPOLF2 RMPOLZ RMPOLZU RMPR FL 10-90 ADP RMPR9CL RMPRFO1 RMPRFO2 ^RMPR(665.4 RMPRFO3 RMPRFO6 RMPRUTL2 RMPRUTL3

Accessed By FileMan Db Calls, Total: 8

Package	Total	Routines
Prosthetics	8	RMPOLETU RMPOLF0A RMPOLF1 RMPOLF2 RMPOLZU RMPRFO1 RMPRFO2 RMPRFO3

Pointer To FileMan Files, Total: 5

Package	Total	FileMan Files
Kernel	2	INSTITUTION(#4)[6] NEW PERSON(#200)[4]
IFCAP	1	VENDOR(#440)[7]
Prosthetics	1	PROS LETTER(#665.2)[1]
Registration	1	PATIENT(#2)[.01]

Fields, Total: 13

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) 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)`
.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.`
1	LETTER TYPE	0;2	POINTER TO PROS LETTER FILE (#665.2)	PROS LETTER(#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.`
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.`
3	LETTER	1;0	WORD-PROCESSING #665.43	DESCRIPTION: `This is the actual printed letter sent to the patient.` LAST EDITED: `JUL 08, 1992` HELP-PROMPT: `Enter the text of the letter.`
4	EMPLOYEE	0;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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.`
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.`
6	STATION	0;6	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#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.`
7	VENDOR	2;1	POINTER TO VENDOR FILE (#440)	VENDOR(#440) LAST EDITED: `JAN 05, 1994` DESCRIPTION: `Vendor for FL 10-90 purposes.`
8	ITEM	3;0	Multiple #665.48	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.`
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.`
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.`
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)`

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #6539	ADVANCED PROSTHETICS ACQUISITION TOOL	NAME (.01). Access: Both R/W w/Fileman LETTER TYPE (1). Access: Both R/W w/Fileman PRINTED DATE (2). Access: Read w/Fileman EMPLOYEE (4). Access: Both R/W w/Fileman VENDOR (7). Access: Both R/W w/Fileman ITEM (.01). Access: Both R/W w/Fileman SIGNED BY (9). Access: Both R/W w/Fileman SIGNER'S TITLE (10). Access: Both R/W w/Fileman NON-AMIS GENERATION DATE (11). Access: Both R/W w/Fileman	'AH' cross reference - used to look up AMIS denials byPRINTED DATE

External References

Name	Field # of Occurrence
^%DT	2+1, 11+1
Y^DIQ	ID1+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(665.2	ID1+1
^RMPR(665.2 - [#665.2]	ID1+1
^RMPR(665.4 - [#665.4]	.01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 11(XREF 1S), 11(XREF 1K), 11(XREF 2S), 11(XREF 2K)

Naked Globals

Name	Field # of Occurrence
^(0	ID1+1
^(5	ID11+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	2+1, 11+1
%I	ID1+1*!
>> C	ID1+1*
>> DA	.01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 11(XREF 1S), 11(XREF 1K), 11(XREF 2S), 11(XREF 2K)
>> DIC	ID1+1
U	ID1+1, ID11+1, 2(XREF 1S), 2(XREF 2S), 2(XREF 2K), 11(XREF 1S), 11(XREF 1K)
X	.01(XREF 1S), .01(XREF 1K), .05+1!, 2+1!, 2(XREF 1S), 2(XREF 1K), 9+1!, 10+1!, 11+1!, 11(XREF 2S) , 11(XREF 2K)
>> Y	ID1+1*, 2+1, 11+1

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All