Routine: OR3CONV1

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Order Entry Results Reporting	3	KILL^OR3C101 ($$CONVERT,$$PTDONE,QUEUE,SET)^OR3CONV REQUEUE^ORMTIME
Kernel	2	STAT^%ZTLOAD $$FMTE^XLFDT
Inpatient Medications	1	BADNAMES^PSJIPST3
MailMan	1	^XMD
VA Fileman	1	^DIR

Package	Total	Caller Graph
Order Entry Results Reporting	1	OR3CONV

Package

Total

Caller Graph

Order Entry Results Reporting

OR3CONV

Entry Points

Name	Comments	DBIA/ICR reference
STATUS	; get status of conversion
ZTSKCHK(ZTSK)	; check status of task via TaskMan utilities ; return message^flag where flag is 1 to allow requeue...0 otherwise
RUSURE(TEXT)	; return 1 if yes, 0 otherwise
ZTSKMSG	;;Unable to find task on current volume set^1
STAGE(STAGE)	; return text of what stage does
FINALCHK()	; check to see if every patient converted
STOP	; entry point to stop conversion cleanly
CHECK()	; check status to see if restart should be allowed
PTCONV	; populate OR3 PATIENTS TO CONVERT multiple...hard set for speed
SEND(SUBJECT)	; define rest of XM variables and fire message off
CLEANUP	; conversion is completed
STAGETXT	;;0^populating list of patients to convert
LINE(TEXT)	; store data in array for mail message
ERROR	; create mail message if unconverted patients found
MAIL	; send e-mail that the conversion completed
RESTART	; entry point to restart conversion

External References

