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

Package: IHS GPRA Information System

BGP CONTROL FILE(#90241.01)-->90241.0111

Sub-Field: 90241.0111


Information

Parent File Name Number Package
BGP CONTROL FILE(#90241.01) CLINICS FOR CLINICAL USER 90241.0111 IHS GPRA Information System

Details

Field # Name Loc Type Details
.01 CLINIC CODE 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  DEC 30, 2002
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • CROSS-REFERENCE:  90241.0111^B
    1)= S ^BGPCTRL(DA(1),11,"B",$E(X,1,30),DA)=""
    2)= K ^BGPCTRL(DA(1),11,"B",$E(X,1,30),DA)
.019 CLINIC NAME COMPUTED

  • MUMPS CODE:  X ^DD(90241.0111,.019,9.3) S X=$P(Y(90241.0111,.019,101),U,1) S D0=Y(90241.0111,.019,80) S D1=Y(90241.0111,.019,81)
    9.2 = S Y(90241.0111,.019,81)=$S($D(D1):D1,1:""),Y(90241.0111,.019,80)=$S($D(D0):D0,1:""),Y(90241.0111,.019,1)=$S($D(^BGPCTRL(D0,11,D1,0)):^(0),1:"")
    9.3 = X ^DD(90241.0111,.019,9.2) S X=$P(Y(90241.0111,.019,1),U,1) K DIC S DIC="^DIC(40.7,",DIC(0)="NMF" D ^DIC S (D,D0)=+Y S Y(90241.0111,.019,101)=$S($D(^DIC(40.7,D0,0)):^(0),1:"")
  • ALGORITHM:  #.01:CLINIC STOP
Info |  Details |  All