Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ABMDBADD

Package: Third Party Billing

Routine: ABMDBADD


Information

ABMDBADD ; IHS/SD/SDR - Add Bill Manually Submitted ;

Source Information

Source file <ABMDBADD.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA Fileman 8 DD^%DT  (,NOW)^%DTC  ^DIC  FILE^DICN  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Third Party Billing 4 ELG^ABMDLCK  $$NXNM^ABMDUTL  ($$FINDOPEN,ADDBENTR)^ABMUCUTL  $$EN^ABMVDF  

Entry Points

Name Comments DBIA/ICR reference
ADMDTS
EDIT ;
DOC ;
; LSL - 12/30/97 - Modified for readability. Changed ABM array to ABMD array as
; ABMAPASS and A/R routines stomp all over ABM array. Also, add the storage of
; Approved Date and Time for A/R usage. Will be date and time bill is manually created.
; LSL - 1/23/98 - Added the storage of the 13 multiple to the bill file. Many other programs
; in 3PB and A/R assume it exists.
; LSL - 2/2/98 - Allow duplicate bills if user ok. Also allow multiple clinics on same visit date.
; LSL - 3/25/98 - Lost value of %, so set approval date variable sooner
;
; IHS/ASDS/SDH - 03/09/01 - V2.4 Patch 9 - NOIS LTA-0600-160017 - Modified to check if service
; thru date is less than service from date
CHK ;
INS ;
START ;EP
ADD ;
XIT ;
ASK ; ask what visit location if Parent/Satellite is set up
KILL ;
SVDTS ;
E2 ;

External References

Name Field # of Occurrence
DD^%DT INS+15
^%DTC ADMDTS+19
NOW^%DTC INS+39
ELG^ABMDLCK INS+13
$$NXNM^ABMDUTL ADD+5
$$FINDOPEN^ABMUCUTL START+18
ADDBENTR^ABMUCUTL INS+78
$$EN^ABMVDF START+2
^DIC ASK+8
FILE^DICN ADD+10, INS+67
^DIE E2+10, SVDTS+3, SVDTS+12, SVDTS+14, SVDTS+24, ADMDTS+2, ADMDTS+10, ADMDTS+25, INS+3, INS+7
, INS+75
^DIK KILL+3
$$GET1^DIQ INS+37
^DIR START+9, START+15, START+21, SVDTS+10, SVDTS+21, ADMDTS+8, ADMDTS+16, CHK+28, INS+32, XIT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,$$EN^ABMVDF("RVN"),"NOTE:",$$EN^ABMVDF("RVF")
  • Line Location: START+2
Function Call: WRITE
  • Prompt: " This program should only be utilized when an entry in the"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !?11,"Accounts Receivable File is needed to reflect a bill that"
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !?11,"was manually prepared and submitted.",!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: *7,!!,"Bill not created, Bill File in use by another user, try Later!"
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: E2+2
Function Call: WRITE
  • Prompt: !,"Service Thru Date cannot be less than Service From Date....",!
  • Line Location: SVDTS+22
Function Call: WRITE
  • Prompt: ?50,"(**DUPLICATE**)"
  • Line Location: CHK+23
Function Call: WRITE
  • Prompt: !
  • Line Location: INS+8
Function Call: WRITE
  • Prompt: !,"Bill # ",$P(^ABMDBILL(DUZ(2),DA,0),"^",1)," Filed.",!
  • Line Location: INS+77
Function Call: WRITE
  • Prompt: !!,*7,"<Data Incomplete: Entry Deleted>"
  • Line Location: KILL+1
Routine Call
  • DIE
  • Line Location:
    • E2+10
    • SVDTS+3
    • SVDTS+12
    • SVDTS+14
    • SVDTS+24
    • ADMDTS+2
    • ADMDTS+10
    • ADMDTS+25
    • INS+3
    • INS+7
    • INS+75
Routine Call
  • DIC
  • Line Location:
    • ASK+8
