AGTMINQ.m

AGTMINQ ; IHS/ASDS/EFG - Inquire UTILITY ; 

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 ;

LOC S AG("SUB")="LOCATION" D HD S DIC="^AUTTLOC(" G DIC

CPT S AG("SUB")="CPT PROCEDURE" D HD S DIC="^ICPT(" G DIC

INS ;EP -

 S AG("SUB")="INSURER" D HD S DIC="^AUTNINS(" G DIC

PRV S AG("SUB")="PROVIDER" D HD S DIC="^VA(200,",DIC("S")="I $D(^(""PS""))" G DIC

DIC W !! S DIC("A")="Select "_AG("SUB")_": ",DIC(0)="QEAM" D ^DIC

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

 I +Y<1 G DIC

 S DA=+Y

 W $$S^AGVDF("IOF"),!?80-$L(AG("SUB"))-21\2,"*** ",AG("SUB")," FILE INQUIRY ***"

 S AG="",$P(AG,"=",80)="" W !!,AG D EN^DIQ W AG

 G DIC

XIT K AG,DIR,DIC,DIE

 Q

HD S AGM("SUB")=AG("SUB")_" FILE INQUIRE"

 K DIC,DR

 Q

AGTMINQ   ; IHS/ASDS/EFG - Inquire UTILITY ; 

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 +2       ;

LOC        SET AG("SUB")="LOCATION"

           DO HD

           SET DIC="^AUTTLOC("

           GOTO DIC

CPT        SET AG("SUB")="CPT PROCEDURE"

           DO HD

           SET DIC="^ICPT("

           GOTO DIC

INS       ;EP -

 +1        SET AG("SUB")="INSURER"

           DO HD

           SET DIC="^AUTNINS("

           GOTO DIC

PRV        SET AG("SUB")="PROVIDER"

           DO HD

           SET DIC="^VA(200,"

           SET DIC("S")="I $D(^(""PS""))"

           GOTO DIC

DIC        WRITE !!

           SET DIC("A")="Select "_AG("SUB")_": "

           SET DIC(0)="QEAM"

           DO ^DIC

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

               GOTO XIT

 +2        IF +Y<1

               GOTO DIC

 +3        SET DA=+Y

 +4        WRITE $$S^AGVDF("IOF"),!?80-$LENGTH(AG("SUB"))-21\2,"*** ",AG("SUB")," FILE INQUIRY ***"

 +5        SET AG=""

           SET $PIECE(AG,"=",80)=""

           WRITE !!,AG

           DO EN^DIQ

           WRITE AG

 +6        GOTO DIC

XIT        KILL AG,DIR,DIC,DIE

 +1        QUIT 

HD         SET AGM("SUB")=AG("SUB")_" FILE INQUIRE"

 +1        KILL DIC,DR

 +2        QUIT