BARVHF.m

BARVHF ; IHS/SD/LSL - View Host File 3/27/2002 ;

 ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 ;

 ; IHS/SD/SDR -04/03/02 - V1.6 Patch 2 - NOIS XXX-0202-200181

 ;     Routine created.

 ;     Called from VHF menu option allowing user to view a host file

 ;

 ; *********************************************************************

 Q

 ;

EN ; EP      

 K DIR,X,Y

 S BARPATH=$P($G(^BAR(90052.06,DUZ(2),DUZ(2),0)),"^",17)

 S DIR(0)="F^A"

 S DIR("A")="Directory"

 S DIR("B")=BARPATH

 D ^DIR

 Q:$D(DIRUT)!($D(DTOUT))!($D(DUOUT))!($D(DIROUT))

 S BARPATH=Y

 K DIR

 ;

 S DIR(0)="F^A"

 S DIR("A")="File name"

 D ^DIR

 Q:$D(DIRUT)!($D(DTOUT))!($D(DUOUT))!($D(DIROUT))

 S BARFILE=Y

 K DIR

 ;

 D FILE^XBLM(BARPATH,BARFILE)

 K BARPATH,BARFILE,X,Y

 Q

BARVHF    ; IHS/SD/LSL - View Host File 3/27/2002 ;

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 +2       ;

 +3       ; IHS/SD/SDR -04/03/02 - V1.6 Patch 2 - NOIS XXX-0202-200181

 +4       ;     Routine created.

 +5       ;     Called from VHF menu option allowing user to view a host file

 +6       ;

 +7       ; *********************************************************************

 +8        QUIT 

 +9       ;

EN        ; EP      

 +1        KILL DIR,X,Y

 +2        SET BARPATH=$PIECE($GET(^BAR(90052.06,DUZ(2),DUZ(2),0)),"^",17)

 +3        SET DIR(0)="F^A"

 +4        SET DIR("A")="Directory"

 +5        SET DIR("B")=BARPATH

 +6        DO ^DIR

 +7        IF $DATA(DIRUT)!($DATA(DTOUT))!($DATA(DUOUT))!($DATA(DIROUT))

               QUIT 

 +8        SET BARPATH=Y

 +9        KILL DIR

 +10      ;

 +11       SET DIR(0)="F^A"

 +12       SET DIR("A")="File name"

 +13       DO ^DIR

 +14       IF $DATA(DIRUT)!($DATA(DTOUT))!($DATA(DUOUT))!($DATA(DIROUT))

               QUIT 

 +15       SET BARFILE=Y

 +16       KILL DIR

 +17      ;

 +18       DO FILE^XBLM(BARPATH,BARFILE)

 +19       KILL BARPATH,BARFILE,X,Y

 +20       QUIT