BHLSITE.m

BHLSITE ;cmi/sitka/maw - Edit HL7 Site Parameters  

 ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 ;

 ;

 ;this routine will allow the user to add/edit site parameters

 ;

MAIN ;-- this is the main routine driver

 D ASK Q:$D(DUOUT)!$D(DTOUT)

 D EOJ

 Q

 ;

ASK ;-- ask with site

 S DIC="^BHLSITE(",DIC(0)="AELMQZ",DLAYGO=90076.3

 S DINUM=DUZ(2)

 D ^DIC

 Q:Y<0

 S BHL("SITE")=+Y

 S DIE=DIC,DR="12:24",DA=BHL("SITE")

 D ^DIE

 ;

EOJ ;-- kill variables and quit

 K BHL("SITE")

 Q

 ;

BHLSITE   ;cmi/sitka/maw - Edit HL7 Site Parameters  

 +1       ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 +2       ;

 +3       ;

 +4       ;this routine will allow the user to add/edit site parameters

 +5       ;

MAIN      ;-- this is the main routine driver

 +1        DO ASK

           IF $DATA(DUOUT)!$DATA(DTOUT)

               QUIT 

 +2        DO EOJ

 +3        QUIT 

 +4       ;

ASK       ;-- ask with site

 +1        SET DIC="^BHLSITE("

           SET DIC(0)="AELMQZ"

           SET DLAYGO=90076.3

 +2        SET DINUM=DUZ(2)

 +3        DO ^DIC

 +4        IF Y<0

               QUIT 

 +5        SET BHL("SITE")=+Y

 +6        SET DIE=DIC

           SET DR="12:24"

           SET DA=BHL("SITE")

 +7        DO ^DIE

 +8       ;

EOJ       ;-- kill variables and quit

 +1        KILL BHL("SITE")

 +2        QUIT 

 +3       ;