4. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 3/2/2018 12:46:58 PM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

4.1 Files compared

# Location File Last Modified
1 PRCA_IB_EPAYMENTS_BUNDLE_2_0_V25.zip\PRCA_4_5_326 Documents TAS ePay US326 SDD.doc Fri Mar 2 17:47:38 2018 UTC
2 PRCA_IB_EPAYMENTS_BUNDLE_2_0_V25.zip\PRCA_4_5_326 Documents TAS ePay US326 SDD.doc Fri Mar 2 17:56:44 2018 UTC

4.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 702
Changed 1 2
Inserted 0 0
Removed 0 0

4.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

4.4 Active regular expressions

No regular expressions were active.

4.5 Comparison detail

  1   System Des ign Docume ntMCCF EDI  TAS US326
  2   System Des ign Docume nt
  3   PRCA*4.5*x xx
  4  
  5   Department  of Vetera ns Affairs
  6   May 2017
  7   Version 1a
  8   Story
  9   AR needs 2  different  parameter s for auto -auditing  of claims  - paper cl aims vs el ectronic c laims. 
  10   Conversati on
  11   Currently  (before th ese US326  changes) A R SITE PAR AMETER fil e #342 onl y  has aut o-audit pa rameters f or paper b ills. Thes e paramete rs may be  edited thr ough the R CDPE EDI L OCKBOX PAR AMETERS me nu option:
  12   ENABLE AUT O-AUDIT FO R MEDICAL  PAPER BILL S (Y/N): N o//   NO
  13   ENABLE AUT O-AUDIT FO R PHARMACY  PAPER BIL LS (Y/N):  No//   NO
  14   BILL/CLAIM  file #399  has field   27  - FO RCE CLAIM  TO PRINT ( 0 – electr onic, 1 –  paper) 
  15   The PRCA N IGHTLY JOB  currently  uses this  field to  determine  if a bill  is paper o r electron ic.
  16   Currently  the PRCA N IGHTLY JOB  ignores t hose elect ronic bill s when sea rching for  bills to  auto-audit .
  17   In this us er story p rompts wil l be added  to the RC DPE EDI LO CKBOX PARA METERS men u option ( routine AU DIT^RCDPES P5) to mai ntain new  auto-audit  parameter s for elec tronic bil ls:
  18   ENABLE AUT O-AUDIT FO R MEDICAL  ELECTRONIC  BILLS (Y/ N): No//    NO
  19   ENABLE AUT O-AUDIT FO R PHARMACY  ELECTRONI C BILLS (Y /N): No//    NO
  20   The PRCA N IGHTLY JOB  (routine  ABAUDIT^PR CABJ2) wil l be modif ied auto-a udit elect ronic bill s if the p arameters  for auto-a udit are s et to ‘YES ’ for elec tronic bil ls.
  21   Addendum
  22   On investi gation it  was discov ered that  the User M anual desc ription of  the proce ss for aut o-audit di ffered fro m the code . The deci sion was t aken durin g elaborat ion (5/3/1 7) to modi fy the exi sting proc ess to mat ch the use r manual.
  23   Currently  paper bill s/claims w ith NEW st atus are o nly auto-a udited if  the rate t ype of the  claim is  REIMBURSAB LE.
  24   To match t he User Ma nual the a uto-audit  is changed  so that b ills/claim s with NEW  status wi ll be auto -audited i f the RATE  TYPE  (fi le #399.3)  has the B ILL RESULT ING FROM ( field #.11 )  populat ed. This f ield is se t in the A R Supervis or’s menu  option “Up date Rate  Types For  Auto-audit ” [RCDPE R ATE TYPE A UTO AUDIT] .
  25   The new ch anges for  auto-audit  of electr onic claim s in this  user story  will also  auto-audi t by rate  type rathe r than jus t includin g bills/cl aims with  the REIMBU RSABLE rat e type.
  26   Data field s needed:   
  27   New fields
  28   STANDARD D ATA DICTIO NARY #342  -- AR SITE  PARAMETER  FILE        4/12/17     PAGE 1
  29   STORED IN  ^RC(342,    (1 ENTRY)     SITE: TEST .CHEYENNE URL              UCI: VISTA ,ROU 
  30   (VERSION 4 .5)   
  31   DATA           NAME                    GLOB AL         DATA
  32   ELEMENT        TITLE                   LOCA TION       TYPE
  33   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------
  34   342,7.07       AUTO-A UDIT MEDIC AL EDI BIL LS 7;7 SET
  35                  ENABLE  AUTO-AUDI T MEDICAL  EDI BILLS    
  36                                      '0' FOR  No; 
  37                                      '1' FOR  Yes; 
  38                  LAST E DITED:       NOV 04,  2015 
  39                  HELP-P ROMPT:       Enter 1  to allow A uto-auditi ng of Medi cal EDI 
  40                                      bills, 0  to disall ow. 
  41                  DESCRI PTION:       A Yes/No  prompt to  allow a s ite to aud it their
  42                                      Medical  EDI Bills  during the  AR Nightl y
  43                                      Process.   
  44                  TECHNI CAL DESCR:   A Yes/No  prompt to  see if th e site wis hes to
  45                                      audit th eir Medica l EDI bill s during t he AR
  46                                      Nightly  Process [P RCA NIGHTL Y PROCESS] .  
  47   342,7.08       AUTO-A UDIT RX ED I BILLS 7; 8 SET
  48                  ENABLE  AUTO-AUDI T RX EDI B ILLS   
  49                                      '0' FOR  No; 
  50                                      '1' FOR  Yes; 
  51                  LAST E DITED:       NOV 04,  2015 
  52                  HELP-P ROMPT:       Enter 1  to allow A uto-auditi ng of Phar macy 
  53                                      EDI bill s, 0 to di sallow 
  54                  DESCRI PTION:       A Yes/No  prompt to  see if th e site wis hes to
  55                                      audit th eir Pharma cy EDI Bil ls during  the AR
  56                                      Nightly  Process.  
  57                  TECHNI CAL DESCR:   A Yes/No  prompt to  see if th e site wis hes to
  58                                      audit th eir Pharma cy EDI bil ls during  the AR
  59                                      Nightly  Process [P RCA NIGHTL Y PROCESS] .  
  60   Existing f ield (unch anged – re ad only)
  61   399.3,.11      BILL R ESULTING F ROM    0;1 1 POINTER  TO AR DEBT  LIST FILE  (#430.6)
  62                  INPUT  TRANSFORM:   S DIC("S ")="N Z0 S  Z0=$P($G( ^DGCR(399. 3,DA,0)),
  63                                      U,6) Q:+ Z0'>0  S Z 0=$P(^PRCA (430.2,Z0, 0),U,6) I
  64                                       ($P(^PR CA(430.6,Y ,0),U,4)[Z 0)!($P(^(0 ),U,4)[""
  65                                      X"")" D  ^DIC K DIC  S DIC=DIE ,X=+Y K:Y< 0 X
  66                  LAST E DITED:       DEC 17,  2002 
  67                  HELP-P ROMPT:       Enter th e default  that will  be used fo r the 
  68                                      BILL RES ULTING FRO M field wh en auto-au dit is 
  69                                      invoked 
  70                  DESCRI PTION:       This is  the defaul t value fo r the BILL
  71                                      RESULTIN G FROM (#4 .5) field  in the ACC OUNTS
  72                                      RECEIVAB LE file (# 430) that  will be us ed during
  73                                      auto-aud it for all  bills wit h this rat e type.
  74   Resolution  – Added C hanged Obj ects 
  75   RoutinesAc tivitiesRo utine Name PRCABJ2Enh ancement C ategory Ne w Modify D elete No C hangeRTMRe lated Opti onsPRCA NI GHTLY PROC ESSRelated  RoutinesR outines “C alled By”R outines “C alled”   P RCABJAUDIT X^PRCAUDT       $$GET ECME^RCDPE NR1  Curre nt Logic   ; Auto-aud it Paper b ills if re ady
  76   ABAUDIT ;
  77    ; Local V ariables
  78    ; APIEN -  Accounts  Payable (f ile #430)  ien
  79    ;
  80    N APIEN,D IE,DA,DR,D IR,DIRUT,D TOUT,DUOUT ,X,Y,APD0, APD202,FLG 1,FLG2
  81    N PRCABLN O,PRCAECME ,NBLIEN,HI CD,CATIEN, ACTIVE,BIL LTYP,RCPAP ER
  82    ;
  83    S APIEN=" "
  84    ;
  85    ;Check pa rameters t o see if i t needs to  run.
  86    S FLG1=$$ GET1^DIQ(3 42,"1,",7. 05,"I") ;  Get the va lue of the  auto-audi t medical  paper bill  flag
  87    S FLG2=$$ GET1^DIQ(3 42,"1,",7. 06,"I") ;  Get the va lue of the  auto-audi t pharmacy  paper bil l flag
  88    ;
  89    ; Quit if  both set  to no
  90    Q:('FLG1) &('FLG2)
  91    ;
  92    ;retrieve  DB values
  93    S NBLIEN= $O(^PRCA(4 30.3,"B"," NEW BILL", "")) ; New  Bill Stat us IEN
  94    S CATIEN= $O(^PRCA(4 30.2,"C"," RI","")) ;  Reimbursa ble Insura nce IEN
  95    S HICD=$O (^PRCA(430 .6,"B","HI ","")) ; H ealth insu rance IEN
  96    S ACTIVE= $O(^PRCA(4 30.3,"B"," ACTIVE","" )) ; New B ill Status  IEN
  97    S BILLTYP =$O(^DGCR( 399.3,"B", "REIMBURSA BLE INS.", "")) ; Bil l Type IEN
  98    S RCPAPER =1 ; Field  27 in ^DG CR(399 ; 0  - is elec tronic, 1  - FORCE LO CAL PRINT
  99    ;
  100    Q:NBLIEN= ""
  101    ;
  102    F  S APIE N=$O(^PRCA (430,"AC", NBLIEN,API EN)) Q:'AP IEN  D
  103    . S APD0= $G(^PRCA(4 30,APIEN,0 )) ; Patie nt info
  104    . S APD20 2=$G(^PRCA (430,APIEN ,202)) ;In sured info
  105    . Q:$$GET 1^DIQ(399, APIEN_",", .07,"I")'= BILLTYP  ;  Bill type  is not Re imbursable  Insurance . Skip
  106    . Q:$$GET 1^DIQ(399, APIEN_",", 27,"I")'=R CPAPER  ;  Bill is no t forced t o Paper (i t is elect ronic). Sk ip
  107    . ;
  108    . Q:$P(AP D0,U,7)=""        ; Q uit if no  PATIENT IE N
  109    . Q:$P(AP D0,U,9)=""        ; Q uit if no  DEBTOR inf ormation
  110    . Q:$P(AP D202,U,1)= ""     ; q uit if no  subscriber  name stor ed
  111    . Q:$P(AP D202,U,5)= ""     ; q uit if no  group name  stored
  112    . Q:$P(AP D202,U,6)= ""     ; q uit if no  group numb er stored
  113    . ;
  114    . ;Get th e Bill num ber to che ck if it i s a Pharma cy bill
  115    . S PRCAB LNO=$P(APD 0,U)
  116    . S PRCAE CME=$$GETE CME^RCDPEN R1(PRCABLN O)
  117    . I PRCAE CME=""&'FL G1 Q     ; Skip this  bill if No  Medical p rocessing
  118    . I PRCAE CME'=""&'F LG2 Q    ; Skip this  bill if No  Pharmacy
  119    . ;
  120    . ; Bill  Passed all  checks no w call aut o-audit fo r this Bil l number
  121    . D AUDIT X^PRCAUDT( APIEN)
  122    QModified  Logic (Ch anges are  in bold) ;  Auto-audi t Paper an d Electron ic (EDI) b ills if re ady
  123   ABAUDIT ;
  124    ; Local V ariables
  125    ; APIEN -  Accounts  Payable (f ile #430)  ien
  126    ;
  127    N APIEN,D IE,DA,DR,D IR,DIRUT,D TOUT,DUOUT ,X,Y,APD0, APD202,FLG 1,FLG2,FLG 1E,FLG2E,N BLIEN
  128    N PRCABLN O,PRCAECME ,HICD,CATI EN,ACTIVE, BILLTYP,RA TEIEN,RCPA PER,
  129    ;
  130    S APIEN=" "
  131    ;
  132    ;Check pa rameters t o see if i t needs to  run.
  133    S FLG1=$$ GET1^DIQ(3 42,"1,",7. 05,"I") ;  Get the va lue of the  auto-audi t medical  paper bill  flag
  134    S FLG2=$$ GET1^DIQ(3 42,"1,",7. 06,"I") ;  Get the va lue of the  auto-audi t pharmacy  paper bil l flag
  135    S FLG1E=$ $GET1^DIQ( 342,"1,",7 .07,"I") ;  Get the v alue of th e auto-aud it medical  EDI bill  flag
  136    S FLG2E=$ $GET1^DIQ( 342,"1,",7 .08,"I") ;  Get the v alue of th e auto-aud it pharmac y EDI bill  flag
  137    ;
  138    ; Quit if  all auto- audit para meters set  to no
  139    Q:('FLG1) &('FLG2)&( ‘FLG1E)&(‘ FLG2E)
  140    ;
  141    ;retrieve  DB values
  142    S NBLIEN= $O(^PRCA(4 30.3,"B"," NEW BILL", "")) ; New  Bill Stat us IEN
  143    S CATIEN= $O(^PRCA(4 30.2,"C"," RI","")) ;  Reimbursa ble Insura nce IEN
  144    S HICD=$O (^PRCA(430 .6,"B","HI ","")) ; H ealth insu rance IEN
  145    S ACTIVE= $O(^PRCA(4 30.3,"B"," ACTIVE","" )) ; New B ill Status  IEN
  146    S BILLTYP =$O(^DGCR( 399.3,"B", "REIMBURSA BLE INS.", "")) ; Bil l Type IEN
  147    S RCPAPER =1 ; Field  27 in ^DG CR(399 ; 0  - is elec tronic, 1  - FORCE LO CAL PRINT
  148    ;
  149    Q:NBLIEN= ""
  150    ;
  151    F  S APIE N=$O(^PRCA (430,"AC", NBLIEN,API EN)) Q:'AP IEN  D
  152    . S APD0= $G(^PRCA(4 30,APIEN,0 )) ; Patie nt info
  153    . S APD20 2=$G(^PRCA (430,APIEN ,202)) ;In sured info
  154    . S RATEI EN=$$GET1^ DIQ(399,AP IEN_",",.0 7,"I") ; G et bill’s  rate type  ; IA 4118
  155    . Q:’RATE IEN
  156    . ; A rat e type is  auto-audit ed if BILL  RESULTING  FROM fiel d is non-n ull
  157    . Q:’$$GE T1^DIQ(399 .3,RATEIEN _",",.11," I") ; Quit  if not an  auto-audi t rate typ e
  158    . ;Read o n IB file  #399 field  #27 cover ed by ICR  #3820
  159    . S RCPAP ER=$$GET1^ DIQ(399,AP IEN_",",27 ,"I") ; 0  - is elect ronic, 1 –  is paper
  160    . ;
  161    . Q:$P(AP D0,U,7)=""        ; Q uit if no  PATIENT IE N
  162    . Q:$P(AP D0,U,9)=""        ; Q uit if no  DEBTOR inf ormation
  163    . Q:$P(AP D202,U,1)= ""     ; q uit if no  subscriber  name stor ed
  164    . Q:$P(AP D202,U,5)= ""     ; q uit if no  group name  stored
  165    . Q:$P(AP D202,U,6)= ""     ; q uit if no  group numb er stored
  166    . ;
  167    . ;Get th e Bill num ber to che ck if it i s a Pharma cy bill
  168    . S PRCAB LNO=$P(APD 0,U)
  169    . S PRCAE CME=$$GETE CME^RCDPEN R1(PRCABLN O)
  170    . I PRCAE CME="",'FL G1,RCPAPER  Q     ;Sk ip this pa per bill i f No Medic al process ing
  171    . I PRCAE CME'="",'F LG2,RCPAPE R Q    ;Sk ip this pa per bill i f No Pharm acy
  172    . I PRCAE CME="",'FL G1E,’RCPAP ER Q     ; Skip this  EDI bill i f No Medic al process ing
  173    . I PRCAE CME'="",'F LG2E,’RCPA PER Q    ; Skip this  EDI bill i f No Pharm acy . ;
  174    . ; Bill  Passed all  checks no w call aut o-audit fo r this Bil l number
  175    . D AUDIT X^PRCAUDT( APIEN)
  176    QRoutines Activities Routine Na meRCDPESP5 Enhancemen t Category  New Modif y Delete N o ChangeRT MRelated O ptionsRCDP E EDI LOCK BOX PARAME TERSRelate d Routines Routines “ Called By” Routines “ Called”    RCDPESP$$V AL^RCDPCRR        
  177   GETCODES^R CDPCRR    
  178   AUDIT^RCDP ESP      
  179   $$ACT^RCDP RU         Current Lo gic AUDIT( ) ;
  180    ;
  181    N MEDANS, RXANS,OLDM ED,OLDRX
  182    ;
  183    ; Get exi sting answ ers for Me dical and  Pharmacy p aper bills
  184    S OLDMED= $$GET1^DIQ (342,"1,", 7.05,"I")
  185    S OLDRX=$ $GET1^DIQ( 342,"1,",7 .06,"I")
  186    ;
  187    S MEDANS= $$GETAUDIT (1)
  188    Q:MEDANS= -1 1
  189    ; File Me dical pape r bills
  190    I MEDANS' =OLDMED D
  191    . N RCAUD VAL
  192    . D FILEA NS(7.05,ME DANS)
  193    . ; FILE  NUMBER^FIE LD NUMBER^ IEN^NEW VA LUE^OLD VA LUE^COMMEN T
  194    . S RCAUD VAL(1)="34 2^7.05^1^" _MEDANS_U_ OLDMED_U_" Updating t he Medical  Auto-Audi t of paper  bills"
  195    . D AUDIT ^RCDPESP(. RCAUDVAL)
  196    ;
  197    ; Get Pha rmacy pape r bills
  198    S RXANS=$ $GETAUDIT( 2)
  199    Q:RXANS=- 1 1
  200    ;
  201    ; File Ph armacy pap er bills
  202    I RXANS'= OLDRX D
  203    . N RCAUD VAL
  204    . D FILEA NS(7.06,RX ANS)
  205    . S RCAUD VAL(1)="34 2^7.06^1^" _RXANS_U_O LDRX_U_"Up dating the  Pharmacy  Auto-Audit  of paper  bills"
  206    . D AUDIT ^RCDPESP(. RCAUDVAL)
  207    ;
  208    Q 0
  209    ;
  210    ;Retrieve  the param eter for t he bill ty pe
  211   GETAUDIT(F LAG) ;
  212    ;FLAG - W hat audit  type (1=Me d, 2=RX)
  213    N X,Y,DTO UT,DUOUT,D IR,DIROUT, DIRUT,RCAN S
  214    ;
  215    ; Prompt  for Medica l Auto-aud it
  216    D:$G(FLAG )=1
  217    . S DIR(" A")="ENABL E AUTO-AUD IT FOR MED ICAL PAPER  BILLS (Y/ N): "
  218    . S DIR(" ?",1)="All ow a site  to automat ically aud it their M edical Pap er Bills"
  219    . S DIR(" ?",2)="dur ing the AR  Nightly P rocess."
  220    . S DIR(" ?",3)=" "
  221    . S RCANS =$$GET1^DI Q(342,"1," ,7.05)
  222    ;
  223    ; Prompt  for Pharma cy Auto-au dit
  224    D:$G(FLAG )=2
  225    . S DIR(" A")="ENABL E AUTO-AUD IT FOR PHA RMACY PAPE R BILLS (Y /N): "
  226    . S DIR(" ?",1)="All ow a site  to automat ically aud it their P harmacy Pa per Bills"
  227    . S DIR(" ?",2)="dur ing the AR  Nightly P rocess."
  228    . S DIR(" ?",3)=" "
  229    . S RCANS =$$GET1^DI Q(342,"1," ,7.06)
  230    ;
  231    S DIR(0)= "YAO"
  232    S DIR("?" )="Enter Y es or No t o select a utomatic p rocessing  of paper b ills."
  233    S DIR("B" )=$S($G(RC ANS)'="":R CANS,1:"No ")
  234    D ^DIR K  DIR
  235    I Y="" Q  ""
  236    I $D(DTOU T)!$D(DUOU T)!(Y="")  Q -1
  237    Q Y
  238    ;
  239    ;File the  answer
  240   FILEANS(FI ELD,ANS) ;
  241    ;
  242    N DR,DIE, DA,DTOUT,D IDEL,X,Y
  243    ;
  244    ;Update T ransaction
  245    S DR=FIEL D_"///"_AN S            ;Origina l Confirma tion #
  246    S DIE="^R C(342,"
  247    S DA=1
  248    D ^DIE
  249    ;
  250    QModified  Logic (Ch anges are  in bold)AU DIT() ;
  251    ;
  252    N EMEDANS ,EOLDMED,E OLDRX,ERXA NS,MEDANS, OLDMED,OLD RX,RXANS
  253    ;
  254    ; Get exi sting answ ers for Me dical and  Pharmacy p aper bills
  255    S OLDMED= $$GET1^DIQ (342,"1,", 7.05,"I")
  256    S OLDRX=$ $GET1^DIQ( 342,"1,",7 .06,"I")
  257    ; Get exi sting answ ers for Me dical and  Pharmacy E DI (electr onic) bill s
  258    S EOLDMED =$$GET1^DI Q(342,"1," ,7.07,"I")
  259    S EOLDRX= $$GET1^DIQ (342,"1,", 7.08,"I")
  260    ;
  261    ; Get Med ical paper  bills
  262    S MEDANS= $$GETAUDIT (1)
  263    Q:MEDANS= -1 1
  264    ; File Me dical pape r bills
  265    I MEDANS' =OLDMED D
  266    . N RCAUD VAL
  267    . D FILEA NS(7.05,ME DANS)
  268    . ; FILE  NUMBER^FIE LD NUMBER^ IEN^NEW VA LUE^OLD VA LUE^COMMEN T
  269    . S RCAUD VAL(1)="34 2^7.05^1^" _MEDANS_U_ OLDMED_U_" Updating t he Medical  Auto-Audi t of paper  bills"
  270    . D AUDIT ^RCDPESP(. RCAUDVAL)
  271    ;
  272    ; Get Pha rmacy pape r bills
  273    S RXANS=$ $GETAUDIT( 2)
  274    Q:RXANS=- 1 1
  275    ;
  276    ; File Ph armacy pap er bills
  277    I RXANS'= OLDRX D
  278    . N RCAUD VAL
  279    . D FILEA NS(7.06,RX ANS)
  280    . S RCAUD VAL(1)="34 2^7.06^1^" _RXANS_U_O LDRX_U_"Up dating the  Pharmacy  Auto-Audit  of paper  bills"
  281    . D AUDIT ^RCDPESP(. RCAUDVAL)
  282    ;
  283    ; Get Med ical elect ronic bill s
  284    S EMEDANS =$$GETAUDI T(3)
  285    Q:EMEDANS =-1 1
  286    ; File Me dical elec tronic bil ls
  287    I EMEDANS '=EOLDMED  D
  288    . N RCAUD VAL
  289    . D FILEA NS(7.07,EM EDANS)
  290    . ; FILE  NUMBER^FIE LD NUMBER^ IEN^NEW VA LUE^OLD VA LUE^COMMEN T
  291    . S RCAUD VAL(1)="34 2^7.07^1^" _EMEDANS_U _EOLDMED_U _"Updating  the Medic al Auto-Au dit of ele ctronic bi lls"
  292    . D AUDIT ^RCDPESP(. RCAUDVAL)
  293    ;
  294    ; Get Pha rmacy elec tronic bil ls
  295    S RXANS=$ $GETAUDIT( 4)
  296    Q:RXANS=- 1 1
  297    ;
  298    ; File Ph armacy pap er bills
  299    I ERXANS' =EOLDRX D
  300    . N RCAUD VAL
  301    . D FILEA NS(7.08,ER XANS)
  302    . S RCAUD VAL(1)="34 2^7.08^1^" _RXANS_U_O LDRX_U_"Up dating the  Pharmacy  Auto-Audit  of electr onic bills "
  303    . D AUDIT ^RCDPESP(. RCAUDVAL)
  304    ;
  305    Q 0
  306    ;
  307    ;Retrieve  the param eter for t he bill ty pe
  308   GETAUDIT(F LAG) ;
  309    ;FLAG - W hat audit  type (1=Me d Paper, 2 =RX Paper,  3=Med EDI , 4=Rx EDI )
  310    Q:’$G(FLA G) -1
  311    N DIR,DIR OUT,DIRUT, DTOUT,DUOU T,FLDNO,RC ANS,TYPL,T YPU,X,Y
  312    S TYPL=$S (”Electron ic”,1:”Pap er”)
  313    S TYPU=$S (”ELECTRON IC”,1:”PAP ER”)
  314    S FLDNO=$ S(FLAG=1:7 .05,FLAG=2 :7.06,FLAG =3:7.07,FL AG=4:7.08, 1:0)
  315    Q:’FLDNO  -1
  316    ;
  317    ; Prompt  for Medica l Auto-aud it
  318    D:$G(FLAG )#2=1
  319    . S DIR(" A")="ENABL E AUTO-AUD IT FOR MED ICAL “_TYP U_” BILLS  (Y/N): "
  320    . S DIR(" ?",1)="All ow a site  to automat ically aud it their M edical “_T YPL_” Bill s"
  321    . S DIR(" ?",2)="dur ing the AR  Nightly P rocess."
  322    . S DIR(" ?",3)=" "
  323    . S RCANS =$$GET1^DI Q(342,"1," ,FLDNO)
  324    ;
  325    ; Prompt  for Pharma cy Auto-au dit
  326    D:$G(FLAG )#2=0
  327    . S DIR(" A")="ENABL E AUTO-AUD IT FOR PHA RMACY “_TY PU_” BILLS  (Y/N): "
  328    . S DIR(" ?",1)="All ow a site  to automat ically aud it their P harmacy “_ TYPL_” Bil ls"
  329    . S DIR(" ?",2)="dur ing the AR  Nightly P rocess."
  330    . S DIR(" ?",3)=" "
  331    . S RCANS =$$GET1^DI Q(342,"1," ,FLDNO)
  332    ;
  333    S DIR(0)= "YAO"
  334    S DIR("?" )="Enter Y es or No t o select a utomatic p rocessing  of “_TYPL_ ” bills."
  335    S DIR("B" )=$S($G(RC ANS)'="":R CANS,1:"No ")
  336    D ^DIR K  DIR
  337    I Y="" Q  ""
  338    I $D(DTOU T)!$D(DUOU T)!(Y="")  Q -1
  339    Q Y
  340    ;
  341    ;File the  answer
  342   FILEANS(FI ELD,ANS) ;
  343    ;
  344    N DR,DIE, DA,DTOUT,D IDEL,X,Y
  345    ;
  346    ;Update T ransaction
  347    S DR=FIEL D_"///"_AN S            ;Origina l Confirma tion #
  348    S DIE="^R C(342,"
  349    S DA=1
  350    D ^DIE
  351    ;
  352    Q