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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PXVZRT

Package: PCE Patient Care Encounter

Routine: PXVZRT


Information

PXVZRT ;SLC/PBB - VIMM UTILITY ROUTINE ;05/31/2016 2:44 PM

Source Information

Source file <PXVZRT.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 7 ^%DT  ^DIC  FILE^DICN  (CHK,FILE,UPDATE)^DIE  ^DIK  $$ROOT^DILFD  ($$GET1,GETS)^DIQ  
Kernel 3 $$FMTHL7^XLFDT  $$UNESC^XUMF0  (ADD,EM)^XUMF1H  
Toolkit 1 $$GETSTAT^XTID  

Entry Points

Name Comments DBIA/ICR reference
ZRT ;Manipulate update of MFN ZRT segment for Immunization files
920 ; Manipulate update of MFN ZRT segment for 920 File
99999914 ; Manipulate update of MFN ZRT segment for 9999999.14 File
99999928
9204 ; Manipulate update of MFN ZRT segment for 920.4 File
9201 ; Manipulate update of MFN ZRT Segment for 920.01 File
99999904 ; Manipulate update of MFN ZRT Segment for 9999999.04 File
M92002 ;Conversion of File:920 field .02 EDITION DATE to VETS form 02/31/2014
M92004 ;Conversion of File:920 field .04 POINTER TO LANGUAGE FILE (#.85)
M92003 ;Conversion of File:920 field .03 EDITION STATUS
M999142 ;Conversion of File:9999999.14 FIELD:.2 COMBINATION IMMUNIZATION COMVERT FROM 1 to Y and from 0 to N
M9992803 ;Conversion of File:9999999.28 FIELD:.03 INACTIVE FLAG
M999283 ;Conversion of File:9999999.28 FIELD: 3 CODING SYSTEM From: CPT to CPT:00001,00002
M999143 ;Conversion of File:9999999.14 FIELD: 3 CODING SYSTEM From: CPT to CPT:00001,00002
DS(SUBFILE,IENS) ;Delete subfile
IFST(FIELD,YES,NO) ;Send AE if Inactive flag doesn't match VUID Status.
DUP(SUB,X1,X2) ;

External References

Name Field # of Occurrence
^%DT 920+35
^DIC 920+13, 920+39
FILE^DICN 920+54
CHK^DIE 920+52
FILE^DIE 920+68
UPDATE^DIE 99999914+12, 99999928+13
^DIK DS+4
$$ROOT^DILFD 920+26, DS+2
$$GET1^DIQ 920+43, M92004+2, M92003+5
GETS^DIQ M999283+4, M999143+4, DUP+2
$$FMTHL7^XLFDT M92002+3
$$GETSTAT^XTID 920+50
$$UNESC^XUMF0 920+3, 920+12, 920+25
ADD^XUMF1H 920+74
EM^XUMF1H 920+71, 99999914+15, 99999928+16, IFST+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DI(.85 - [#.85] GET1^DIQ
^AUTTIVIS - [#920] GET1^DIQ
9999999.143 GETS^DIQ
9999999.283 GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("XUMF EVENT" 920+58*, 920+59*

Label References

Name Line Occurrences
920 ZRT+3
9201 ZRT+3
9204 ZRT+3
99999904 ZRT+3
99999914 ZRT+3
99999928 ZRT+3
DS 99999914+4, 99999914+5, 99999914+19, 99999914+20, 99999914+22, 99999914+23, 99999914+27, 99999914+28, 99999914+30, 99999914+31
99999928+5, 99999928+6, 9204+2, 9204+3
DUP 99999914+7, 99999928+8
IFST 99999914+32, 99999928+23, 9204+4, 9201+1, 99999904+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT 920+24~
DA 99999914+1~, 99999928+1~, DS+4~*
DA(1 DS+4*
DIC 920+11~, 920+13*, 920+24~, 920+39*, 920+54!*, M92003+3~, DS+4~
DIC(0 920+13*, 920+39*, 920+54*
DIK 99999914+1~, 99999928+1~, DS+4~*
ERR 920+24~, 920+66!, 920+69, 920+71!, 99999914+1~, 99999914+13, 99999914+15, 99999928+1~, 99999928+14, 99999928+16
, IFST+6
>> ERROR 920+6*, 920+13*, 920+29*, 920+36*, 920+39*, 920+43, 920+45*, 920+46, 920+51, 920+53*
920+55*, 920+70*, 920+71, 99999914+8, 99999914+14*, 99999914+15, 99999914+16, 99999928+9, 99999928+15*, 99999928+16
99999928+17, IFST+5*, IFST+6, DUP+4*, DUP+5, DUP+8*
FDA 920+24~
FDA( 920+15*, 920+63*, 920+64*, IFST+1, IFST+3, IFST+4, IFST+5
FDAA 99999914+1~, 99999914+12, 99999928+1~, 99999928+13
FDAA( 99999914+10*, 99999914+11*, 99999928+11*, 99999928+12*
FIELD IFST~, IFST+1, IFST+3, IFST+4, IFST+5
>> HL 920+3, 920+12, 920+25
>> HLFS 920+3, 920+9, 920+12, 920+25, 99999914+3, 99999914+19, 99999914+22, 99999914+25, 99999914+27, 99999914+30
99999928+4, 99999928+20, 9204+2, IFST+2
>> HLNODE ZRT+2*, 920+3, 920+6, 920+9*, 920+12, 920+13, 920+25, 920+29, 920+36, 920+39
920+45, 920+53, 920+55, 920+70, 99999914+3, 99999914+14, 99999914+19, 99999914+22, 99999914+25*, 99999914+27
99999914+30, 99999928+4, 99999928+15, 99999928+20*, 9204+2, IFST+2, IFST+5, DUP+4, DUP+8
>> HLNODE(1 ZRT+2
I 920+5*, 920+8*, 920+24~, 920+28*, 920+31*, 920+32*, 99999914+1~, 99999914+11*, 99999928+1~, 99999928+12*
M92002+3, M92004+1, M92004+2, M92003+6, M999142+2, M9992803+1, M999283+3, M999283+6, M999143+3, M999143+7
, DUP+7*
IDX DS+1~, DS+3*, DS+4
>> IEN ZRT+1, 920+1, 920+10, 920+14, 920+18, 920+43*, 920+45, 920+48, 920+49, 920+50
920+51, 920+56*, 920+58, 920+59, 920+61, 920+70, 920+77, 920+78, 99999914+2, 99999914+4
99999914+5, 99999914+9, 99999914+18, 99999914+19, 99999914+20, 99999914+21, 99999914+22, 99999914+23, 99999914+24, 99999914+26
99999914+27, 99999914+28, 99999914+29, 99999914+30, 99999914+31, 99999914+32, 99999928+2, 99999928+5, 99999928+6, 99999928+10
99999928+19, 99999928+21, 99999928+23, 9204+1, 9204+2, 9204+3, 9204+4, 9201+1, 99999904+1, IFST+1
, IFST+3, IFST+4, IFST+5, DUP+2
IEN1 99999914+1~, 99999914+10*, 99999914+11, 99999928+1~, 99999928+11*, 99999928+12
IENS 920+11~, 920+14*, 920+15, 920+24~, 920+43*, 920+61*, 920+63, 920+64, 99999914+1~, 99999914+9*
99999914+10, 99999914+11, 99999928+1~, 99999928+10*, 99999928+11, 99999928+12, M92002+3, M92004+1, M92004+2, M92003+4
M92003+6, M999142+2, M9992803+1, M999283+3, M999283+4, M999283+6, M999143+3, M999143+4, M999143+7, DS~
, DS+2, DS+4
IENX 99999914+1~, 99999914+11*, 99999928+1~, 99999928+12*
>> IFN ZRT+3, 920+6, 920+13, 920+15, 920+26, 920+29, 920+36, 920+39, 920+45, 920+50
920+52, 920+53, 920+54, 920+55, 920+58, 920+59, 920+63, 920+64, 920+70, IFST+1
, IFST+3, IFST+4, IFST+5, DUP+2, DUP+4, DUP+8
II 99999914+1~, M999283+2~, M999283+5*, M999143+2~, M999143+5*, DUP+3*, DUP+4
IIEN 920+24~, 920+42*, 920+43*, 920+45
>> LEV M92002+3, M92004+1, M92004+2, M92003+4, M92003+6, M999142+2, M9992803+1, M999283+3, M999283+6, M999143+3
M999143+7
>> NAME ZRT+1, 920+1, 920+10, 920+12*, 920+13, 920+18, 920+25*, 920+28, 920+30, 99999914+2
99999914+18, 99999914+21, 99999914+24, 99999914+26, 99999914+29, 99999914+32, 99999928+2, 99999928+19, 99999928+21, 99999928+23
9204+1, 9204+4, 9201+1, 99999904+1
NO IFST~, IFST+4
>> OUT 920+16*, 920+79*, 99999914+4*, 99999914+17*, 99999914+19*, 99999914+22*, 99999914+27*, 99999914+30*, 99999928+5*, 99999928+18*
99999928+22*, 9204+2*
>> RECORD("BEFORE" 920+49*
>> RECORD("NEW" 920+56*, 920+58, 920+59
>> RECORD("STATUS" 920+50*
ROOT 920+24~, 920+26*, 920+43, 920+49, DS+1~, DS+2*, DS+3, DS+4
SUB DUP~, DUP+3
SUBFILE DS~, DS+2
TMP 99999914+1~, M999283+2~, M999143+2~
TMP( M999283+5, M999143+5, DUP+3
>> TMP1( M92002+3*, M92004+1, M92004+2*, M92003+4, M92003+6*, M999142+2*, M9992803+1*, M999283+3, M999283+6*, M999143+3
M999143+7*
>> VUID 920+63, 920+70
X 920+11~, 920+13*, 920+24~, 920+35*, 920+39*, 920+52, 920+53, 99999914+1~, 99999914+3*, 99999914+4
99999914+6, 99999928+1~, 99999928+4*, 99999928+5, 99999928+7, M92002+1~, M92003+3~, M999142+1~, M999142+2*, DS+1~
X1 920+2~, 920+3*, 920+5, 920+7*, 920+8*, 920+9, 920+24~, 920+30*, 920+32*, 920+43
920+52, 99999914+1~, 99999914+6*, 99999914+7, 99999914+10, 99999928+1~, 99999928+7*, 99999928+8, 99999928+11, IFST+2~*
, IFST+3, IFST+4, DUP~, DUP+3
X2 920+24~, 920+30*, 920+35, 920+37*, 920+43, 99999914+1~, 99999914+6*, 99999914+7, 99999914+11, 99999928+1~
99999928+7*, 99999928+8, 99999928+12, M92002+3, M92004+1, M92004+2, M92003+4, M92003+6, M999142+2, M9992803+1
M999283+3, M999283+6, M999143+3, M999143+7, DUP~, DUP+7
X3 920+24~, 920+30*, 920+31*, 920+39, 920+40*, 920+43, 99999914+1~, M999283+2~, M999283+5*, M999283+6
M999143+2~, M999143+5*, M999143+7, DUP+3*
X4 99999914+1~, 99999914+11*, 99999928+1~, 99999928+12*, M999283+2~, M999283+3*, M999283+5*, M999283+6*, M999143+2~, M999143+3*
M999143+5*, M999143+7*
X5 99999914+1~, DUP+7*
X6 99999914+1~
X6( DUP+7*
XIEN 920+77!
XIEN( 920+77, 920+78*
XREF 920+24~
XX 99999914+1~, M92004+1~*, M92004+2, M92003+3~, M92003+4*, M92003+5*, M92003+6
XXIEN ZRT+1!
XXIEN( 99999914+5*, 99999914+20*, 99999914+23*, 99999914+28*, 99999914+31*, 99999928+6*, 9204+3*
Y 920+2~, 920+5*, 920+6, 920+7, 920+8*, 920+13, 920+15, 920+24~, 920+28*, 920+29
920+30, 920+32*, 920+36, 920+37, 920+39, 920+40, 920+55, 920+56, M92002+1~, M92002+3*
M92003+3~
YES IFST~, IFST+3
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All