- 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
