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 |  All
Print Page as PDF
Routine: BAREDP01

Package: IHS Accounts Receivable

Routine: BAREDP01


Information

BAREDP01 ; IHS/SD/LSL - EDI PARSING ;

Source Information

Source file <BAREDP01.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 ^DIC  FILE^DICN  $$GET1^DIQ  
IHS Accounts Receivable 1 $$STRIP^BAREDIUT  
IHS VA Utilities 1 ($$DIC,ENPM)^XBDIQ1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Accounts Receivable 1 BAREDP00  

Entry Points

Name Comments DBIA/ICR reference
SEP(TRDA,IMPDA) ;
; FIND SEPERATORS
IDENT ; logic to locate segment from ID
LAST ;store last
PARSE(TRDA,IMPDA) ;
; parse image in ^TMP($J,"I", into segments "S"
; Separators S-Segment, E-Element, SE-Sub Element
EN(TRDA,IMPDA)
ADD ;add image lines to X till it has a seperator
FILE1 ;
CLEAR(IMPDA) ; kill nodes 15 & 20 for a rerun
STORE ;
; store segment & store more if X has several segments in it
FILE(TRDA,IMPDA)

External References

Name Field # of Occurrence
$$STRIP^BAREDIUT LAST+1
^DIC FILE1+9
FILE^DICN FILE1+23
$$GET1^DIQ SEP+4
$$DIC^XBDIQ1 FILE+21, FILE1+5, FILE1+15
ENPM^XBDIQ1 FILE+13, FILE+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " ",COUNT
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"Splitting image into Segments",!
  • Line Location: PARSE+22
Function Call: WRITE
  • Prompt: !,"Identifying Segments Uniquely",!
  • Line Location: FILE+4
Function Call: WRITE
  • Prompt: !,"File contains more than one ISA/IEA pair at "_$G(^BAREDI("I",DUZ(2),IMPDA,15,SEGDA))_" . Inform payor and request new file."
  • Line Location: IDENT+24
Routine Call
  • DIC
  • Line Location:
    • FILE1+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BAREDI("1T" - [#90056.01] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BAREDI("I" PARSE+6, LAST+4!, LAST+5*, LAST+6*, FILE+34!, FILE+36, IDENT+24, CLEAR+1!, CLEAR+2!
^TMP($J PARSE+3!, PARSE+6*, FILE+7!

Label References

Name Line Occurrences
@( SEP+7
ADD ADD+6, STORE+10
FILE EN+3
FILE1 FILE+43
IDENT FILE+40
LAST ADD+1, ADD+2
PARSE EN+2
SEP PARSE+4
STORE ADD+5, STORE+9

Naked Globals

Name Field # of Occurrence
^( FILE+36

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A PARSE+10*, PARSE+12, PARSE+13, ADD+1, ADD+2, ADD+3
>> B PARSE+11*, STORE+7, LAST+2, LAST+3, LAST+5
BARLOOP FILE+24!
BARLOOP("DUP" FILE+27*, IDENT+6
>> BARTMP PARSE+5*, PARSE+6*
>> COUNT EN+4, PARSE+23*, STORE+2, STORE+3, STORE+4*, FILE+5*, FILE1+1, FILE1+2, FILE1+3*
>> CURID FILE+32*, FILE+38, FILE+41, IDENT+1*, IDENT+2, IDENT+4, IDENT+5, IDENT+6, IDENT+7, IDENT+10
, IDENT+13, IDENT+19, IDENT+21, IDENT+24, IDENT+25, IDENT+31, IDENT+32
>> CURSEG FILE+32*, FILE+37, IDENT+8*, IDENT+9*, IDENT+11*, IDENT+12*, IDENT+13*, IDENT+19*, IDENT+20, IDENT+21*
, IDENT+24, IDENT+25, IDENT+28*, IDENT+31*, IDENT+32, FILE1+6
>> CURUSE FILE+32*, FILE+39, IDENT+25*, IDENT+29*, IDENT+32*
DA FILE1+4!, FILE1+12!
DA(1 FILE1+8*, FILE1+13*
DD FILE1+4!, FILE1+12!, FILE1+24!
DIC FILE+20!, FILE+21*, FILE+23, FILE1+4!, FILE1+5*, FILE1+12!, FILE1+15*, FILE1+24!
DIC("DR" FILE1+19*, FILE1+20*, FILE1+21*, FILE1+22*
DIC("P" FILE1+14*
DIC("S" FILE+22*
DIC(0 FILE1+7*, FILE1+17*
>> DLAYGO FILE1+16*
DO FILE1+4!, FILE1+12!, FILE1+24!
DR FILE1+4!, FILE1+12!, FILE1+24!
DT LAST+6
DUZ(2 PARSE+6, LAST+4, LAST+5, LAST+6, FILE+34, FILE+36, IDENT+24, CLEAR+1, CLEAR+2
>> E IDENT+1, IDENT+8, IDENT+9, IDENT+11, IDENT+12
>> I PARSE+13*, LAST+5*, FILE+14*, FILE+25*, FILE+26*, FILE+27, FILE+28
IMPDA EN~, EN+2, EN+3, PARSE~, PARSE+4, PARSE+6, LAST+4, LAST+5, LAST+6, SEP~
, FILE~, FILE+36, IDENT+24, FILE1+13, CLEAR~, CLEAR+1, CLEAR+2
>> L PARSE+14*
>> L1 PARSE+16*, ADD+1, ADD+2, ADD+3, ADD+4*
>> L2 PARSE+16*, STORE+7, STORE+8*, LAST+2
>> LC PARSE+12*, PARSE+13
LOOP FILE+20!
LOOP( FILE+27, FILE+28*, IDENT+5, IDENT+13
>> LOOPID1 IDENT+18*, IDENT+21
>> LOOPID2 IDENT+20*, IDENT+21
LOP FILE+20!, FILE+29!
LOP( FILE+26, FILE+27, FILE+28
>> LSTID FILE+32*, FILE+38*, IDENT+4
>> LSTSEG FILE+32*, FILE+37*, IDENT+17, IDENT+18, IDENT+19, IDENT+28, IDENT+31
>> LSTUSE FILE+32*, FILE+39*, IDENT+27, IDENT+29
>> ROU SEP+4*, SEP+5*, SEP+6, SEP+7
>> S ADD+5, STORE+5, STORE+6, STORE+9
>> SEGDA FILE+35*, FILE+36*, IDENT+24, FILE1+18
SEGI FILE+12!
SEGI( FILE+14
>> SEGID( FILE+14*, IDENT+19, IDENT+21, IDENT+25, IDENT+31, IDENT+32
SEGLNK FILE1+10~, FILE1+11*
>> SEGX FILE+36*, IDENT+1, IDENT+8, IDENT+9, IDENT+11, IDENT+12
SESGID FILE+12!
>> TEMPSEG IDENT+17*
TRDA EN~, EN+2, EN+3, PARSE~, PARSE+4, SEP~, SEP+4, FILE~, FILE1+8, FILE1+11
>> TRNAME IDENT+7, IDENT+10
>> VALMBCK EN+1*
>> X PARSE+13*, PARSE+14*, PARSE+15*, ADD+3*, ADD+5, STORE+5, STORE+6*, STORE+9, LAST+1*, LAST+2
, FILE1+6*, FILE1+18*
>> Y STORE+5*, STORE+7, FILE1+11
>> Z LAST+3*, LAST+5, LAST+6
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 |  All