DGY994PO ; ALB/CNF/CMF - UTILITY TO CREATE CERNER LOGICAL LINK ; 10-03-2019
Source file <DGY994PO.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 |
|---|---|---|
| ENV | ; Entry point for environment check
|
|
| PRE | ; Entry point for pre install
|
|
| PROGCHK(XPDABORT) | ;checks for necessary programmer variables
|
|
| CRNRCHK(XPDABORT) | ;checks CERNER entry in Institution file. Post init will fail if missing.
|
|
| POST | ; Entry point post install
|
|
| BUG | ; Before this patch, a category II flag could be inactivated without
|
|
| CHK | ; Check for existing logical link
|
|
| PORT | ; KIDS has prompted user for port number, set port variable DGPORT
|
|
| 870 | ; Create HL7 Logical Link
|
|
| FIN | ;
|
|
| ABRT | ;
|
| Name | Field # of Occurrence |
|---|---|
| INACT^DGPFDD | BUG+26 |
| DEACT^DGPFXCRN | BUG+20 |
| $$FIND1^DIC | CRNRCHK+1, CHK+3 |
| UPDATE^DIE | 870+20 |
| IX^DIK | BUG+21 |
| $$GET1^DIQ | CHK+7 |
| BMES^XPDUTL | PROGCHK+2, CRNRCHK+2, BUG+4, CHK+4, 870+22, 870+34, FIN+1, ABRT+1 |
| MES^XPDUTL | PROGCHK+3, PROGCHK+4, PROGCHK+5, CRNRCHK+3, CRNRCHK+4, CRNRCHK+5, CRNRCHK+6, CRNRCHK+7, BUG+5, BUG+6 , BUG+28, 870+36, 870+37, 870+38 |
| FileNo | Call Tags |
|---|---|
| ^DGPF(26.11 - [#26.11] | Classic Fileman Calls |
| ^DIC(4 - [#4] | FIND1^DIC |
| ^HLCS(870 - [#870] | FIND1^DIC, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPF(26.11 - [#26.11] | BUG+14, BUG+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DA | BUG+21* |
| DGABRT | POST+2~, POST+4*, POST+5, POST+6, PORT+2*, PORT+4*, 870+23* |
| DGLNK | POST+2~, CHK+2*, CHK+3, CHK+4, 870+5, 870+22, 870+34 |
| DGNAME | POST+2~, 870+28*, 870+29*, 870+30*, 870+36 |
| DGNEW | POST+2~, 870+31*, 870+32*, 870+35, 870+38 |
| DGOLD | POST+2~, CHK+7*, 870+6, 870+26, 870+35, 870+37 |
| DGPCE | POST+2~, CHK+6*, CHK+7 |
| DGPORT | POST+2~, PORT+5*, 870+15, 870+32 |
| DGX | POST+2~, POST+5* |
| >> DIK | BUG+21* |
| DT | PROGCHK+1 |
| DUZ | PROGCHK+1, BUG+26 |
| DUZ(0 | PROGCHK+1 |
| ERR | 870+1~, 870+21 |
| FDA | 870+1~, 870+4! |
| FDA(1 | 870+5*, 870+6*, 870+7*, 870+8*, 870+9*, 870+10*, 870+11*, 870+12*, 870+13*, 870+14* , 870+15*, 870+16*, 870+17*, 870+18* |
| FLG | BUG+12~, BUG+13*, BUG+14*, BUG+15, BUG+20, BUG+21, BUG+26 |
| FLGNM | BUG+12~, BUG+18*, BUG+20 |
| J | CHK+1~, CHK+7*, 870+1~, 870+35*, 870+36, 870+37, 870+38 |
| MSG | BUG+12~, BUG+19*, BUG+20 |
| U | PROGCHK+1 |
| X | BUG+12~, BUG+15*, BUG+16, BUG+18, CHK+1~, CHK+3*, CHK+7, 870+1~, 870+34*, 870+36* , 870+37*, 870+38* |
| XPDABORT | ENV+1*, ENV+2, ENV+3, ENV+4!, PROGCHK~, PROGCHK+6*, CRNRCHK~, CRNRCHK+8* |
| >> XPDQUES("POSPORT" | PORT+1 |
| Y | CHK+1~, PORT+1*, PORT+2, PORT+4, PORT+5 |
| Z | CHK+1~ |
