MDRPCOG ; HOIFO/DP - CP Gateway ; [01-09-2003 15:20]
Source file <MDRPCOG.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CLEANUP | ; [Procedure] Cleanup a past results report
|
|
| DONE | ; [Procedure] Done processing, Mark study status
|
|
| GETATT | ; [Procedure] Get attachments for study
|
|
| GETOLD | ; [Procedure] Returns old results by date
; Variables: ; LOGDATE: [Private] Loop variable ; STOPDATE: [Private] Date to stop retrieving entries |
|
| GETPAR | ; [Procedure] Get a parameter value for an RPC Call
|
|
| GETTXT | ; [Procedure] Get attachment text for processing
|
|
| NEXT | ; [Procedure] Get the next study to process
|
|
| PARVAL(INSTANCE) | ; [Procedure] Extrinsic get of parameter values
; Input parameters ; 1. INSTANCE [Literal/Required] XPAR instance |
|
| POLL | ; [Procedure] Returns server time and flag for studies to process
|
|
| POLLER(RESULTS) | ; [Procedure] Non-Disk activity poller
; With the exception of a shutdown request pending, this stand alone RPC will operate ; without creating any disk activity and not crash during backup operations on the main ; VistA server. |
|
| RPC(RESULTS,OPTION,DATA,P1) | ; [Procedure]
; Input parameters ; 1. RESULTS [Literal/Required] RPC Return Array ; 2. OPTION [Literal/Required] Gateway Option to execute ; 3. DATA [Literal/Required] Other information ; 4. P1 [Literal/Required] Overflow variable |
|
| RUNNING | ; [Procedure] Returns 0/1 and message on running status
; Note: If lock CAN be obtained, then gateway is NOT running |
|
| SETFILE | ; [Procedure] Set filename of new attachment
|
|
| SETPAR(INSTANCE,VALUE) | ; [Procedure] Set value into XPAR parameter
; Input parameters ; 1. INSTANCE [Literal/Required] Parameter Instance ; 2. VALUE [Literal/Required] Parameter Value |
|
| START | ; [Procedure] Can we begin?
; Ensure only one Gateway per system by locking the phantom global node |
|
| STATUS | ; [Procedure] Return status of BP
|
|
| STOP | ; [Procedure] Flag client to stop via cal to POLL
|
|
| XFERDIR | ; [Procedure] Return Imaging xfer directory
|
|
| CHECK(MDRI) | ; Check if Upload Value and Upload Text has already been purged.
|
| Name | Field # of Occurrence |
|---|---|
| GETENV^%ZOSV | START+12 |
| SETNM^%ZOSV | START+16 |
| FILE^DIE | CLEANUP+4, DONE+2, SETFILE+2 |
| $$GET1^DIQ | START+11 |
| ERROR^MDRPCU | CLEANUP+5 |
| $$FMTE^XLFDT | GETOLD+14, POLL+4, POLLER+11, START+10 |
| $$NOW^XLFDT | POLL+4, POLLER+11, START+10 |
| $$GET^XPAR | PARVAL+4, XFERDIR+1 |
| EN^XPAR | SETPAR+5 |
| GETLST^XPAR | STATUS+1 |
| NDEL^XPAR | START+5 |
| RPC Name | Call Tags |
|---|---|
| MD GATEWAY | RPC |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^MDD("CPGATEWAY" | RUNNING+2, RUNNING+3, START+2 |
| ^MDD(703.1 - [#703.1] | CLEANUP+1, CLEANUP+2, CLEANUP+3, CLEANUP+7, CLEANUP+8!, CLEANUP+9!, GETATT+1, GETATT+3, GETOLD+8, GETOLD+9 , GETOLD+12, GETTXT+3, GETTXT+4, NEXT+1, NEXT+2, POLL+5, POLLER+12, CHECK+2, CHECK+3, CHECK+4 |
| ^TMP("MDRPCOB" | RPC+14 |
| Name | Field # of Occurrence |
|---|---|
| ^( | GETTXT+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ATT | GETTXT+1~, GETTXT+2*, GETTXT+3, GETTXT+4 |
| DATA | CLEANUP+1, CLEANUP+2, CLEANUP+3, CLEANUP+7, CLEANUP+8, CLEANUP+9, DONE+1, GETATT+1, GETATT+3, GETOLD+7 , GETPAR+1, GETTXT+2, NEXT+1, RPC~, SETFILE+1, START+6*, START+7, START+8 |
| DUZ | START+11 |
| INSTANCE | PARVAL~, PARVAL+4, SETPAR~, SETPAR+5 |
| LOGDATE | GETOLD+6~, GETOLD+7*, GETOLD+8*, GETOLD+9, GETOLD+13*, GETOLD+14 |
| MDENV | RPC+13~, START+12*, START+13, START+14, START+15 |
| MDERR | CLEANUP+5, RPC+13~ |
| MDFDA | CLEANUP+4, RPC+13~ |
| MDFDA( | CLEANUP+2*, CLEANUP+3*, DONE+1*, SETFILE+1* |
| MDFLG | CHECK+1~*, CHECK+2, CHECK+3*, CHECK+4*, CHECK+5 |
| >> MDRET | STATUS+1 |
| >> MDRET( | STATUS+2 |
| MDRI | CHECK~, CHECK+2, CHECK+3, CHECK+4 |
| MDX | GETOLD+6~, GETOLD+9*, GETOLD+10, GETOLD+12 |
| OPTION | RPC~, RPC+15 |
| P1 | DONE+1, RPC~ |
| RESULTS | CLEANUP+5, CLEANUP+10, GETATT+2, GETATT+3, GETATT+4, GETOLD+11, GETOLD+12, GETOLD+14, GETPAR+1, GETTXT+3 , GETTXT+4, GETTXT+5, NEXT+2, POLL+2, POLL+4, POLL+5, POLLER~, RPC~, RPC+14*, RUNNING+2 , RUNNING+3, START+3, START+17, STATUS+2, XFERDIR+1 |
| RESULTS(0 | POLLER+9*, POLLER+11* |
| RESULTS(1 | POLLER+12* |
| STOPDATE | GETOLD+6~, GETOLD+7*, GETOLD+8, GETOLD+13 |
| STUDY | GETTXT+1~, GETTXT+2*, GETTXT+3, GETTXT+4 |
| U | GETATT+3, GETOLD+7, GETOLD+12, GETOLD+14, NEXT+2, SETFILE+1, START+7, START+8, START+13, START+14 , START+15 |
| VALUE | SETPAR~, SETPAR+5 |
| X | CLEANUP+1*, CLEANUP+2, CLEANUP+3, CLEANUP+7*, CLEANUP+8, CLEANUP+9, GETATT+1*, GETATT+3, GETTXT+1~, GETTXT+2* , GETTXT+4*, STATUS+2*, CHECK+2*, CHECK+3, CHECK+4 |
| >> Y | GETATT+2*, GETATT+3, GETOLD+8, GETOLD+11*, GETOLD+12, NEXT+1*, NEXT+2, START+12 |
