BKMVF3.m

BKMVF3 ;PRXM/HC/JGH - Reminders From Patient Record and Menu Tree (Main) ; 24 May 2005  5:55 PM

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

 QUIT

 ; KJH - 04/13/2005 - Split into several routines due to size restrictions.

 ;

REMIND(DFN,BDATE,REMLIST) ;Reminders ; PEP

 ; PRX/DLS 3/30/06 Kill REMLIST before proceeding.

 K REMLIST,LIST

 N PNT,BKMRIEN,PTNAME,AGE,SEX,BKMSUP

 S HIVIEN=$$HIVIEN^BKMIXX3()

 I HIVIEN="" Q

 ;

 ; Get Sex and Age for Patient

 S SEX=$E($$GET1^DIQ(9000001,DFN,1101.2,"E"),1),APCHSEX=SEX

 S AGE=$$GET1^DIQ(9000001,DFN,1102.99,"E"),APCHSAGE=AGE

 S APCHSANY=0,BKMSUP=1

 D ED01^BKMRMED(1)

 D ED02^BKMRMED(1)

 D IZ01^BKMRMIM(1)

 D IZ02^BKMRMIM(1)

 D IZ03^BKMRMIM(1)

 D IZ04^BKMRMIM(1)

 D IZ05^BKMRMIM(1)

 D EX01^BKMRMEX(1)

 D EX02^BKMRMEX(1)

 D MAM^BKMRMWH(1)

 D PAP^BKMRMWH(1)

 D CD4^BKMRMLB(1)

 D CHL^BKMRMLB(1)

 D SYPF^BKMRMLB(1)

 D GON^BKMRMLB(1)

 D HEPBR^BKMRMLB(1)

 D HEPB^BKMRMLB(1)

 D HEPCE^BKMRMLB(1)

 D HEPCR^BKMRMLB(1)

 D PPD^BKMRMLB(1)

 D TOX^BKMRMLB1(1)

 D VIR^BKMRMLB1(1)

 D SYPR^BKMRMLB1(1)

 K DUE,HIVIEN,LAST,LAST1,LRESULT,PDATE,CLN,PRV

 Q

BKMVF3    ;PRXM/HC/JGH - Reminders From Patient Record and Menu Tree (Main) ; 24 May 2005  5:55 PM

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

 +2        QUIT 

 +3       ; KJH - 04/13/2005 - Split into several routines due to size restrictions.

 +4       ;

REMIND(DFN,BDATE,REMLIST) ;Reminders ; PEP

 +1       ; PRX/DLS 3/30/06 Kill REMLIST before proceeding.

 +2        KILL REMLIST,LIST

 +3        NEW PNT,BKMRIEN,PTNAME,AGE,SEX,BKMSUP

 +4        SET HIVIEN=$$HIVIEN^BKMIXX3()

 +5        IF HIVIEN=""

               QUIT 

 +6       ;

 +7       ; Get Sex and Age for Patient

 +8        SET SEX=$EXTRACT($$GET1^DIQ(9000001,DFN,1101.2,"E"),1)

           SET APCHSEX=SEX

 +9        SET AGE=$$GET1^DIQ(9000001,DFN,1102.99,"E")

           SET APCHSAGE=AGE

 +10       SET APCHSANY=0

           SET BKMSUP=1

 +11       DO ED01^BKMRMED(1)

 +12       DO ED02^BKMRMED(1)

 +13       DO IZ01^BKMRMIM(1)

 +14       DO IZ02^BKMRMIM(1)

 +15       DO IZ03^BKMRMIM(1)

 +16       DO IZ04^BKMRMIM(1)

 +17       DO IZ05^BKMRMIM(1)

 +18       DO EX01^BKMRMEX(1)

 +19       DO EX02^BKMRMEX(1)

 +20       DO MAM^BKMRMWH(1)

 +21       DO PAP^BKMRMWH(1)

 +22       DO CD4^BKMRMLB(1)

 +23       DO CHL^BKMRMLB(1)

 +24       DO SYPF^BKMRMLB(1)

 +25       DO GON^BKMRMLB(1)

 +26       DO HEPBR^BKMRMLB(1)

 +27       DO HEPB^BKMRMLB(1)

 +28       DO HEPCE^BKMRMLB(1)

 +29       DO HEPCR^BKMRMLB(1)

 +30       DO PPD^BKMRMLB(1)

 +31       DO TOX^BKMRMLB1(1)

 +32       DO VIR^BKMRMLB1(1)

 +33       DO SYPR^BKMRMLB1(1)

 +34       KILL DUE,HIVIEN,LAST,LAST1,LRESULT,PDATE,CLN,PRV

 +35       QUIT