Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR  | 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

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
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR  | All