FHGMVQAL ;SLC/NCD - Send Weight Alert to Clinicians ; Jan 8, 2024@08:20
;;5.5;Dietetics;**53**;Jan 28, 2005;Build 34
;
;
ALERT(DFN,SDHLOC) ;Send Alert - Weight Change Exceeded Threshold
; Called from WTNOTF^GMVWTCK to send Alert to Dietician(s)
N MONTX,NOW,DTE,XQA,FHDFN,FHZ115,WRD,SDWARD,FHNLOC,FHCODE
D NOW^%DTC S NOW=%,DTE=NOW
I $G(SDHLOC)="" Q
S FHNLOC="",SDWARD=$P($G(^SC(SDHLOC,42)),"^")
I SDWARD]"" D I FHNLOC="" Q ;if it is a MAS ward with no nutrition location, don't check for a clinic location
. N A
. S A=0
. F S A=$O(^FH(119.6,"AW",SDWARD,A)) Q:'A I $P($G(^FH(119.6,A,"I")),"^")'="Y" S FHNLOC=A Q
I FHNLOC="" D
. N A
. S A=0
. F S A=$O(^FH(119.6,"AL",SDHLOC,A)) Q:'A I $P($G(^FH(119.6,A,"I")),"^")'="Y" S FHNLOC=A Q
S WRD=FHNLOC
I WRD="" Q
S FHZ115="P"_DFN
S FHDFN=$O(^FHPT("B",FHZ115,""))
I FHDFN="" Q ;patient is not in Nutrition Person file
I $P($G(^FH(119.6,WRD,1)),"^",10)'="Y" Q ;This location is not set to receive alert.
S MONTX="Weight Change Exceeded Threshold"
D PATNAME^FHOMUTL
S FHCODE=8 D ALRT^FHCTF5
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFHGMVQAL 1092 printed Sep 17, 2026@20:32:33 Page 2
FHGMVQAL ;SLC/NCD - Send Weight Alert to Clinicians ; Jan 8, 2024@08:20
+1 ;;5.5;Dietetics;**53**;Jan 28, 2005;Build 34
+2 ;
+3 ;
ALERT(DFN,SDHLOC) ;Send Alert - Weight Change Exceeded Threshold
+1 ; Called from WTNOTF^GMVWTCK to send Alert to Dietician(s)
+2 NEW MONTX,NOW,DTE,XQA,FHDFN,FHZ115,WRD,SDWARD,FHNLOC,FHCODE
+3 DO NOW^%DTC
SET NOW=%
SET DTE=NOW
+4 IF $GET(SDHLOC)=""
QUIT
+5 SET FHNLOC=""
SET SDWARD=$PIECE($GET(^SC(SDHLOC,42)),"^")
+6 ;if it is a MAS ward with no nutrition location, don't check for a clinic location
IF SDWARD]""
Begin DoDot:1
+7 NEW A
+8 SET A=0
+9 FOR
SET A=$ORDER(^FH(119.6,"AW",SDWARD,A))
if 'A
QUIT
IF $PIECE($GET(^FH(119.6,A,"I")),"^")'="Y"
SET FHNLOC=A
QUIT
End DoDot:1
IF FHNLOC=""
QUIT
+10 IF FHNLOC=""
Begin DoDot:1
+11 NEW A
+12 SET A=0
+13 FOR
SET A=$ORDER(^FH(119.6,"AL",SDHLOC,A))
if 'A
QUIT
IF $PIECE($GET(^FH(119.6,A,"I")),"^")'="Y"
SET FHNLOC=A
QUIT
End DoDot:1
+14 SET WRD=FHNLOC
+15 IF WRD=""
QUIT
+16 SET FHZ115="P"_DFN
+17 SET FHDFN=$ORDER(^FHPT("B",FHZ115,""))
+18 ;patient is not in Nutrition Person file
IF FHDFN=""
QUIT
+19 ;This location is not set to receive alert.
IF $PIECE($GET(^FH(119.6,WRD,1)),"^",10)'="Y"
QUIT
+20 SET MONTX="Weight Change Exceeded Threshold"
+21 DO PATNAME^FHOMUTL
+22 SET FHCODE=8
DO ALRT^FHCTF5
+23 QUIT
