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 |  Local Variables |  All
Print Page as PDF
Routine: TIU214

Package: Text Integration Utility

Routine: TIU214


Information

TIU214 ; VMP/JML - ID NOTES with Mismatched Patients ;11-Feb-2013 08:57;DU

Source Information

Source file <TIU214.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
VA Fileman 5 DD^%DT  YX^%DTC  ^DIE  $$GET1^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 3 DEM^VADPT  CLEAR^VALM1  $$SITE^VASITE  
Text Integration Utility 2 $$POSSPRNT^TIULP  $$HRCN^TIUR2  
MailMan 1 SENDMSG^XMXAPI  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Text Integration Utility 1 TIU MISMATCHED ID NOTES  

Entry Points

Name Comments DBIA/ICR reference
HDR2(TIUFF) ;
SEARCH ;
EN ; Build array of mismatched ID documents
PNAME(PTDFN) ; Return Patient Name & last 4 of SSN
HDR1(TIUFF) ;
HDR3(TIUFF) ;
PAUSE ;
REPORT ;
MAIL ; EMAIL TOTALS TO B.PSI-06-030 TO TRACK COMPLIANCE

External References

Name Field # of Occurrence
DD^%DT SEARCH+14, SEARCH+26, SEARCH+34
YX^%DTC MAIL+4
^%ZIS EN+12
^%ZISC SEARCH+39
^%ZTLOAD EN+17
^DIE REPORT+30, REPORT+57
$$GET1^DIQ SEARCH+11, SEARCH+12, SEARCH+23, SEARCH+24, SEARCH+31, SEARCH+32
^DIR EN+9, PAUSE+3
$$POSSPRNT^TIULP SEARCH+29
$$HRCN^TIUR2 PNAME+8
DEM^VADPT PNAME+4
CLEAR^VALM1 REPORT+6
$$SITE^VASITE MAIL+3
SENDMSG^XMXAPI MAIL+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!?5,"Searching for Parent/Child ID Notes with mismatched patients...",!!
  • Line Location: SEARCH+3
Function Call: WRITE
  • Prompt: $P(TIUCINFO,"^",1)," ("
  • Condition for execution: TIUSHOW
  • Line Location: REPORT+48
Function Call: WRITE
  • Prompt: $P(TIUCINFO,"^",2)
  • Line Location: REPORT+48
Function Call: WRITE
  • Prompt: ")"
  • Condition for execution: TIUSHOW
  • Line Location: REPORT+48
Function Call: WRITE
  • Prompt: $P(TIUCINFO,"^",1)," ("
  • Condition for execution: TIUSHOW
  • Line Location: REPORT+74
Function Call: WRITE
  • Prompt: $P(TIUCINFO,"^",2)
  • Line Location: REPORT+74
Function Call: WRITE
  • Prompt: ")"
  • Condition for execution: TIUSHOW
  • Line Location: REPORT+74
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: REPORT+81
Function Call: WRITE
  • Prompt: !!?15,"TOTAL COUNTS FOR MISMATCHED ID NOTES"
  • Line Location: REPORT+82
Function Call: WRITE
  • Prompt: !?15,"------------------------------------",!
  • Line Location: REPORT+83
Function Call: WRITE
  • Prompt: !?15,+^TMP("TIU214",$J)_" CROSS REFERENCES CHECKED"
  • Line Location: REPORT+84
Function Call: WRITE
  • Prompt: !?15,+^TMP("TIU214",$J,"MISMATCH")_" MISSMATCHED NOTE(S) FOUND"
  • Line Location: REPORT+85
Function Call: WRITE
  • Prompt: !?15,+^TMP("TIU214",$J,"MISSING")_" NON EXISTENT PARENT NOTE(S)"
  • Line Location: REPORT+86
Function Call: WRITE
  • Prompt: !?15,+^TMP("TIU214",$J,"NONPRNT")_" PARENT MAY NOT BE AN ID NOTE"
  • Line Location: REPORT+87
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: ?18,"MISMATCHED INTERDISCIPLINARY NOTES"
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: !!?10,"CHILD DOCUMENT",?45,"PARENT DOCUMENT"
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !?10,"---------------",?45,"--------------"
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: !?11,"CHILD ID NOTES POINTING TO A NON-EXISTENT PARENT ID NOTE"
  • Line Location: HDR2+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR3+3
Function Call: WRITE
  • Prompt: !?11,"CHILD ID NOTES POINTING TO A PARENT THAT MAY NOT BE AN ID NOTE"
  • Line Location: HDR3+4
Function Call: WRITE
  • Prompt: !!?11,"** NOTE: THIS IS AN INFORMATIONAL LIST FOR INVESTIGATION.",!?11," NOTHING WILL BE FIXED **"
  • Line Location: HDR3+5
