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* |