AMHGSCM.m

AMHGSCM ; IHS/CMI/MAW - AMHG Save Case Management 3/3/2009 4:59:31 PM ;

 ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010

 ;

 ;

 ;

 ;

DEBUG(RETVAL,AMHSTR) ;-- debug entry point

 D DEBUG^%Serenji("PH^AMHGSCM(.RETVAL,.AMHSTR)")

 Q

 ;

CM(RETVAL,AMHSTR) ;-- save case management called from the clsCaseManagement.SaveCaseManagement method

 S X="MERR^AMHGU",@^%ZOSF("TRAP") ; m error trap

 N AMHI,P,R,AMHDM,AMHREC,AMHPRO,AMHCO,AMHPP,AMHCA,AMHNR,AMHDC,AMHDSP,AMHCMT,AMHP,AMHPV,AMHER

 S P="|",R="~"

 S RETVAL="^AMHTMP("_$J_")"

 S AMHI=0

 K ^AMHTMP($J)

 I $G(AMHSTR)="" D CATSTR^AMHGU(.AMHSTR,.AMHSTR)

 S AMHDM=$P(AMHSTR,P)

 S AMHREC=$P(AMHSTR,P,2)

 S AMHPRO=$P(AMHSTR,P,3)

 S AMHPRO=$$SCI^AMHGT(9002011,.02,AMHPRO)

 S AMHCO=$P(AMHSTR,P,4)

 S AMHPP=$P(AMHSTR,P,5)

 S AMHPV=$P(AMHSTR,P,6)

 S AMHCA=$P(AMHSTR,P,7)

 S AMHNR=$P(AMHSTR,P,8)

 S AMHDC=$P(AMHSTR,P,9)

 S AMHDSP=$P(AMHSTR,P,10)

 S AMHCMT=$P(AMHSTR,P,11)

 S AMHP=$P(AMHSTR,P,12)

 D CM^AMHGECM(.AMHREC,AMHDM,AMHREC,AMHPRO,AMHCO,AMHPP,AMHPV,AMHCA,AMHNR,AMHDC,AMHDSP,AMHP,AMHCMT)

 S @RETVAL@(AMHI)="T00030Result"_$C(30)

 S AMHI=AMHI+1

 S @RETVAL@(AMHI)=$S($G(AMHER)]"":AMHER,1:AMHREC)_$C(30)

 S @RETVAL@(AMHI+1)=$C(31)

 Q

 ;

PI(RETVAL,AMHSTR) ;-- save patient information called from clsCaseManagement.SavePatientInformation method

 S X="MERR^AMHGU",@^%ZOSF("TRAP") ; m error trap

 N AMHI,P,R,AMHDM,AMHREC,AMHDMP,AMHDSP,AMHDCP,AMHDPO,AMHDONA,AMHDONB,AMHFLG,AMHFLGN,AMHER

 S P="|",R="~"

 S RETVAL="^AMHTMP("_$J_")"

 S AMHI=0

 K ^AMHTMP($J)

 I $G(AMHSTR)="" D CATSTR^AMHGU(.AMHSTR,.AMHSTR)

 S AMHDM=$P(AMHSTR,P)

 S AMHREC=$P(AMHSTR,P,2)

 S AMHDMP=$P(AMHSTR,P,3)

 S AMHDSP=$P(AMHSTR,P,4)

 S AMHDCP=$P(AMHSTR,P,5)

 S AMHDPO=$P(AMHSTR,P,6)

 S AMHDONA=$P(AMHSTR,P,7)

 S AMHDONB=$P(AMHSTR,P,8)

 S AMHFLG=$P(AMHSTR,P,9)

 S AMHFLGN=$P(AMHSTR,P,10)

 D PI^AMHGECM(.AMHREC,AMHDM,AMHREC,AMHDMP,AMHDSP,AMHDCP,AMHDPO,AMHDONA,AMHDONB,AMHFLG,AMHFLGN)

 S @RETVAL@(AMHI)="T00030Result"_$C(30)

 S AMHI=AMHI+1

 S @RETVAL@(AMHI)=$S($G(AMHER)]"":AMHER,1:AMHREC)_$C(30)

 S @RETVAL@(AMHI+1)=$C(31)

 Q

 ;

