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: BAR50P01

Package: IHS Accounts Receivable

Routine: BAR50P01


Information

BAR50P01 ; IHS/SD/LSL - EDI PARSING ;

Source Information

Source file <BAR50P01.m>

Call Graph

Call Graph Total: 5

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Accounts Receivable 1 BAR50P00  

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^BAR50IUT LAST+1
^DIC FILE1+11
FILE^DICN FILE1+25
$$GET1^DIQ SEP+4
$$DIC^XBDIQ1 FILE+21, FILE1+7, FILE1+17
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+11

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+3, FILE1+4, FILE1+5*
>> 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, IDENT+33
>> 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+32*, IDENT+33, FILE1+8
>> CURUSE FILE+32*, FILE+39, IDENT+25*, IDENT+29*, IDENT+33*
DA FILE1+6!, FILE1+14!
DA(1 FILE1+10*, FILE1+15*
DD FILE1+6!, FILE1+14!, FILE1+26!
DIC FILE+20!, FILE+21*, FILE+23, FILE1+6!, FILE1+7*, FILE1+14!, FILE1+17*, FILE1+26!
DIC("DR" FILE1+21*, FILE1+22*, FILE1+23*, FILE1+24*
DIC("P" FILE1+16*
DIC("S" FILE+22*
DIC(0 FILE1+9*, FILE1+19*
>> DLAYGO FILE1+18*
DO FILE1+6!, FILE1+14!, FILE1+26!
DR FILE1+6!, FILE1+14!, FILE1+26!
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+15, 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+32
>> 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+20
SEGI FILE+12!
SEGI( FILE+14
>> SEGID( FILE+14*, IDENT+19, IDENT+21, IDENT+25, IDENT+32, IDENT+33
SEGLNK FILE1+12~, FILE1+13*
>> SEGX FILE+36*, IDENT+1, IDENT+8, IDENT+9, IDENT+11, IDENT+12, FILE1+2*
SESGID FILE+12!
>> TEMPSEG IDENT+17*
TRDA EN~, EN+2, EN+3, PARSE~, PARSE+4, SEP~, SEP+4, FILE~, FILE1+10, FILE1+13
>> 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+8*, FILE1+20*
>> Y STORE+5*, STORE+7, FILE1+13
>> 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