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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BARDUTL

Package: IHS Accounts Receivable

Routine: BARDUTL


Information

BARDUTL ; IHS/SD/LSL - DATE UTILITIES FOR A/R PACKAGE ;

Source Information

Source file <BARDUTL.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^%DT  H^%DTC  $$GET1^DIQ  
IHS Accounts Receivable 1 $$EN^BARVDF  

Caller Graph

Caller Graph Total: 79

Package Total Caller Graph
IHS Accounts Receivable 79 BAR276  BAR50P04  BAR50P05  BAR50P4A  BAR50PCS  BARACSI  BARAST  BARAWOR  
BARBAD1  BARBAD2  BARBAD4  BARBAD5  BARBAN  BARBL  BARBLOS  BARBLOS1  
BARCHKLU  BARCLRG  BARDINQ  BARDLOG  BARDMAN  BARDMLP1  BARDYSV1  BARDYSV6  
BARDYSV9  BAREBCH  BAREDP04  BAREDP05  BAREDPCS  BAREISS  BAREITDN  BAREV820  
BARFPST3  BARFPST4  BARMAWO6  BARMPAS  BARMPAS2  BARMPAS3  BARMPAS4  BARPADJ  
BARPMUP1  BARPMUP2  BARPNP2  BARPNP4  BARPST2  BARPST4  BARPST5  BARPUC2  
BARPUC4  BARPUTL  BARRADAL  BARRADJ  BARRADJ2  BARRAOI  BARRATS  BARRCXL  
BARRERL  BARRERL2  BARRHD  BARRIDR  BARRLBL2  BARRLBL3  BARRNEG2  BARRPRAC  
BARRPRP  BARRPRP2  BARRPSRA  BARRPTD  BARRPTD2  BARRPVC  BARRSYNC  BARRTRAN  
BARTRANS  BARTRANT  BARTRNS1  BARTRNS3  BARUFRP3  BARUTLST  BARWRVR  

Entry Points

Name Comments DBIA/ICR reference
WP(BARSTR,BARRAY,BARLNGTH) ; EP ; IHS/DIT/CPC - 20180427 CR5994
; Used to read string into array where each line is less than
; specified length
CARDAYS ; EP
; Computed field (File 90050.0205, Field .07)
Y2KD2(X) ;EP - date from fileman to Y2K format Y=CCYYMMDD
PAT(X) ;EP - DISPLAY PATIENT HEADER WITH IDENTIFIERS - X=DFN
MDT2(X) ;EP - printable date, letter format
DATE(X) ;EP - ask beginning and ending date
TRANS2 ;
READ ; ; IHS/DIT/CPC - 20180427 CR5994
; Loop through String
LASTLINE ;
SETLINE ;
READWORD ; ; IHS/DIT/CPC - 20180427 CR5994
; Loop each "word" of string
VARDAYS ; EP
; Computed field (File 90050.0205, Field .07)
CSZ(X) ;EP - Y is set to the printable City, State ZIP CODE
; X incoming variable must = CITY^ST^ZIP
ARDAYS ; EP
; Computed field (File 90050.0204, Field .07)
TDT(X) ;EP - Y= date/time ##/##/##@##:##:## from X (fm date) for display of formatted trans date
CDT(X) ;EP - Y= date/time ##/##/##@##:## from X (fm date) for display in claim editor
HDT(X) ;EP - Y is set to the printable date ##-##-## from X (fileman date)
MSG(DATA,PRE,POST,BEEP)
TRANS(BARDUZ,BAR,BARTYPE) ; EP
; BARDUZ = DUZ(2)
; BAR = AR BILL IEN
; BARTYPE = TYPE OF TRANSACTION
; = A - Adjustment $
; = C - Copay $
; = P - Paid $
; = D - Deductible $
HRN(X) ;EP - Y is set to the printable HRN
; for patient BARP("PDFN") at location BARP("LDFN")
MDT(X) ;EP - printable date and time in menu header format
MTHS ;MONTHS
Y2KDT(X) ;EP - date from fileman to Y2K format Y=MMDDCCYY
SHDT(X) ; EP - Y is set to the printable date ##/##/## from X (fileman date)
TM(X,Y) ;EP - FIGURE TOTAL MINUTES GIVEN FM DATE/TIMES IN X AND Y
SDT(X) ; EP - Y is set to the printable date ##/##/## from X (fileman date)
XDT(X)

External References

Name Field # of Occurrence
^%DT DATE+3
H^%DTC TM+3, TM+7
$$EN^BARVDF PAT+2, PAT+3
$$GET1^DIQ TRANS2+2, TRANS2+3, TRANS2+4, TRANS2+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF")
  • Line Location: PAT+2
