AMHGEAD ; IHS/CMI/MAW - AMHG Administrative Adds/Edits 3/3/2009 10:34:46 AM ;
;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
;
;
;
;
MODV(AMHIEN,DM,REC,EDT,PRO,PP,ACT,AT,NS,TOC,LOC,COM) ;EP -- add/update MHSS RECORD entry
N AMHFDA,AMHIENS,AMHERRR
S AMHIENS=$S(DM="A":"+1,",1:REC_",")
S AMHFDA(9002011,AMHIENS,.02)=PRO
S AMHFDA(9002011,AMHIENS,.04)=LOC
S AMHFDA(9002011,AMHIENS,.05)=COM
S AMHFDA(9002011,AMHIENS,.06)=ACT
S AMHFDA(9002011,AMHIENS,.07)=TOC
S AMHFDA(9002011,AMHIENS,.12)=AT
S AMHFDA(9002011,AMHIENS,.09)=NS
S AMHFDA(9002011,AMHIENS,.19)=DUZ
S AMHFDA(9002011,AMHIENS,.33)="R"
S AMHFDA(9002011,AMHIENS,1111)=1
I DM="A" D Q
. S AMHFDA(9002011,AMHIENS,.01)=EDT
. S AMHFDA(9002011,AMHIENS,.03)=DT
. ;S AMHFDA(9002011,AMHIENS,.17)="A"
. S AMHFDA(9002011,AMHIENS,.19)=DUZ
. S AMHFDA(9002011,AMHIENS,.22)="A"
. S AMHFDA(9002011.5101,"+2,"_AMHIENS,.01)=$$NOW^XLFDT
. S AMHFDA(9002011.5101,"+2,"_AMHIENS,.02)=DUZ
. D UPDATE^DIE("","AMHFDA","AMHIENS","AMHERRR(1)")
. I $D(AMHERRR) S AMHER="0~Add Admin Record"
. S AMHIEN=+$G(AMHIENS(1))
. D MODPRV(PP,DM,AMHIEN,"","P")
I DM="E" D Q
. S AMHIENS(1)=REC
. ;S AMHFDA(9002011,AMHIENS,.17)="E"
. S AMHFDA(9002011,AMHIENS,.21)=DT
. S AMHFDA(9002011,AMHIENS,.28)=DUZ
. S AMHFDA(9002011,AMHIENS,.22)="M"
. D FILE^DIE("K","AMHFDA","AMHERRR(1)")
. I $D(AMHERRR) S AMHER="0~Edit Admin Record"
. S AMHIEN=REC
. D MODPRV(PP,DM,AMHIEN,"","P")
. D VAUD^AMHGEVF(REC) ;update the audit log
Q
;
MODPRV(P,D,R,PAT,TYP) ;-- modify the provider based on data mode
N AMHFDA,AMHIENS,AMERR,AMHPIEN
Q:$$FNDPRV^AMHGU(R,TYP,P)
S AMHIENS="+1,"
S AMHFDA(9002011.02,AMHIENS,.01)=P
S AMHFDA(9002011.02,AMHIENS,.02)=PAT
S AMHFDA(9002011.02,AMHIENS,.03)=R
S AMHFDA(9002011.02,AMHIENS,.04)=TYP
D UPDATE^DIE("","AMHFDA","AMHIENS","AMHERRR(1)")
I $D(AMHERRR) S AMHER="0~Add "_$G(TYP)_" Provider"
S AMHPIEN=$G(AMHIENS(1))
Q
;
ADDPOV(PI,P,R,PNARR) ;EP -- add a pov
N AMHFDA,AMHIENS,AMHERRR,AMHPIEN
S APCDOVRR=1
S AMHIENS="+1,"
S AMHFDA(9002011.01,AMHIENS,.01)=PI
S AMHFDA(9002011.01,AMHIENS,.02)=P
S AMHFDA(9002011.01,AMHIENS,.03)=R
S AMHFDA(9002011.01,AMHIENS,.04)=PNARR
D UPDATE^DIE("","AMHFDA","AMHIENS","AMHERRR(1)")
I $D(AMHERRR) S AMHER="0~Add POV"
S AMHPIEN=$G(AMHIENS(1))
Q
;
EDITPOV(REC,PN) ;EP -- edit a pov
N AMHFDA,AMHIENS,AMHERRR,AMHIP,AMHPIEN
S APCDOVRR=1
S AMHIENS=REC_","
S AMHFDA(9002011.01,AMHIENS,.04)=PN
D FILE^DIE("K","AMHFDA","AMHERRR(1)")
I $D(AMHERRR) S AMHER="0~Edit POV"
I '$D(AMHERRR(1)) S AMHPIEN=REC
Q
;
CMT(D,RC,CMT) ;EP -- file the comments
Q:$G(CMT)=""
N AMHWP
D ARRAYT^AMHGU(.AMHWP,CMT) ;parse the text into an array
N AMHFDA,AMHIENS,AMHERRR
S AMHIENS=RC_","
D WP^AMHGU(.AMHERRR,9002011,AMHIENS,8101,.AMHWP)
Q
;
AMHGEAD ; IHS/CMI/MAW - AMHG Administrative Adds/Edits 3/3/2009 10:34:46 AM ;
+1 ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
+2 ;
+3 ;
+4 ;
+5 ;
MODV(AMHIEN,DM,REC,EDT,PRO,PP,ACT,AT,NS,TOC,LOC,COM) ;EP -- add/update MHSS RECORD entry
+1 NEW AMHFDA,AMHIENS,AMHERRR
+2 SET AMHIENS=$SELECT(DM="A":"+1,",1:REC_",")
+3 SET AMHFDA(9002011,AMHIENS,.02)=PRO
+4 SET AMHFDA(9002011,AMHIENS,.04)=LOC
+5 SET AMHFDA(9002011,AMHIENS,.05)=COM
+6 SET AMHFDA(9002011,AMHIENS,.06)=ACT
+7 SET AMHFDA(9002011,AMHIENS,.07)=TOC
+8 SET AMHFDA(9002011,AMHIENS,.12)=AT
+9 SET AMHFDA(9002011,AMHIENS,.09)=NS
+10 SET AMHFDA(9002011,AMHIENS,.19)=DUZ
+11 SET AMHFDA(9002011,AMHIENS,.33)="R"
+12 SET AMHFDA(9002011,AMHIENS,1111)=1
+13 IF DM="A"
Begin DoDot:1
+14 SET AMHFDA(9002011,AMHIENS,.01)=EDT
+15 SET AMHFDA(9002011,AMHIENS,.03)=DT
+16 ;S AMHFDA(9002011,AMHIENS,.17)="A"
+17 SET AMHFDA(9002011,AMHIENS,.19)=DUZ
+18 SET AMHFDA(9002011,AMHIENS,.22)="A"
+19 SET AMHFDA(9002011.5101,"+2,"_AMHIENS,.01)=$$NOW^XLFDT
+20 SET AMHFDA(9002011.5101,"+2,"_AMHIENS,.02)=DUZ
+21 DO UPDATE^DIE("","AMHFDA","AMHIENS","AMHERRR(1)")
+22 IF $DATA(AMHERRR)
SET AMHER="0~Add Admin Record"
+23 SET AMHIEN=+$GET(AMHIENS(1))
+24 DO MODPRV(PP,DM,AMHIEN,"","P")
End DoDot:1
QUIT
+25 IF DM="E"
Begin DoDot:1
+26 SET AMHIENS(1)=REC
+27 ;S AMHFDA(9002011,AMHIENS,.17)="E"
+28 SET AMHFDA(9002011,AMHIENS,.21)=DT
+29 SET AMHFDA(9002011,AMHIENS,.28)=DUZ
+30 SET AMHFDA(9002011,AMHIENS,.22)="M"
+31 DO FILE^DIE("K","AMHFDA","AMHERRR(1)")
+32 IF $DATA(AMHERRR)
SET AMHER="0~Edit Admin Record"
+33 SET AMHIEN=REC
+34 DO MODPRV(PP,DM,AMHIEN,"","P")
+35 ;update the audit log
DO VAUD^AMHGEVF(REC)
End DoDot:1
QUIT
+36 QUIT
+37 ;
MODPRV(P,D,R,PAT,TYP) ;-- modify the provider based on data mode
+1 NEW AMHFDA,AMHIENS,AMERR,AMHPIEN
+2 IF $$FNDPRV^AMHGU(R,TYP,P)
QUIT
+3 SET AMHIENS="+1,"
+4 SET AMHFDA(9002011.02,AMHIENS,.01)=P
+5 SET AMHFDA(9002011.02,AMHIENS,.02)=PAT
+6 SET AMHFDA(9002011.02,AMHIENS,.03)=R
+7 SET AMHFDA(9002011.02,AMHIENS,.04)=TYP
+8 DO UPDATE^DIE("","AMHFDA","AMHIENS","AMHERRR(1)")
+9 IF $DATA(AMHERRR)
SET AMHER="0~Add "_$GET(TYP)_" Provider"
+10 SET AMHPIEN=$GET(AMHIENS(1))
+11 QUIT
+12 ;
ADDPOV(PI,P,R,PNARR) ;EP -- add a pov
+1 NEW AMHFDA,AMHIENS,AMHERRR,AMHPIEN
+2 SET APCDOVRR=1
+3 SET AMHIENS="+1,"
+4 SET AMHFDA(9002011.01,AMHIENS,.01)=PI
+5 SET AMHFDA(9002011.01,AMHIENS,.02)=P
+6 SET AMHFDA(9002011.01,AMHIENS,.03)=R
+7 SET AMHFDA(9002011.01,AMHIENS,.04)=PNARR
+8 DO UPDATE^DIE("","AMHFDA","AMHIENS","AMHERRR(1)")
+9 IF $DATA(AMHERRR)
SET AMHER="0~Add POV"
+10 SET AMHPIEN=$GET(AMHIENS(1))
+11 QUIT
+12 ;
EDITPOV(REC,PN) ;EP -- edit a pov
+1 NEW AMHFDA,AMHIENS,AMHERRR,AMHIP,AMHPIEN
+2 SET APCDOVRR=1
+3 SET AMHIENS=REC_","
+4 SET AMHFDA(9002011.01,AMHIENS,.04)=PN
+5 DO FILE^DIE("K","AMHFDA","AMHERRR(1)")
+6 IF $DATA(AMHERRR)
SET AMHER="0~Edit POV"
+7 IF '$DATA(AMHERRR(1))
SET AMHPIEN=REC
+8 QUIT
+9 ;
CMT(D,RC,CMT) ;EP -- file the comments
+1 IF $GET(CMT)=""
QUIT
+2 NEW AMHWP
+3 ;parse the text into an array
DO ARRAYT^AMHGU(.AMHWP,CMT)
+4 NEW AMHFDA,AMHIENS,AMHERRR
+5 SET AMHIENS=RC_","
+6 DO WP^AMHGU(.AMHERRR,9002011,AMHIENS,8101,.AMHWP)
+7 QUIT
+8 ;
