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

Package: Text Integration Utility

Routine: TIUDSCNV


Information

TIUDSCNV ; SLC/JER - Discharge Summary Conversion routine

Source Information

Source file <TIUDSCNV.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Control branching
QUEUE ; Call Task Manager to process conversion
ENQ ; Where the work happens
BULLETIN ; Send Bulletins on completion
PROGBAR ; Write a Progress Bar
PROGRESS(COUNT,TOTAL) ; Indicate Progress
CONVERT(GMRDA,TIUSNGL) ; "Turn or burn!"
RUNNING() ; Evaluate whether conversion is running in another partition
PNRUN() ; Evaluate whether PN conversion is running in another partition
FINDAD(DFN,TIU,TIUTYPE) ; Find original record for an addendum

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The IHS Patient file appears to be out of synchrony with File #2."
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: !,"Before continuing, you must run a program to synchronize these files."
  • Line Location: MAIN+5
Function Call: WRITE
  • Prompt: !,"It may take a few minutes.",!
  • Line Location: MAIN+6
Function Call: WRITE
  • Prompt: !,"Okay, hurry back!"
  • Line Location: MAIN+9
Function Call: WRITE
  • Prompt: !!?9,"***************************************************************"
  • Line Location: MAIN+11
Function Call: WRITE
  • Prompt: !?9,"* This option will convert your Discharge Summary version 1.0 *"
  • Line Location: MAIN+12
Function Call: WRITE
  • Prompt: !?9,"* Database in preparation for implementation of Discharge *"
  • Line Location: MAIN+13
Function Call: WRITE
  • Prompt: !?9,"* Summary under Text Integration Utilities... *"
  • Line Location: MAIN+14
Function Call: WRITE
  • Prompt: !?9,"* Although the process is NOT irreversible, we recommend you *"
  • Line Location: MAIN+15
Function Call: WRITE
  • Prompt: !?9,"* be certain you are prepared to implement before invoking *"
  • Line Location: MAIN+16
Function Call: WRITE
  • Prompt: !?9,"* this process! *"
  • Line Location: MAIN+17
Function Call: WRITE
  • Prompt: !?9,"***************************************************************",!
  • Line Location: MAIN+18
Function Call: WRITE
  • Prompt: !!?9,$C(7),"Very well, no damage done!"
  • Line Location: MAIN+20
Function Call: WRITE
  • Prompt: !!,"The DISCHARGE SUMMARY CONVERSION is either still running in another partition,"
  • Line Location: MAIN+22
Function Call: WRITE
  • Prompt: !,"or it has been interrupted...",!
  • Line Location: MAIN+23
Function Call: WRITE
  • Prompt: !!,$C(7),"CONVERSION STILL RUNNING IN ANOTHER PARTITION."
  • Line Location: MAIN+25
Function Call: WRITE
  • Prompt: !!,"No other instance of the conversion could be detected...You're free to RESTART."
  • Line Location: MAIN+26
Function Call: WRITE
  • Prompt: !!,"The PROGRESS NOTES CONVERSION is either still running in another partition,"
  • Line Location: MAIN+28
Function Call: WRITE
  • Prompt: !,"or it has been interrupted...",!
  • Line Location: MAIN+29
Function Call: WRITE
  • Prompt: !!,$C(7),"PROGRESS NOTES CONVERSION STILL RUNNING IN ANOTHER PARTITION."
  • Line Location: MAIN+31
Function Call: WRITE
  • Prompt: !!,"PN CONVERSION is NOT currently running...You're free to begin."
  • Line Location: MAIN+32
Function Call: WRITE
  • Prompt: !!,$C(7),"NO DISCHARGE SUMMARIES TO CONVERT...Bye!",!
  • Line Location: MAIN+37
Function Call: WRITE
  • Prompt: !!,"CONVERSION HAS ALREADY BEEN RUN..."
  • Line Location: MAIN+39
Function Call: WRITE
  • Prompt: !,"Checkpoint is Record #",GMRDA
  • Line Location: MAIN+40
Function Call: WRITE
  • Prompt: !,"Conversion will stop after record #",GMRDSTOP
  • Line Location: MAIN+44
Function Call: WRITE
  • Prompt: !!?5,"Very well, no damage done!"
  • Line Location: MAIN+46
Function Call: WRITE
  • Prompt: !!?9,$C(7),"Discharge Summary Conversion Running in Foreground"
  • Line Location: MAIN+49
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!")
  • Line Location: QUEUE+5
Function Call: WRITE
  • Prompt: !!,$$CENTER^TIULS("Discharge Summary Conversion in Progress...")
  • Line Location: PROGBAR+3
Function Call: WRITE
  • Prompt: !,$$CENTER^TIULS("Percent Complete")
  • Line Location: PROGBAR+4
Function Call: WRITE
  • Prompt: !,$$CENTER^TIULS("0 10 20 30 40 50 60 70 80 90 100")
  • Line Location: PROGBAR+5
Function Call: WRITE
  • Prompt: !?12,"|"
  • Line Location: PROGBAR+6
Function Call: WRITE
  • Prompt: BAR
  • Line Location: PROGRESS+5
Function Call: WRITE
  • Prompt: "|",!!?20,"DISCHARGE SUMMARY CONVERSION COMPLETE!"
  • Line Location: PROGRESS+6
Function Call: WRITE
  • Prompt: !,"Attempting to determine whether conversion has crashed,"
  • Line Location: RUNNING+2
Function Call: WRITE
  • Prompt: !,"or is still running in another partition..."
  • Line Location: RUNNING+3
Function Call: WRITE
  • Prompt: !,"Attempting to determine whether PN conversion has crashed,"
  • Line Location: PNRUN+2
Function Call: WRITE
  • Prompt: !,"or is still running in another partition..."
  • Line Location: PNRUN+3
Info |  Source |  Entry Points |  Interaction Calls