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

AMH30P1.m

Go to the documentation of this file.
  1. AMH30P1 ; IHS/CMI/LAB - POST INIT BH ; [ 04/27/04 2:31 PM ]
  1. ;;3.0;IHS BEHAVIORAL HEALTH;**1**;JAN 27, 2003
  1. ;re-index all cross references on Designated provider fields
  1. ;
  1. ENV ;EP
  1. I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
  1. Q
  1. ;
  1. PRE ;
  1. S DIK="^DD(9002011.55,",DA=.13,DA(1)=9002011.55 D ^DIK
  1. S DIK="^DD(9002011.51,",DA=.06,DA(1)=9002011.51 D ^DIK
  1. S DIK="^DD(9002011,",DA=.17,DA(1)=9002011 D ^DIK
  1. S DA=$O(^AMHTACT("B",32,0)) I DA S DIE="^AMHTACT(",DR=".02///CLINICAL SUPERVISION PROVIDED" D ^DIE K DIE,DA,DR
  1. S DA=$O(^AMHPROB("B",19,0))
  1. I DA S DIE="^AMHPROB(",DR=".02///PERSONALITY DISORDER" D ^DIE
  1. S DA=$O(^AMHPROBC("B",19,0))
  1. I DA S DIE="^AMHPROBC(",DR=".02///PERSONALITY DISORDER" D ^DIE
  1. D ^XBFMK
  1. S DA=$O(^AMHTSDRG("B","TYLENOL (ACETOMINOPHEN)",0))
  1. I DA S DIE="^AMHTSDRG(",DR=".01///TYLENOL (ACETAMINOPHEN)" D ^DIE K DA,DR,DIE
  1. S DA=$O(^AMHTSDRG("B","TRICYLCLIC ANTIDEPRESSANTS (TC",0))
  1. I DA S DIE="^AMHTSDRG(",DR=".01///TRICYCLIC ANTIDEPRESSANT (TCA)" D ^DIE
  1. D ^XBFMK
  1. S X=0 F S X=$O(^AMHTPLT(X)) Q:X'=+X S $P(^AMHTPLT(X,0),U,2)=""
  1. F DA=1:1:200 S DIK="^AMHSORT(" D ^DIK
  1. Q
  1. POST ;EP
  1. NEW X S X=$$ADD^XPDMENU("AMH M PROBLEM SPECIFIC","AMH P SUICIDE DELIMITED","SDEL")
  1. I 'X W "Attempt to add suicide delimited option failed.." H 3
  1. K ^AMHPATR("AOP")
  1. ;convert .13 to free text
  1. S X=0 F S X=$O(^AMHPATR(X)) Q:X'=+X D
  1. .Q:$P(^AMHPATR(X,0),U,13)=""
  1. .S Y=$P(^AMHPATR(X,0),U,13)
  1. .Q:'Y
  1. .S $P(^AMHPATR(X,0),U,13)=$P(^VA(200,Y,0),U)
  1. .Q
  1. S X=0 F S X=$O(^AMHPCASE(X)) Q:X'=+X I $P(^AMHPCASE(X,0),U,3)="A" S $P(^AMHPCASE(X,0),U,3)="C"
  1. ;REINDEX AVISIT
  1. S DIK="^AMHREC(",DIK(1)=".16" D ENALL^DIK
  1. Q
  1. ;;
  1. ;
  1. ;;
  1. ;