Routine: TIUDSCNV

Information

TIUDSCNV ; SLC/JER - Discharge Summary Conversion routine

Source Information

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

Caller Graph Total: 2

Package	Total	Caller Graph
Text Integration Utility	2	TIU DISCHARGE SUMMARY CONVERT TIUDSCN1

Entry Points

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

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

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

Customize PDF page

Package: Text Integration Utility

Routine: TIUDSCNV

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: