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

Package: Text Integration Utility

Routine: TIUPNCV4


Information

TIUPNCV4 ;SLC/DJP ;2/26/98 13:30

Source Information

Source file <TIUPNCV4.m>

Entry Points

Name Comments DBIA/ICR reference
ENTRY ;Entry point to set-up conversion
PNDEVICE ;Permits site to queue conversion
REPORT ;sends bulletin to initiator of conversion
RESTART ;Permit restarting of conversion from last successfully processed note.
INDY ;Converts individual Progress Notes based on IEN in ^GMR(121
ENINDY ;Entry of IEN
EMERG ;Emergency entrance - must pass "Y" and "EMER"
KILINDY ;Cleans up the debris
HELP1 ;Help for are you sure prompt
HELP2 ;Help for RESTART prompt
HELP3 ;Help for IEN prompt
HELP4 ;Help for INDY prompt

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"DUZ must be defined as an active user!",!
  • Line Location: ENTRY+2
Function Call: WRITE
  • Prompt: !!,"Conversion has been completed.",!
  • Line Location: ENTRY+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTRY+6
Function Call: WRITE
  • Prompt: !!?9,$C(7),"Progress Notes Conversion Running in Foreground",!
  • Line Location: ENTRY+10
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled."),!
  • Line Location: PNDEVICE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: RESTART+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RESTART+2
Function Call: WRITE
  • Prompt: !!?10,"****** RESTART PROGRESS NOTE/TIU CONVERSION ******",!!
  • Line Location: RESTART+3
Function Call: WRITE
  • Prompt: !?5,"Conversion has NOT been previously run",!?5,"Please use the CONVERT PROGRESS NOTE option."
  • Line Location: RESTART+5
Function Call: WRITE
  • Prompt: !!?5,"A mail message documenting discrepancies encountered during "
  • Line Location: RESTART+8
Function Call: WRITE
  • Prompt: !,?5,"processing will be sent to you.",!
  • Line Location: RESTART+9
Function Call: WRITE
  • Prompt: !!,"Restarting Progress Note Conversion at Record #"_GMRPST_"...",!
  • Line Location: RESTART+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: INDY+2
Function Call: WRITE
  • Prompt: !!?18,"***** INDIVIDUAL RECORD CONVERSION *****",!
  • Line Location: INDY+2
Function Call: WRITE
  • Prompt: !,"Entry ",Y," not found in file 121",$C(7)
  • Line Location: ENINDY+4
Function Call: WRITE
  • Prompt: !!,"*****Progress Note "_GMRPIFN_" NOT converted*****",!
  • Line Location: EMERG+6
Function Call: WRITE
  • Prompt: ^GMR(121,"ERROR",GMRPIFN),!
  • Line Location: EMERG+7
Function Call: WRITE
  • Prompt: !!,"Enter Yes if you're ready to start the conversion."
  • Line Location: HELP1+1
Function Call: WRITE
  • Prompt: !,"Press return or enter NO to stop this process."
  • Line Location: HELP1+2
Function Call: WRITE
  • Prompt: !!?5,"Enter YES to re-start/re-queue the conversion."
  • Line Location: HELP2+1
Function Call: WRITE
  • Prompt: !?5,"Press <ret> or enter NO to stop this option."
  • Line Location: HELP2+2
Function Call: WRITE
  • Prompt: !!?5,"The default is the next expected Internal File Number (IEN)"
  • Line Location: HELP3+1
Function Call: WRITE
  • Prompt: " for a note."
  • Line Location: HELP3+2
Function Call: WRITE
  • Prompt: !?5,"If another starting point is required, enter the IEN for that"
  • Line Location: HELP3+3
Function Call: WRITE
  • Prompt: " note."
  • Line Location: HELP3+4
Function Call: WRITE
  • Prompt: !?5,"Enter ""^"" to stop option without processing."
  • Line Location: HELP3+5
Function Call: WRITE
  • Prompt: !!?5,"Enter the Internal Entry Number (IEN) of the single Progress"
  • Line Location: HELP4+1
Function Call: WRITE
  • Prompt: !?5,"you wish to convert to TIU.",!
  • Line Location: HELP4+2
Info |  Source |  Entry Points |  Interaction Calls