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

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Text Integration Utility 9 SEND^TIUALRT  (ADDFAIL,DELETE,STUFREC)^TIUDSCN1  ($$GETREC,AUDIT)^TIUEDI1  ($$CHKSUM,$$NOW)^TIULC  ($$CENTER,$$DATE)^TIULS  MAIN^TIUMOVE  ($$MAKEADD,$$WHATITLE)^TIUPUTU  POST^TIUPXAP1  
$$READ^TIUU  
Kernel 3 ^%ZISC  (,$$S)^%ZTLOAD  $$FMADD^XLFDT  
MailMan 2 KILL^XM  ^XMB  
General Medical Record - IO 1 ALERTDEL^GMRDALRT  
PCE Patient Care Encounter 1 QUE^PXPTPOST  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Text Integration Utility 2 TIU DISCHARGE SUMMARY CONVERT  TIUDSCN1  
Kernel 1 ^DIC(19  

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

External References

Name Field # of Occurrence
^%ZISC QUEUE+6
^%ZTLOAD QUEUE+5
$$S^%ZTLOAD ENQ+12
ALERTDEL^GMRDALRT CONVERT+8
QUE^PXPTPOST MAIN+10
SEND^TIUALRT CONVERT+29
ADDFAIL^TIUDSCN1 CONVERT+27
DELETE^TIUDSCN1 CONVERT+27
STUFREC^TIUDSCN1 CONVERT+22, CONVERT+28
$$GETREC^TIUEDI1 CONVERT+20
AUDIT^TIUEDI1 CONVERT+30
$$CHKSUM^TIULC CONVERT+30
$$NOW^TIULC ENQ+6, ENQ+15
$$CENTER^TIULS PROGBAR+3, PROGBAR+4, PROGBAR+5
$$DATE^TIULS BULLETIN+6, BULLETIN+7
MAIN^TIUMOVE CONVERT+13
$$MAKEADD^TIUPUTU CONVERT+24
$$WHATITLE^TIUPUTU CONVERT+10
POST^TIUPXAP1 CONVERT+21, CONVERT+25
$$READ^TIUU MAIN+8, MAIN+19, MAIN+45, MAIN+47
$$FMADD^XLFDT CONVERT+12
KILL^XM BULLETIN+13
^XMB BULLETIN+13

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT(0 MAIN+2
^DPT(0 MAIN+2
^GMR(128 MAIN+2, MAIN+10*, MAIN+21, MAIN+33, MAIN+34, MAIN+36*, MAIN+41, MAIN+42, MAIN+43*, ENQ+2
, ENQ+3, ENQ+4, ENQ+6*, ENQ+8, ENQ+11*, ENQ+14*, ENQ+15*, BULLETIN+2, BULLETIN+3, BULLETIN+4
, BULLETIN+6, BULLETIN+7, CONVERT+2, CONVERT+5*, CONVERT+6, CONVERT+7*, CONVERT+16*, CONVERT+17, CONVERT+18*, CONVERT+31*
, CONVERT+32*, CONVERT+33*, RUNNING+4, RUNNING+7
^TIU(8925 - [#8925] FINDAD+2, FINDAD+3
^TIU(8925.97 - [#8925.97] MAIN+27, PNRUN+4, PNRUN+7

Label References

Name Line Occurrences
$$FINDAD CONVERT+26
$$PNRUN MAIN+30
$$RUNNING MAIN+24
BULLETIN ENQ+16
CONVERT ENQ+9
ENQ MAIN+50
PROGBAR ENQ+7
PROGRESS ENQ+10
QUEUE MAIN+51

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUEUE+1~
BAR PROGRESS+1~, PROGRESS+4*, PROGRESS+5
COUNT PROGRESS~, PROGRESS+1, PROGRESS+6
DFN CONVERT+1~, CONVERT+11*, CONVERT+13, CONVERT+20, CONVERT+21, CONVERT+25, CONVERT+26, FINDAD~, FINDAD+2, FINDAD+3
DOCTYP CONVERT+1~, CONVERT+9*, CONVERT+10, CONVERT+19, CONVERT+23
DUZ BULLETIN+8
GMRD0 CONVERT+1~, CONVERT+2*, CONVERT+3, CONVERT+9, CONVERT+11, CONVERT+22, CONVERT+28
GMRDA MAIN+1~, MAIN+33*, MAIN+38, MAIN+40, ENQ+2*, ENQ+8*, ENQ+9, CONVERT~, CONVERT+2, CONVERT+5
, CONVERT+8, CONVERT+16, CONVERT+27, CONVERT+31, CONVERT+33
GMRDACT CONVERT+1~, CONVERT+2*, CONVERT+22, CONVERT+28
GMRDADT CONVERT+1~, CONVERT+11*, CONVERT+12, CONVERT+13
GMRDCNT ENQ+1~, ENQ+3*, ENQ+9*, ENQ+10, ENQ+11, ENQ+14
GMRDLDT CONVERT+1~, CONVERT+12*, CONVERT+13
GMRDSTOP MAIN+1~, MAIN+34*, MAIN+35, MAIN+36*, MAIN+37, MAIN+41, MAIN+42*, MAIN+43, MAIN+44, ENQ+8
GMRDTOTL ENQ+1~, ENQ+4*, ENQ+10
INCR PROGRESS+1~, PROGRESS+2*, PROGRESS+3, PROGRESS+4, PROGRESS+5
LAST PROGBAR+1!, PROGRESS+3, PROGRESS+4, PROGRESS+5*
PCT PROGRESS+1~*, PROGRESS+2
TIU CONVERT+1~, CONVERT+13, CONVERT+20, CONVERT+21, CONVERT+25, CONVERT+26, FINDAD~
TIU("AD#" CONVERT+14
TIU("VISIT" FINDAD+2
TIU("VSTR" CONVERT+21, CONVERT+25, FINDAD+3
TIUADMCT BULLETIN+1~, BULLETIN+4*, BULLETIN+5, BULLETIN+12
TIUBDT BULLETIN+1~, BULLETIN+6*, BULLETIN+11
TIUCKP0 RUNNING+1~, RUNNING+4*, RUNNING+8, PNRUN+1~, PNRUN+4*, PNRUN+8
TIUCKP1 RUNNING+1~, RUNNING+7*, RUNNING+8, PNRUN+1~, PNRUN+7*, PNRUN+8
TIUCNVCT BULLETIN+1~, BULLETIN+2*, BULLETIN+11
TIUCRCT CONVERT+4~, CONVERT+6*, CONVERT+7
TIUDA CONVERT+1~, CONVERT+20*, CONVERT+21, CONVERT+22, CONVERT+24*, CONVERT+25, CONVERT+27, CONVERT+28, CONVERT+29, CONVERT+30
, CONVERT+31, CONVERT+33
TIUDAD CONVERT+1~, CONVERT+26*, CONVERT+27, CONVERT+28
TIUEDT BULLETIN+1~, BULLETIN+7*, BULLETIN+11
TIUFAIL BULLETIN+1~, BULLETIN+5*, BULLETIN+9, BULLETIN+12
TIUI RUNNING+1~, RUNNING+5*, RUNNING+6, PNRUN+1~, PNRUN+5*, PNRUN+6
TIUMISCT BULLETIN+1~, BULLETIN+3*, BULLETIN+5, BULLETIN+12
TIUNOVCT CONVERT+15~, CONVERT+17*, CONVERT+18
TIUOK MAIN+1~, MAIN+2, MAIN+8*, MAIN+9, MAIN+10, MAIN+19*, MAIN+20, MAIN+45*, MAIN+46
TIUPRMT MAIN+3~, MAIN+7*, MAIN+8
TIUQUEUE MAIN+1~, MAIN+47*, MAIN+48
TIURUN MAIN+1~, MAIN+21, MAIN+24*, MAIN+25, MAIN+27, MAIN+30*, MAIN+31
TIUSNGL CONVERT~, CONVERT+31
TIUTYP CONVERT+1~
TIUTYP(1 CONVERT+10*, CONVERT+26
TIUTYPE FINDAD~
TIUY RUNNING+1~, RUNNING+4*, RUNNING+5, RUNNING+8*, RUNNING+9, PNRUN+1~, PNRUN+4*, PNRUN+5, PNRUN+8*, PNRUN+9
, FINDAD+1~, FINDAD+2*, FINDAD+3*, FINDAD+4
TNEW CONVERT+1~, CONVERT+20
TOTAL PROGRESS~, PROGRESS+1, PROGRESS+6
U MAIN+2, MAIN+27, MAIN+36, MAIN+41, MAIN+42, ENQ+4, BULLETIN+4, CONVERT+7, CONVERT+9, CONVERT+10
, CONVERT+11, CONVERT+17, CONVERT+18, CONVERT+26, CONVERT+31, PNRUN+4, PNRUN+7
XMB BULLETIN+1~, BULLETIN+9*
XMB(1 BULLETIN+11*
XMB(2 BULLETIN+11*
XMB(3 BULLETIN+11*
XMB(4 BULLETIN+12*
XMB(5 BULLETIN+12*
XMB(6 BULLETIN+12*
XMDUZ BULLETIN+1~, BULLETIN+10*
XMY BULLETIN+1~
XMY( BULLETIN+8*
ZTDESC QUEUE+1~, QUEUE+4*
ZTDTH QUEUE+1~
ZTIO QUEUE+1~, QUEUE+4*
>> ZTQUEUED ENQ+7, ENQ+10
ZTRTN QUEUE+1~, QUEUE+2*
ZTSAVE QUEUE+1~
ZTSAVE("DUZ(" QUEUE+3*
ZTSAVE("GMRDA" QUEUE+3*
ZTSAVE("GMRDSTOP" QUEUE+3*
ZTSK QUEUE+1~, QUEUE+5
>> ZTSTOP ENQ+8, ENQ+12*, ENQ+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All