GMRCP99 ;BIZ/WPB - POST ROUTINE TO SET UP THE LINK FOR GMRCCCRA; 03/15/18
Source file <GMRCP99.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POST | ;
|
|
| LINK | ; update the GMRCCRA Link
|
|
| SENDAPP | ; update the HL7 Application Parameter file to add Facility Name
|
|
| RECAPP | ; update the HL7 Application Parameter file to add Facility Name
|
|
| PROTO | ; add protocol as ITEM to the GMRC EVSEND OR Protocol
|
|
| UPDTMGRP | ; get the Alert notification mail group from the HL7 site parameters file and add the CCRA dev ops mail group to the remote members
|
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | LINK+4, SENDAPP+3, RECAPP+3 |
| FILE^DIE | LINK+9, SENDAPP+5, RECAPP+5 |
| UPDATE^DIE | PROTO+7, UPDTMGRP+4 |
| $$GET1^DIQ | UPDTMGRP+2 |
| MES^XPDUTL | LINK+10, LINK+12, LINK+13, SENDAPP+6, SENDAPP+8, SENDAPP+9, RECAPP+6, RECAPP+8, RECAPP+9, PROTO+8 , PROTO+10, PROTO+11 |
| $$KSP^XUPARAM | LINK+5, SENDAPP+4 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^HL(771 - [#771] | FIND1^DIC |
| ^HLCS(869.3 - [#869.3] | GET1^DIQ |
| ^HLCS(870 - [#870] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ORD(101 - [#101] | PROTO+3, PROTO+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AIEN | SENDAPP+1~, SENDAPP+3*, SENDAPP+4, RECAPP+1~, RECAPP+3*, RECAPP+4 |
| DOMAIN | LINK+1~ |
| FDA | LINK+9!, SENDAPP+5!, RECAPP+5!, PROTO+5!, UPDTMGRP+1~ |
| FDA( | PROTO+6*, UPDTMGRP+3* |
| FDA(771 | SENDAPP+4*, RECAPP+4* |
| FDA(870 | LINK+5*, LINK+6*, LINK+7*, LINK+8* |
| GMRCERR | LINK+1~, LINK+11, SENDAPP+1~, SENDAPP+7, RECAPP+1~, RECAPP+7, PROTO+2~, PROTO+5!, PROTO+9, UPDTMGRP+1~ |
| GMRCIEN | PROTO+2~, PROTO+3*, PROTO+6 |
| GMRCIEN1 | PROTO+2~, PROTO+4*, PROTO+6 |
| GMRCPRTCL | PROTO+2~, PROTO+3* |
| LIEN | LINK+1~, LINK+4*, LINK+5, LINK+6, LINK+7, LINK+8 |
| MGPIEN | UPDTMGRP+1~, UPDTMGRP+2*, UPDTMGRP+3 |
| OPSITE | LINK+1~ |
| VAL | LINK+1~, LINK+3*, LINK+4, SENDAPP+1~, SENDAPP+2*, SENDAPP+3, RECAPP+1~, RECAPP+2*, RECAPP+3 |
| >> XPDQUES("POST1" | LINK+2, LINK+7 |
| >> XPDQUES("POST2" | LINK+8 |
| >> Y | PROTO+4* |