ACKQFILP.m

ACKQFILP ;BIR/PTD - Print A&SP File Entries ;30 Jan 2013  3:28 PM

 ;;3.0;QUASAR;**21**;Feb 11, 2000;Build 40

 ; 

OPTN ;  Introduce option.

 W @IOF,!,"This option can be used to list entries from the CDR ACCOUNT file, the",!,"A&SP PROCEDURE CODE file, or the A&SP DIAGNOSTIC CONDITION file."

FILE ;  Display files user can print from and allow selection.

 W ! K DIR,X,Y S DIR(0)="NAO^1:3"

 S DIR("A",1)="Select number for the file from which you wish to print."

 S DIR("A",2)=""

 S DIR("A",3)="1. CDR ACCOUNT file (#509850)"

 S DIR("A",4)="2. A&SP DIAGNOSTIC CONDITION file (#509850.1)"

 S DIR("A",5)="3. A&SP PROCEDURE CODE file (#509850.4)"

 S DIR("A",6)=""

 S DIR("A")="Enter a number 1 thru 3: "

 S DIR("?")="Select a number from 1 thru 3 or press <Return> to exit."

 S DIR("??")="^D PRINT^ACKQHLP1" D ^DIR K DIR I $D(DIRUT)!(Y="") G EXIT

 S ACKANS=+Y,ACKFNUM=509850_$S(ACKANS=3:".4",ACKANS=2:".1",1:"")

DIP ;  Set up appropriate fields for file.

 I ACKFNUM=509850.1 D  G EXIT

 . W !!,"The right margin for this report is 80.",!,"You can queue it to run at a later time.",!

 . I '$D(ZTQUEUED) D ZIS W !

 . S DIC=ACKFNUM,L=0,(FR,TO)="",BY="[ACKQ DIAG COND ICD-9]"

 . S FLDS="[ACKQ DIAG COND 9]"

 . W @IOF S IOP=IO D EN1^DIP

 . S DIC=ACKFNUM,L=0,(FR,TO)="",BY="[ACKQ DIAG COND ICD-10]"

 . S FLDS="[ACKQ DIAG COND 10]"

 . S IOP=IO D EN1^DIP

 . Q

 S DIC=ACKFNUM,L=0,(FR,TO)="",BY=$S(ACKFNUM=509850.1:"[ACKQ DIAG COND ICD-9]",1:".01")

 I ACKANS=1 S FLDS=".01,1,4"

 ;I ACKANS=2 S FLDS="[ACKQ DIAG COND 9]"

 ;I ACKANS=2 S FLDS=".01,.01:3;""DIAGNOSIS"",.06;C50,1;C12,.01;""MODIFIER"",.02;C17"

 I ACKANS=3 S FLDS=".01,.01:2;""PROCEDURE"",.06;C50,.04;C65,1;C12,.01;""MODIFIER (*Not CPT Modifier*)"",.02;C17,.03;C50"

 W !!,"The right margin for this report is 80.",!,"You can queue it to run at a later time.",!

 D EN1^DIP

 ;

EXIT ;  Kill variables and exit routine.

 K %,ACKANS,ACKFNUM,BY,DIC,FLDS,FR,DIR,DIRUT,DTOUT,DUOUT,L,TO,X,Y

 Q

ZIS W ! K IOP,IO("Q") S POP=0,%ZIS="QMP"

 D ^%ZIS K %ZIS,IOP Q:POP

 I $D(IO("Q")) S ZTDESC="A&SP DIAGNOSIS",ZTRTN="DIP^ACKQFILP",ZTSAVE("ACK*")="" S POP=1 G CLOSE

CLOSE Q:$D(ZTQUEUED)  N POP D ^%ZISC

 K ZTDESC,ZTRTN,ZTSAVE,ZTQUEUED,POP

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ACKQFILP   2208     printed  Apr 09, 2024@21:34:20                                                                                                                                                                                                    Page 2

ACKQFILP  ;BIR/PTD - Print A&SP File Entries ;30 Jan 2013  3:28 PM

 +1       ;;3.0;QUASAR;**21**;Feb 11, 2000;Build 40

 +2       ; 

