Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FHINI0L2

FHINI0L2.m

Go to the documentation of this file. 
  1. FHINI0L2	; ; 11-OCT-1995
  1. 	;;5.0;Dietetics;;Oct 11, 1995
  1. 	Q:'DIFQ(115.6)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
  1. Q	Q
  1. 	;;^DIC(115.6,0,"GL")
  1. 	;;=^FH(115.6,
  1. 	;;^DIC("B","ENCOUNTER TYPES",115.6)
  1. 	;;=
  1. 	;;^DIC(115.6,"%D",0)
  1. 	;;=^^3^3^2920623^^
  1. 	;;^DIC(115.6,"%D",1,0)
  1. 	;;=This file contains a list of types of dietetic encounters,
  1. 	;;^DIC(115.6,"%D",2,0)
  1. 	;;=or events, which are used to account for many of the professional
  1. 	;;^DIC(115.6,"%D",3,0)
  1. 	;;=activities of dietetic personnel.
  1. 	;;^DD(115.6,0)
  1. 	;;=FIELD^^101^11
  1. 	;;^DD(115.6,0,"DDA")
  1. 	;;=N
  1. 	;;^DD(115.6,0,"DT")
  1. 	;;=2920116
  1. 	;;^DD(115.6,0,"ID",99)
  1. 	;;=W:$D(^("I")) "   (** INACTIVE **)"
  1. 	;;^DD(115.6,0,"IX","AC",115.6,99)
  1. 	;;=
  1. 	;;^DD(115.6,0,"IX","AX",115.6,101)
  1. 	;;=
  1. 	;;^DD(115.6,0,"IX","B",115.6,.01)
  1. 	;;=
  1. 	;;^DD(115.6,0,"NM","ENCOUNTER TYPES")
  1. 	;;=
  1. 	;;^DD(115.6,0,"PT",115.7,3)
  1. 	;;=
  1. 	;;^DD(115.6,0,"SCR")
  1. 	;;=I '$D(^FH(115.6,+Y,"I"))!$D(^XUSEC("FHMGR",DUZ))!(DUZ(0)["@")
  1. 	;;^DD(115.6,.01,0)
  1. 	;;=NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  1. 	;;^DD(115.6,.01,1,0)
  1. 	;;=^.1
  1. 	;;^DD(115.6,.01,1,1,0)
  1. 	;;=115.6^B
  1. 	;;^DD(115.6,.01,1,1,1)
  1. 	;;=S ^FH(115.6,"B",$E(X,1,30),DA)=""
  1. 	;;^DD(115.6,.01,1,1,2)
  1. 	;;=K ^FH(115.6,"B",$E(X,1,30),DA)
  1. 	;;^DD(115.6,.01,1,1,"%D",0)
  1. 	;;=^^1^1^2911118^
  1. 	;;^DD(115.6,.01,1,1,"%D",1,0)
  1. 	;;=This is the normal B cross-reference of the NAME field.
  1. 	;;^DD(115.6,.01,3)
  1. 	;;=Answer must be 3-30 characters in length.
  1. 	;;^DD(115.6,.01,21,0)
  1. 	;;=^^1^1^2891121^
  1. 	;;^DD(115.6,.01,21,1,0)
  1. 	;;=This is the text of the name of the encounter type.
  1. 	;;^DD(115.6,.01,"DEL",1,0)
  1. 	;;=I DUZ(0)'["@",'$D(^XUSEC("FHMGR",DUZ))
  1. 	;;^DD(115.6,.01,"DEL",2,0)
  1. 	;;=I DA<50
  1. 	;;^DD(115.6,.01,"DT")
  1. 	;;=2920116
  1. 	;;^DD(115.6,2,0)
  1. 	;;=INITIAL TIME^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  1. 	;;^DD(115.6,2,3)
  1. 	;;=Type a Number between 0 and 999, 0 Decimal Digits
  1. 	;;^DD(115.6,2,21,0)
  1. 	;;=^^1^1^2900112^^
  1. 	;;^DD(115.6,2,21,1,0)
  1. 	;;=This is the time units for an initial encounter of this type.
  1. 	;;^DD(115.6,2,"DT")
  1. 	;;=2900112
  1. 	;;^DD(115.6,3,0)
  1. 	;;=FOLLOW-UP TIME^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  1. 	;;^DD(115.6,3,3)
  1. 	;;=Type a Number between 0 and 999, 0 Decimal Digits
  1. 	;;^DD(115.6,3,21,0)
  1. 	;;=^^2^2^2891121^
  1. 	;;^DD(115.6,3,21,1,0)
  1. 	;;=This value, if defined, is the time units for a follow-up
  1. 	;;^DD(115.6,3,21,2,0)
  1. 	;;=encounter of this type.
  1. 	;;^DD(115.6,3,"DT")
  1. 	;;=2891107
  1. 	;;^DD(115.6,4,0)
  1. 	;;=ASK EVENT LOCATION?^S^Y:YES;N:NO;^0;5^Q
  1. 	;;^DD(115.6,4,21,0)
  1. 	;;=^^3^3^2891121^
  1. 	;;^DD(115.6,4,21,1,0)
  1. 	;;=This field, if YES, means that the event location will be asked
  1. 	;;^DD(115.6,4,21,2,0)
  1. 	;;=whenever an encounter of this type is entered into the
  1. 	;;^DD(115.6,4,21,3,0)
  1. 	;;=Encounter file (115.7).
  1. 	;;^DD(115.6,4,"DT")
  1. 	;;=2891107
  1. 	;;^DD(115.6,5,0)
  1. 	;;=INDIVIDUAL/GROUP/BOTH^S^I:INDIVIDUAL;G:GROUP;B:BOTH;^0;6^Q
  1. 	;;^DD(115.6,5,21,0)
  1. 	;;=^^2^2^2891121^
  1. 	;;^DD(115.6,5,21,1,0)
  1. 	;;=This field indicates whether the encounter type is an individual one,
  1. 	;;^DD(115.6,5,21,2,0)
  1. 	;;=a group one, or can be both.
  1. 	;;^DD(115.6,5,"DT")
  1. 	;;=2891107
  1. 	;;^DD(115.6,6,0)
  1. 	;;=ASK PATIENT NAME(S)?^S^Y:YES;N:NO;^0;7^Q
  1. 	;;^DD(115.6,6,21,0)
  1. 	;;=^^3^3^2891121^
  1. 	;;^DD(115.6,6,21,1,0)
  1. 	;;=This field, if answered YES, means that the clinician will be
  1. 	;;^DD(115.6,6,21,2,0)
  1. 	;;=prompted for patient names when an encounter of this type
  1. 	;;^DD(115.6,6,21,3,0)
  1. 	;;=is entered into the Encounter file (115.7).
  1. 	;;^DD(115.6,6,"DT")
  1. 	;;=2891107
  1. 	;;^DD(115.6,7,0)
  1. 	;;=ASK # COLLATERALS^S^Y:YES;N:NO;^0;8^Q
  1. 	;;^DD(115.6,7,21,0)
  1. 	;;=^^4^4^2891121^
  1. 	;;^DD(115.6,7,21,1,0)
  1. 	;;=This field, if answered YES, means that the clinician will be
  1. 	;;^DD(115.6,7,21,2,0)
  1. 	;;=prompted for the number of collaterals associated with each
  1. 	;;^DD(115.6,7,21,3,0)
  1. 	;;=patient when an encounter of this type is entered into the
  1. 	;;^DD(115.6,7,21,4,0)
  1. 	;;=Encounter file (115.7).
  1. 	;;^DD(115.6,7,"DT")
  1. 	;;=2891107
  1. 	;;^DD(115.6,8,0)
  1. 	;;=ASK FOR PATIENT COMMENT?^S^Y:YES;N:NO;^0;9^Q
  1. 	;;^DD(115.6,8,21,0)
  1. 	;;=^^4^4^2891121^
  1. 	;;^DD(115.6,8,21,1,0)
  1. 	;;=This field, if answered YES, means that the clinician will be
  1. 	;;^DD(115.6,8,21,2,0)
  1. 	;;=prompted for a comment to be associated with each patient
  1. 	;;^DD(115.6,8,21,3,0)
  1. 	;;=when an encounter of this type is entered into the
  1. 	;;^DD(115.6,8,21,4,0)
  1. 	;;=Encounter file (115.7).
  1. 	;;^DD(115.6,8,"DT")
  1. 	;;=2891107
  1. 	;;^DD(115.6,10,0)
  1. 	;;=CATEGORY^S^S:Screening;A:Assessment;E:Pat. Education;C:Community;N:Nutrition Inv.;F:Food Svc.;X:Administrative;^0;2^Q
  1. 	;;^DD(115.6,10,21,0)
  1. 	;;=^^1^1^2920107^^
  1. 	;;^DD(115.6,10,21,1,0)
  1. 	;;=The is the category of the Encounter Type.
  1. 	;;^DD(115.6,10,"DT")
  1. 	;;=2920107
  1. 	;;^DD(115.6,99,0)
  1. 	;;=INACTIVE?^S^Y:YES;N:NO;^I;1^Q
  1. 	;;^DD(115.6,99,1,0)
  1. 	;;=^.1
  1. 	;;^DD(115.6,99,1,1,0)
  1. 	;;=115.6^AC^MUMPS
  1. 	;;^DD(115.6,99,1,1,1)
  1. 	;;=K:X'="Y" ^FH(115.6,DA,"I")