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

Package: Patient Care Component

PCC MAN REPORTS ACTIVITY GROUP(#9001003.6)-->9001003.61101

Sub-Field: 9001003.61101


Information

Parent File Name Number Package
PCC MAN REPORTS ACTIVITY GROUP(#9001003.6) DISCIPLINES IN GROUP 9001003.61101 Patient Care Component

Details

Field # Name Loc Type Details
.01 DISCIPLINES IN GROUP 0;1 POINTER TO PROVIDER CLASS FILE (#7)
************************REQUIRED FIELD************************
PROVIDER CLASS(#7)

  • LAST EDITED:  DEC 23, 1992
  • HELP-PROMPT:  Enter a provider discipline.
  • DESCRIPTION:  
    Disciplines in the activity group.
  • CROSS-REFERENCE:  9001003.61101^B
    1)= S ^APCLACTG(DA(1),11,"B",$E(X,1,30),DA)=""
    2)= K ^APCLACTG(DA(1),11,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9001003.61101^.02
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^APCLACTG(D0,11,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9001003.61101,.01,1,2,1.1) X ^DD(9001003.61101,.01,1,2,1.4)
    1.1)= S X=DIV S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(7,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(7,D0,9999999)):^(9999999),1:"") S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0)
    1.4)= S DIH=$S($D(^APCLACTG(DIV(0),11,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9001003.61101,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^APCLACTG(D0,11,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9001003.61101,.01,1,2,2.1) X ^DD(9001003.61101,.01,1,2,2.4)
    2.1)= S X=DIV X ^DD(9001003.61101,.01,1,2,59.2) S Y(101)=$S($D(^DIC(7,D0,9999999)):^(9999999),1:"") S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0)
    2.4)= S DIH=$S($D(^APCLACTG(DIV(0),11,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9001003.61101,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^APCLACTG(D0,11,D1,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^DIC(7,+D0,0)) D0=-1
    CREATE VALUE)= #.01:CODE
    DELETE VALUE)= #.01:CODE
    FIELD)= DISCIPLINE CODE
.02 DISCIPLINE CODE 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  NOV 24, 1992
  • HELP-PROMPT:  Answer must be 2 characters in length.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the DISCIPLINES IN GROUP field of the DISCIPLINES IN GROUP sub-field of the PCC MAN REPORTS ACTIVITY GROUP File
  • CROSS-REFERENCE:  9001003.61101^AC
    1)= S ^APCLACTG(DA(1),11,"AC",$E(X,1,30),DA)=""
    2)= K ^APCLACTG(DA(1),11,"AC",$E(X,1,30),DA)
Info |  Details |  All