Routine Call
  • DIR
  • Line Location:
    • START+9
    • START+15
    • START+21
    • SVDTS+10
    • SVDTS+21
    • ADMDTS+8
    • ADMDTS+16
    • CHK+28
    • INS+32
    • XIT+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTNINS - [#9999999.18] GET1^DIQ
^AUTTINTY - [#9999999.181] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDBILL( EDIT+1, SVDTS+1, SVDTS+11, ADMDTS, ADMDTS+17, ADMDTS+18, ADMDTS+21, CHK+1, CHK+8, CHK+10
, CHK+12!, CHK+13, INS+5, INS+9, INS+77, XIT+1
^ABMDPARM( START+13, START+17, ASK+1, INS+10
^AUPNPAT - [#9000001] INS+25
^AUTNINS - [#9999999.18] INS+10, INS+11, INS+27
^DD(9002274.4 INS+47
^DIC(40.7 - [#40.7] CHK+16
^DPT - [#2] INS+25

Label References

Name Line Occurrences
ADMDTS ADMDTS+4, ADMDTS+12
E2 INS+34
KILL E2+11, SVDTS+1, ADMDTS, CHK+18, INS+4, INS+10
SVDTS SVDTS+6, SVDTS+17, SVDTS+22
XIT ADD+11, EDIT+2, KILL+4

Naked Globals

Name Field # of Occurrence
^(6 ADMDTS+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % INS+40
>> ABMAMT INS+5*, INS+6
ABMAPOK INS+74*, XIT+5!
>> ABMARPS ASK+1*, ASK+2, ADD+1, INS+76, XIT+6
ABMD START+1!, XIT+5!
ABMD("APDT" INS+40*, INS+70
ABMD("B" CHK+20*, CHK+21*, CHK+22, CHK+23
ABMD("C" CHK+7*, CHK+17
ABMD("D" CHK+8*, CHK+10, CHK+12, INS+13, INS+14
ABMD("DAYS" ADMDTS+20*, ADMDTS+23
ABMD("DFN" ADD+5*, ADD+9, ADD+14*, EDIT+1, E2+4, ADMDTS+21, CHK+1, CHK+8, CHK+11, INS+5
, INS+9, INS+43, INS+68, XIT+1
ABMD("DUP" CHK+2*, CHK+15*, CHK+18, CHK+30*
ABMD("ED" INS+16*, INS+28
ABMD("ELG" INS+21*, INS+24, INS+51, INS+52, INS+60, INS+61, INS+63, INS+66
ABMD("INS" INS+9*, INS+10, INS+11, INS+19, INS+20, INS+21, INS+22, INS+27, INS+37, INS+45
ABMD("IT" INS+37*, INS+38*, INS+71
ABMD("ITYP" INS+20*, INS+52, INS+60, INS+61, INS+62, INS+66
ABMD("L" CHK+5*, CHK+14
ABMD("MCD" INS+22*, INS+64
ABMD("P" CHK+4*, CHK+14, INS+13, INS+25
ABMD("PRI" INS+17*, INS+18*, INS+19, INS+20, INS+21, INS+22
ABMD("R" CHK+3*, CHK+10*, CHK+11, CHK+12, CHK+13
ABMD("T" CHK+6*, CHK+14
ABMD("Z" CHK+16*, CHK+17*, CHK+21, CHK+22, CHK+23
ABMD(0 CHK+1*, CHK+4, CHK+5, CHK+6, CHK+7, CHK+13*, CHK+14, CHK+16, CHK+17
>> ABMDUZ2 ADD+2*, XIT+6
ABML INS+13, INS+23!
ABML( INS+18, INS+19, INS+20, INS+21, INS+22
>> ABMP("BDFN" INS+78
>> ABMSVFRM SVDTS+5*, SVDTS+22
>> ABMSVTRU SVDTS+16*, SVDTS+22
>> ABMUDUZ2 ADD+3*, ADD+4, INS+76
>> ABMUOPNS START+17, START+18*, START+19
DA E2+3!, E2+4*, SVDTS+1, SVDTS+11, ADMDTS, ADMDTS+17, ADMDTS+18, INS+41*, INS+68*, INS+77
DA(1 INS+43*, INS+44
DD ADD+10!, INS+67!
DIC ASK+3!, ASK+4*, ADD+7*, E2+3!, INS+44*
DIC("A" ASK+6*
DIC("B" ASK+7*
DIC("DR" INS+48*, INS+50*, INS+52*, INS+60*, INS+61*, INS+63*, INS+64*, INS+66*
DIC("P" INS+47*
DIC(0 ASK+5*, ADD+8*, INS+46*
DIE E2+3!, E2+5*, KILL+2
>> DIK KILL+2*
DINUM ADD+6!
DIR START+10!, START+15!, START+21!, CHK+29!, INS+33!, XIT+2!
DIR("A" START+7*, START+15*, START+21*, SVDTS+8*, SVDTS+19*, ADMDTS+6*, ADMDTS+14*, CHK+25*, INS+30*
DIR("B" START+8*, SVDTS+9*, SVDTS+20*, ADMDTS+7*, ADMDTS+15*, CHK+26*, INS+31*
DIR(0 START+6*, START+15*, START+21*, SVDTS+7*, SVDTS+18*, ADMDTS+5*, ADMDTS+13*, CHK+27*, INS+29*, XIT+3*
DO ADD+10!, INS+67!
DR E2+3!, E2+6*, E2+7*, E2+8*, E2+9*, SVDTS+2*, SVDTS+11*, SVDTS+13*, SVDTS+23*, ADMDTS+1*
, ADMDTS+9*, ADMDTS+21*, ADMDTS+22*, ADMDTS+23*, ADMDTS+24*, INS+1*, INS+2*, INS+6*, INS+69*, INS+70*
, INS+71*, INS+72*, INS+73*
DT SVDTS+6, SVDTS+17, ADMDTS+4, ADMDTS+12
>> DTOUT ASK+9
>> DUOUT ASK+9
DUZ START+18, INS+69
DUZ(2 START+13, START+17, ASK+1, ASK+7, ADD+2, ADD+4*, EDIT+1, E2+6, SVDTS+1, SVDTS+11
, ADMDTS, ADMDTS+17, ADMDTS+18, ADMDTS+21, CHK+1, CHK+8, CHK+10, CHK+12, CHK+13, INS+5
, INS+9, INS+10, INS+76*, INS+77, XIT+1, XIT+6*
U START+13, START+17, ASK+1, SVDTS+1, SVDTS+11, ADMDTS, ADMDTS+17, ADMDTS+18, ADMDTS+21, ADMDTS+22
, CHK+4, CHK+5, CHK+6, CHK+7, CHK+8, CHK+14, CHK+16, CHK+17, CHK+22, CHK+23
, INS+5, INS+9, INS+10, INS+11, INS+20, INS+21, INS+22, INS+25, INS+27, INS+47
X ADD+9*, E2+3!, SVDTS+5, SVDTS+6, SVDTS+16, SVDTS+17, ADMDTS+4, ADMDTS+12, ADMDTS+20, INS+45*
>> X1 ADMDTS+18*
>> X2 ADMDTS+17*
Y START+11, ASK+10, ADD+3, ADD+11, ADD+14, E2+3!, E2+11, SVDTS+1, SVDTS+4, SVDTS+6!
, SVDTS+15, SVDTS+17!, SVDTS+25, ADMDTS, ADMDTS+3, ADMDTS+4!, ADMDTS+11, ADMDTS+12!, ADMDTS+26, CHK+30
, INS+4, INS+14*, INS+16, INS+34
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All