OPTN      ;  Introduce option.

 +1        WRITE @IOF,!,"This option can be used to list entries from the CDR ACCOUNT file, the",!,"A&SP PROCEDURE CODE file, or the A&SP DIAGNOSTIC CONDITION file."

FILE      ;  Display files user can print from and allow selection.

 +1        WRITE !

           KILL DIR,X,Y

           SET DIR(0)="NAO^1:3"

 +2        SET DIR("A",1)="Select number for the file from which you wish to print."

 +3        SET DIR("A",2)=""

 +4        SET DIR("A",3)="1. CDR ACCOUNT file (#509850)"

 +5        SET DIR("A",4)="2. A&SP DIAGNOSTIC CONDITION file (#509850.1)"

 +6        SET DIR("A",5)="3. A&SP PROCEDURE CODE file (#509850.4)"

 +7        SET DIR("A",6)=""

 +8        SET DIR("A")="Enter a number 1 thru 3: "

 +9        SET DIR("?")="Select a number from 1 thru 3 or press <Return> to exit."

 +10       SET DIR("??")="^D PRINT^ACKQHLP1"

           DO ^DIR

           KILL DIR

           IF $DATA(DIRUT)!(Y="")

               GOTO EXIT

 +11       SET ACKANS=+Y

           SET ACKFNUM=509850_$SELECT(ACKANS=3:".4",ACKANS=2:".1",1:"")

DIP       ;  Set up appropriate fields for file.

 +1        IF ACKFNUM=509850.1

               Begin DoDot:1

 +2                WRITE !!,"The right margin for this report is 80.",!,"You can queue it to run at a later time.",!

 +3                IF '$DATA(ZTQUEUED)

                       DO ZIS

                       WRITE !

 +4                SET DIC=ACKFNUM

                   SET L=0

                   SET (FR,TO)=""

                   SET BY="[ACKQ DIAG COND ICD-9]"

 +5                SET FLDS="[ACKQ DIAG COND 9]"

 +6                WRITE @IOF

                   SET IOP=IO

                   DO EN1^DIP

 +7                SET DIC=ACKFNUM

                   SET L=0

                   SET (FR,TO)=""

                   SET BY="[ACKQ DIAG COND ICD-10]"

 +8                SET FLDS="[ACKQ DIAG COND 10]"

 +9                SET IOP=IO

                   DO EN1^DIP

 +10               QUIT 

               End DoDot:1

               GOTO EXIT

 +11       SET DIC=ACKFNUM

           SET L=0

           SET (FR,TO)=""

           SET BY=$SELECT(ACKFNUM=509850.1:"[ACKQ DIAG COND ICD-9]",1:".01")

 +12       IF ACKANS=1

               SET FLDS=".01,1,4"

 +13      ;I ACKANS=2 S FLDS="[ACKQ DIAG COND 9]"

 +14      ;I ACKANS=2 S FLDS=".01,.01:3;""DIAGNOSIS"",.06;C50,1;C12,.01;""MODIFIER"",.02;C17"

 +15       IF ACKANS=3

               SET FLDS=".01,.01:2;""PROCEDURE"",.06;C50,.04;C65,1;C12,.01;""MODIFIER (*Not CPT Modifier*)"",.02;C17,.03;C50"

 +16       WRITE !!,"The right margin for this report is 80.",!,"You can queue it to run at a later time.",!

 +17       DO EN1^DIP

 +18      ;

EXIT      ;  Kill variables and exit routine.

 +1        KILL %,ACKANS,ACKFNUM,BY,DIC,FLDS,FR,DIR,DIRUT,DTOUT,DUOUT,L,TO,X,Y

 +2        QUIT 

ZIS        WRITE !

           KILL IOP,IO("Q")

           SET POP=0

           SET %ZIS="QMP"

 +1        DO ^%ZIS

           KILL %ZIS,IOP

           if POP

               QUIT 

 +2        IF $DATA(IO("Q"))

               SET ZTDESC="A&SP DIAGNOSIS"

               SET ZTRTN="DIP^ACKQFILP"

               SET ZTSAVE("ACK*")=""

               SET POP=1

               GOTO CLOSE

CLOSE      if $DATA(ZTQUEUED)

               QUIT 

           NEW POP

           DO ^%ZISC

 +1        KILL ZTDESC,ZTRTN,ZTSAVE,ZTQUEUED,POP