APCDUTL ; IHS/CMI/LAB - DATA ENTRY UTILITIES ;
;;2.0;IHS PCC SUITE;**2,7,10,20**;MAY 14, 2009;Build 25
;
;
NR ;EP - called from APCD NRS (ADD) input template
NEW A,B,C,D
D EN^DDIOL("Nutritional Risk Screening Factors",,"!!")
D EN^DDIOL("","","!")
I $P(^AUPNVNTS(DA,0),U,4) D EN^DDIOL("- Age 70+",,"!?5")
I $P(^AUPNVNTS(DA,0),U,5) D EN^DDIOL("- Nutrition Support",,"!?5")
I $P(^AUPNVNTS(DA,0),U,6) D EN^DDIOL("- High Risk Weight Issue",,"!?5")
I $P(^AUPNVNTS(DA,0),U,7) D EN^DDIOL("- High Risk Diagnosis",,"!?5")
I $P(^AUPNVNTS(DA,0),U,8) D EN^DDIOL("- Poor Appetite",,"!?5")
I $P(^AUPNVNTS(DA,0),U,9) D EN^DDIOL("- Difficulty Chewing",,"!?5")
I $P(^AUPNVNTS(DA,0),U,10) D EN^DDIOL("- Food Allergies/Intolerances",,"!?5")
I $P(^AUPNVNTS(DA,0),U,11) D EN^DDIOL("- Recent Vomiting or Diarrhea",,"!?5")
I $P(^AUPNVNTS(DA,0),U,12) S B=$P(^AUPNVNTS(DA,0),U,13)
I $P(^AUPNVNTS(DA,0),U,12) D EN^DDIOL("- Other: "_B,,"!?5")
D EN^DDIOL("","","!!")
Q
MSRSCR ;EP - called from pcc input templates to check age/sex
I $P(^AUTTMSR(APCDTX,0),U,5)]"",$P(^DPT(APCDPAT,0),U,2)'=$P(^AUTTMSR(APCDTX,0),U,5) D S APCDTQ=1 Q
.W !,"That measurement can only be entered for ",$$VAL^XBDIQ1(9999999.07,APCDTX,.05)," patients.",!
I $P(^AUTTMSR(APCDTX,0),U,6),$$AGE^AUPNPAT(APCDPAT,$S($G(APCDDATE):APCDDATE,1:DT))<$P(^AUTTMSR(APCDTX,0),U,6) D S APCDTQ=1 Q
.W !,"That measurement can only be entered for patients over the age of ",$$VAL^XBDIQ1(9999999.07,APCDTX,.06)," and under ",!,"the age of ",$$VAL^XBDIQ1(9999999.07,APCDTX,.07),".",!
I $P(^AUTTMSR(APCDTX,0),U,7),$$AGE^AUPNPAT(APCDPAT,$S($G(APCDDATE):APCDDATE,1:DT))>$P(^AUTTMSR(APCDTX,0),U,7) D S APCDTQ=1 Q
.W !,"That measurement can only be entered for patients over the age of ",$$VAL^XBDIQ1(9999999.07,APCDTX,.06)," and under ",!,"the age of ",$$VAL^XBDIQ1(9999999.07,APCDTX,.07),".",!
Q
;
GETMEAS(PATDFN,VSTDATE) ;EP - GET MEASUREMENT TYPE AND APPLY SCREEN FOR HMSR AND MEAS MNEMONICS
S APCDLOOK=""
D EN^XBNEW("GETMEAS1^APCDUTL","APCDLOOK;PATDFN;VSTDATE")
Q
GETMEAS1 ;
;GET MEASUREMENT TYPE WITH READER CALL
NEW APCDTX,APCDDATE,APCDPAT,APCDTQ
S APCDPAT=PATDFN
S APCDDATE=VSTDATE
K DIC
S DIC="^AUTTMSR(",DIC("A")="Enter MEASUREMENT Type: ",DIC(0)="AEMQ",DIC("S")="I $P(^(0),U)'[""BMI""" D ^DIC
I Y=-1 Q
NEW APCDTX
S APCDTX=+Y
D MSRSCR
I $G(APCDTQ) G GETMEAS1
S APCDLOOK=$P(^AUTTMSR(APCDTX,0),U,1)
Q
IF() ;EP - get infant feeding value
S APCDTIF=""
D EN^XBNEW("IF1^APCDUTL","APCDTIF")
Q APCDTIF
;
IF1 ;EP - CALLED FROM XBNEW
S APCDTIF=""
S DIR(0)="S^1:EXCLUSIVE BREASTFEEDING;2:MOSTLY BREASTFEEDING;4:MOSTLY FORMULA;5:FORMULA ONLY",DIR("A")="Select V INFANT FEEDING CHOICES:" KILL DA D ^DIR KILL DIR
I $D(DIRUT) Q
I 'Y Q
S APCDTIF=Y
Q
APCDUTL ; IHS/CMI/LAB - DATA ENTRY UTILITIES ;
+1 ;;2.0;IHS PCC SUITE;**2,7,10,20**;MAY 14, 2009;Build 25
+2 ;
+3 ;
NR ;EP - called from APCD NRS (ADD) input template
+1 NEW A,B,C,D
+2 DO EN^DDIOL("Nutritional Risk Screening Factors",,"!!")
+3 DO EN^DDIOL("","","!")
+4 IF $PIECE(^AUPNVNTS(DA,0),U,4)
DO EN^DDIOL("- Age 70+",,"!?5")
+5 IF $PIECE(^AUPNVNTS(DA,0),U,5)
DO EN^DDIOL("- Nutrition Support",,"!?5")
+6 IF $PIECE(^AUPNVNTS(DA,0),U,6)
DO EN^DDIOL("- High Risk Weight Issue",,"!?5")
+7 IF $PIECE(^AUPNVNTS(DA,0),U,7)
DO EN^DDIOL("- High Risk Diagnosis",,"!?5")
+8 IF $PIECE(^AUPNVNTS(DA,0),U,8)
DO EN^DDIOL("- Poor Appetite",,"!?5")
+9 IF $PIECE(^AUPNVNTS(DA,0),U,9)
DO EN^DDIOL("- Difficulty Chewing",,"!?5")
+10 IF $PIECE(^AUPNVNTS(DA,0),U,10)
DO EN^DDIOL("- Food Allergies/Intolerances",,"!?5")
+11 IF $PIECE(^AUPNVNTS(DA,0),U,11)
DO EN^DDIOL("- Recent Vomiting or Diarrhea",,"!?5")
+12 IF $PIECE(^AUPNVNTS(DA,0),U,12)
SET B=$PIECE(^AUPNVNTS(DA,0),U,13)
+13 IF $PIECE(^AUPNVNTS(DA,0),U,12)
DO EN^DDIOL("- Other: "_B,,"!?5")
+14 DO EN^DDIOL("","","!!")
+15 QUIT
MSRSCR ;EP - called from pcc input templates to check age/sex
+1 IF $PIECE(^AUTTMSR(APCDTX,0),U,5)]""
IF $PIECE(^DPT(APCDPAT,0),U,2)'=$PIECE(^AUTTMSR(APCDTX,0),U,5)
Begin DoDot:1
+2 WRITE !,"That measurement can only be entered for ",$$VAL^XBDIQ1(9999999.07,APCDTX,.05)," patients.",!
End DoDot:1
SET APCDTQ=1
QUIT
+3 IF $PIECE(^AUTTMSR(APCDTX,0),U,6)
IF $$AGE^AUPNPAT(APCDPAT,$SELECT($GET(APCDDATE):APCDDATE,1:DT))<$PIECE(^AUTTMSR(APCDTX,0),U,6)
Begin DoDot:1
+4 WRITE !,"That measurement can only be entered for patients over the age of ",$$VAL^XBDIQ1(9999999.07,APCDTX,.06)," and under ",!,"the age of ",$$VAL^XBDIQ1(9999999.07,APCDTX,.07),".",!
End DoDot:1
SET APCDTQ=1
QUIT
+5 IF $PIECE(^AUTTMSR(APCDTX,0),U,7)
IF $$AGE^AUPNPAT(APCDPAT,$SELECT($GET(APCDDATE):APCDDATE,1:DT))>$PIECE(^AUTTMSR(APCDTX,0),U,7)
Begin DoDot:1
+6 WRITE !,"That measurement can only be entered for patients over the age of ",$$VAL^XBDIQ1(9999999.07,APCDTX,.06)," and under ",!,"the age of ",$$VAL^XBDIQ1(9999999.07,APCDTX,.07),".",!
End DoDot:1
SET APCDTQ=1
QUIT
+7 QUIT
+8 ;
GETMEAS(PATDFN,VSTDATE) ;EP - GET MEASUREMENT TYPE AND APPLY SCREEN FOR HMSR AND MEAS MNEMONICS
+1 SET APCDLOOK=""
+2 DO EN^XBNEW("GETMEAS1^APCDUTL","APCDLOOK;PATDFN;VSTDATE")
+3 QUIT
GETMEAS1 ;
+1 ;GET MEASUREMENT TYPE WITH READER CALL
+2 NEW APCDTX,APCDDATE,APCDPAT,APCDTQ
+3 SET APCDPAT=PATDFN
+4 SET APCDDATE=VSTDATE
+5 KILL DIC
+6 SET DIC="^AUTTMSR("
SET DIC("A")="Enter MEASUREMENT Type: "
SET DIC(0)="AEMQ"
SET DIC("S")="I $P(^(0),U)'[""BMI"""
DO ^DIC
+7 IF Y=-1
QUIT
+8 NEW APCDTX
+9 SET APCDTX=+Y
+10 DO MSRSCR
+11 IF $GET(APCDTQ)
GOTO GETMEAS1
+12 SET APCDLOOK=$PIECE(^AUTTMSR(APCDTX,0),U,1)
+13 QUIT
IF() ;EP - get infant feeding value
+1 SET APCDTIF=""
+2 DO EN^XBNEW("IF1^APCDUTL","APCDTIF")
+3 QUIT APCDTIF
+4 ;
IF1 ;EP - CALLED FROM XBNEW
+1 SET APCDTIF=""
+2 SET DIR(0)="S^1:EXCLUSIVE BREASTFEEDING;2:MOSTLY BREASTFEEDING;4:MOSTLY FORMULA;5:FORMULA ONLY"
SET DIR("A")="Select V INFANT FEEDING CHOICES:"
KILL DA
DO ^DIR
KILL DIR
+3 IF $DATA(DIRUT)
QUIT
+4 IF 'Y
QUIT
+5 SET APCDTIF=Y
+6 QUIT
