Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: TIU214

Package: Text Integration Utility

Routine: TIU214


Information

TIU214 ; VMP/JML - ID NOTES with Mismatched Patients ;3/31/06 ; Compiled March 13, 2006 15:21:26

Source Information

Source file <TIU214.m>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925 - [#8925] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call