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
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls