ABMDADSP.m

ABMDADSP ; IHS/ASDST/DMJ - DISPLAY AN APC VISIT ; 

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

 ;

 Q:'$G(ABMDADSP)

 Q:'$D(^AAPCRCDS(ABMDADSP,0))

 D DSPLY

 D EOJ

 Q

 ;

DSPLY ;

 W $$EN^ABMVDF("IOF")

 K S,DR

 S ABMDVDSH="-----------------------------"

 S X="",$P(X,"~",80)="" W !!,X,!!,ABMDVDSH,"     APC FILE     ",ABMDVDSH

 S DIC="^AAPCRCDS(",DA=ABMDADSP

 D EN^DIQ

 S X="",$P(X,"~",80)="" W !,X

 Q

 ;

EOJ ; EOJ CLEANUP

 I '$D(DTOUT),'$D(DUOUT) K DIR S DIR(0)="E" D ^DIR K DIR

 K ABMDVDSH,ABMDADSP,DUOUT,DTOUT,X,Y

 Q

ABMDADSP  ; IHS/ASDST/DMJ - DISPLAY AN APC VISIT ; 

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

 +2       ;

 +3        IF '$GET(ABMDADSP)

               QUIT 

 +4        IF '$DATA(^AAPCRCDS(ABMDADSP,0))

               QUIT 

 +5        DO DSPLY

 +6        DO EOJ

 +7        QUIT 

 +8       ;

DSPLY     ;

 +1        WRITE $$EN^ABMVDF("IOF")

 +2        KILL S,DR

 +3        SET ABMDVDSH="-----------------------------"

 +4        SET X=""

           SET $PIECE(X,"~",80)=""

           WRITE !!,X,!!,ABMDVDSH,"     APC FILE     ",ABMDVDSH

 +5        SET DIC="^AAPCRCDS("

           SET DA=ABMDADSP

 +6        DO EN^DIQ

 +7        SET X=""

           SET $PIECE(X,"~",80)=""

           WRITE !,X

 +8        QUIT 

 +9       ;

EOJ       ; EOJ CLEANUP

 +1        IF '$DATA(DTOUT)

               IF '$DATA(DUOUT)

                   KILL DIR

                   SET DIR(0)="E"

                   DO ^DIR

                   KILL DIR

 +2        KILL ABMDVDSH,ABMDADSP,DUOUT,DTOUT,X,Y

 +3        QUIT