BDMFS1.m

BDMFS1 ; IHS/CMI/LAB - DMS FLOW SHEET MANAGEMENT UTILITY ;

 ;;2.0;DIABETES MANAGEMENT SYSTEM;**2**;JUN 14, 2007

 ;UTILITY PROGRAM TO MANAGE FLOW SHEET CREATION AND EDITING

CSADD ;EP;ADD CLINIC STOP

 W @IOF

 W !?5,"Select CLINIC to add to the"

 W !?5,BDMSNAM,?25,"Flow Sheet"

 S DIC="^DIC(40.7,"

 S DIC(0)="AEMQZ"

 S DIC("A")="Which CLINIC: "

 W !

 D DIC^BDMDIC

 Q:+Y<1

 S (DINUM,X)=+Y

 S DA(1)=BDMSDA

 S DIC="^APCHSFLC("_BDMSDA_",3,"

 S DIC(0)="L"

 D FILE^BDMDIC

 D CSBACK

 Q

CSDEL ;EP;DELETE CLINIC STOP

 N BDMY

 D CSSEL

 I $D(BDMQUIT) K BDMQUIT D FSCBACK^BDMFS Q

 F BDMI=1:1 S BDMX=$P(BDMY,",",BDMI) Q:BDMX=""  D

 .Q:'$D(BDMCS(BDMSDA,BDMX))

 .S DA=$P(BDMCS(BDMSDA,BDMX),U,2)

 .S DA(1)=BDMSDA

 .S DIK="^APCHSFLC("_DA(1)_",3,"

 .D DIK^BDMDIC

CSBACK S BDMGO="FSC"

 D BACK^BDMFS

 Q

CSSEL ;SELECT CLINIC STOP

 S DIR(0)="LO^1:"_BDMCS

 S DIR("A")="Whick Clinic Stop(s)"

 W !

 D DIR^BDMDIC

 I Y<1 S BDMQUIT="" Q

 S BDMY=Y

 Q

BDMFS1    ; IHS/CMI/LAB - DMS FLOW SHEET MANAGEMENT UTILITY ;

 +1       ;;2.0;DIABETES MANAGEMENT SYSTEM;**2**;JUN 14, 2007

 +2       ;UTILITY PROGRAM TO MANAGE FLOW SHEET CREATION AND EDITING

CSADD     ;EP;ADD CLINIC STOP

 +1        WRITE @IOF

 +2        WRITE !?5,"Select CLINIC to add to the"

 +3        WRITE !?5,BDMSNAM,?25,"Flow Sheet"

 +4        SET DIC="^DIC(40.7,"

 +5        SET DIC(0)="AEMQZ"

 +6        SET DIC("A")="Which CLINIC: "

 +7        WRITE !

 +8        DO DIC^BDMDIC

 +9        IF +Y<1

               QUIT 

 +10       SET (DINUM,X)=+Y

 +11       SET DA(1)=BDMSDA

 +12       SET DIC="^APCHSFLC("_BDMSDA_",3,"

 +13       SET DIC(0)="L"

 +14       DO FILE^BDMDIC

 +15       DO CSBACK

 +16       QUIT 

CSDEL     ;EP;DELETE CLINIC STOP

 +1        NEW BDMY

 +2        DO CSSEL

 +3        IF $DATA(BDMQUIT)

               KILL BDMQUIT

               DO FSCBACK^BDMFS

               QUIT 

 +4        FOR BDMI=1:1

               SET BDMX=$PIECE(BDMY,",",BDMI)

               IF BDMX=""

                   QUIT 

               Begin DoDot:1

 +5                IF '$DATA(BDMCS(BDMSDA,BDMX))

                       QUIT 

 +6                SET DA=$PIECE(BDMCS(BDMSDA,BDMX),U,2)

 +7                SET DA(1)=BDMSDA

 +8                SET DIK="^APCHSFLC("_DA(1)_",3,"

 +9                DO DIK^BDMDIC

               End DoDot:1

CSBACK     SET BDMGO="FSC"

 +1        DO BACK^BDMFS

 +2        QUIT 

CSSEL     ;SELECT CLINIC STOP

 +1        SET DIR(0)="LO^1:"_BDMCS

 +2        SET DIR("A")="Whick Clinic Stop(s)"

 +3        WRITE !

 +4        DO DIR^BDMDIC

 +5        IF Y<1

               SET BDMQUIT=""

               QUIT 

 +6        SET BDMY=Y

 +7        QUIT