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.51

Package: Patient Care Component

PCC MAN REPORTS SORT(#9001003.5)-->9001003.51

Sub-Field: 9001003.51


Information

Parent File Name Number Package
PCC MAN REPORTS SORT(#9001003.5) ASSOCIATED PRINT TEMPLATE(S) 9001003.51 Patient Care Component

Details

Field # Name Loc Type Details
.01 ASSOCIATED PRINT TEMPLATE(S) 0;1 POINTER TO PRINT TEMPLATE FILE (#.4) PRINT TEMPLATE(#.4)

  • LAST EDITED:  NOV 07, 1989
  • CROSS-REFERENCE:  9001003.51^B
    1)= S ^APCLSRT(DA(1),2,"B",$E(X,1,30),DA)=""
    2)= K ^APCLSRT(DA(1),2,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9001003.51^1
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^APCLSRT(D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9001003.51,.01,1,2,1.1) X ^DD(9001003.51,.01,1,2,1.4)
    1.1)= S X=DIV S X=$S('$D(^DIPT(+DIV,0)):"",1:$P(^(0),U,1))
    1.4)= S DIH=$S($D(^APCLSRT(DIV(0),2,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9001003.51,DIG=1 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(^APCLSRT(D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9001003.51,.01,1,2,2.1) X ^DD(9001003.51,.01,1,2,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^APCLSRT(D0,2,D1,0)):^(0),1:"") S X=$S('$D(^DIPT(+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1))
    2.4)= S DIH=$S($D(^APCLSRT(DIV(0),2,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9001003.51,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= ASS
    DELETE VALUE)= ASS
    FIELD)= TEMPLATE NA
1 TEMPLATE NAME 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 14, 1989
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the ASSOCIATED PRINT TEMPLATE(S) field of the ASSOCIATED PRINT TEMPLATE(S) sub-field of the PCC MAN REPORTS SORT File
    TRIGGERED by the ASSOCIATED PRINT TEMPLATE(S) field of the ASSOCIATED PRINT TEMPLATE(S) sub-field of the CMS SORT File
2 MANDATORY 0;3 SET
  • '1' FOR MANDATORY;
  • '0' FOR NOT MANDATORY;

  • LAST EDITED:  JUN 11, 1989
  • CROSS-REFERENCE:  9001003.5^AC^MUMPS
    1)= I X,$D(D0),$D(D1),$D(DV),+DV,$D(^APCLSRT(D0,2,"B",+DV,D1)) S ^(D1)=1
    2)= I $D(D0),$D(D1),$D(DV),+DV,$D(^APCLSRT(D0,2,"B",+DV,D1)) S ^(D1)=""
Info |  Details |  All