Select the objects that you wish to see in the downloaded PDF
Info Desc Directly Accessed By Routines Pointed To By FileMan Files Fields Found Entries External References Global Variables Directly Accessed Naked Globals Local Variables
This file contains the categories, Specialized Medical Programs, Primary Delivery System, Primary Production System, and the Dietetic Service Equipment.
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: DEC 13, 1991
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This field contains the names of the categories used in the Annual Report.
DELETE TEST: 1,0)= I 1 D EN^DDIOL("Cannot delete. Inactivate instead.","","?3")
CROSS-REFERENCE: 117.4^B
1)= S ^FH(117.4,"B",$E(X,1,30),DA)=""
2)= K ^FH(117.4,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^117.4^101
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FH(117.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(117.4,.01,1,2,1.1) X ^DD(117.4,.01,1,2,1.4)
1.1)= S X=DIV S X=DIV X "F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)" S X=X,Y(1)=X S X=1,Y(2)=X S X=30,X=$E(Y(1),Y(2),X)
1.4)= S DIH=$S($D(^FH(117.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=117.4,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FH(117.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(117.4,.01,1,2,2.4)
2.4)= S DIH=$S($D(^FH(117.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=117.4,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= $E(UPPERCASE(NAME),1,30)
DELETE VALUE)= @
FIELD)= UPPER
This trigger converts the upper/lower case name into all uppercase and stores it in field 101.
This field contains the Type of Category. An "S" for Specialized Medical Program, a "D" for Primary Delivery System, a "P" for Primary Production System, and "E" for Dietetic Service Equipment.