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

AMHGEAD.m

Go to the documentation of this file.
  1. AMHGEAD ; IHS/CMI/MAW - AMHG Administrative Adds/Edits 3/3/2009 10:34:46 AM ;
  1. ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
  1. ;
  1. ;
  1. ;
  1. ;
  1. MODV(AMHIEN,DM,REC,EDT,PRO,PP,ACT,AT,NS,TOC,LOC,COM) ;EP -- add/update MHSS RECORD entry
  1. N AMHFDA,AMHIENS,AMHERRR
  1. S AMHIENS=$S(DM="A":"+1,",1:REC_",")
  1. S AMHFDA(9002011,AMHIENS,.02)=PRO
  1. S AMHFDA(9002011,AMHIENS,.04)=LOC
  1. S AMHFDA(9002011,AMHIENS,.05)=COM
  1. S AMHFDA(9002011,AMHIENS,.06)=ACT
  1. S AMHFDA(9002011,AMHIENS,.07)=TOC
  1. S AMHFDA(9002011,AMHIENS,.12)=AT
  1. S AMHFDA(9002011,AMHIENS,.09)=NS
  1. S AMHFDA(9002011,AMHIENS,.19)=DUZ
  1. S AMHFDA(9002011,AMHIENS,.33)="R"
  1. S AMHFDA(9002011,AMHIENS,1111)=1
  1. I DM="A" D Q
  1. . S AMHFDA(9002011,AMHIENS,.01)=EDT
  1. . S AMHFDA(9002011,AMHIENS,.03)=DT
  1. . ;S AMHFDA(9002011,AMHIENS,.17)="A"
  1. . S AMHFDA(9002011,AMHIENS,.19)=DUZ
  1. . S AMHFDA(9002011,AMHIENS,.22)="A"
  1. . S AMHFDA(9002011.5101,"+2,"_AMHIENS,.01)=$$NOW^XLFDT
  1. . S AMHFDA(9002011.5101,"+2,"_AMHIENS,.02)=DUZ
  1. . D UPDATE^DIE("","AMHFDA","AMHIENS","AMHERRR(1)")
  1. . I $D(AMHERRR) S AMHER="0~Add Admin Record"
  1. . S AMHIEN=+$G(AMHIENS(1))
  1. . D MODPRV(PP,DM,AMHIEN,"","P")
  1. I DM="E" D Q
  1. . S AMHIENS(1)=REC
  1. . ;S AMHFDA(9002011,AMHIENS,.17)="E"
  1. . S AMHFDA(9002011,AMHIENS,.21)=DT
  1. . S AMHFDA(9002011,AMHIENS,.28)=DUZ
  1. . S AMHFDA(9002011,AMHIENS,.22)="M"
  1. . D FILE^DIE("K","AMHFDA","AMHERRR(1)")
  1. . I $D(AMHERRR) S AMHER="0~Edit Admin Record"
  1. . S AMHIEN=REC
  1. . D MODPRV(PP,DM,AMHIEN,"","P")
  1. . D VAUD^AMHGEVF(REC) ;update the audit log
  1. Q
  1. ;
  1. MODPRV(P,D,R,PAT,TYP) ;-- modify the provider based on data mode
  1. N AMHFDA,AMHIENS,AMERR,AMHPIEN
  1. Q:$$FNDPRV^AMHGU(R,TYP,P)
  1. S AMHIENS="+1,"
  1. S AMHFDA(9002011.02,AMHIENS,.01)=P
  1. S AMHFDA(9002011.02,AMHIENS,.02)=PAT
  1. S AMHFDA(9002011.02,AMHIENS,.03)=R
  1. S AMHFDA(9002011.02,AMHIENS,.04)=TYP
  1. D UPDATE^DIE("","AMHFDA","AMHIENS","AMHERRR(1)")
  1. I $D(AMHERRR) S AMHER="0~Add "_$G(TYP)_" Provider"
  1. S AMHPIEN=$G(AMHIENS(1))
  1. Q
  1. ;
  1. ADDPOV(PI,P,R,PNARR) ;EP -- add a pov
  1. N AMHFDA,AMHIENS,AMHERRR,AMHPIEN
  1. S APCDOVRR=1
  1. S AMHIENS="+1,"
  1. S AMHFDA(9002011.01,AMHIENS,.01)=PI
  1. S AMHFDA(9002011.01,AMHIENS,.02)=P
  1. S AMHFDA(9002011.01,AMHIENS,.03)=R
  1. S AMHFDA(9002011.01,AMHIENS,.04)=PNARR
  1. D UPDATE^DIE("","AMHFDA","AMHIENS","AMHERRR(1)")
  1. I $D(AMHERRR) S AMHER="0~Add POV"
  1. S AMHPIEN=$G(AMHIENS(1))
  1. Q
  1. ;
  1. EDITPOV(REC,PN) ;EP -- edit a pov
  1. N AMHFDA,AMHIENS,AMHERRR,AMHIP,AMHPIEN
  1. S APCDOVRR=1
  1. S AMHIENS=REC_","
  1. S AMHFDA(9002011.01,AMHIENS,.04)=PN
  1. D FILE^DIE("K","AMHFDA","AMHERRR(1)")
  1. I $D(AMHERRR) S AMHER="0~Edit POV"
  1. I '$D(AMHERRR(1)) S AMHPIEN=REC
  1. Q
  1. ;
  1. CMT(D,RC,CMT) ;EP -- file the comments
  1. Q:$G(CMT)=""
  1. N AMHWP
  1. D ARRAYT^AMHGU(.AMHWP,CMT) ;parse the text into an array
  1. N AMHFDA,AMHIENS,AMHERRR
  1. S AMHIENS=RC_","
  1. D WP^AMHGU(.AMHERRR,9002011,AMHIENS,8101,.AMHWP)
  1. Q
  1. ;