Routine: TIUPNCVU

Information

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

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

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