Function Call: WRITE
  • Prompt: !,$$EN^BARVDF("RVN"),"PATIENT:",$$EN^BARVDF("RVF")," "
  • Line Location: PAT+3
Function Call: WRITE
  • Prompt: $P(BAR("P0"),"^",1)," ",$P(BAR("P0"),"^",2)
  • Line Location: PAT+5
Function Call: WRITE
  • Prompt: " ",$E(BAR("DOB"),4,5),"/",$E(BAR("DOB"),6,7),"/",($E(BAR("DOB"),1,3)+1700)
  • Line Location: PAT+7
Function Call: WRITE
  • Prompt: " ",$E(BAR("SSN"),1,3),"-",$E(BAR("SSN"),4,5),"-",$E(BAR("SSN"),6,9)
  • Line Location: PAT+9
Function Call: WRITE
  • Prompt: " ","HRN: ",$P($G(^AUPNPAT(X,41,DUZ(2),0)),"^",2)
  • Line Location: PAT+10
Function Call: WRITE
  • Prompt: !,BAR("=")
  • Line Location: PAT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: DATA
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !
  • Line Location: MSG+4
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: MSG+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BARTR(2906 - [#90050.03] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] HRN+2, PAT+10
^BARAC( ARDAYS+6, ARDAYS+8, ARDAYS+13, VARDAYS+6, VARDAYS+8, VARDAYS+12, CARDAYS+6, CARDAYS+8, CARDAYS+12
^BARTR( TRANS+14, TRANS+17, TRANS2+1, TRANS2+5
^DIC(5 - [#5] CSZ+2
^DPT - [#2] PAT+4

Label References

Name Line Occurrences
LASTLINE READWORD+10
READ WP+5
READWORD READ+5
SETLINE READWORD+11
TRANS2 TRANS+17

Naked Globals

Name Field # of Occurrence
^(0 HRN+2, CSZ+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DATE+1*
>> %DT("A" DATE+2*
>> %H TM+4, TM+8
>> %T TM+5, TM+9
BAR TRANS~, TRANS+9, TRANS+14, TRANS+17
BAR("=" PAT+1*, PAT+11
BAR("AMPM" MDT+6*, MDT+8, MDT+11!
BAR("D" TM+10*, TM+12
BAR("DATE" MDT+1*, MDT+10, MDT+11!
BAR("DOB" PAT+6*, PAT+7
BAR("P0" PAT+4*, PAT+5, PAT+6, PAT+8
BAR("SSN" PAT+8*, PAT+9
BAR("T" TM+11*, TM+12
BAR("TIME" MDT+2*, MDT+3, MDT+4*, MDT+5*, MDT+6, MDT+7*, MDT+8*, MDT+9*, MDT+10, MDT+11!
BAR("TS" TM+12*, TM+13
BAR(0 ARDAYS+8*, ARDAYS+9, ARDAYS+13*, ARDAYS+14, VARDAYS+8*, VARDAYS+9, VARDAYS+12*, VARDAYS+13, CARDAYS+8*, CARDAYS+9
, CARDAYS+12*, CARDAYS+13
BAR(1 TM+4*, TM+5*, TM+10, TM+11
BAR(2 TM+8*, TM+9*, TM+10, TM+11
BARAMT TRANS+11!, TRANS+19
BARAMT( TRANS+20
BARAMT("A" TRANS2+4*
BARAMT("C" TRANS2+2*
BARAMT("D" TRANS2+3*
BARAMT("P" TRANS2+6*
BARCNT WP+4*, WP+6!, SETLINE+1*, SETLINE+2, LASTLINE+1*, LASTLINE+2
BARDUZ TRANS~, TRANS+8, TRANS+15
BAREND ARDAYS+2~, ARDAYS+4*, ARDAYS+10*, ARDAYS+12*, ARDAYS+15, VARDAYS+2~, VARDAYS+4*, VARDAYS+9*, VARDAYS+11*, VARDAYS+14
, CARDAYS+2~, CARDAYS+4*, CARDAYS+9*, CARDAYS+11*, CARDAYS+14
BARHOLD TRANS+12~, TRANS+13*, TRANS+18
>> BARIDR SETLINE+2*, SETLINE+3, LASTLINE+2*, LASTLINE+3
BARLNGTH WP~, WP+3, WP+6!, READ+5, READWORD+4, READWORD+8, READWORD+11
>> BARP("LDFN" HRN+2
>> BARP("PDFN" HRN+2
BARRAY WP~, WP+3, SETLINE+2, LASTLINE+2
BARSTR WP~, WP+3, WP+5, WP+6!, READ+2, READ+5, READWORD+3, READWORD+8*, READWORD+9, READWORD+10
, SETLINE+3, SETLINE+4*, LASTLINE+3, LASTLINE+4*
>> BARTIME CDT+5*, CDT+6*, CDT+7, XDT+5*, XDT+6*, XDT+7, TDT+5*, TDT+6*, TDT+7
>> BARTMP ARDAYS+9*, ARDAYS+10
BARTR TRANS+12~, TRANS+16*, TRANS+17*, TRANS2+1, TRANS2+2, TRANS2+3, TRANS2+4, TRANS2+5, TRANS2+6
BARTXT WP+6!, READ+4!, READ+5, READWORD+3*, READWORD+4, READWORD+9*, READWORD+10, READWORD+11
BARTYPE TRANS~, TRANS+10, TRANS+20
BARWORD WP+6!, READ+3*, READWORD+2*, READWORD+3, READWORD+9, SETLINE+3, SETLINE+4
BEEP MSG~, MSG+5
CBAREND ARDAYS+2~, ARDAYS+14*, ARDAYS+15, VARDAYS+2~, VARDAYS+13*, VARDAYS+14, CARDAYS+2~, CARDAYS+13*, CARDAYS+14
>> D0 ARDAYS+6, ARDAYS+8, ARDAYS+13, VARDAYS+6, VARDAYS+8, VARDAYS+12, CARDAYS+6, CARDAYS+8, CARDAYS+12
>> D1 ARDAYS+3, ARDAYS+13, VARDAYS+6, VARDAYS+8, VARDAYS+12, CARDAYS+6, CARDAYS+8, CARDAYS+12
>> D2 VARDAYS+3, VARDAYS+12, CARDAYS+3, CARDAYS+12
DATA MSG~, MSG+3
DUZ(2 PAT+10, ARDAYS+6, ARDAYS+8, ARDAYS+13, VARDAYS+6, VARDAYS+8, VARDAYS+12, CARDAYS+6, CARDAYS+8, CARDAYS+12
, TRANS+13, TRANS+14, TRANS+15*, TRANS+17, TRANS+18*, TRANS2+1, TRANS2+5
I MSG+2*, MSG+4*, MSG+5*, ARDAYS+2~, ARDAYS+5*, VARDAYS+2~, VARDAYS+5*, CARDAYS+2~, CARDAYS+5*
J ARDAYS+2~, ARDAYS+3*, ARDAYS+5, ARDAYS+6*, ARDAYS+7, ARDAYS+8, ARDAYS+11, VARDAYS+2~, VARDAYS+3*, VARDAYS+5
, VARDAYS+6*, VARDAYS+7, VARDAYS+8, VARDAYS+10, CARDAYS+2~, CARDAYS+3*, CARDAYS+5, CARDAYS+6*, CARDAYS+7, CARDAYS+8
, CARDAYS+10
POST MSG~, MSG+4
PRE MSG~, MSG+2
U HRN+2, CSZ+2, ARDAYS+9, ARDAYS+14, VARDAYS+9, VARDAYS+13, CARDAYS+9, CARDAYS+13, TRANS2+5
X SDT~, SDT+2, SHDT~, SHDT+2, HDT~, HDT+2, CDT~, CDT+2, CDT+3, CDT+4
, CDT+5, XDT~, XDT+2, XDT+3, XDT+4, XDT+5, TDT~, TDT+2, TDT+3, TDT+4
, TDT+5, MDT~, MDT+1, MDT+2, MDT+5, MDT+10*, MDT+12, MDT2~, MDT2+1*, MDT2+2
, Y2KDT~, Y2KDT+2, Y2KDT+3, Y2KD2~, Y2KD2+2, Y2KD2+3, HRN~, CSZ~, CSZ+2, TM~
, TM+1, TM+2*, TM+6*, TM+13*, TM+14, PAT~, PAT+4, PAT+10, DATE~, DATE+2
, MSG+1~, ARDAYS+11*, ARDAYS+15*, VARDAYS+10*, VARDAYS+14*, CARDAYS+10*, CARDAYS+14*
Y SDT+1~, SDT+2*, SDT+3, SHDT+1~, SHDT+2*, SHDT+3, HDT+1~, HDT+2*, HDT+3, CDT+1~
, CDT+2*, CDT+3*, CDT+4, CDT+7*, CDT+8, XDT+1~, XDT+2*, XDT+3*, XDT+4, XDT+7*
, XDT+8, TDT+1~, TDT+2*, TDT+3*, TDT+4, TDT+7*, TDT+8, Y2KDT+1~, Y2KDT+3*, Y2KDT+4
, Y2KD2+1~, Y2KD2+3*, Y2KD2+4, HRN+2*, HRN+3, CSZ+2*, CSZ+3, TM~, TM+2, TM+6
, DATE+4, MSG+1~

Marked Items

Name Field # of Occurrence
$T(MTHS+1 MDT+1, MDT2+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All