AMHGMSR ; IHS/CMI/MAW - AMHG Help 5/19/2009 11:39:22 AM ;
;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
;
;
;
;
HELP(RETVAL,AMHSTR) ;-- return measurement help
N AMHMTYP,AMHROU,AMHL,L,AMHURET,P
N VAL,AMHI
S P="|"
S VAL=$P(AMHSTR,P)
K ^AMHTMP($J)
S RETVAL="^AMHTMP("_$J_")"
S AMHMTYP="H"_VAL S:AMHMTYP="HVU" AMHMTYP="HVC"
S AMHROU="AUPNVMS2"
S @RETVAL@(0)="T00080Help"_$C(30)
I $T(@AMHMTYP^@AMHROU)="" D Q
. S @RETVAL@(1)=$C(31)
F %AUI=1:1 D Q:L=""!($P(L,";;",1)'=" ")
. S L=$T(@AMHMTYP+%AUI^@AMHROU)
. Q:L=""!($P(L,";;",1)'=" ")
. S AMHL=$P(L,";;",2)
. S @RETVAL@(%AUI)=AMHL_$C(30)
K AMHMTYP
S @RETVAL@(%AUI)=$C(31)
Q
;
VAL(RETVAL,AMHSTR) ;-- validate input data
N AMHMTYP,AMHROU,AMHL,L,AMHURET,P
N VAL,AMHMTYP,AMHI
S P="|"
S AMHI=0
S AMHMTYP=$P(AMHSTR,P)
S VAL=$P(AMHSTR,P,2)
K ^AMHTMP($J)
S RETVAL="^AMHTMP("_$J_")"
S:AMHMTYP="VU" AMHMTYP="VC"
S AMHROU="AUPNVMSR"
S @RETVAL@(AMHI)="T00080Validate"_$C(30)
I $T(@AMHMTYP^@AMHROU)="" D Q
. S @RETVAL@(AMHI+1)=$C(31)
S X=VAL
D @AMHMTYP^@AMHROU
I '$D(X) D
. N AMHHTYP,AMHHROU
. S AMHHTYP="H"_AMHMTYP,AMHHROU="AUPNVMS2"
. F %AUI=1:1 D Q:L=""!($P(L,";;",1)'=" ")
.. S L=$T(@AMHHTYP+%AUI^@AMHHROU)
.. Q:L=""!($P(L,";;",1)'=" ")
.. S AMHL=$P(L,";;",2)
.. S AMHI=AMHI+1
.. S @RETVAL@(AMHI)=AMHL_$C(30)
S @RETVAL@(AMHI+1)=$C(31)
Q
;
AMHGMSR ; IHS/CMI/MAW - AMHG Help 5/19/2009 11:39:22 AM ;
+1 ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
+2 ;
+3 ;
+4 ;
+5 ;
HELP(RETVAL,AMHSTR) ;-- return measurement help
+1 NEW AMHMTYP,AMHROU,AMHL,L,AMHURET,P
+2 NEW VAL,AMHI
+3 SET P="|"
+4 SET VAL=$PIECE(AMHSTR,P)
+5 KILL ^AMHTMP($JOB)
+6 SET RETVAL="^AMHTMP("_$JOB_")"
+7 SET AMHMTYP="H"_VAL
IF AMHMTYP="HVU"
SET AMHMTYP="HVC"
+8 SET AMHROU="AUPNVMS2"
+9 SET @RETVAL@(0)="T00080Help"_$CHAR(30)
+10 IF $TEXT(@AMHMTYP^@AMHROU)=""
Begin DoDot:1
+11 SET @RETVAL@(1)=$CHAR(31)
End DoDot:1
QUIT
+12 FOR %AUI=1:1
Begin DoDot:1
+13 SET L=$TEXT(@AMHMTYP+%AUI^@AMHROU)
+14 IF L=""!($PIECE(L,";;",1)'=" ")
QUIT
+15 SET AMHL=$PIECE(L,";;",2)
+16 SET @RETVAL@(%AUI)=AMHL_$CHAR(30)
End DoDot:1
IF L=""!($PIECE(L,";;",1)'=" ")
QUIT
+17 KILL AMHMTYP
+18 SET @RETVAL@(%AUI)=$CHAR(31)
+19 QUIT
+20 ;
VAL(RETVAL,AMHSTR) ;-- validate input data
+1 NEW AMHMTYP,AMHROU,AMHL,L,AMHURET,P
+2 NEW VAL,AMHMTYP,AMHI
+3 SET P="|"
+4 SET AMHI=0
+5 SET AMHMTYP=$PIECE(AMHSTR,P)
+6 SET VAL=$PIECE(AMHSTR,P,2)
+7 KILL ^AMHTMP($JOB)
+8 SET RETVAL="^AMHTMP("_$JOB_")"
+9 IF AMHMTYP="VU"
SET AMHMTYP="VC"
+10 SET AMHROU="AUPNVMSR"
+11 SET @RETVAL@(AMHI)="T00080Validate"_$CHAR(30)
+12 IF $TEXT(@AMHMTYP^@AMHROU)=""
Begin DoDot:1
+13 SET @RETVAL@(AMHI+1)=$CHAR(31)
End DoDot:1
QUIT
+14 SET X=VAL
+15 DO @AMHMTYP^@AMHROU
+16 IF '$DATA(X)
Begin DoDot:1
+17 NEW AMHHTYP,AMHHROU
+18 SET AMHHTYP="H"_AMHMTYP
SET AMHHROU="AUPNVMS2"
+19 FOR %AUI=1:1
Begin DoDot:2
+20 SET L=$TEXT(@AMHHTYP+%AUI^@AMHHROU)
+21 IF L=""!($PIECE(L,";;",1)'=" ")
QUIT
+22 SET AMHL=$PIECE(L,";;",2)
+23 SET AMHI=AMHI+1
+24 SET @RETVAL@(AMHI)=AMHL_$CHAR(30)
End DoDot:2
IF L=""!($PIECE(L,";;",1)'=" ")
QUIT
End DoDot:1
+25 SET @RETVAL@(AMHI+1)=$CHAR(31)
+26 QUIT
+27 ;
