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: 9002080.018

Package: Contract Health Management Information System

CHS FACILITY(#9002080)-->9002080.018

Sub-Field: 9002080.018


Information

Parent File Name Number Package
CHS FACILITY(#9002080) HIGH VOLUME PROVIDERS 9002080.018 Contract Health Management Information System

Details

Field # Name Loc Type Details
.01 HIGH VOLUME PROVIDERS 0;1 POINTER TO VENDOR FILE (#9999999.11) VENDOR(#9999999.11)

  • LAST EDITED:  OCT 01, 1991
  • HELP-PROMPT:  ENTER HIGH VOLUME PROVIDER
  • DESCRIPTION:  
    ENTER HIGH VOLUME PROVIDER
  • CROSS-REFERENCE:  9002080.018^B
    1)= S ^ACHSF(DA(1),18,"B",$E(X,1,30),DA)=""
    2)= K ^ACHSF(DA(1),18,"B",$E(X,1,30),DA)
.02 SYSTEM ID COMPUTED

  • MUMPS CODE:  X ^DD(9002080.018,.02,9.3) S X=$P(Y(9002080.018,.02,101),U,1) S D0=Y(9002080.018,.02,80) S D1=Y(9002080.018,.02,81)
    9.2 = S Y(9002080.018,.02,81)=$S($D(D1):D1,1:""),Y(9002080.018,.02,80)=$S($D(D0):D0,1:""),Y(9002080.018,.02,1)=$S($D(^ACHSF(D0,18,D1,0)):^(0),1:"")
    9.3 = X ^DD(9002080.018,.02,9.2) S D0=$P(Y(9002080.018,.02,1),U,1) S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(9002080.018,.02,101)=$S($D(^AUTTVNDR(D0,21)):^(21),1:"")
  • ALGORITHM:  HIGH VOLUME PROVIDERS:TELE
1 EXPORT ABREVIATION CHARACTER 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45)!($L(X)>2)!($L(X)<1)!'(X?1.2A)!($D(^ACHSF("HVEA",X))) X
  • LAST EDITED:  MAR 13, 1997
  • HELP-PROMPT:  Answer must be 1 or 2 alphabetic characters & be unique.
  • DESCRIPTION:  
    ENTER 1 OR 2 EXPORT ABBREVIATION CHARACTER(S)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002080.018^HVEA^MUMPS
    1)= S ^ACHSF("HVEA",X,DA(1),DA)=""
    2)= K ^ACHSF("HVEA",X,DA(1),DA)
Info |  Details |  All