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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: OR3CONV1

Package: Order Entry Results Reporting

Routine: OR3CONV1


Information

OR3CONV1 ;SLC/MLI-Conversion utilities and cleanup ;8/2/97 [5/25/99 9:33am]

Source Information

Source file <OR3CONV1.m>

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  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Order Entry Results Reporting 1 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

Global Variables Directly Accessed

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

Naked Globals

Name Field # of Occurrence
^( PTCONV+3

Local Variables

Legend:

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

Marked Items

Name Field # of Occurrence
$T(STAGETXT+STAGE STAGE+1
$T(ZTSKMSG+ZTSK(1) ZTSKCHK+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All