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

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    RMPRFO3    RMPRFO6    RMPRUTL2
^RMPR(665.4    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