BKMVCD.m

BKMVCD ;PRXM/HC/BHS - HMS ; 16-AUG-2005

 ;;2.2;HIV MANAGEMENT SYSTEM;;Apr 01, 2015;Build 40

 ;

 Q

 ;

ADDPAT(BKMPAT) ; EP - Add pat to iCare register

 N DIC,X,Y

 S X=$G(BKMPAT)

 S DIC(0)="L"

 S DIC="^BKM(90451,"

 D FILE^DICN

 Q +$P(Y,U,1)

 ;

ADDREG(BKMIEN,BKMHIV) ; EP - Add new pat to the HMS register.

 N DA,DIC,X,Y

 S X=$G(BKMHIV)

 S DIC(0)="L"

 S DIC="^BKM(90451,"_BKMIEN_",1,"

 S DA(1)=BKMIEN

 D FILE^DICN

 Q +$P(Y,U,1)

BKMVCD    ;PRXM/HC/BHS - HMS ; 16-AUG-2005

 +1       ;;2.2;HIV MANAGEMENT SYSTEM;;Apr 01, 2015;Build 40

 +2       ;

 +3        QUIT 

 +4       ;

ADDPAT(BKMPAT) ; EP - Add pat to iCare register

 +1        NEW DIC,X,Y

 +2        SET X=$GET(BKMPAT)

 +3        SET DIC(0)="L"

 +4        SET DIC="^BKM(90451,"

 +5        DO FILE^DICN

 +6        QUIT +$PIECE(Y,U,1)

 +7       ;

ADDREG(BKMIEN,BKMHIV) ; EP - Add new pat to the HMS register.

 +1        NEW DA,DIC,X,Y

 +2        SET X=$GET(BKMHIV)

 +3        SET DIC(0)="L"

 +4        SET DIC="^BKM(90451,"_BKMIEN_",1,"

 +5        SET DA(1)=BKMIEN

 +6        DO FILE^DICN

 +7        QUIT +$PIECE(Y,U,1)