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

Package: Utility Tables

INSURER(#9999999.18)-->9999999.181201

Sub-Field: 9999999.181201


Information

Parent File Name Number Package
INSURER(#9999999.18) MEDICARE FI 9999999.181201 Utility Tables

Details

Field # Name Loc Type Details
.01 MEDICARE FI 0;1 POINTER TO INSURER FILE (#9999999.18) INSURER(#9999999.18)

  • INPUT TRANSFORM:  S DIC("S")="I D0=2,$$ITS^AUTINS(D0,""R"")" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  MAY 02, 2016
  • SCREEN:  S DIC("S")="I D0=2,$$ITS^AUTINS(D0,""R"")"
  • EXPLANATION:  TYPE OF INSURER 'MEDICARE FI' ONLY
  • CROSS-REFERENCE:  9999999.181201^B
    1)= S ^AUTNINS(DA(1),12,"B",$E(X,1,30),DA)=""
    2)= K ^AUTNINS(DA(1),12,"B",$E(X,1,30),DA)
.02 START DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 18, 1999
.03 END DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 18, 1999
Info |  Details |  All