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

ABMDBACK.m

Go to the documentation of this file.
  1. ABMDBACK ; IHS/ASDST/DMJ - APC-PCC Back Visit Check ;
  1. ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
  1. ;Original;TMD;08/05/96 4:25 PM
  1. ;
  1. S U="^" K ABM
  1. PCC S (ABM("BD"),ABM("D"))=$P(^ABMDPARM(DUZ(2),1,0),U,19)-.01 F S ABM("D")=$O(^AUPNVSIT("B",ABM("D"))) Q:'ABM("D") D
  1. .S ABM("VDFN")="" F S ABM("VDFN")=$O(^AUPNVSIT("B",ABM("D"),ABM("VDFN"))) Q:'ABM("VDFN") D
  1. ..I ABM("D")>ABM("BD"),'$D(^ABMDCLM(DUZ(2),"AV",ABM("VDFN"))) S ^AUPNVSIT("ABILL",$P(ABM("D"),"."),ABM("VDFN"))=""
  1. ;
  1. APC S ABM("D")=$P(^ABMDPARM(DUZ(2),1,0),U,19) S ABM="^AAPCRCDS(""APC"","_ABM("D")_")" F S ABM=$Q(@ABM),ABM("DT")=$P($P(ABM,"(",2),",",2) Q:ABM("DT")<ABM("D") I ABM("DT")>ABM("BD") D
  1. .S ABM("VDFN")=+$P($P(ABM,"(",2),",",5)
  1. .Q:$D(^ABMDCLM(DUZ(2),"APC",ABM("VDFN")))
  1. .S ^AAPCRCDS("ABILL",ABM("DT"),ABM("VDFN"))=""
  1. ;
  1. DEL S DIE="^ABMDPARM(DUZ(2),",DA=1,DR=".19///@" D ^ABMDDIE
  1. ;
  1. XIT K ABM
  1. Q
  1. ;
  1. SEL ;EP - Entry Point for intiating a back-billing check
  1. W !!?5,"This program will cause the nightly claim generator to initiate "
  1. W !?5,"a one time job of checking all visits back to the date specified."
  1. W !! S DIR(0)="YO",DIR("A")="Do you wish to run this program (Y/N)" D ^DIR K DIR G XIT:$D(DIRUT)!'$G(Y)
  1. I +$P($G(^ABMDPARM(DUZ(2),1,0)),U,16) S X1=DT,X2=0-($P(^(0),U,16)*30.417) D C^%DTC S ABM("D")=X I 1
  1. E S ABM("D")=DT-10000
  1. D DT
  1. W ! S DIE="^ABMDPARM(DUZ(2),",DA=1,DR=".19Check all Visits back to (Date): //"_ABM("D") D ^ABMDDIE G XIT:$D(Y)!$D(ABM("DIE-FAIL"))
  1. S ABM("D")=$P(^ABMDPARM(DUZ(2),1,0),U,19) D DT
  1. W !!,"OK, all visits will be checked back to ",ABM("D")," during the nightly",!,"claim generation process.",!
  1. K DIR S DIR(0)="E" D ^DIR
  1. G XIT
  1. ;
  1. DT ;date external
  1. S ABM("D")=$$HDT^ABMDUTL(ABM("D"))
  1. Q