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

AMHGE.m

Go to the documentation of this file. 
  1. AMHGE ; IHS/CMI/MAW - AMHG GUI BH Filing Utilities 12/19/2008 2:59:00 PM ;
  1.  ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
  1.  ;
  1.  ;
  1.  ;
  1. DEBUG(RETVAL,AMHSTR)  ;replace tag below to allow Serenji debug of GUI
  1.  D DEBUG^%Serenji("MRUU^AMHGE(.AMHRET,.AMHSTR)")
  1.  Q
  1.  ;
  1. MRUP(RETVAL,AMHSTR) ;-- save most recently selected item in AMHG MOST RECENTLY SELECTED PATIENT file
  1.  S X="MERR^AMHGU",@^%ZOSF("TRAP") ; m error trap
  1.  N AMHI,AMHERRR,P,AMHIEN,AMHFL,AMHFIEN,AMHTXT1,AMHTXT2
  1.  S P="|"
  1.  K ^AMHTMP($J)
  1.  S RETVAL="^AMHTMP("_$J_")"
  1.  S AMHI=0
  1.  S @RETVAL@(AMHI)="T00001Result"_$C(30)
  1.  S AMHIEN=$P(AMHSTR,P)
  1.  S AMHFL=$P(AMHSTR,P,2)
  1.  S AMHFIEN=$P(AMHSTR,P,3)
  1.  S AMHTXT1=$P(AMHSTR,P,4)
  1.  S AMHTXT2=$P(AMHSTR,P,5)
  1.  S AMHI=AMHI+1
  1.  N AMHE
  1.  S AMHE=$O(^AMHGMRUP("B",AMHIEN,0))
  1.  I '$G(AMHE) D  Q  ;lets add the entire entry here
  1.  . N AMHFDA,AMHIENS,AMHERRR
  1.  . S AMHERRR=""
  1.  . S AMHIENS(1)=AMHIEN
  1.  . S AMHIENS(2)=AMHFL
  1.  . S AMHIENS(3)=AMHFIEN
  1.  . S AMHFDA(9002012.96,"+1,",.01)=AMHIEN
  1.  . S AMHFDA(9002012.961,"+2,+1,",.01)=AMHFL
  1.  . S AMHFDA(9002012.9611,"+3,+2,+1,",.01)=AMHFIEN
  1.  . S AMHFDA(9002012.9611,"+3,+2,+1,",.02)=AMHTXT1
  1.  . S AMHFDA(9002012.9611,"+3,+2,+1,",.03)=AMHTXT2
  1.  . D UPDATE^DIE("","AMHFDA","AMHIENS","AMHERRR(1)")
  1.  . I '$G(AMHIENS(1)) S @RETVAL@(AMHI)=0_$C(30)
  1.  . I $G(AMHIENS(1)) S @RETVAL@(AMHI)=1_$C(30)
  1.  . S @RETVAL@(AMHI+1)=$C(31)
  1.  N AMHF
  1.  S AMHF=$O(^AMHGMRUP(AMHE,1,"B",AMHFL,0))
  1.  I '$G(AMHF) D  Q  ;we have the patient but no file yet
  1.  . N AMHFDA,AMHIENS,AMHERRR
  1.  . S AMHERRR=""
  1.  . S AMHIENS(1)=AMHIEN
  1.  . S AMHIENS(2)=AMHFL
  1.  . S AMHIENS(3)=AMHFIEN
  1.  . S AMHFDA(9002012.96,AMHIEN_",",.01)=AMHIEN
  1.  . S AMHFDA(9002012.961,"+2,"_AMHIEN_",",.01)=AMHFL
  1.  . S AMHFDA(9002012.9611,"+3,+2,"_AMHIEN_",",.01)=AMHFIEN
  1.  . S AMHFDA(9002012.9611,"+3,+2,"_AMHIEN_",",.02)=AMHTXT1
  1.  . S AMHFDA(9002012.9611,"+3,+2,"_AMHIEN_",",.03)=AMHTXT2
  1.  . D UPDATE^DIE("","AMHFDA","AMHIENS","AMHERRR(1)")
  1.  . I '$G(AMHIENS(1)) S @RETVAL@(AMHI)=0_$C(30)
  1.  . I $G(AMHIENS(1)) S @RETVAL@(AMHI)=1_$C(30)
  1.  . S @RETVAL@(AMHI+1)=$C(31)
  1.  N AMHIT
  1.  S AMHIT=$O(^AMHGMRUP(AMHE,1,AMHFL,1,"B",AMHFIEN,0))
  1.  I '$G(AMHIT) D  Q
  1.  . N AMHFDA,AMHIENS,AMHERRR
  1.  . S AMHERRR=""
  1.  . S AMHIENS(1)=AMHIEN
  1.  . S AMHIENS(2)=AMHFL
  1.  . S AMHIENS(3)=AMHFIEN
  1.  . S AMHFDA(9002012.96,AMHIEN_",",.01)=AMHIEN
  1.  . S AMHFDA(9002012.961,AMHFL_","_AMHIEN_",",.01)=AMHFL
  1.  . S AMHFDA(9002012.9611,"+3,"_AMHFL_","_AMHIEN_",",.01)=AMHFIEN
  1.  . S AMHFDA(9002012.9611,"+3,"_AMHFL_","_AMHIEN_",",.02)=AMHTXT1
  1.  . S AMHFDA(9002012.9611,"+3,"_AMHFL_","_AMHIEN_",",.03)=AMHTXT2
  1.  . D UPDATE^DIE("","AMHFDA","AMHIENS","AMHERRR(1)")
  1.  . I '$G(AMHIENS(1)) S @RETVAL@(AMHI)=0_$C(30)
  1.  . I $G(AMHIENS(1)) S @RETVAL@(AMHI)=1_$C(30)
  1.  . S @RETVAL@(AMHI+1)=$C(31)
  1.  Q
  1.  ;
  1. MRUU(RETVAL,AMHSTR) ;-- save most recently selected item in AMHG MOST RECENTLY SELECTED USER file
  1.  S X="MERR^AMHGU",@^%ZOSF("TRAP") ; m error trap
  1.  N AMHI,AMHERRR,P,AMHIEN,AMHFL,AMHFIEN,AMHTXT1,AMHTXT2
  1.  S P="|"
  1.  K ^AMHTMP($J)
  1.  S RETVAL="^AMHTMP("_$J_")"
  1.  S AMHI=0
  1.  S @RETVAL@(AMHI)="T00001Result"_$C(30)
  1.  S AMHIEN=$P(AMHSTR,P)
  1.  S AMHFL=$P(AMHSTR,P,2)
  1.  S AMHFIEN=$P(AMHSTR,P,3)
  1.  S AMHTXT1=$P(AMHSTR,P,4)
  1.  S AMHTXT2=$P(AMHSTR,P,5)
  1.  S AMHI=AMHI+1
  1.  N AMHE
  1.  S AMHE=$O(^AMHGMRUU("B",AMHIEN,0))
  1.  I '$G(AMHE) D  Q  ;lets add the entire entry here
  1.  . N AMHFDA,AMHIENS,AMHERRR
  1.  . S AMHERRR=""
  1.  . S AMHIENS(1)=AMHIEN
  1.  . S AMHIENS(2)=AMHFL
  1.  . S AMHIENS(3)=AMHFIEN
  1.  . S AMHFDA(9002012.97,"+1,",.01)=AMHIEN
  1.  . S AMHFDA(9002012.971,"+2,+1,",.01)=AMHFL
  1.  . S AMHFDA(9002012.9711,"+3,+2,+1,",.01)=AMHFIEN
  1.  . S AMHFDA(9002012.9711,"+3,+2,+1,",.02)=AMHTXT1
  1.  . S AMHFDA(9002012.9711,"+3,+2,+1,",.03)=AMHTXT2
  1.  . D UPDATE^DIE("","AMHFDA","AMHIENS","AMHERRR(1)")
  1.  . I '$G(AMHIENS(1)) S @RETVAL@(AMHI)=0_$C(30)
  1.  . I $G(AMHIENS(1)) S @RETVAL@(AMHI)=1_$C(30)
  1.  . S @RETVAL@(AMHI+1)=$C(31)
  1.  N AMHF
  1.  S AMHF=$O(^AMHGMRUU(AMHE,1,"B",AMHFL,0))
  1.  I '$G(AMHF) D  Q  ;we have the patient but no file yet
  1.  . N AMHFDA,AMHIENS,AMHERRR
  1.  . S AMHERRR=""
  1.  . S AMHIENS(1)=AMHIEN
  1.  . S AMHIENS(2)=AMHFL
  1.  . S AMHIENS(3)=AMHFIEN
  1.  . S AMHFDA(9002012.97,AMHIEN_",",.01)=AMHIEN
  1.  . S AMHFDA(9002012.971,"+2,"_AMHIEN_",",.01)=AMHFL
  1.  . S AMHFDA(9002012.9711,"+3,+2,"_AMHIEN_",",.01)=AMHFIEN
  1.  . S AMHFDA(9002012.9711,"+3,+2,"_AMHIEN_",",.02)=AMHTXT1
  1.  . S AMHFDA(9002012.9711,"+3,+2,"_AMHIEN_",",.03)=AMHTXT2
  1.  . D UPDATE^DIE("","AMHFDA","AMHIENS","AMHERRR(1)")
  1.  . I '$G(AMHIENS(1)) S @RETVAL@(AMHI)=0_$C(30)
  1.  . I $G(AMHIENS(1)) S @RETVAL@(AMHI)=1_$C(30)
  1.  . S @RETVAL@(AMHI+1)=$C(31)
  1.  N AMHIT
  1.  S AMHIT=$O(^AMHGMRUU(AMHE,1,AMHFL,1,"B",AMHFIEN,0))
  1.  I '$G(AMHIT) D  Q
  1.  . N AMHFDA,AMHIENS,AMHERRR
  1.  . S AMHERRR=""
  1.  . S AMHIENS(1)=AMHIEN
  1.  . S AMHIENS(2)=AMHFL
  1.  . S AMHIENS(3)=AMHFIEN
  1.  . S AMHFDA(9002012.97,AMHIEN_",",.01)=AMHIEN
  1.  . S AMHFDA(9002012.971,AMHFL_","_AMHIEN_",",.01)=AMHFL
  1.  . S AMHFDA(9002012.9711,"+3,"_AMHFL_","_AMHIEN_",",.01)=AMHFIEN
  1.  . S AMHFDA(9002012.9711,"+3,"_AMHFL_","_AMHIEN_",",.02)=AMHTXT1
  1.  . S AMHFDA(9002012.9711,"+3,"_AMHFL_","_AMHIEN_",",.03)=AMHTXT2
  1.  . D UPDATE^DIE("","AMHFDA","AMHIENS","AMHERRR(1)")
  1.  . I '$G(AMHIENS(1)) S @RETVAL@(AMHI)=0_$C(30)
  1.  . I $G(AMHIENS(1)) S @RETVAL@(AMHI)=1_$C(30)
  1.  . S @RETVAL@(AMHI+1)=$C(31)
  1.  Q
  1.  ;
  1. MRUDP(RETVAL,AMHSTR) ;-- remove an entry from the most recently selected list
  1.  S X="MERR^AMHGU",@^%ZOSF("TRAP") ; m error trap
  1.  N AMHI,AMHERRR,P,AMHIEN,AMHFL,AMHFIEN
  1.  S P="|"
  1.  K ^AMHTMP($J)
  1.  S RETVAL="^AMHTMP("_$J_")"
  1.  S AMHI=0
  1.  S @RETVAL@(AMHI)="T00001Result"_$C(30)
  1.  S AMHIEN=$P(AMHSTR,P)
  1.  S AMHFL=$P(AMHSTR,P,2)
  1.  S AMHFIEN=$P(AMHSTR,P,3)
  1.  S DA(2)=AMHIEN,DA(1)=AMHFL,DA=AMHFIEN
  1.  S DIK="^AMHGMRUP("_DA(2)_",1,"_DA(1)_",1,"
  1.  D ^DIK
  1.  S @RETVAL@(AMHI+1)=$C(31)
  1.  Q
  1.  ;
  1. MRUDU(RETVAL,AMHSTR) ;-- remove an entry from the most recently selected list
  1.  S X="MERR^AMHGU",@^%ZOSF("TRAP") ; m error trap
  1.  N AMHI,AMHERRR,P,AMHIEN,AMHFL,AMHFIEN
  1.  S P="|"
  1.  K ^AMHTMP($J)
  1.  S RETVAL="^AMHTMP("_$J_")"
  1.  S AMHI=0
  1.  S @RETVAL@(AMHI)="T00001Result"_$C(30)
  1.  S AMHIEN=$P(AMHSTR,P)
  1.  S AMHFL=$P(AMHSTR,P,2)
  1.  S AMHFIEN=$P(AMHSTR,P,3)
  1.  S DA(2)=AMHIEN,DA(1)=AMHFL,DA=AMHFIEN
  1.  S DIK="^AMHGMRUU("_DA(2)_",1,"_DA(1)_",1,"
  1.  D ^DIK
  1.  S @RETVAL@(AMHI+1)=$C(31)
  1.  Q
  1.  ;