ABMDTLOC.m

ABMDTLOC ; IHS/ASDST/DMJ - Table Maintenance of LOCATION FILE ;   

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 ;

 ; IHS/ASDS/DMJ - 10/19/01 - V2.4 Patch 9 - NOIS HQW-1001-100086

 ;     Allow Place of Service entry

 ;

 ; *********************************************************************

 ;

 S U="^" W !

 ;

EDIT W !! K DIC S DIC="^AUTTLOC(",DIC("A")="Select LOCATION to Edit: ",DIC(0)="QZEAM" D ^DIC K DIC

 G XIT:X=""!$D(DUOUT)!$D(DTOUT)

 I +Y<1 G EDIT

 S DA=+Y

 S DIE="^AUTTLOC("

 S DR="W !;.14T;.15T;.16T;.17T;.13T;.21T;.22T"

 D ^ABMDDIE K DR

 S DIE="^DIC(4,"

 S DR="W !;1.01;1.02;1.03;.02;1.04;W !"

 D ^DIE K DR

 S ABMLOC=DA

 I '$D(^ABMDPARM(ABMLOC)) D

 .S ^ABMDPARM(ABMLOC,0)="3P PARAMETERS^9002274.5P^1^1"

 .S ^ABMDPARM(ABMLOC,1,0)=ABMLOC

 .S ^ABMDPARM(ABMLOC,"B",ABMLOC,1)=""

 S DIE="^ABMDPARM("_ABMLOC_","

 S DA=1

 S DR=".36;.24;.51"

 D ^DIE

 K ABMLOC

 G EDIT

 ;

XIT K ABM,DIR,DIC,DIE

 Q

ABMDTLOC  ; IHS/ASDST/DMJ - Table Maintenance of LOCATION FILE ;   

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 +2       ;

 +3       ; IHS/ASDS/DMJ - 10/19/01 - V2.4 Patch 9 - NOIS HQW-1001-100086

 +4       ;     Allow Place of Service entry

 +5       ;

 +6       ; *********************************************************************

 +7       ;

 +8        SET U="^"

           WRITE !

 +9       ;

EDIT       WRITE !!

           KILL DIC

           SET DIC="^AUTTLOC("

           SET DIC("A")="Select LOCATION to Edit: "

           SET DIC(0)="QZEAM"

           DO ^DIC

           KILL DIC

 +1        IF X=""!$DATA(DUOUT)!$DATA(DTOUT)

               GOTO XIT

 +2        IF +Y<1

               GOTO EDIT

 +3        SET DA=+Y

 +4        SET DIE="^AUTTLOC("

 +5        SET DR="W !;.14T;.15T;.16T;.17T;.13T;.21T;.22T"

 +6        DO ^ABMDDIE

           KILL DR

 +7        SET DIE="^DIC(4,"

 +8        SET DR="W !;1.01;1.02;1.03;.02;1.04;W !"

 +9        DO ^DIE

           KILL DR

 +10       SET ABMLOC=DA

 +11       IF '$DATA(^ABMDPARM(ABMLOC))

               Begin DoDot:1

 +12               SET ^ABMDPARM(ABMLOC,0)="3P PARAMETERS^9002274.5P^1^1"

 +13               SET ^ABMDPARM(ABMLOC,1,0)=ABMLOC

 +14               SET ^ABMDPARM(ABMLOC,"B",ABMLOC,1)=""

               End DoDot:1

 +15       SET DIE="^ABMDPARM("_ABMLOC_","

 +16       SET DA=1

 +17       SET DR=".36;.24;.51"

 +18       DO ^DIE

 +19       KILL ABMLOC

 +20       GOTO EDIT

 +21      ;

XIT        KILL ABM,DIR,DIC,DIE

 +1        QUIT