ADGCDE.m

ADGCDE ; IHS/ADC/PDW/ENM - CHART DEF EDIT/DISPLAY ; [ 03/25/1999  11:48 AM ]

 ;;5.0;ADMISSION/DISCHARGE/TRANSFER;;MAR 25, 1999

 ;

 ;

CHOOSE ; -- ask user to choose edit or display

 NEW DIR,DIRUT S DIR("A")="Choose Action"

 S DIR(0)="SO^1:EDIT CHART DEFICIENCY ENTRY;2:LIST ENTRIES BY GROUPING"

 D ^DIR Q:$D(DIRUT)  D @Y,CHOOSE Q

 ;

1 ; -- edit chart def file

 NEW DIC,DIE,DA,X,Y,DR,DLAYGO

 W ! S DIC="^ADGCD(",DLAYGO=9009013,DIC(0)="AEMQZL"

 D ^DIC Q:Y<0

 L +^ADGCD(+Y):3 I '$T D  Q

 . W !,*7,"THIS CHART DEFICIENCY BEEN UPDATED BY AONTHER PERSON"

 S DIE="^ADGCD(",(DGX,DA)=+Y,DR="[ADGCDEDIT]"

 D ^DIE L -^ADGCD(DGX) K DGX D 1 Q

 ;

2 ; -- display by grouping

 NEW L,DIC,FLDS,BY,FR,TO

 S L=0,DIC="^ADGCD(",FLDS="[ADGCDLIST1]",BY="[ADGCDSORT]"

 S (FR,TO)="" D EN1^DIP,PRTOPT^ADGVAR Q

ADGCDE    ; IHS/ADC/PDW/ENM - CHART DEF EDIT/DISPLAY ; [ 03/25/1999  11:48 AM ]

 +1       ;;5.0;ADMISSION/DISCHARGE/TRANSFER;;MAR 25, 1999

 +2       ;

 +3       ;

CHOOSE    ; -- ask user to choose edit or display

 +1        NEW DIR,DIRUT

           SET DIR("A")="Choose Action"

 +2        SET DIR(0)="SO^1:EDIT CHART DEFICIENCY ENTRY;2:LIST ENTRIES BY GROUPING"

 +3        DO ^DIR

           IF $DATA(DIRUT)

               QUIT 

           DO @Y

           DO CHOOSE

           QUIT 

 +4       ;

1         ; -- edit chart def file

 +1        NEW DIC,DIE,DA,X,Y,DR,DLAYGO

 +2        WRITE !

           SET DIC="^ADGCD("

           SET DLAYGO=9009013

           SET DIC(0)="AEMQZL"

 +3        DO ^DIC

           IF Y<0

               QUIT 

 +4        LOCK +^ADGCD(+Y):3

           IF '$TEST

               Begin DoDot:1

 +5                WRITE !,*7,"THIS CHART DEFICIENCY BEEN UPDATED BY AONTHER PERSON"

               End DoDot:1

               QUIT 

 +6        SET DIE="^ADGCD("

           SET (DGX,DA)=+Y

           SET DR="[ADGCDEDIT]"

 +7        DO ^DIE

           LOCK -^ADGCD(DGX)

           KILL DGX

           DO 1

           QUIT 

 +8       ;

2         ; -- display by grouping

 +1        NEW L,DIC,FLDS,BY,FR,TO

 +2        SET L=0

           SET DIC="^ADGCD("

           SET FLDS="[ADGCDLIST1]"

           SET BY="[ADGCDSORT]"

 +3        SET (FR,TO)=""

           DO EN1^DIP

           DO PRTOPT^ADGVAR

           QUIT