ABMDVPAT.m

ABMDVPAT ; IHS/ASDST/DMJ - CLAIM FOR ONE PAT ;

 ;;2.6;IHS 3P BILLING SYSTEM;**11**;NOV 12, 2009;Build 133

 ;;Y2K/OK - IHS/ADC/JLG 12-03-97

 S DIC="^AUPNPAT("

 S DIC(0)="AEMQ"

 S DIC("S")="I $D(^AUPNVSIT(""AC"",Y))"

 S AUPNLK("ALL")=""  ;universal lookup  ;abm*2.6*11 NOHEAT6

 D ^DIC

 I Y<1 D  Q

 .W !,"No patient selected."

 W !

 D QUEUE

 W !

 S DIR(0)="Y",DIR("A")="Another patient",DIR("B")="NO"

 D ^DIR

 I Y G ABMDVPAT

 K DIC,DIR,Y,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK

 Q

 ;

QUEUE ;EP - requires patient DFN in Y

 S ZTSAVE("ABMDFN")=+Y

 S ZTRTN="^ABMDVCK",ZTIO=""

 S ZTDESC="Generate Third Party Billing Claim for one patient."

 S ZTDTH=$H

 D ^%ZTLOAD

 I $D(ZTSK)[0 W !,"Claim generator not run." Q

 E  W !,"Claim generator queued for selected patient."

 K DIR

 S DIR(0)="E"

 D ^DIR

 Q

ABMDVPAT  ; IHS/ASDST/DMJ - CLAIM FOR ONE PAT ;

 +1       ;;2.6;IHS 3P BILLING SYSTEM;**11**;NOV 12, 2009;Build 133

 +2       ;;Y2K/OK - IHS/ADC/JLG 12-03-97

 +3        SET DIC="^AUPNPAT("

 +4        SET DIC(0)="AEMQ"

 +5        SET DIC("S")="I $D(^AUPNVSIT(""AC"",Y))"

 +6       ;universal lookup  ;abm*2.6*11 NOHEAT6

           SET AUPNLK("ALL")=""

 +7        DO ^DIC

 +8        IF Y<1

               Begin DoDot:1

 +9                WRITE !,"No patient selected."

               End DoDot:1

               QUIT 

 +10       WRITE !

 +11       DO QUEUE

 +12       WRITE !

 +13       SET DIR(0)="Y"

           SET DIR("A")="Another patient"

           SET DIR("B")="NO"

 +14       DO ^DIR

 +15       IF Y

               GOTO ABMDVPAT

 +16       KILL DIC,DIR,Y,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK

 +17       QUIT 

 +18      ;

QUEUE     ;EP - requires patient DFN in Y

 +1        SET ZTSAVE("ABMDFN")=+Y

 +2        SET ZTRTN="^ABMDVCK"

           SET ZTIO=""

 +3        SET ZTDESC="Generate Third Party Billing Claim for one patient."

 +4        SET ZTDTH=$HOROLOG

 +5        DO ^%ZTLOAD

 +6        IF $DATA(ZTSK)[0

               WRITE !,"Claim generator not run."

               QUIT 

 +7       IF '$TEST

               WRITE !,"Claim generator queued for selected patient."

 +8        KILL DIR

 +9        SET DIR(0)="E"

 +10       DO ^DIR

 +11       QUIT