OR3CONV ;SLC/MLI-OE/RR v3 conversion entry points ;8/11/06 13:31
Source file <OR3CONV.m>
Package | Total | Call Graph |
---|---|---|
Order Entry Results Reporting | 4 | ORDERS^OR3C100 (CLEANUP,PTCONV)^OR3CONV1 $$CLINERR^ORQRY01 ($$LOCK,UNLOCK)^ORX2 |
Kernel | 3 | ^%ZTLOAD ($$FMADD,$$NOW)^XLFDT (BMES,MES)^XPDUTL |
Lab Service | 1 | EN^LR7OV2 |
Outpatient Pharmacy | 1 | EN1^PSOHLUP |
Scheduling | 1 | GETPLIST^SDAMA202 |
Package | Total | Caller Graph |
---|---|---|
Order Entry Results Reporting | 1 | OR3CONV1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
BGJ | ; process via background job in order below
; if restart, set ORPROCES = to step last on, call BGJ1 ; 0. initialize list of patients to convert, then convert orders for: ; 1. current inpatients ; 2. patients with future scheduled admissions ; 3. patients on waiting list ; 4. patients with discharges in last 4 weeks ; 5. patients with appointments in last 4 weeks or next 4 weeks ; 6. everyone else (loop through DPT for remaining patients) ; 7. orders associated with entities not in the PATIENT file |
|
QUEUE | ; queue background process to run. DO NOT CALL MANUALLY!
; called from OR3POST and RESTART^OR3CONV1 |
|
DONE(DFN) | ; remove entry from multiple
|
|
PSCONV(DFN) | ; return 1 to convert pharmacy orders for patient, otherwise 0
|
|
ORCONV(ORVP) | ; return 1 if OR orders need to be converted, otherwise 0
|
|
1 | ; order conversion for inpatients
|
|
0 | ; populate list of patients to convert
|
|
3 | ; patients on waiting list
|
|
2 | ; patients with future scheduled admissions
|
|
5 | ; patients with appointments past 4 weeks through next 4 weeks
; this call is no longer used |
|
4 | ; patients with discharges in last 4 weeks
|
|
7 | ; orders not associated with DPT entries
|
|
6 | ; rest of patients
|
|
LRCONV() | ; return 1 to convert
|
|
STOP() | ; check stop conversion flag
|
|
WRITE(DFN,TYPE) | ; write converting message
|
|
LOCK | ||
OTF(DFN,ORQUIET) | ; on-the-fly conversion
|
|
CONVERT(DFN,ORQUIET,OROTF) | ; convert orders by patient, set flag when done
|
|
SET(PIECE,VALUE) | ; update order parameter file field with value
|
|
ALLDONE() | ; return 1 if conversion done, otherwise 0
|
|
PTDONE(DFN) | ; return 1 if patient already converted or PTCONV mult not done
|
Name | Field # of Occurrence |
---|---|
^%ZTLOAD | QUEUE+17 |
EN^LR7OV2 | 7+5, CONVERT+33 |
ORDERS^OR3C100 | 7+4, CONVERT+26 |
CLEANUP^OR3CONV1 | 7+8 |
PTCONV^OR3CONV1 | 0+2 |
$$CLINERR^ORQRY01 | 5+8 |
$$LOCK^ORX2 | CONVERT+18 |
UNLOCK^ORX2 | CONVERT+34 |
EN1^PSOHLUP | CONVERT+29 |
GETPLIST^SDAMA202 | 5+7 |
$$FMADD^XLFDT | 4+2, 5+3 |
$$NOW^XLFDT | QUEUE+14, BGJ+19, 1+9, 2+2, 7+7, SET+4 |
BMES^XPDUTL | QUEUE+19, QUEUE+22 |
MES^XPDUTL | QUEUE+23 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGPM("AMV3" | 4+3, 4+4 |
^DGS(41.1 - [#41.1] | 2+3, 2+4, 2+5 |
^DGWAIT - [#42.5] | 3+7 |
^DGWAIT("C" | 3+3, 3+5, 3+6 |
^DPT - [#2] | OTF+14, WRITE+1 |
^DPT("CN" | 1+3, 1+5 |
^OR(100 - [#100] | 7+3, ORCONV+1 |
^ORD(100.99 - [#100.99] | QUEUE+5, BGJ+16, 6+3, ALLDONE+1, PTDONE+1, PTDONE+2, STOP+1, SET+2, SET+8*, DONE+2 , DONE+3!, LOCK, LOCK+1, LOCK+2*, LOCK+3, LOCK+4 |
^SC - [#44] | 5+6 |
^TMP($J | 5+5!, 5+11, 5+12, 5+15! |
Name | Line Occurrences |
---|---|
$$ALLDONE | OTF+13 |
$$CONVERT | 1+7, 2+7, 3+8, 4+5, 5+13, 6+4, OTF+15 |
$$LRCONV | CONVERT+30 |
$$ORCONV | CONVERT+23 |
$$PSCONV | CONVERT+27 |
$$PTDONE | CONVERT+17 |
$$STOP | CONVERT+14 |
@( | BGJ+22 |
DONE | CONVERT+35 |
LOCK | LOCK |
SET | QUEUE+20, BGJ+14, BGJ+19, BGJ+21, BGJ+24, 0+1, 1+4, 1+6, 1+8, 1+9 , 2+8, 3+9, 4+6, 5+14, 6+5, 7+7, CONVERT+16 |
WRITE | CONVERT+25, CONVERT+28, CONVERT+32 |
Name | Field # of Occurrence |
---|---|
^("CONV" | LOCK+4* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
COUNT | DONE+1~, LOCK+1*, LOCK+2 |
DFN | 1+1~, 1+5*, 1+6, 1+7, 3+1~, 3+2*, 3+3*, 3+5, 3+6, 3+8 , 3+9, 4+1~, 4+4*, 4+5, 5+2~, 5+12*, 5+13, 6+1~, 6+2*, 6+3* , 6+4, 6+5, OTF~, OTF+12*, OTF+14, OTF+15, CONVERT~, CONVERT+12, CONVERT+17, CONVERT+18 , CONVERT+24~, CONVERT+27, CONVERT+28, CONVERT+29, CONVERT+31~, CONVERT+34, CONVERT+35, PSCONV~, WRITE~, WRITE+1 , PTDONE~, PTDONE+1, DONE~, DONE+3 |
DT | 4+2, 4+3, 5+3 |
LAST | DONE+1~, LOCK+1*, LOCK+2 |
NODE | DONE+1~ |
ORDATE | 2+1~, 2+2*, 2+3*, 2+4, 2+8, CONVERT+9~ |
ORDISCH | 4+1~, 4+2*, 4+3*, 4+4, 4+6, CONVERT+9~ |
OREND | 5+2~, 5+3*, 5+7, CONVERT+9~ |
ORERR | 5+2~, 5+8*, 5+9 |
ORERRMSG | CONVERT+11~, CONVERT+19, CONVERT+21* |
ORESTART | BGJ+15, 0+1, 1+2!, 2+2!, 3+2!, 4+2!, 5+4!, 6+2!, 7+2! |
ORFLAG | 3+1~, 3+4*, 3+5, 3+8* |
ORI | 5+2~, 5+10*, 5+11*, 5+12 |
ORIEN | 2+1~, 2+4*, 2+5, 3+1~, 3+5*, 3+6, 3+7, CONVERT+9~ |
ORIEN1 | 3+1~, 3+6*, 3+7, CONVERT+9~ |
ORLOC | 5+2~, 5+4*, 5+6*, 5+7, 5+14, CONVERT+9~ |
OROTF | CONVERT~, CONVERT+13*, CONVERT+14 |
ORPROCES | BGJ+13~, BGJ+16*, BGJ+18*, BGJ+20, BGJ+21, BGJ+22, BGJ+23*, CONVERT+9~ |
ORPTLK | CONVERT+11~, CONVERT+18*, CONVERT+19, CONVERT+20, CONVERT+21 |
ORQUIET | OTF~, OTF+12*, OTF+15, CONVERT~, CONVERT+20, CONVERT+25, CONVERT+28, CONVERT+29, CONVERT+32, CONVERT+33 |
ORSTART | 5+2~, 5+3*, 5+7, CONVERT+9~ |
ORSTOP | BGJ+13~, BGJ+14*, BGJ+20, BGJ+22, BGJ+24, 1+3, 1+5, 2+3, 2+4, 3+3 , 4+3, 5+6, 5+9*, 6+3, 7+3, 7+6, CONVERT+15* |
ORVP | 7+1~, 7+2*, 7+3*, 7+4, 7+5, CONVERT+11~, CONVERT+12*, CONVERT+23, CONVERT+25, CONVERT+26 , CONVERT+32, CONVERT+33, ORCONV~, ORCONV+1 |
ORWARD | 1+1~, 1+2*, 1+3*, 1+4, 1+5, 1+8, CONVERT+9~ |
PIECE | SET~, SET+3, SET+4, SET+5, SET+6, SET+7 |
TYPE | WRITE~, WRITE+1 |
U | CONVERT+20, CONVERT+21 |
VALUE | SET~, SET+3 |
X | QUEUE+4~, QUEUE+5*, QUEUE+6, QUEUE+7, 1+1~, 1+7*, 2+1~, 2+5*, 2+6, 2+7* , 3+1~, 3+8*, 4+1~, 4+5*, 5+2~, 5+13*, 6+1~, 6+4*, SET+1~, SET+2* , SET+3*, SET+4*, SET+5*, SET+6*, SET+7*, SET+8, DONE+1~, DONE+2*, LOCK+1 |
ZTDESC | QUEUE+15*, QUEUE+24! |
ZTDTH | QUEUE+14*, QUEUE+24! |
ZTIO | QUEUE+13*, QUEUE+24! |
>> ZTQUEUED | BGJ+11 |
ZTRTN | QUEUE+13*, QUEUE+24! |
ZTSAVE | QUEUE+24! |
ZTSAVE("ORESTART" | QUEUE+6, QUEUE+7, QUEUE+14 |
ZTSK | QUEUE+18, QUEUE+19, QUEUE+20, QUEUE+24! |