Call Graph
Call Graph Total: 3
| Package | Total | Call Graph |
|---|---|---|
| Health Level Seven | 1 | $$FMDATE^HLFNC |
| Registration | 1 | $$DEM^DGMTU1 |
| VA FileMan | 1 | FILE^DIE |
IVM2174F ;ALB/JAM - IVM*2.0*174 - FIX BLANK SSN IN PERSON INCOME FILE ;9/26/2018 3:21pm
Source file <IVM2174F.m>
| Package | Total | Call Graph |
|---|---|---|
| Health Level Seven | 1 | $$FMDATE^HLFNC |
| Registration | 1 | $$DEM^DGMTU1 |
| VA FileMan | 1 | FILE^DIE |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EP | ; Entry Point
|
|
| IVMFSSN(DFN,IVMJOB) | ; Process only ZDP segments to store SSNs into 408.13 file if IEN is in ^XTMP("DG53970P")
; Called by: ^IVMCM if DFN is defined in ^XTMP("DG53970P") when processing ORU-Z10 message |
|
| FILESSN(DFN,IVMJOB,IVMSEG) | ; Check segment and store SSN in 408.13 if criteria met
; Input: DFN - DFN from PID segment ; IVMJOB - job number in ^XTMP("DG53970P",JOB) ; IVMSEG - the ZDPS or ZDPC segment |
|
| VALSSN(X,ERROR) | ; Validate the SSN format
; Input: X - SSN to validate ; ERROR - pass by reference, returns error text if validation fails ; Output: 1 if valid, 0 if invalid |
|
| GETIP(IVMPRI,IVMRELO,IVMDOB13,IVMSEX13) | ; Return 408.13 Sex,DOB,Relationship via 408.12 record
; Input: IVMPRI - IEN of 408.12 entry ; IVMRELO - Relationship from 408.12 piece 2 (pass by ref) ; IVMDOB13 - Date of Birth from 408.13 piece 3 (pass by ref) ; IVMSEX13 - Sex from 408.13 piece 2 (pass by ref) |
|
| CHKSSN(IEN) | ; Check to see if SSN IN 408.13 is corrupted and clean up if it is
; Input: IEN - 408.13 ien |
|
| XREF(IEN) | ; clean "SSN", "BS" and "BS5" xrefs for this INCOME PERSON file (#408.13) record
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPR(408.12 - [#408.12] | IVMFSSN+29, IVMFSSN+31, FILESSN+17, FILESSN+26, GETIP+6 |
| ^DGPR(408.13 - [#408.13] | CHKSSN+3, CHKSSN+5*, XREF+4, XREF+5! |
| ^TMP($J | IVMFSSN+8, IVMFSSN+12, IVMFSSN+13, IVMFSSN+17, IVMFSSN+18, IVMFSSN+22, IVMFSSN+23 |
| ^XTMP("DG53970P" | IVMFSSN+36, IVMFSSN+38!, FILESSN+31, FILESSN+37*, FILESSN+55*, FILESSN+57! |
| Name | Line Occurrences |
|---|---|
| $$VALSSN | FILESSN+37 |
| CHKSSN | FILESSN+48 |
| FILESSN | IVMFSSN+9, IVMFSSN+14, IVMFSSN+19, IVMFSSN+24 |
| GETIP | FILESSN+19 |
| XREF | CHKSSN+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | VALSSN+4~, VALSSN+7* |
| DFN | IVMFSSN~, IVMFSSN+9, IVMFSSN+14, IVMFSSN+19, IVMFSSN+24, IVMFSSN+29, IVMFSSN+38, FILESSN~, FILESSN+17 |
| DIERR | FILESSN+6~, FILESSN+53 |
| ERROR | VALSSN~, VALSSN+5*, VALSSN+8*, VALSSN+9*, VALSSN+10* |
| FDA | FILESSN+6~ |
| FDA( | FILESSN+50*, FILESSN+51* |
| IEN | IVMFSSN+6~, IVMFSSN+29*, IVMFSSN+31, CHKSSN~, CHKSSN+3, CHKSSN+5, CHKSSN+7, XREF~, XREF+5 |
| IVMCTR | IVMFSSN+6~, IVMFSSN+11*, IVMFSSN+12*, IVMFSSN+13, IVMFSSN+16*, IVMFSSN+17*, IVMFSSN+18, IVMFSSN+21*, IVMFSSN+22*, IVMFSSN+23 |
| IVMDOB | FILESSN+5~, FILESSN+14*, FILESSN+22 |
| IVMDOB13 | FILESSN+5~, FILESSN+19, FILESSN+22, GETIP~, GETIP+16* |
| IVMERR | FILESSN+4~, FILESSN+36*, FILESSN+37, FILESSN+54*, FILESSN+55 |
| IVMERRORS | FILESSN+6~ |
| IVMERRORS(1 | FILESSN+54 |
| IVMFLG1 | FILESSN+4~, FILESSN+15*, FILESSN+17, FILESSN+22* |
| IVMFOUND | IVMFSSN+6~, IVMFSSN+27*, IVMFSSN+29, IVMFSSN+36*, IVMFSSN+38, FILESSN+4~, FILESSN+29*, FILESSN+31*, FILESSN+32 |
| IVMIEN | IVMFSSN+6~, IVMFSSN+33*, IVMFSSN+36, FILESSN+4~, FILESSN+28*, FILESSN+31, FILESSN+37, FILESSN+48, FILESSN+50, FILESSN+51 , FILESSN+55, FILESSN+57 |
| IVMIENCNT | IVMFSSN+6~, IVMFSSN+34*, IVMFSSN+36*, FILESSN+4~, FILESSN+29*, FILESSN+31*, FILESSN+57 |
| IVMJOB | IVMFSSN~, IVMFSSN+9, IVMFSSN+14, IVMFSSN+19, IVMFSSN+24, IVMFSSN+36, IVMFSSN+38, FILESSN~, FILESSN+31, FILESSN+37 , FILESSN+55, FILESSN+57 |
| IVMPRI | FILESSN+4~, FILESSN+10*, FILESSN+12, FILESSN+17*, FILESSN+19, FILESSN+24, FILESSN+26, GETIP~, GETIP+6, GETIP+13 |
| IVMPRN | GETIP+5~, GETIP+6*, GETIP+7, GETIP+8 |
| IVMPSSNR | FILESSN+4~, FILESSN+41*, FILESSN+43*, FILESSN+46, FILESSN+51 |
| IVMRELN | FILESSN+5~, FILESSN+7*, FILESSN+9, FILESSN+22 |
| IVMRELO | FILESSN+5~, FILESSN+19, FILESSN+20, FILESSN+22, GETIP~, GETIP+7*, GETIP+10 |
| IVMSEG | IVMFSSN+6~, IVMFSSN+8*, IVMFSSN+9, IVMFSSN+13*, IVMFSSN+14, IVMFSSN+18*, IVMFSSN+19, IVMFSSN+23*, IVMFSSN+24, FILESSN~ , FILESSN+7, FILESSN+10, FILESSN+14, FILESSN+34, FILESSN+41 |
| IVMSEG13 | GETIP+11~, GETIP+13*, GETIP+14, GETIP+16 |
| IVMSEX | FILESSN+5~, FILESSN+14*, FILESSN+22 |
| IVMSEX13 | FILESSN+5~, FILESSN+19, FILESSN+22, GETIP~, GETIP+16* |
| IVMSSN | FILESSN+4~, FILESSN+34*, FILESSN+37, FILESSN+39*, FILESSN+46*, FILESSN+50, CHKSSN+2~, CHKSSN+3*, CHKSSN+4 |
| IVMVAL | IVMFSSN+6~, IVMFSSN+31*, IVMFSSN+32, IVMFSSN+33, FILESSN+4~, FILESSN+26*, FILESSN+27, FILESSN+28 |
| VAL | XREF+1~, XREF+3*, XREF+4*, XREF+5 |
| X | VALSSN~, VALSSN+5, VALSSN+7*, VALSSN+8, VALSSN+9, VALSSN+10 |
| XREF | XREF+1~, XREF+2*, XREF+4, XREF+5 |