Routine Call
  • DIE
  • Line Location:
    • REPORT+30
    • REPORT+57
Routine Call
  • DIR
  • Line Location:
    • EN+9
    • PAUSE+3
Routine Call
  • %ZIS
  • Line Location:
    • EN+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925 - [#8925] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925 - [#8925] SEARCH+5, SEARCH+8, SEARCH+9, SEARCH+13, SEARCH+15, SEARCH+25, SEARCH+33, REPORT+28, REPORT+33, REPORT+34!
, REPORT+55, REPORT+60, REPORT+61!
^TMP("TIU214" SEARCH+1!, SEARCH+2*, SEARCH+6*, SEARCH+17*, SEARCH+18*, SEARCH+21*, SEARCH+22, SEARCH+27*, SEARCH+28*, SEARCH+30*
, SEARCH+35*, SEARCH+38!, REPORT+4*, REPORT+5*, REPORT+11, REPORT+12, REPORT+14, REPORT+15, REPORT+32*, REPORT+36*
, REPORT+43, REPORT+45, REPORT+46, REPORT+59*, REPORT+63*, REPORT+69, REPORT+71, REPORT+72, REPORT+84, REPORT+85
, REPORT+86, REPORT+87, REPORT+89, REPORT+90, REPORT+91, REPORT+92, MAIL+7, MAIL+8, MAIL+9, MAIL+16
, MAIL+17, MAIL+18, MAIL+19, HDR1+1, HDR2+1, HDR3+1

Label References

Name Line Occurrences
$$PNAME SEARCH+10, SEARCH+20
HDR1 REPORT+9, REPORT+16
HDR2 REPORT+41, REPORT+47
HDR3 REPORT+67, REPORT+73
MAIL SEARCH+37
PAUSE REPORT+16, REPORT+38, REPORT+47, REPORT+65, REPORT+73, REPORT+80
REPORT SEARCH+36

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%H MAIL+1~, MAIL+4*
%ZIS EN+2~, EN+12*
DA REPORT+29~, REPORT+30*, REPORT+56~, REPORT+57*
DFN EN+2~, PNAME+4*, PNAME+8
DIE REPORT+29~, REPORT+30*, REPORT+56~, REPORT+57*
DIR EN+2~, EN+9!, PAUSE+2~, PAUSE+3!
DIR("B" EN+8*
DIR("L" EN+4*, EN+5*, EN+6*, EN+7*
DIR(0 EN+3*, PAUSE+3*
DIRUT EN+2~, EN+10, PAUSE+2~, PAUSE+4
DR REPORT+29~, REPORT+30*, REPORT+56~, REPORT+57*
DUZ EN+11
DUZ(2 PNAME+8
HRCN PNAME+1~, PNAME+8*, PNAME+9
IO REPORT+1
IO("Q" EN+14, EN+17!
IOF SEARCH+3, REPORT+81, HDR1+3, HDR2+3, HDR3+3
IOSL REPORT+16, REPORT+47, REPORT+73
IOST SEARCH+3, REPORT+3, REPORT+6, REPORT+7, REPORT+39, REPORT+66, PAUSE+1
POP EN+2~, EN+13
PTDFN PNAME~, PNAME+2, PNAME+4
TIUBAD EN+1~, SEARCH+29*
TIUC0 EN+1~, SEARCH+9*
TIUC12 EN+2~, SEARCH+13*, SEARCH+14
TIUCAUTH EN+1~, SEARCH+11*, SEARCH+18, SEARCH+28
TIUCDFN EN+1~, SEARCH+9*, SEARCH+10, SEARCH+19
TIUCEDT EN+2~, SEARCH+14*, SEARCH+18, SEARCH+28
TIUCHILD EN+1~, SEARCH+7*, SEARCH+8*, SEARCH+9, SEARCH+11, SEARCH+12, SEARCH+13, SEARCH+18, SEARCH+28, SEARCH+35
, REPORT+13*, REPORT+14*, REPORT+15, REPORT+28, REPORT+30, REPORT+33, REPORT+34, REPORT+44*, REPORT+45*, REPORT+46
, REPORT+52, REPORT+55, REPORT+57, REPORT+60, REPORT+61, REPORT+70*, REPORT+71*, REPORT+72, REPORT+78
TIUCINFO REPORT+2~, REPORT+15*, REPORT+18, REPORT+21, REPORT+23, REPORT+24, REPORT+25, REPORT+26, REPORT+46*, REPORT+48
, REPORT+49, REPORT+50, REPORT+51, REPORT+72*, REPORT+74, REPORT+75, REPORT+76, REPORT+77, REPORT+78
TIUCNAME EN+1~, SEARCH+10*, SEARCH+18, SEARCH+28, SEARCH+35
TIUCTITL EN+1~, SEARCH+12*, SEARCH+18, SEARCH+28, SEARCH+35
TIUDATA EN+1~, REPORT+7*, REPORT+38, REPORT+39*, REPORT+65, REPORT+66*, REPORT+80, HDR1+2*, HDR2+2*, HDR3+2*
TIUDUZ EN+2~, EN+11*
TIUFF HDR1~, HDR1+3, HDR2~, HDR2+3, HDR3~, HDR3+3
TIUFIX EN+2~, EN+11*, REPORT+8, REPORT+27, REPORT+40, REPORT+54, REPORT+88, MAIL+10, MAIL+13
TIUHIDE REPORT+2~
TIULEN EN+2~, REPORT+7*, REPORT+8*, REPORT+16, REPORT+39*, REPORT+40*, REPORT+47, REPORT+66*, REPORT+73
TIUMAIL MAIL+1~
TIUMAIL(1 MAIL+3*
TIUMAIL(10 MAIL+17*
TIUMAIL(11 MAIL+18*
TIUMAIL(12 MAIL+19*
TIUMAIL(2 MAIL+5*
TIUMAIL(3 MAIL+6*
TIUMAIL(4 MAIL+7*
TIUMAIL(5 MAIL+8*
TIUMAIL(6 MAIL+9*
TIUMAIL(7 MAIL+11*, MAIL+14*
TIUMAIL(8 MAIL+12*, MAIL+15*
TIUMAIL(9 MAIL+16*
TIUNAME PNAME+1~
TIUP0 EN+1~, SEARCH+15*, SEARCH+16, SEARCH+29
TIUP12 EN+2~, SEARCH+25*, SEARCH+26, SEARCH+33*, SEARCH+34
TIUPAUTH EN+2~, SEARCH+23*, SEARCH+27, SEARCH+31*, SEARCH+35
TIUPDFN EN+1~, SEARCH+15*, SEARCH+19, SEARCH+20
TIUPEDT EN+2~, SEARCH+26*, SEARCH+27, SEARCH+34*, SEARCH+35
TIUPINFO REPORT+2~, REPORT+12*, REPORT+19, REPORT+22, REPORT+23, REPORT+24, REPORT+25, REPORT+26
TIUPN PNAME+1~, PNAME+11*, PNAME+12*, PNAME+13*, PNAME+14
TIUPNAME EN+1~, SEARCH+20*, SEARCH+27
TIUPRNT EN+1~, SEARCH+4*, SEARCH+5*, SEARCH+8, SEARCH+15, SEARCH+18, SEARCH+22, SEARCH+23, SEARCH+24, SEARCH+25
, SEARCH+27, SEARCH+28, SEARCH+31, SEARCH+32, SEARCH+33, SEARCH+35, REPORT+10*, REPORT+11*, REPORT+12, REPORT+14
, REPORT+15, REPORT+28, REPORT+33, REPORT+34, REPORT+42*, REPORT+43*, REPORT+45, REPORT+46, REPORT+53, REPORT+55
, REPORT+60, REPORT+61, REPORT+68*, REPORT+69*, REPORT+71, REPORT+72, REPORT+75
TIUPTITL EN+2~, SEARCH+24*, SEARCH+27, SEARCH+32*, SEARCH+35
TIUQUIT REPORT+2~, REPORT+3*, REPORT+11, REPORT+14, REPORT+16, REPORT+37, REPORT+38, REPORT+43, REPORT+45, REPORT+47
, REPORT+64, REPORT+65, REPORT+69, REPORT+71, REPORT+73, REPORT+79, REPORT+80, PAUSE+4*
TIUSHOW REPORT+2~, REPORT+3*, REPORT+17, REPORT+20, REPORT+48, REPORT+74
TIUSSN PNAME+1~, PNAME+5*, PNAME+6
TIUSSN4 PNAME+1~, PNAME+6*, PNAME+9*, PNAME+12
U SEARCH+9, SEARCH+15
VADM PNAME+1~
VADM(1 PNAME+11
VADM(2 PNAME+5
XMDUZ MAIL+1~, MAIL+2*, MAIL+21
XMSUBJ MAIL+1~, MAIL+2*, MAIL+21
XMTO MAIL+1~, MAIL+21
XMTO("G.PSI-06-030@FORUM.VA.GOV" MAIL+20*
Y EN+2~, EN+11, SEARCH+14*, SEARCH+26*, SEARCH+34*, MAIL+1~, MAIL+5
ZTDESC EN+15~, EN+16*
ZTRTN EN+15~, EN+16*
ZTSAVE EN+15~
ZTSAVE("TIU*" EN+16*
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 |  Local Variables |  All