Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields
Print Page as PDF
Global: ^DG(35.1

Package: Registration

Global: ^DG(35.1


Information

FileMan FileNo FileMan Filename Package
35.1 SHARING AGREEMENT CATEGORY Registration

Description

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Registration 1 DGSAUTL    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Registration 2 SHARING AGREEMENT SUB-CATEGORY(#35.2)[.01, .02]    VA ADMITTING REGULATION(#43.4)[.01]    
Scheduling 1 APPOINTMENT TYPE(#409.1)[.01]    

Fields, Total: 3

Field # Name Loc Type Details
.01 A/P 0;1 VARIABLE POINTER
************************REQUIRED FIELD************************
VA ADMITTING REGULATION(#43.4)  APPOINTMENT TYPE(#409.1)  

  • LAST EDITED:  JAN 17, 1997
  • HELP-PROMPT:  Enter the Appointment Type or Admitting Regulation.
  • CROSS-REFERENCE:  35.1^B
    1)= S ^DG(35.1,"B",$E(X,1,30),DA)=""
    2)= K ^DG(35.1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  35.1^AC^MUMPS
    1)= I +$P(^DG(35.1,DA,0),U,2) S ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)=$P(^DG(35.1,DA,0),U,3)
    2)= K ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)
.02 CATEGORY 0;2 POINTER TO SHARING AGREEMENT SUB-CATEGORY FILE (#35.2) SHARING AGREEMENT SUB-CATEGORY(#35.2)

  • LAST EDITED:  JAN 17, 1997
  • CROSS-REFERENCE:  35.1^AE^MUMPS
    1)= I +$P(^DG(35.1,DA,0),U,2) S ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)=$P(^DG(35.1,DA,0),U,3)
    2)= K ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)
.03 ACTIVE 0;3 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 17, 1997
  • HELP-PROMPT:  Please enter 1 for "Yes" and 0 for "No".
  • CROSS-REFERENCE:  35.1^AD^MUMPS
    1)= I +$P(^DG(35.1,DA,0),U,2) S ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)=$P(^DG(35.1,DA,0),U,3)
    2)= K ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields