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

BARDMAN4.m

Go to the documentation of this file. 
  1. BARDMAN4 ; IHS/SD/LSL - A/R Debt Collection Process (4) ;
  1.  ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005
  1.  ;
  1.  ; IHS/SD/LSL - 04/16/2004 - V1.8
  1.  ;      Routine created.  Moved (modified) from BBMDC2
  1.  ;      All entry points called from BARDMAN2.  Updates log from
  1.  ;      each of the four temp globals if send was successful.
  1.  ;
  1.  ; ********************************************************************
  1.  Q
  1.  ;
  1. LOGSSELF ; EP
  1.  ; Log self pay stops
  1.  S BARBL=0
  1.  F  S BARBL=$O(^BARSSELF($J,BARBL)) Q:'+BARBL  D
  1.  . D INACT                        ; first, inactivate previous record
  1.  . S BARBAL=$E(^BARSSELF($J,BARBL),19,26)
  1.  . S BARBAL=$E(BARBAL,1,($L(BARBAL)-2))_"."_$E(BARBAL,($L(BARBAL)-1),$L(BARBAL))
  1.  . K DIC,DR,X,Y,DA
  1.  . S DIC="^BARDEBT("
  1.  . S DIC(0)="ZL"
  1.  . S X=DT
  1.  . S DIC("DR")=".02///^S X=BARBL"
  1.  . S DIC("DR")=DIC("DR")_";.03///^S X=BARBAL"
  1.  . S DIC("DR")=DIC("DR")_";.04////^S X=$E(^BARSSELF($J,BARBL),27)"
  1.  . S DIC("DR")=DIC("DR")_";.05////^S X=1"
  1.  . S DIC("DR")=DIC("DR")_";.06////^S X=""S"""
  1.  . S DIC("DR")=DIC("DR")_";.07///^S X=""SELF PAY"""
  1.  . S DIC("DR")=DIC("DR")_";.08///^S X=DUZ(2)"
  1.  . S DIC("DR")=DIC("DR")_";.09///^S X=BARSSFN"
  1.  . S DLAYGO=90050
  1.  . K DD,DO
  1.  . D FILE^DICN
  1.  K DIE,DIC,DR,DA,X,Y
  1.  S DIE="^BAR(90052.06,DUZ(2),"
  1.  S DA=DUZ(2)
  1.  S DR="1105////^S X=BARSTART"
  1.  S DR=DR_";1106////^S X=BAREND"
  1.  D ^DIE
  1.  Q
  1.  ; ********************************************************************
  1.  ;
  1. LOGSTOP ; EP
  1.  ; Log insurer stops
  1.  S BARBL=0
  1.  F  S BARBL=$O(^BARSTOPS($J,BARBL)) Q:'+BARBL  D
  1.  . D INACT                        ; first, inactivate previous record
  1.  . S BARBAL=$E(^BARSTOPS($J,BARBL),27,34)
  1.  . S BARBAL=$E(BARBAL,1,($L(BARBAL)-2))_"."_$E(BARBAL,($L(BARBAL)-1),$L(BARBAL))
  1.  . K DIC,DR,X,Y,DA
  1.  . S DIC="^BARDEBT("
  1.  . S DIC(0)="ZL"
  1.  . S X=DT
  1.  . S DIC("DR")=".02///^S X=BARBL"
  1.  . S DIC("DR")=DIC("DR")_";.03///^S X=BARBAL"
  1.  . S DIC("DR")=DIC("DR")_";.04////^S X=$E(^BARSTOPS($J,BARBL),26)"
  1.  . S DIC("DR")=DIC("DR")_";.05////^S X=1"
  1.  . S DIC("DR")=DIC("DR")_";.06////^S X=""I"""
  1.  . S DIC("DR")=DIC("DR")_";.07///^S X=$$GET1^DIQ(90050.01,BARBL,3)"
  1.  . S DIC("DR")=DIC("DR")_";.08///^S X=DUZ(2)"
  1.  . S DIC("DR")=DIC("DR")_";.09///^S X=BARSIFN"
  1.  . S DLAYGO=90050
  1.  . K DD,DO
  1.  . D FILE^DICN
  1.  K DIE,DIC,DR,DA,X,Y
  1.  S DIE="^BAR(90052.06,DUZ(2),"
  1.  S DA=DUZ(2)
  1.  S DR="1105////^S X=BARSTART"
  1.  S DR=DR_";1106////^S X=BAREND"
  1.  D ^DIE
  1.  Q
  1.  ; ********************************************************************
  1.  ;
  1. INACT ;
  1.  ; Inactivate last entry for this bill
  1.  S BARLIEN=$O(^BARDEBT("C",BARBL,"A"),-1)
  1.  Q:'+BARLIEN
  1.  S DIE="^BARDEBT("
  1.  S DA=BARLIEN
  1.  S DR=".05////^S X=0"
  1.  D ^DIE
  1.  Q
  1.  ; ********************************************************************
  1.  ;
  1. LOGTSELF ; EP
  1.  ; Log Self Pay Starts
  1.  S BARBL=0
  1.  F  S BARBL=$O(^BARTSELF($J,BARBL)) Q:'+BARBL  D
  1.  . K DIC,DR,X,Y,DA
  1.  . S DIC="^BARDEBT("
  1.  . S DIC(0)="ZL"
  1.  . S X=DT
  1.  . S DIC("DR")=".02///^S X=BARBL"
  1.  . S DIC("DR")=DIC("DR")_";.03///^S X=$$GET1^DIQ(90050.01,BARBL,15)"
  1.  . S DIC("DR")=DIC("DR")_";.04////^S X=0"
  1.  . S DIC("DR")=DIC("DR")_";.05////^S X=1"
  1.  . S DIC("DR")=DIC("DR")_";.06////^S X=""S"""
  1.  . S DIC("DR")=DIC("DR")_";.07///^S X=""SELF PAY"""
  1.  . S DIC("DR")=DIC("DR")_";.08///^S X=DUZ(2)"
  1.  . S DIC("DR")=DIC("DR")_";.09///^S X=BARTSFN"
  1.  . S DLAYGO=90050
  1.  . K DD,DO
  1.  . D FILE^DICN
  1.  . D MSGTX(BARBL)
  1.  ; Update current count and last start and stop in parameters
  1.  K DIE,DIC,DR,DA,X,Y
  1.  S DIE="^BAR(90052.06,DUZ(2),"
  1.  S DA=DUZ(2)
  1.  S DR="1006///^S X=BARSCUR"
  1.  S DR=DR_";1105////^S X=BARSTART"
  1.  S DR=DR_";1106////^S X=BAREND"
  1.  D ^DIE
  1.  Q
  1.  ; ********************************************************************
  1.  ;
  1. LOGSTART ; EP
  1.  ; Log Insurer Starts
  1.  S BARBL=0
  1.  F  S BARBL=$O(^BARSTART($J,BARBL)) Q:'+BARBL  D
  1.  . K DIC,DR,X,Y,DA
  1.  . S DIC="^BARDEBT("
  1.  . S DIC(0)="ZL"
  1.  . S X=DT
  1.  . S DIC("DR")=".02///^S X=BARBL"
  1.  . S DIC("DR")=DIC("DR")_";.03///^S X=$$GET1^DIQ(90050.01,BARBL,15)"
  1.  . S DIC("DR")=DIC("DR")_";.04////^S X=0"
  1.  . S DIC("DR")=DIC("DR")_";.05////^S X=1"
  1.  . S DIC("DR")=DIC("DR")_";.06////^S X=""I"""
  1.  . S DIC("DR")=DIC("DR")_";.07///^S X=$$GET1^DIQ(90050.01,BARBL,3)"
  1.  . S DIC("DR")=DIC("DR")_";.08///^S X=DUZ(2)"
  1.  . S DIC("DR")=DIC("DR")_";.09///^S X=BARTIFN"
  1.  . S DLAYGO=90050
  1.  . K DD,DO
  1.  . D FILE^DICN
  1.  . D MSGTX(BARBL)
  1.  ; Update current count and last start and stop in parameters
  1.  K DIE,DIC,DR,DA,X,Y
  1.  S DIE="^BAR(90052.06,DUZ(2),"
  1.  S DA=DUZ(2)
  1.  S DR="1003///^S X=BARICUR"
  1.  S DR=DR_";1105////^S X=BARSTART"
  1.  S DR=DR_";1106////^S X=BAREND"
  1.  D ^DIE
  1.  Q
  1.  ; ********************************************************************
  1. MSGTX(BARBL) ;
  1.  ; Create message transaction on bills sent to Transworld w/ start code
  1.  Q:'+BARBL
  1.  S BARTR=$$NEW^BARTR
  1.  Q:BARTR<1
  1.  S BARTRDT=$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3)
  1.  S BARMSG="TRANSMITTED TO TRANSWORLD "_BARTRDT
  1.  S DA=BARTR
  1.  S DIE="^BARTR(DUZ(2),"
  1.  S DR="12////^S X=DT"
  1.  S DR=DR_";13////^S X=DUZ"
  1.  S DR=DR_";7////^S X=1"
  1.  S DR=DR_";4////^S X=BARBL"
  1.  S DR=DR_";10////^S X=$$GET1^DIQ(200,DUZ,29,""I"")"
  1.  S DR=DR_";16////^S X=""P"""
  1.  S DR=DR_";1001///^S X=BARMSG"
  1.  D ^DIE
  1.  Q