©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
HLOSITE ;ALB/CJM-HL7 - API for getting site parameters ;02/04/2004
Source file <HLOSITE.m>
| Package | Total | Call Graph |
|---|---|---|
| Health Level Seven | 2 | ($$COUNT777,$$COUNT778)^HLOSITE $$PORT^HLOTLNK |
| Kernel | 1 | $$NOW^XLFDT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SYSPARMS(SYSTEM) | ;Gets system parameters from file 779.1
|
|
| INC(VARIABLE,AMOUNT) | ;
|
|
| UPDCNTS | ;update the record counts for file 777,778
|
|
| COUNT778() | ;
|
|
| COUNT777() | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("OS" | SYSPARMS+11, INC+8 |
| ^HLA - [#777] | COUNT777+4 |
| ^HLA(0 | UPDCNTS+3* |
| ^HLB - [#778] | COUNT778+4 |
| ^HLB(0 | UPDCNTS+6* |
| ^HLD(779.1 - [#779.1] | SYSPARMS+5 |
| ^HLTMP("FILE 777 RECORD COUNT" | UPDCNTS+4* |
| ^HLTMP("FILE 778 RECORD COUNT" | UPDCNTS+7* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AMOUNT | INC~, INC+9*, INC+10, INC+12 |
| COUNT | COUNT778+2~, COUNT778+3*, COUNT778+4*, COUNT778+5, COUNT777+2~, COUNT777+3*, COUNT777+4*, COUNT777+5, UPDCNTS+1~, UPDCNTS+2* , UPDCNTS+3, UPDCNTS+4, UPDCNTS+5*, UPDCNTS+6, UPDCNTS+7 |
| >> HLCSTATE("SYSTEM" | INC+5, INC+6 |
| IEN | COUNT778+2~, COUNT778+3*, COUNT778+4*, COUNT777+2~, COUNT777+3*, COUNT777+4* |
| LINK | SYSPARMS+4~, SYSPARMS+21*, SYSPARMS+22 |
| NODE | SYSPARMS+4~, SYSPARMS+5*, SYSPARMS+6, SYSPARMS+7, SYSPARMS+8, SYSPARMS+9, SYSPARMS+13, SYSPARMS+15, SYSPARMS+17, SYSPARMS+19 , SYSPARMS+21 |
| OS | SYSPARMS+11~*, SYSPARMS+12, INC+3~, INC+6*, INC+8*, INC+10 |
| SYSTEM | SYSPARMS~ |
| SYSTEM("DOMAIN" | SYSPARMS+6* |
| SYSTEM("ERROR | PURGE" , SYSPARMS+19*, SYSPARMS+20* |
| SYSTEM("HL7 B | UFFER" , SYSPARMS+13*, SYSPARMS+14* |
| SYSTEM("MAXSTRING" | SYSPARMS+9*, SYSPARMS+10, SYSPARMS+12* |
| SYSTEM("NORMA | L PURGE" , SYSPARMS+17*, SYSPARMS+18* |
| SYSTEM("PORT" | SYSPARMS+22*, SYSPARMS+23* |
| SYSTEM("PROCE | SSING ID" , SYSPARMS+8*, SYSPARMS+23 |
| SYSTEM("STATION" | SYSPARMS+7* |
| SYSTEM("USER | BUFFER" , SYSPARMS+15*, SYSPARMS+16* |
| VARIABLE | INC~, INC+10, INC+11, INC+12, INC+13, INC+14 |