Name	Field # of Occurrence
STAT^%ZTLOAD	ZTSKCHK+2
^DIR	RUSURE+4
KILL^OR3C101	CLEANUP+3
$$CONVERT^OR3CONV	FINALCHK+4
$$PTDONE^OR3CONV	FINALCHK+5
QUEUE^OR3CONV	RESTART+10
SET^OR3CONV	STOP+6
REQUEUE^ORMTIME	CLEANUP+3
BADNAMES^PSJIPST3	CLEANUP+4
$$FMTE^XLFDT	MAIL+5, MAIL+6
^XMD	SEND+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The conversion has already run to completion." Line Location: STOP+3
Function Call: WRITE	Prompt: !,"The background job conversion has not yet started." Line Location: STOP+4
Function Call: WRITE	Prompt: !,"You can not use the RESTART call at this time." Line Location: RESTART+4
Function Call: WRITE	Prompt: !,X Line Location: RESTART+5
Function Call: WRITE	Prompt: !!,"Call STATUS^OR3CONV1 to get current status of conversion." Line Location: RESTART+6
Function Call: WRITE	Prompt: !,"The conversion has already completed!" Line Location: STATUS+3
Function Call: WRITE	Prompt: !,"The conversion has not yet started." Line Location: STATUS+4
Function Call: WRITE	Prompt: !,"The background job was requested to stop." Line Location: STATUS+5
Function Call: WRITE	Prompt: !,"The background conversion of patient orders has not" Line Location: STATUS+7
Function Call: WRITE	Prompt: !,"started yet. This process is queued to run by the post-" Line Location: STATUS+8
Function Call: WRITE	Prompt: !,"installation process of CPRS. It has not yet been queued." Line Location: STATUS+9
Function Call: WRITE	Prompt: !,"The background conversion of patient orders is running." Line Location: STATUS+11
Function Call: WRITE	Prompt: !,"The task number assigned to the conversion was ",$P(X,"^",10),"." Line Location: STATUS+12
Function Call: WRITE	Prompt: !,"The following is the status of the process according to TaskMan:" Line Location: STATUS+13
Function Call: WRITE	Prompt: !?5,$P($$ZTSKCHK($P(X,"^",10)),"^",1) Line Location: STATUS+14
Function Call: WRITE	Prompt: ! Line Location: STATUS+15
Function Call: WRITE	Prompt: !,"The background job is currently populating the list of" Line Location: STATUS+18
Function Call: WRITE	Prompt: !,"patients that will need to be processed by the conversion." Line Location: STATUS+19
Function Call: WRITE	Prompt: !,"Last DFN populated: ",$O(^ORD(100.99,1,"PTCONV","A"),-1) Line Location: STATUS+20
Function Call: WRITE	Prompt: !,"The background conversion is currently on stage ",+STAGE,"." Line Location: STATUS+21
Function Call: WRITE	Prompt: !,"This stage converts ",$S(STAGE<7:"patients who ",1:""),$P(STAGE,"^",2),"." Line Location: STATUS+22
Function Call: WRITE	Prompt: !,"It last completed processing " Line Location: STATUS+24
Function Call: WRITE	Prompt: $P(STAGE,"^",3)," ",$P(X,"^",9),"." Line Location: STATUS+25
Function Call: WRITE	Prompt: !!,"So far, orders for ",+$P(X,"^",12)," patients have converted." Line Location: STATUS+26
Function Call: WRITE	Prompt: !,"There are currently ",+$P(^ORD(100.99,1,"PTCONV",0),"^",4)," patients left to process." Line Location: STATUS+27
Function Call: WRITE	Prompt: !!,"Patients on ward ",$P(X,"^",4)," are currently being processed." Line Location: STATUS+29
Function Call: WRITE	Prompt: !,"The last patient to be converted was DFN #",$P(X,"^",5),"." Line Location: STATUS+30
Routine Call	DIR Line Location: RUSURE+4

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PTCONV+3
^ORD(100.99 - [#100.99]	STOP+2, RESTART+9, CHECK+2, STATUS+2, STATUS+20, STATUS+27, FINALCHK+3, MAIL+2, PTCONV+5, PTCONV+6* , PTCONV+7*

Label References

Name	Line Occurrences
$$CHECK	RESTART+2
$$FINALCHK	CLEANUP+2
$$RUSURE	STOP+6, RESTART+8
$$STAGE	STATUS+16
$$ZTSKCHK	CHECK+5, STATUS+14
ERROR	CLEANUP+2
LINE	MAIL+3, MAIL+4, MAIL+5, MAIL+6, ERROR+3, ERROR+4, ERROR+5, ERROR+6
MAIL	CLEANUP+5
SEND	MAIL+7, ERROR+7
STATUS	STOP+5, RESTART+7

Name	Field # of Occurrence
^(	PTCONV+3

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COUNT	MAIL+1~, MAIL+2, ERROR+1~, ERROR+2, LINE+1, LINE+2, PTCONV+1~, PTCONV+2, PTCONV+4*, PTCONV+7
DFN	FINALCHK+1~, FINALCHK+3, FINALCHK+4, FINALCHK+5, PTCONV+1~, PTCONV+3, PTCONV+4, PTCONV+5, PTCONV+6
DIFROM	SEND+1~
DIR	RUSURE+1~
DIR("A"	RUSURE+3*
DIR("B"	RUSURE+2*
DIR(0	RUSURE+2*
DIROUT	RUSURE+1~
DIRUT	RUSURE+1~
DTOUT	RUSURE+1~
DUOUT	RUSURE+1~
DUZ	SEND+4
ERROR	FINALCHK+1~, FINALCHK+2, FINALCHK+3, FINALCHK+4, FINALCHK+5*, FINALCHK+6
>> I	SEND+4*
LAST	PTCONV+1~, PTCONV+2, PTCONV+4, PTCONV+7
>> ORTEXT(	LINE+2*
STAGE	STATUS+1~, STATUS+16*, STATUS+17, STATUS+21, STATUS+22, STATUS+25, STATUS+28, STAGE~
SUBJECT	SEND~, SEND+2
TEXT	RUSURE~, RUSURE+3, LINE~, LINE+2
X	STOP+1~, STOP+2, STOP+3, STOP+4, RESTART+1~, RESTART+2, RESTART+3, RESTART+5, CHECK+1~, CHECK+2* , CHECK+3, CHECK+4, CHECK+5, RUSURE+1~, STATUS+1~, STATUS+2, STATUS+3, STATUS+4, STATUS+5, STATUS+6 , STATUS+10, STATUS+12, STATUS+14, STATUS+16, STATUS+23, STATUS+25, STATUS+26, STATUS+29, STATUS+30, CLEANUP+1~ , MAIL+1~, MAIL+2*, MAIL+5, MAIL+6
XMDUZ	SEND+1~, SEND+3*
XMSUB	SEND+1~, SEND+2*
XMTEXT	SEND+1~, SEND+2*
XMY	SEND+1~
XMY(	SEND+4*
Y	RUSURE+1~, RUSURE+5
>> ZTSAVE("ORESTART"	RESTART+9*
ZTSK	ZTSKCHK~

Name	Field # of Occurrence
$T(STAGETXT+STAGE	STAGE+1
$T(ZTSKMSG+ZTSK(1)	ZTSKCHK+3

Customize PDF page

Package: Order Entry Results Reporting

Routine: OR3CONV1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items