MAGDHLE ;WOIFO/SRR/PMK - PACS INTERFACE PID TRIGGERS ; Dec 05, 2019@09:10:48
Source file <MAGDHLE.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 |
| Package | Total | Caller Graph |
|---|---|---|
| Imaging | 2 | MAGD DHCP-PACS ADT EVENTS MAGD PACS VAFC ADT-A08 CLIENT |
| Kernel | 1 | ^ORD(101 |
| Radiology Nuclear Medicine | 1 | RAHLRS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SENDA08(DFN) | ; External API entry point from Radiology Package - P183 PMK 3/16/17
|
|
| ADTA08 | ; Patient Update event from VAFC ADT-A08 SERVER event driver - P183 PMK 3/16/17
; Upon entry, DFN will be set to the patient ; The DG* variables are not defined by the VAFC package |
|
| SSNCHECK(SSNCHANGES) | ; Check for SSN change, return values
; Return 1 if there was an SSN change and 0 otherwise ; If there was an SSN change, do the following: ; save the old value in SSNCHANGES(DATEIME,"OLD") ; save the new value in SSNCHANGES(DATEIME,"NEW") ; set NEWSSN(DATEIME) to the new value |
|
| ADT | ;ADT EVENTS ;From EVENT driver
|
|
| TSK | ;CREATE TASK to make HL7 messages
|
|
| HL7 | ;Create HL7 message
|
|
| EX | ;EXIT
|
|
| SET | ;Set Logic from MUMPS x-ref on fields .01,.03,.09 of ^DD(2 (^DPT)
|
|
| KIL | ;Kill logic "AKn" cross references
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIA(2 | SSNCHECK+12, SSNCHECK+13, SSNCHECK+16, SSNCHECK+19 |
| ^MAG(2006.1 - [#2006.1] | HL7+4, HL7+5 |
| ^UTILITY("DGPM" | ADT+8, ADT+9 |
| Name | Field # of Occurrence |
|---|---|
| ^("P" | ADT+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | SSNCHECK+24~, SSNCHECK+28!, SSNCHECK+29 |
| A( | SSNCHECK+26* |
| DATETIME | SSNCHECK+6~, SSNCHECK+14*, SSNCHECK+18, SSNCHECK+19, SSNCHECK+25*, SSNCHECK+26, SSNCHECK+28 |
| DFN | SENDA08~, SSNCHECK+12 |
| DGNOW | ADTA08+3~, ADTA08+8* |
| DGPMA | ADTA08+3~, ADTA08+8* |
| DGPMDA | ADTA08+3~, ADTA08+8*, ADT+8, ADT+9 |
| DGPMT | ADTA08+3~, ADTA08+10*, ADTA08+14* |
| DIAIEN | SSNCHECK+7~, SSNCHECK+11*, SSNCHECK+12*, SSNCHECK+13, SSNCHECK+16, SSNCHECK+19 |
| DT | SSNCHECK+28 |
| FIELDNUMBER | SSNCHECK+8~, SSNCHECK+14*, SSNCHECK+15 |
| HL771RF | ADTA08+5~ |
| HL771SF | ADTA08+5~ |
| HLCS | ADTA08+5~ |
| HLDOM | ADTA08+5~ |
| HLDT | TSK+9~ |
| HLDT1 | TSK+9~ |
| HLECH | ADTA08+4~ |
| HLENROU | TSK+9~ |
| HLEXROU | TSK+9~ |
| HLFS | ADTA08+4~ |
| HLINSTN | ADTA08+4~ |
| HLMID | TSK+9~ |
| HLN | ADTA08+5~ |
| HLPARAM | ADTA08+4~ |
| HLPARM | ADTA08+5~ |
| HLPID | ADTA08+4~ |
| HLQ | ADTA08+4~ |
| HLREC | ADTA08+5~ |
| HLRESLT1 | TSK+9~ |
| HLRFREQ | ADTA08+4~ |
| HLSAN | ADTA08+4~ |
| HLSFREQ | ADTA08+4~ |
| HLTC | TSK+9~ |
| HLTYPE | ADTA08+4~ |
| HLXM | ADTA08+4~ |
| I | ADT+8~* |
| IEN | HL7+1~, HL7+4*, HL7+5 |
| KSITEPAR | HL7+1~, HL7+3*, HL7+4 |
| MAGDPTCL | ADTA08+3~, ADTA08+8* |
| MAGKPID | EX+2! |
| MAGKTYP | ADTA08+3~, ADTA08+11*, ADTA08+15*, ADT+8!*, ADT+9, TSK+4, EX+2! |
| MAGSENDA08 | SENDA08+1~*, SSNCHECK+21 |
| OLDSSN | SSNCHECK+9~, SSNCHECK+16*, SSNCHECK+17, SSNCHECK+18 |
| SEGIX | ADTA08+5~ |
| SSNCHANGES | ADTA08+6~, ADTA08+9, SSNCHECK~, SSNCHECK+27!, SSNCHECK+29*, SSNCHECK+31 |
| SSNCHANGES( | SSNCHECK+18*, SSNCHECK+19*, SSNCHECK+26 |
| SSNCHANGES("" | SSNCHECK+25 |
| SUB4 | ADTA08+5~ |
| U | ADT+9 |
| VA | ADTA08+5~ |
| VACNTRY | ADTA08+5~ |
| VADM | ADTA08+5~ |
| X | SSNCHECK+10~, SSNCHECK+13*, SSNCHECK+14 |
| ZTDESC | TSK+4*, EX+1! |
| ZTDTH | TSK+3*, EX+1! |
| ZTIO | TSK+3*, EX+1! |
| ZTRTN | TSK+4*, EX+1! |
| ZTSAVE | EX+1! |
| ZTSAVE("DFN" | TSK+3* |
| ZTSAVE("DGNOW" | TSK+2* |
| ZTSAVE("DGPMA" | TSK+2* |
| ZTSAVE("DGPMDA" | TSK+2* |
| ZTSAVE("DGPMT" | TSK+3* |
| ZTSAVE("MAGDPTCL" | TSK+1* |
| ZTSAVE("MAGKTYP" | TSK+1* |
| ZTSAVE("SSNCHANGES(" | TSK+1* |
