Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FBAACLU

FBAACLU.m

Go to the documentation of this file.
  1. FBAACLU ;AISC/DMK,WOIFO/SAB - CLERK WHO ENTERED AUTHORIZATION ;12/8/2014
  1. ;;3.5;FEE BASIS;**154**;JAN 30, 1995;Build 12
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ; inputs
  1. ; FBFILE - (required) file/sub-file # from menu option entry action
  1. ;
  1. ; check for required input
  1. Q:"^161.01^162.2^162.4^162.7^"'[("^"_$G(FBFILE)_"^")
  1. ;
  1. N D,FBDA,POP,%ZIS
  1. ;
  1. ; ask record in file
  1. I FBFILE=161.01 D
  1. . S DIC="^FBAAA(",DIC(0)="AEQM"
  1. . D ^DIC K DIC Q:Y<0 S FBDA(1)=+Y
  1. . S DIC="^FBAAA("_FBDA(1)_",1,",DIC(0)="AEQM"
  1. . D ^DIC K DIC Q:Y<0 S FBDA=+Y
  1. I FBFILE=162.2 D
  1. . S DIC="^FBAA(162.2,",DIC(0)="AQEM"
  1. . D ^DIC K DIC Q:Y<0 S FBDA=+Y
  1. I FBFILE=162.4 D
  1. . S DIC="^FB7078(",DIC(0)="AQEM",DIC("A")="Select Patient: ",D="D"
  1. . D IX^DIC K DIC Q:Y<0 S FBDA=+Y
  1. I FBFILE=162.7 D
  1. . N FBARY,FBI,FBOUT
  1. . D LOOKUP^FBUCUTL3(0)
  1. . I 'FBOUT D
  1. . . S FBI=$O(^TMP("FBARY",$J,0))
  1. . . S:FBI FBDA=$P($G(^TMP("FBARY",$J,FBI)),";",1)
  1. . K ^TMP("FBARY",$J)
  1. I '$G(FBDA) G EXIT
  1. ;
  1. ; ask device
  1. S %ZIS="Q" D ^%ZIS G:POP EXIT
  1. I $D(IO("Q")) D G EXIT
  1. . N FBX
  1. . N ZTRTN,ZTDESC,ZTDTH,ZTIO,ZTUCI,ZTCPU,ZTPRI,ZTSAVE,ZTKIL,ZTSYNC,ZTSK
  1. . S ZTRTN="QEN^FBAACLU",ZTDESC="Fee Clerk Lookup"
  1. . F FBX="FBFILE","FBDA*" S ZTSAVE(FBX)=""
  1. . D ^%ZTLOAD,HOME^%ZIS
  1. ;
  1. QEN ; queued entry point
  1. ; inputs from Taskman
  1. ; ZTQUEUED - (optional) set by TaskMan to indicate report is tasked
  1. ; outputs to Taskman
  1. ; ZTREQ - set when report is tasked
  1. ; ZTSTOP - set when report is tasked and job was stopped per request
  1. ;
  1. N %
  1. ;
  1. U IO
  1. ;
  1. S (FBQUIT,FBPG)=0 D NOW^%DTC S Y=% D DD^%DT S FBDTR=Y
  1. K FBDL
  1. S FBDL="",$P(FBDL,"-",80)=""
  1. S FBDL("ED")=" "_$E(FBDL,1,21)_" "_$E(FBDL,1,35)
  1. ;
  1. ; build page header text
  1. I FBFILE=161.01 S FBHD="Clerk Lookup for an authorization"
  1. I FBFILE=162.2 S FBHD="Clerk Lookup for a CH notification"
  1. I FBFILE=162.4 S FBHD="Clerk Lookup for a 7078 authorization"
  1. I FBFILE=162.7 S FBHD="Clerk Lookup for an unauthorized claim"
  1. ;
  1. ; determine which files to display
  1. F FBX=161.01,162.2,162.4,162.7 S FBSHOW(FBX)=0 ; init FBSHOW(
  1. S FBSHOW(FBFILE)=FBDA ; always show input file
  1. I FBFILE=161.01 D
  1. . S FBX=$P($G(^FBAAA(FBDA(1),1,FBDA,0)),U,9) ; ASSOC 7078/583
  1. . I FBX["FB7078" S FBSHOW(162.4)=+FBX
  1. . I FBX["FB583" S FBSHOW(162.7)=+FBX
  1. I FBSHOW(162.4) D
  1. . S FBX=$O(^FBAA(162.2,"AM",FBSHOW(162.4),0))
  1. . I FBX S FBSHOW(162.2)=FBX
  1. ;
  1. ; display output
  1. D HD
  1. ;
  1. ; show information for authorization
  1. I 'FBQUIT,FBSHOW(161.01) D
  1. . N FBDATA
  1. . ; skip if no user audit data and either 7078 or unauthorized claim
  1. . ; (very similar information) will be shown later
  1. . S FBDATA=$O(^FBAAA(FBDA(1),1,FBDA,"LOG1",0))
  1. . I 'FBDATA,FBSHOW(162.4)!FBSHOW(162.7) Q
  1. . ;
  1. . S FBIENS=FBDA_","_FBDA(1)_","
  1. . I $Y+6>IOSL D HD Q:FBQUIT
  1. . W !!,"Authorization"
  1. . W !,"Veteran: ",$$GET1^DIQ(161,FBDA(1)_",",.01)
  1. . W ?40,"Vendor: ",$$GET1^DIQ(161.01,FBIENS,.04)
  1. . W !,"Authorization Number: ",FBDA(1),"-",FBDA
  1. . W !,"Authorized From Date: ",$$GET1^DIQ(161.01,FBIENS,.01)
  1. . W ?40,"Authorized To Date: ",$$GET1^DIQ(161.01,FBIENS,.02)
  1. . D DUA("^FBAAA("_FBDA(1)_",1,"_FBDA_",""LOG1"",")
  1. ;
  1. ; show information for 10-7078 authorization
  1. I 'FBQUIT,FBSHOW(162.4) D
  1. . N FBVEN
  1. . S FBIENS=FBSHOW(162.4)_","
  1. . I $Y+6>IOSL D HD Q:FBQUIT
  1. . W !!,"10-7078 Authorization"
  1. . W !,"Veteran: ",$$GET1^DIQ(162.4,FBIENS,2)
  1. . S FBVEN=+$P($G(^FB7078(FBSHOW(162.4),0)),"^",2)
  1. . W ?40,"Vendor: ",$$GET1^DIQ(161.2,FBVEN_",",.01)
  1. . W !,"Reference Number: ",$$GET1^DIQ(162.4,FBIENS,.01)
  1. . W ?40,"Fee Program: ",$$GET1^DIQ(162.4,FBIENS,.5)
  1. . W !,"Authorized From Date: ",$$GET1^DIQ(162.4,FBIENS,3)
  1. . W ?40,"Authorized To Date: ",$$GET1^DIQ(162.4,FBIENS,4)
  1. . D DUA("^FB7078("_FBSHOW(162.4)_",""LOG1"",")
  1. ;
  1. ; show information for civil hospital notification
  1. I 'FBQUIT,FBSHOW(162.2) D
  1. . S FBIENS=FBSHOW(162.2)_","
  1. . I $Y+6>IOSL D HD Q:FBQUIT
  1. . W !!,"CH Notification"
  1. . W !,"Date/Time: ",$$GET1^DIQ(162.2,FBIENS,.01)
  1. . W !,"Veteran: ",$$GET1^DIQ(162.2,FBIENS,3)
  1. . W ?40,"Vendor: ",$$GET1^DIQ(162.2,FBIENS,1)
  1. . D DUA("^FBAA(162.2,"_FBSHOW(162.2)_",""LOG1"",")
  1. ;
  1. ; show information for unauthorized claim
  1. I 'FBQUIT,FBSHOW(162.7) D
  1. . S FBIENS=FBSHOW(162.7)_","
  1. . I $Y+6>IOSL D HD Q:FBQUIT
  1. . W !!,"Unauthorized Claim"
  1. . W !,"Veteran: ",$$GET1^DIQ(162.7,FBIENS,2)
  1. . W ?40,"Vendor: ",$$GET1^DIQ(162.7,FBIENS,1)
  1. . W !,"Date Claim Received: ",$$GET1^DIQ(162.7,FBIENS,.01)
  1. . W ?40,"Fee Program: ",$$GET1^DIQ(162.7,FBIENS,.5)
  1. . W !,"Treatment From Date: ",$$GET1^DIQ(162.7,FBIENS,3)
  1. . W ?40,"Treatment To Date: ",$$GET1^DIQ(162.7,FBIENS,4)
  1. . D DUA("^FB583("_FBSHOW(162.7)_",""LOG1"",")
  1. ;
  1. I 'FBQUIT,$E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR K DIR
  1. D ^%ZISC
  1. ;
  1. EXIT ;
  1. I $D(ZTQUEUED) S ZTREQ="@"
  1. K FBDA,FBDL,FBDT,FBDTR,FBHD,FBIENS,FBPG,FBSHOW,FBQUIT,FBX
  1. K DIC,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
  1. Q
  1. ;
  1. HD ; page header
  1. N FBI
  1. I $D(ZTQUEUED),$$S^%ZTLOAD S ZTSTOP=1,FBQUIT=1 Q
  1. I $E(IOST,1,2)="C-",FBPG S DIR(0)="E" D ^DIR K DIR I 'Y S FBQUIT=1 Q
  1. I $E(IOST,1,2)="C-"!FBPG W @IOF
  1. S FBPG=FBPG+1
  1. W FBHD,?49,FBDTR,?72,"page ",FBPG
  1. W !,FBDL
  1. Q
  1. ;
  1. HDEDT(FBCONT) ; header for edited table
  1. ; input
  1. ; FBCONT (optional) =1 when table continued after page break
  1. W !!,?4,"Date/Time Edited",?27,"Edited By"
  1. W:$G(FBCONT) " (continued)"
  1. W !,FBDL("ED")
  1. Q
  1. ;
  1. DUA(FBROOT) ; display the user audit for a record in one of the supported files
  1. N FBC,FBDT,FBI,FBTXT,FBUSR,FBY0
  1. I $Y+6>IOSL D HD Q:FBQUIT
  1. D HDEDT(0)
  1. S (FBC,FBI)=0 F S FBI=$O(@(FBROOT_FBI_")")) Q:'FBI D Q:FBQUIT
  1. . S FBC=FBC+1
  1. . S FBY0=$G(@(FBROOT_FBI_",0)"))
  1. . S FBDT=$P(FBY0,"^")
  1. . S FBUSR=$P(FBY0,"^",2)
  1. . S FBTXT=$P(FBY0,"^",3)
  1. . I $Y+4>IOSL D HD Q:FBQUIT D HDEDT(1)
  1. . W !
  1. . W ?4,$S(FBDT:$$FMTE^XLFDT(FBDT),1:"")
  1. . W ?27,$S(FBUSR:$$GET1^DIQ(200,FBUSR,.01),1:"")
  1. . I FBTXT]"" W !,?6,"Comments: ",FBTXT
  1. I FBC=0 W !,?4,"No information found in user audit"
  1. Q
  1. ;
  1. ;FBAACLU