PH(RETVAL,AMHSTR) ;-- file personal history called from clsCaseManagement.SavePersonalHistory method

 S X="MERR^AMHGU",@^%ZOSF("TRAP") ; m error trap

 N AMHI,P,R,AMHDM,AMHREC,AMHDMP,AMHDSP,AMHDCP,AMHDPO,AMHDONA,AMHDONB,AMHFLG,AMHFLGN,AMHP,AMHPHSTR,AMHER

 S P="|",R="~"

 S RETVAL="^AMHTMP("_$J_")"

 S AMHI=0

 K ^AMHTMP($J)

 I $G(AMHSTR)="" D CATSTR^AMHGU(.AMHSTR,.AMHSTR)

 S AMHDM=$P(AMHSTR,P)

 S AMHREC=$P(AMHSTR,P,2)

 S AMHPHSTR=$P(AMHSTR,P,3)

 D PH^AMHGECM(.AMHREC,AMHDM,AMHREC,AMHPHSTR)

 S @RETVAL@(AMHI)="T00030Result"_$C(30)

 S AMHI=AMHI+1

 S @RETVAL@(AMHI)=$S($G(AMHER)]"":AMHER,1:AMHREC)_$C(30)

 S @RETVAL@(AMHI+1)=$C(31)

 Q

 ;

DEL(RETVAL,AMHSTR) ;-- delete case data

 S X="MERR^AMHGU",@^%ZOSF("TRAP") ; m error trap

 N P,R,AMHCASE,AMHI,AMHER

 S P="|",R="~"

 S RETVAL="^AMHTMP("_$J_")"

 S AMHI=0

 K ^AMHTMP($J)

 I $G(AMHSTR)="" D CATSTR^AMHGU(.AMHSTR,.AMHSTR)

 S AMHCASE=$P(AMHSTR,P)

 S DIK="^AMHPCASE(",DA=AMHCASE D ^DIK

 S @RETVAL@(AMHI)="T00030Result"_$C(30)

 S AMHI=AMHI+1

 S @RETVAL@(AMHI)=$S($G(AMHER)]"":AMHER,1:AMHCASE)_$C(30)

 S @RETVAL@(AMHI+1)=$C(31)

 Q

 ;

AMHGSCM   ; IHS/CMI/MAW - AMHG Save Case Management 3/3/2009 4:59:31 PM ;

 +1       ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010

 +2       ;

 +3       ;

 +4       ;

 +5       ;

DEBUG(RETVAL,AMHSTR) ;-- debug entry point

 +1        DO DEBUG^%Serenji("PH^AMHGSCM(.RETVAL,.AMHSTR)")

 +2        QUIT 

 +3       ;

CM(RETVAL,AMHSTR) ;-- save case management called from the clsCaseManagement.SaveCaseManagement method

 +1       ; m error trap

           SET X="MERR^AMHGU"

           SET @^%ZOSF("TRAP")

 +2        NEW AMHI,P,R,AMHDM,AMHREC,AMHPRO,AMHCO,AMHPP,AMHCA,AMHNR,AMHDC,AMHDSP,AMHCMT,AMHP,AMHPV,AMHER

 +3        SET P="|"

           SET R="~"

 +4        SET RETVAL="^AMHTMP("_$JOB_")"

 +5        SET AMHI=0

 +6        KILL ^AMHTMP($JOB)

 +7        IF $GET(AMHSTR)=""

               DO CATSTR^AMHGU(.AMHSTR,.AMHSTR)

 +8        SET AMHDM=$PIECE(AMHSTR,P)

 +9        SET AMHREC=$PIECE(AMHSTR,P,2)

 +10       SET AMHPRO=$PIECE(AMHSTR,P,3)

 +11       SET AMHPRO=$$SCI^AMHGT(9002011,.02,AMHPRO)

 +12       SET AMHCO=$PIECE(AMHSTR,P,4)

 +13       SET AMHPP=$PIECE(AMHSTR,P,5)

 +14       SET AMHPV=$PIECE(AMHSTR,P,6)

 +15       SET AMHCA=$PIECE(AMHSTR,P,7)

 +16       SET AMHNR=$PIECE(AMHSTR,P,8)

 +17       SET AMHDC=$PIECE(AMHSTR,P,9)

 +18       SET AMHDSP=$PIECE(AMHSTR,P,10)

 +19       SET AMHCMT=$PIECE(AMHSTR,P,11)

 +20       SET AMHP=$PIECE(AMHSTR,P,12)

 +21       DO CM^AMHGECM(.AMHREC,AMHDM,AMHREC,AMHPRO,AMHCO,AMHPP,AMHPV,AMHCA,AMHNR,AMHDC,AMHDSP,AMHP,AMHCMT)

 +22       SET @RETVAL@(AMHI)="T00030Result"_$CHAR(30)

 +23       SET AMHI=AMHI+1

 +24       SET @RETVAL@(AMHI)=$SELECT($GET(AMHER)]"":AMHER,1:AMHREC)_$CHAR(30)

 +25       SET @RETVAL@(AMHI+1)=$CHAR(31)

 +26       QUIT 

 +27      ;

