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

AMHGDCM.m

Go to the documentation of this file. 
  1. AMHGDCM ; IHS/CMI/MAW - AMHG Case Management Form 12/30/2008 3:16:39 PM ;
  1.  ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
  1.  ;
  1.  ;
  1.  ;
  1. DEBUG(RETVAL,AMHSTR) ;-- debug entry point
  1.  D DEBUG^%Serenji("EP^AMHGD(RETVAL,.AMHSTR)")
  1.  Q
  1.  ;
  1. CM(RETVAL,AMHSTR) ;-- get case status data for Case Management form (frmCaseManagement)
  1.  S X="MERR^AMHGU",@^%ZOSF("TRAP") ; m error trap
  1.  N AMHI,P,R,AMHIEN
  1.  S P="|",R="~"
  1.  S RETVAL="^AMHTMP("_$J_")"
  1.  S AMHI=0
  1.  K ^AMHTMP($J)
  1.  S AMHIEN=$P(AMHSTR,P)
  1.  S @RETVAL@(AMHI)="T00010BMXIEN^T00030CaseOpen^T00030CaseAdmit^T00030CaseClosed^T00030Disposition^T00030Program^T00030Provider^T00030Problem^T00030NextReview^T00250Comment"_$C(30)
  1.  N AMHCO,AMHCA,AMHCC,AMHDSPI,AMHDSP,AMHDSPS,AMHPRGI,AMHPRG,AMHPRGS,AMHPRVI,AMHPRV,AMHPRVS,AMHPRBI,AMHPRB,AMHPRBS,AMHNR,AMHCMT
  1.  S AMHCO=$$GET1^DIQ(9002011.58,AMHIEN,.01,"I")
  1.  S AMHCA=$$GET1^DIQ(9002011.58,AMHIEN,.04,"I")
  1.  S AMHCC=$$GET1^DIQ(9002011.58,AMHIEN,.05,"I")
  1.  S AMHDSPI=$$GET1^DIQ(9002011.58,AMHIEN,.06,"I")
  1.  S AMHDSP=$$GET1^DIQ(9002011.58,AMHIEN,.06)
  1.  I AMHDSPI S AMHDSPS=AMHDSPI_R_AMHDSP
  1.  S AMHPRGI=$$GET1^DIQ(9002011.58,AMHIEN,.03,"I")
  1.  S AMHPRG=$$GET1^DIQ(9002011.58,AMHIEN,.03)
  1.  I AMHPRGI]"" S AMHPRGS=AMHPRGI_R_AMHPRG
  1.  S AMHPRVI=$$GET1^DIQ(9002011.58,AMHIEN,.08,"I")
  1.  S AMHPRV=$$GET1^DIQ(9002011.58,AMHIEN,.08)
  1.  I AMHPRVI S AMHPRVS=AMHPRVI_R_AMHPRV
  1.  S AMHPRBI=$$GET1^DIQ(9002011.58,AMHIEN,.09,"I")
  1.  S AMHPRB=$$GET1^DIQ(9002011.58,AMHIEN,.09)
  1.  I AMHPRBI S AMHPRBE=$$GET1^DIQ(9002012.2,AMHPRBI,.02)
  1.  I AMHPRBI S AMHPRBS=AMHPRBI_R_AMHPRBE
  1.  S AMHNR=$$GET1^DIQ(9002011.58,AMHIEN,.12,"I")
  1.  S AMHCMT=$$GET1^DIQ(9002011.58,AMHIEN,1101)
  1.  S AMHI=AMHI+1
  1.  S @RETVAL@(AMHI)=AMHIEN_U_AMHCO_U_AMHCA_U_AMHCC_U_$G(AMHDSPS)_U_$G(AMHPRG)_U_$G(AMHPRVS)_U_$G(AMHPRBS)_U_AMHNR_U_AMHCMT_$C(30)
  1.  S @RETVAL@(AMHI+1)=$C(31)
  1.  Q
  1.  ;
  1. PI(RETVAL,AMHSTR) ;-- get patient information for Case Management form (frmCaseManagement)
  1.  S X="MERR^AMHGU",@^%ZOSF("TRAP") ; m error trap
  1.  N AMHI,P,R,AMHP
  1.  S P="|",R="~"
  1.  S RETVAL="^AMHTMP("_$J_")"
  1.  S AMHI=0
  1.  K ^AMHTMP($J)
  1.  S AMHP=$P(AMHSTR,P)
  1.  S @RETVAL@(AMHI)="T00010BMXIEN^T00050DesMHProvider^T00050DesSSProvider^T00050DesCDProvider^T00050DesOtherRPMSProvider^T00050DesPCProvider^T00050DesNonRPMSProvider1^T00050DesNonRPMSProvider2^T00010PatientFlag^T00080PatientFlagNarrative"_$C(30)
  1.  I '$D(^AMHPATR(AMHP)) D  Q
  1.  . S @RETVAL@(AMHI+1)=$C(31)
  1.  N AMHDMPI,AMHDMP,AMHDMPS,AMHDSPI,AMHDSP,AMHDSPS,AMHDCPI,AMHDCP,AMHDCPS,AMHDRPI,AMHDRP,AMHDRPS,AMHDPPI,AMHDPP,AMHDPPS,AMHDOP1,AMHDOP2,AMHFLG,AMHFLGN
  1.  S AMHDMPI=$$GET1^DIQ(9002011.55,AMHP,.02,"I")
  1.  S AMHDMP=$$GET1^DIQ(9002011.55,AMHP,.02)
  1.  I AMHDMPI S AMHDMPS=AMHDMPI_R_AMHDMP
  1.  S AMHDSPI=$$GET1^DIQ(9002011.55,AMHP,.03,"I")
  1.  S AMHDSP=$$GET1^DIQ(9002011.55,AMHP,.03)
  1.  I AMHDSPI S AMHDSPS=AMHDSPI_R_AMHDSP
  1.  S AMHDCPI=$$GET1^DIQ(9002011.55,AMHP,.04,"I")
  1.  S AMHDCP=$$GET1^DIQ(9002011.55,AMHP,.04)
  1.  I AMHDCPI S AMHDCPS=AMHDCPI_R_AMHDCP
  1.  S AMHDRPI=$$GET1^DIQ(9002011.55,AMHP,.12,"I")
  1.  S AMHDRP=$$GET1^DIQ(9002011.55,AMHP,.12)
  1.  I AMHDRPI S AMHDRPS=AMHDRPI_R_AMHDRP
  1.  S AMHRRPI=$$GET1^DIQ(9000001,AMHP,.14,"I")
  1.  S AMHRRP=$$GET1^DIQ(9000001,AMHP,.14)
  1.  I AMHRRPI S AMHRRPS=AMHRRP
  1.  S AMHDOP1=$$GET1^DIQ(9002011.55,AMHP,.13)
  1.  S AMHDOP2=$$GET1^DIQ(9002011.55,AMHP,.14)
  1.  S AMHFLG=$$GET1^DIQ(9002011.55,AMHP,.09)
  1.  S AMHFLGN=$$GET1^DIQ(9002011.55,AMHP,.11)
  1.  S AMHI=AMHI+1
  1.  S @RETVAL@(AMHI)=AMHP_U_$G(AMHDMPS)_U_$G(AMHDSPS)_U_$G(AMHDCPS)_U_$G(AMHDRPS)_U_$G(AMHRRPS)_U_AMHDOP1_U_AMHDOP2_U_AMHFLG_U_AMHFLGN_$C(30)
  1.  S @RETVAL@(AMHI+1)=$C(31)
  1.  Q
  1.  ;
  1. PH(RETVAL,AMHSTR) ;-- get personal history for Case Management form (frmCaseManagement)
  1.  S X="MERR^AMHGU",@^%ZOSF("TRAP") ; m error trap
  1.  N AMHI,P,R,AMHP
  1.  S P="|",R="~"
  1.  S RETVAL="^AMHTMP("_$J_")"
  1.  S AMHI=0
  1.  K ^AMHTMP($J)
  1.  S AMHP=$P(AMHSTR,P)
  1.  S @RETVAL@(AMHI)="T00010BMXIEN^T00050Factor"_$C(30)
  1.  N AMHDA
  1.  S AMHDA=0 F  S AMHDA=$O(^AMHPPHX("AA",AMHP,AMHDA)) Q:'AMHDA  D
  1.  . N AMHIEN
  1.  . S AMHIEN=0 F  S AMHIEN=$O(^AMHPPHX("AA",AMHP,AMHDA,AMHIEN)) Q:'AMHIEN  D
  1.  .. N AMHF,AMHFI
  1.  .. S AMHF=$$GET1^DIQ(9002011.52,AMHIEN,.01)
  1.  .. S AMHFI=$$GET1^DIQ(9002011.52,AMHIEN,.01,"I")
  1.  .. S AMHI=AMHI+1
  1.  .. S @RETVAL@(AMHI)=AMHFI_U_AMHF_$C(30)
  1.  S @RETVAL@(AMHI+1)=$C(31)
  1.  Q
  1.  ;