Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 665.7231

Package: Prosthetics

HOME OXYGEN TRANSACTIONS FILE(#665.72)-->665.723-->665.7231

Sub-Field: 665.7231


Information

Parent File Name Number Package
665.723 VENDOR 665.7231 Prosthetics

Details

Field # Name Loc Type Details
.01 VENDOR 0;1 POINTER TO VENDOR FILE (#440) VENDOR(#440)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^RMPR(669.9,+$G(RMPOXITE),""RMPOVDR"",Y,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
  • LAST EDITED:  JAN 28, 1999
  • HELP-PROMPT:  Enter the Vendor the item is being purchased from.
  • DESCRIPTION:  
    This is the name of the vendor/contractor from which the item was purchased. The vendor is a pointer to IFCAP's vendor file.
  • SCREEN:  S DIC("S")="I $D(^RMPR(669.9,+$G(RMPOXITE),""RMPOVDR"",Y,0))"
  • EXPLANATION:  ONLY VENDORS FROM SITE FILE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  665.7231^B
    1)= S ^RMPO(665.72,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^RMPO(665.72,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
1 DATE TRX BUILT 0;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 05, 1999
  • HELP-PROMPT:  Enter the date billing transactions are generated.
  • DESCRIPTION:  
    The date patient billing transactions were generated.
9 PATIENT V;0 POINTER Multiple #665.72319 665.72319

  • LAST EDITED:  NOV 09, 1998
  • DESCRIPTION:  
    This is a multiple field consisting of patient billing transactions for a given vendor.
Info |  Details