PI(RETVAL,AMHSTR) ;-- save patient information called from clsCaseManagement.SavePatientInformation method

 +1       ; m error trap

           SET X="MERR^AMHGU"

           SET @^%ZOSF("TRAP")

 +2        NEW AMHI,P,R,AMHDM,AMHREC,AMHDMP,AMHDSP,AMHDCP,AMHDPO,AMHDONA,AMHDONB,AMHFLG,AMHFLGN,AMHER

 +3        SET P="|"

           SET R="~"

 +4        SET RETVAL="^AMHTMP("_$JOB_")"

 +5        SET AMHI=0

 +6        KILL ^AMHTMP($JOB)

 +7        IF $GET(AMHSTR)=""

               DO CATSTR^AMHGU(.AMHSTR,.AMHSTR)

 +8        SET AMHDM=$PIECE(AMHSTR,P)

 +9        SET AMHREC=$PIECE(AMHSTR,P,2)

 +10       SET AMHDMP=$PIECE(AMHSTR,P,3)

 +11       SET AMHDSP=$PIECE(AMHSTR,P,4)

 +12       SET AMHDCP=$PIECE(AMHSTR,P,5)

 +13       SET AMHDPO=$PIECE(AMHSTR,P,6)

 +14       SET AMHDONA=$PIECE(AMHSTR,P,7)

 +15       SET AMHDONB=$PIECE(AMHSTR,P,8)

 +16       SET AMHFLG=$PIECE(AMHSTR,P,9)

 +17       SET AMHFLGN=$PIECE(AMHSTR,P,10)

 +18       DO PI^AMHGECM(.AMHREC,AMHDM,AMHREC,AMHDMP,AMHDSP,AMHDCP,AMHDPO,AMHDONA,AMHDONB,AMHFLG,AMHFLGN)

 +19       SET @RETVAL@(AMHI)="T00030Result"_$CHAR(30)

 +20       SET AMHI=AMHI+1

 +21       SET @RETVAL@(AMHI)=$SELECT($GET(AMHER)]"":AMHER,1:AMHREC)_$CHAR(30)

 +22       SET @RETVAL@(AMHI+1)=$CHAR(31)

 +23       QUIT 

 +24      ;

PH(RETVAL,AMHSTR) ;-- file personal history called from clsCaseManagement.SavePersonalHistory method

 +1       ; m error trap

           SET X="MERR^AMHGU"

           SET @^%ZOSF("TRAP")

 +2        NEW AMHI,P,R,AMHDM,AMHREC,AMHDMP,AMHDSP,AMHDCP,AMHDPO,AMHDONA,AMHDONB,AMHFLG,AMHFLGN,AMHP,AMHPHSTR,AMHER

 +3        SET P="|"

           SET R="~"

 +4        SET RETVAL="^AMHTMP("_$JOB_")"

 +5        SET AMHI=0

 +6        KILL ^AMHTMP($JOB)

 +7        IF $GET(AMHSTR)=""

               DO CATSTR^AMHGU(.AMHSTR,.AMHSTR)

 +8        SET AMHDM=$PIECE(AMHSTR,P)

 +9        SET AMHREC=$PIECE(AMHSTR,P,2)

 +10       SET AMHPHSTR=$PIECE(AMHSTR,P,3)

 +11       DO PH^AMHGECM(.AMHREC,AMHDM,AMHREC,AMHPHSTR)

 +12       SET @RETVAL@(AMHI)="T00030Result"_$CHAR(30)

 +13       SET AMHI=AMHI+1

 +14       SET @RETVAL@(AMHI)=$SELECT($GET(AMHER)]"":AMHER,1:AMHREC)_$CHAR(30)

 +15       SET @RETVAL@(AMHI+1)=$CHAR(31)

 +16       QUIT 

 +17      ;

DEL(RETVAL,AMHSTR) ;-- delete case data

 +1       ; m error trap

           SET X="MERR^AMHGU"

           SET @^%ZOSF("TRAP")

 +2        NEW P,R,AMHCASE,AMHI,AMHER

 +3        SET P="|"

           SET R="~"

 +4        SET RETVAL="^AMHTMP("_$JOB_")"

 +5        SET AMHI=0

 +6        KILL ^AMHTMP($JOB)

 +7        IF $GET(AMHSTR)=""

               DO CATSTR^AMHGU(.AMHSTR,.AMHSTR)

 +8        SET AMHCASE=$PIECE(AMHSTR,P)

 +9        SET DIK="^AMHPCASE("

           SET DA=AMHCASE

           DO ^DIK

 +10       SET @RETVAL@(AMHI)="T00030Result"_$CHAR(30)

 +11       SET AMHI=AMHI+1

 +12       SET @RETVAL@(AMHI)=$SELECT($GET(AMHER)]"":AMHER,1:AMHCASE)_$CHAR(30)

 +13       SET @RETVAL@(AMHI+1)=$CHAR(31)

 +14       QUIT 

 +15      ;