©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
INCRYPQ ;LD,DGH; 22 Apr 99 19:47; Encryption socket functions
Source file <INCRYPQ.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Generic Interface System | 2 | ($$CRYPOFF,$$CRYPON,DECRYPT,ENCRYPT)^INCRYPT MC^INHS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENCRYPT(INARR,INV,DESKEY,INIP,INERR) | ;
|
|
| PACK(INLIN,INMAX,INBUF) | ;pack segments into packets
|
|
| DECRYPT(DECARR,INV,DESKEY,INERR) | ;
; INPUT: ; DECARR = Name of the array containing encrypted message strings ; to be decrypted. ; INV = Name of the array which the API will use to return the ; decrypted message string. Pass by reference. ; If local symbol space is low, the API will return a global array. ; DESKEY = DES encryption key. This parameter is only needed ; for the first string to be decrypted. ; INERR = Error message. Pass by reference. |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^INRHSITE(1 | ENCRYPT+20, ENCRYPT+23, DECRYPT+18, DECRYPT+21 |
| Name | Line Occurrences |
|---|---|
| $$PACK | ENCRYPT+38, ENCRYPT+47 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | ENCRYPT+23, DECRYPT+21 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BL | PACK+11~, PACK+12*, PACK+13, PACK+14 |
| COUNT | ENCRYPT+15~, ENCRYPT+27*, ENCRYPT+29, ENCRYPT+31 |
| DECARR | DECRYPT~, DECRYPT+15, DECRYPT+23, DECRYPT+24, DECRYPT+25 |
| DECRYPT | DECRYPT+14~, DECRYPT+26, DECRYPT+28 |
| DESKEY | ENCRYPT~, ENCRYPT+16, ENCRYPT+17, ENCRYPT+22, DECRYPT~, DECRYPT+16, DECRYPT+17, DECRYPT+20 |
| ENARR | ENCRYPT+14~, ENCRYPT+25*, ENCRYPT+26*, ENCRYPT+29, ENCRYPT+31, ENCRYPT+32, ENCRYPT+36, ENCRYPT+40, ENCRYPT+48 |
| END | ENCRYPT+14~, ENCRYPT+24*, ENCRYPT+40*, ENCRYPT+41, ENCRYPT+48*, ENCRYPT+49, ENCRYPT+52*, ENCRYPT+54, DECRYPT+14~, DECRYPT+22* , DECRYPT+25*, DECRYPT+26 |
| EOL | ENCRYPT+14~, ENCRYPT+21*, ENCRYPT+37 |
| I | DECRYPT+14~, DECRYPT+22*, DECRYPT+23*, DECRYPT+24, DECRYPT+25 |
| INARR | ENCRYPT~, ENCRYPT+18, ENCRYPT+25, ENCRYPT+27, ENCRYPT+33 |
| INBUF | ENCRYPT+14~, ENCRYPT+19*, ENCRYPT+38, ENCRYPT+40, ENCRYPT+44, ENCRYPT+46*, ENCRYPT+47, ENCRYPT+48, ENCRYPT+53, ENCRYPT+54 , PACK~, PACK+12*, PACK+13*, PACK+14* |
| INCRYPT | ENCRYPT+14~, ENCRYPT+41, ENCRYPT+43, ENCRYPT+54, ENCRYPT+56 |
| INCRYPT1 | ENCRYPT+45~, ENCRYPT+49, ENCRYPT+51 |
| INERR | ENCRYPT~, ENCRYPT+16*, ENCRYPT+17*, ENCRYPT+18*, DECRYPT~, DECRYPT+15*, DECRYPT+16*, DECRYPT+17* |
| INIP | ENCRYPT~ |
| INIP("EOL" | ENCRYPT+21 |
| INLIN | PACK~, PACK+13, PACK+14* |
| INLINE | PACK+11~, PACK+14*, PACK+15 |
| INMAX | ENCRYPT+14~, ENCRYPT+19*, ENCRYPT+38, ENCRYPT+44, ENCRYPT+47, PACK~, PACK+13, PACK+14 |
| INSMIN | ENCRYPT+14~, ENCRYPT+23*, DECRYPT+14~, DECRYPT+21* |
| INV | ENCRYPT~, ENCRYPT+43, ENCRYPT+51, ENCRYPT+56, DECRYPT~, DECRYPT+28 |
| INVS | ENCRYPT+14~, ENCRYPT+20*, ENCRYPT+42, ENCRYPT+50, ENCRYPT+55, DECRYPT+14~, DECRYPT+18*, DECRYPT+27 |
| L | PACK+11~, PACK+14* |
| LINE | ENCRYPT+14~, ENCRYPT+36*, ENCRYPT+37*, ENCRYPT+38, DECRYPT+14~, DECRYPT+24*, DECRYPT+26 |
| LINE1 | ENCRYPT+45~, ENCRYPT+46*, ENCRYPT+47 |
| LINO | ENCRYPT+14~, ENCRYPT+24*, ENCRYPT+43*, ENCRYPT+51*, ENCRYPT+56, DECRYPT+14~, DECRYPT+22*, DECRYPT+28* |
| NEWNODE | ENCRYPT+15~, ENCRYPT+29*, ENCRYPT+31*, ENCRYPT+35 |
| ORGLEN | ENCRYPT+15~, ENCRYPT+25*, ENCRYPT+29, ENCRYPT+31, ENCRYPT+32 |
| ORGNODE | ENCRYPT+15~, ENCRYPT+33*, ENCRYPT+35 |
| RC | ENCRYPT+15~, ENCRYPT+22*, ENCRYPT+57*, DECRYPT+14~, DECRYPT+20*, DECRYPT+29* |
| START | ENCRYPT+14~, ENCRYPT+19*, ENCRYPT+41*, ENCRYPT+49, ENCRYPT+54, DECRYPT+14~, DECRYPT+19*, DECRYPT+26* |
| STOP | ENCRYPT+14~, ENCRYPT+24*, ENCRYPT+26, ENCRYPT+32*, ENCRYPT+35* |
| U | ENCRYPT+20, ENCRYPT+23, DECRYPT+18, DECRYPT+21 |
| >> X | ENCRYPT+38*, ENCRYPT+39, ENCRYPT+41 |
| >> X1 | ENCRYPT+47*, ENCRYPT+49 |