©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
AGMPHLEU ; IHS/SD/TPF - HLO MPI A28 MISSING ICN BACKGROUND TASKS ;
Source file <AGMPHLEU.m>
| Package | Total | Call Graph |
|---|---|---|
| Patient Registration MPI | 3 | $$DEMOPAT^AGMPHLU (PID,ZPD)^AGMPIHL1 (CREATMSG,EVN,NOTIF)^AGMPIHLO |
| Health Level Seven | 2 | ($$ADDMSG,$$NEWBATCH,SET)^HLOAPI $$SENDONE^HLOAPI1 |
| VA Fileman | 2 | $$GET1^DIQ ^DIR |
| Kernel | 1 | $$FMADD^XLFDT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SET | ;EP - INIT VARS FOR BATCH
|
|
| MISSEUID | ;EP - PROCESS MISSING EUID
|
|
| ATTEMPT(DFN,ADDED,ERRORS) | ;EP - TRY TO ADD PTS WITH MISSING EUIDs
|
|
| BATCHOUT() | ;EP - THIS ENTRY POINT WILL COLLECT A28 MESSAGE FOR PTS WITH MISSING ICNS
|
|
| START | ;EP - START UP MISSING AND LOCAL ID TASK
|
|
| MYSET(ARY,V,F,R,C,S) | ;EP
|
| Name | Field # of Occurrence |
|---|---|
| $$DEMOPAT^AGMPHLU | MISSEUID+22, BATCHOUT+21 |
| PID^AGMPIHL1 | BATCHOUT+31 |
| ZPD^AGMPIHL1 | BATCHOUT+32 |
| CREATMSG^AGMPIHLO | ATTEMPT+1 |
| EVN^AGMPIHLO | BATCHOUT+30 |
| NOTIF^AGMPIHLO | ATTEMPT+5, BATCHOUT+16, BATCHOUT+28, BATCHOUT+33, BATCHOUT+43 |
| $$GET1^DIQ | MISSEUID+23, MISSEUID+36, BATCHOUT+19, SET+15 |
| ^DIR | MISSEUID+15 |
| $$ADDMSG^HLOAPI | BATCHOUT+26 |
| $$NEWBATCH^HLOAPI | BATCHOUT+15 |
| SET^HLOAPI | MYSET+1 |
| $$SENDONE^HLOAPI1 | BATCHOUT+42 |
| $$FMADD^XLFDT | MISSEUID+5 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^DGCN(391.91 - [#391.91] | GET1^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AGFAC - [#9009061] | MISSEUID+33 |
| ^AUPNPAT - [#9000001] | MISSEUID+29, MISSEUID+31 |
| ^DGCN(391.91 - [#391.91] | MISSEUID+35 |
| ^DPT - [#2] | MISSEUID+20, MISSEUID+21, MISSEUID+26, MISSEUID+27, BATCHOUT+18, BATCHOUT+20, BATCHOUT+23, BATCHOUT+24 |
| ^XTMP("AGMPICN" | MISSEUID+5*, MISSEUID+6, MISSEUID+7, MISSEUID+38!, MISSEUID+40, ATTEMPT+8* |
| Name | Line Occurrences |
|---|---|
| ATTEMPT | MISSEUID+42 |
| MISSEUID | START+1 |
| SET | BATCHOUT+40 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADDED | MISSEUID+1~, MISSEUID+3*, MISSEUID+42, MISSEUID+52, ATTEMPT~, ATTEMPT+7* |
| >> APPARMS | BATCHOUT+42 |
| >> APPARMS("ACCE | PT ACK RESPONSE" , SET+4*, PT ACK TYPE" , SET+2* |
| >> APPARMS("APP | ACK TYPE" , SET+6* |
| >> APPARMS("QUEUE" | SET+7* |
| >> APPARMS("RECE | IVING APPLICATION" , SET+8* |
| >> APPARMS("SEND | ING APPLICATION" , SET+1*, ING FACILITY" , SET+15* |
| ARY | MYSET~, MYSET+1 |
| BATCH | BATCHOUT+1~, BATCHOUT+2*, BATCHOUT+44! |
| C | MYSET~, MYSET+1 |
| CNT | MISSEUID+1~, MISSEUID+20*, MISSEUID+28 |
| >> COMP | BATCHOUT+9* |
| DA | MISSEUID+1~, MISSEUID+35*, MISSEUID+36 |
| DELAY | MISSEUID+1~, MISSEUID+6*, MISSEUID+40 |
| DFN | ATTEMPT~, ATTEMPT+1, ATTEMPT+5, BATCHOUT+1~ |
| DFNIEN | MISSEUID+1~, MISSEUID+18*, MISSEUID+20*, MISSEUID+21, MISSEUID+22, MISSEUID+23, MISSEUID+26, MISSEUID+27, MISSEUID+29, MISSEUID+31 , MISSEUID+35, MISSEUID+38, MISSEUID+40, MISSEUID+42, ATTEMPT+8, BATCHOUT+17*, BATCHOUT+18*, BATCHOUT+19, BATCHOUT+20, BATCHOUT+21 , BATCHOUT+23, BATCHOUT+24, BATCHOUT+31, BATCHOUT+32 |
| DIR | MISSEUID+10~ |
| DIR("A" | MISSEUID+14* |
| DIR("B" | MISSEUID+14* |
| DIR(0 | MISSEUID+14* |
| DIROUT | MISSEUID+10~ |
| DIRUT | MISSEUID+10~ |
| DT | MISSEUID+5 |
| DTOUT | MISSEUID+10~ |
| DUOUT | MISSEUID+10~ |
| DUZ(2 | MISSEUID+2, MISSEUID+30*, MISSEUID+31*, MISSEUID+33, MISSEUID+35, MISSEUID+38, MISSEUID+40, MISSEUID+43*, ATTEMPT+8, SET+15 |
| >> ERR | ATTEMPT+4*, ATTEMPT+5, BATCHOUT+15, BATCHOUT+16, BATCHOUT+26, BATCHOUT+28, BATCHOUT+31, BATCHOUT+32, BATCHOUT+33, BATCHOUT+42 , BATCHOUT+43 |
| ERRORS | MISSEUID+1~, MISSEUID+3*, MISSEUID+42, MISSEUID+51, ATTEMPT~, ATTEMPT+3* |
| F | MYSET~, MYSET+1 |
| >> HL1("ECH" | BATCHOUT+8*, BATCHOUT+9, BATCHOUT+11* |
| >> HL1("FS" | BATCHOUT+10*, BATCHOUT+12* |
| >> HL1("Q" | BATCHOUT+13* |
| >> HL1("VER" | BATCHOUT+14* |
| HLMP | BATCHOUT+1~ |
| HLMSTATE | BATCHOUT+1~, BATCHOUT+15, BATCHOUT+26, BATCHOUT+29 |
| >> HLPM | BATCHOUT+15, BATCHOUT+26 |
| >> HLPM("ENCODIN | G CHARACTERS" , BATCHOUT+7*, BATCHOUT+8 |
| >> HLPM("EVENT" | BATCHOUT+4*, BATCHOUT+30 |
| >> HLPM("FIELD S | EPARATOR" , BATCHOUT+6*, BATCHOUT+10 |
| >> HLPM("MESSAGE | TYPE" , BATCHOUT+3* |
| >> HLPM("VERSION" | BATCHOUT+5* |
| >> HLST | BATCHOUT+29* |
| LOCKED | MISSEUID+1~, MISSEUID+3*, MISSEUID+26*, MISSEUID+45 |
| MAX | MISSEUID+1~, MISSEUID+7*, MISSEUID+9, MISSEUID+14, MISSEUID+16*, MISSEUID+17*, MISSEUID+42, MISSEUID+52 |
| MERGED | MISSEUID+1~, MISSEUID+3*, MISSEUID+21*, MISSEUID+46 |
| MISSING | MISSEUID+1~, MISSEUID+3*, MISSEUID+39*, MISSEUID+49 |
| MSG | BATCHOUT+1~, BATCHOUT+42 |
| NOCHART | MISSEUID+1~, MISSEUID+3*, MISSEUID+29*, MISSEUID+47 |
| NONORF | MISSEUID+1~, MISSEUID+3*, MISSEUID+34*, MISSEUID+48 |
| PARMS | BATCHOUT+1~ |
| PICN | MISSEUID+1~, MISSEUID+23*, MISSEUID+38 |
| QUEUED | MISSEUID+1~, MISSEUID+3*, MISSEUID+40*, MISSEUID+50 |
| QUIT | BATCHOUT+1~, BATCHOUT+17*, BATCHOUT+18, BATCHOUT+27*, BATCHOUT+38 |
| R | MYSET~, MYSET+1 |
| S | MYSET~, MYSET+1 |
| SEG | BATCHOUT+1~ |
| >> SUCCESS | ATTEMPT+1, ATTEMPT+2 |
| TICN | MISSEUID+1~, MISSEUID+35*, MISSEUID+36*, MISSEUID+38 |
| TMPDUZ2 | MISSEUID+1~, MISSEUID+2*, MISSEUID+43 |
| U | MISSEUID+5, MISSEUID+33 |
| V | MYSET~, MYSET+1 |
| >> WHO | BATCHOUT+42 |
| >> WHO("FACILITY | LINK NAME" , SET+10* |
| >> WHO("IE LINK | NAME" , SET+13* |
| >> WHO("RECEIVIN | G APPLICATION" , SET+9* |
| >> WHO("STATION | NUMBER" , SET+11* |
| WHOTO | BATCHOUT+1~ |
| X | MISSEUID+10~ |
| Y | MISSEUID+10~, MISSEUID+16, MISSEUID+17 |
| >> ZTQUEUED | MISSEUID+9, MISSEUID+28, MISSEUID+44 |