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

AMH30P3.m

Go to the documentation of this file.
  1. AMH30P3 ; IHS/CMI/LAB - POST INIT BH ; [ 09/14/04 6:55 AM ]
  1. ;;3.0;IHS BEHAVIORAL HEALTH;**3**;JAN 27, 2003
  1. ;
  1. ;LORI -SEND OUT LISTER ITEMS
  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. S DA=$O(^AMHTSDRG("B","BARBITUATES",0))
  1. I DA S DIE="^AMHTSDRG(",DR=".01///BARBITURATES" D ^DIE K DA,DR,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. S DIK="^AMHPSUIC(",DIK(1)=".21^AEX" D ENALL^DIK
  1. S X=0 F S X=$O(^AMHREC(X)) Q:X'=+X I $P($G(^AMHREC(X,14)),U)="U" S $P(^AMHREC(X,14),U)="UAS" W "."
  1. S X=$$ADD^XPDMENU("AMH M MANAGER UTILITIES","AMH BACKLOAD CDMIS DATA","BLCD")
  1. I 'X W "Attempt to add cdmis backload option failed.." H 3
  1. S X=$$ADD^XPDMENU("AMH M PATIENT LISTINGS","AMH RPT TIME IN GRP","TSG")
  1. I 'X W "Attempt to add time in group report option failed.." H 3
  1. D ^AMH30P3B
  1. Q
  1. ;;
  1. ;
  1. ;;
  1. ;