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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: TIUPNCVU

Package: Text Integration Utility

Routine: TIUPNCVU


Information

TIUPNCVU ;SLC/DAN - Final pass through ^GMR(121 for conversion ;4/22/98@14:08:17

Source Information

Source file <TIUPNCVU.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$VERSION^XPDUTL  
Text Integration Utility 2 EMERG^TIUPNCV4  $$READ^TIUU  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Text Integration Utility 2 TIU GMRPN FINAL  TIUPNCV4  

Entry Points

Name Comments DBIA/ICR reference
ASKCOS() ;Ask for cosigner to be used for notes that are signed but uncosigned and req cosignature
EN ; Entry Point
CONVERT(Y) ;Sets needed variables and calls the convert individual note process
EXPLAIN ;Explain what this option does
CLEAN ;KILL VARIABLES
DEVICE ;Allows user to queue this option
WHY
DQ ;Move through ^GMR(121 and convert any remaining notes

External References

Name Field # of Occurrence
^%ZIS DEVICE+1
HOME^%ZIS DEVICE+2
^%ZISC DEVICE+2
^%ZTLOAD DEVICE+2
^DIR ASKCOS+4
EMERG^TIUPNCV4 CONVERT+2
$$READ^TIUU WHY+1
$$VERSION^XPDUTL EN+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"YOU MUST INSTALL TIU BEFORE RUNNING THIS OPTION!",$C(7)
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,TIULINE
  • Line Location: WHY+0
Function Call: WRITE
  • Prompt: !,"Ok, come back when you're sure."
  • Line Location: WHY+2
Function Call: WRITE
  • Prompt: !!,"It appears as though the Progress Notes conversion is running.",!,"Please run this after the conversion finishes."
  • Line Location: WHY+4
Function Call: WRITE
  • Prompt: !,"Request ",$S($D(ZTSK):"Queued",1:"Cancelled"),!
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !!,"CONVERSION IS COMPLETE!"
  • Line Location: DQ+3
Function Call: WRITE
  • Prompt: !!,"Total entries processed: ",$P(^GMR(121,0),"^",4),!,"Attempted to convert: ",TIUATC,!,"Converted: ",TIUCVTED
  • Line Location: DQ+4
Function Call: WRITE
  • Prompt: !,"For notes that are signed but are uncosigned, an expected",!,"cosigner must be identified before notes can be moved to TIU."
  • Line Location: ASKCOS+1
Function Call: WRITE
  • Prompt: !!,"Please identify a user who will become the expected cosigner for",!,"these notes. The clinical coordinator is recommended.",!
  • Line Location: ASKCOS+2
Function Call: WRITE
  • Prompt: !,"Once these are moved to TIU the above named cosigner can edit the notes",!,"and put in the correct expected cosigner.",!
  • Line Location: ASKCOS+3
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+2
Routine Call
  • DIR
  • Line Location:
    • ASKCOS+4
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] CONVERT+1
^GMR(121 DQ+2, DQ+4, CONVERT+1, CONVERT+3
^TIU(8925.97 - [#8925.97] WHY+4, CONVERT+4*

Label References

Name Line Occurrences
$$ASKCOS WHY+5
CLEAN WHY+2, WHY+4, WHY+5, DEVICE+1, DEVICE+2
CONVERT DQ+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+1*, CLEAN+1!
DIR CLEAN+1!, ASKCOS+4~
DIR("A" ASKCOS+4*
DIR(0 ASKCOS+4*
DPTIEN CONVERT+1~*
EMER CLEAN+1!, CONVERT+1*
GMRIEN DQ+2*, CLEAN+1!, CONVERT+3, CONVERT+4
IO("Q" DEVICE+2, CLEAN+1!
ION DEVICE+2
IOST DQ+1, DQ+2
POP DEVICE+1, CLEAN+1!
TIU CLEAN+1!
TIUATC DQ+1*, DQ+4, CLEAN+1!, CONVERT+1*
TIUCVTED DQ+1*, DQ+4, CLEAN+1!, CONVERT+3*
TIUECS WHY+5*, CLEAN+1!
TIULINE WHY*, CLEAN+1!
TIURUN WHY+1*, WHY+2, CLEAN+1!
TIUWN WHY*, CLEAN+1!
U WHY+4
Y CLEAN+1!, CONVERT~, CONVERT+1, ASKCOS+4~, ASKCOS+5
ZTDESC DEVICE+2*, CLEAN+1!
ZTIO DEVICE+2*, CLEAN+1!
ZTRTN DEVICE+2*, CLEAN+1!
ZTSAVE CLEAN+1!
ZTSAVE("TIUECS" DEVICE+2*
ZTSK DEVICE+2, CLEAN+1!

Marked Items

Name Field # of Occurrence
$T(@(3) WHY
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All