©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
HDISVF07 ;ALB/RMO - 7118.21 File Utilities/API Cont.; 1/13/05@1:22:00
Source file <HDISVF07.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | (CHK,UPDATE)^DIE CLEAN^DILF $$GET1^DIQ |
| Health Data and Informatics | 1 | ($$FACNUM,$$FACPTR)^HDISVF01 |
| Kernel | 1 | $$PROD^XUPROD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CURSYSQ | ||
| GETDIP(HDISYIEN,HDISDIPA) | ;Get Domain/IP Address by IEN
; Input -- HDISYIEN HDIS System file IEN (Optional- Default current system) ; Output -- 1=Successful and 0=Failure ; If Successful: ; HDISDIPA Domain/IP Address |
|
| GETFAC(HDISYIEN,HDISIPTR,HDISFACN) | ;Get Institution file (#4) IEN and Facility Number by IEN
; Input -- HDISYIEN HDIS System file IEN (Optional- Default current system) ; Output -- 1=Successful and 0=Failure ; If Successful: ; HDISIPTR Institution file (#4) IEN ; HDISFACN Facility Number |
|
| GETTYPE(HDISYIEN,HDISTYPE,HDISTYPX) | ;Get Type (Internal and External Value) by IEN
; Input -- HDISYIEN HDIS System file IEN (Optional- Default current system) ; Output -- 1=Successful and 0=Failure ; If Successful: ; HDISTYPE Type (Internal Value) ; HDISTYPX Type (External Value) |
|
| GETFACQ | ||
| GETTYPEQ | ||
| FINDSYS(HDISDIPA,HDISFACN,HDISTYPE,HDISADDF,HDISYIEN,HDISERRM) | ;Find or Add a System Entry
; Input -- HDISDIPA Domain/IP Address ; HDISFACN Facility Number (Optional- Default current facility number) ; HDISTYPE Type (Optional- Default current system) ; HDISADDF Add a New Entry Flag (Optional- Default 0) ; 1=Yes and 0=No ; Output -- 1=Successful and 0=Failure ; If Successful: ; HDISYIEN HDIS System file IEN ; If Failure: ; HDISERRM Error Message (Optional) |
|
| FINDSYSQ | ||
| GETDIPQ | ||
| CURSYS(HDISYIEN) | ;Current System's HDIS System file IEN
; Input -- None ; Output -- 1=Successful and 0=Failure ; If Successful: ; HDISYIEN HDIS System file IEN |
|
| ADDSYSQ | ||
| ADDSYS(HDISIPTR,HDISDIPA,HDISTYPE,HDISYIEN,HDISERRM) | ;Add a New System Entry
; Input -- HDISIPTR Institution file (#4) IEN ; HDISDIPA Domain/IP Address ; HDISTYPE Type (Internal Value) ; Output -- 1=Successful and 0=Failure ; If Successful: ; HDISYIEN HDIS System file IEN ; If Failure: ; HDISERRM Error Message (Optional) |
| FileNo | Call Tags |
|---|---|
| ^HDISF(7118.21 - [#7118.21] | CHK^DIE, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^HDISF(7118.21 - [#7118.21] | FINDSYS+33, FINDSYS+35, FINDSYS+36, CURSYS+13, GETFAC+13, GETDIP+12, GETTYPE+13 |
| Name | Line Occurrences |
|---|---|
| $$ADDSYS | FINDSYS+40 |
| $$CURSYS | GETFAC+9, GETDIP+8, GETTYPE+9 |
| FINDSYSQ | FINDSYS+15, FINDSYS+20, FINDSYS+25, FINDSYS+33 |
| GETDIPQ | GETDIP+10 |
| GETFACQ | GETFAC+11 |
| GETTYPEQ | GETTYPE+11 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | FINDSYS+36, GETFAC+13, GETDIP+12, GETTYPE+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| HDISADDF | FINDSYS~, FINDSYS+40 |
| HDISDIPA | FINDSYS~, FINDSYS+15, FINDSYS+36, FINDSYS+40, ADDSYS~, ADDSYS+14, GETDIP~, GETDIP+6*, GETDIP+12*, GETDIPQ |
| HDISERRM | FINDSYS~, FINDSYS+13*, FINDSYS+16*, FINDSYS+21*, FINDSYS+26*, FINDSYS+40, ADDSYS~, ADDSYS+11*, ADDSYS+19* |
| HDISFACN | FINDSYS~, FINDSYS+18*, FINDSYS+20, FINDSYS+23, CURSYS+5~, CURSYS+9*, CURSYS+10, GETFAC~, GETFAC+7*, GETFAC+14* , GETFACQ |
| HDISFDA | ADDSYS+9~ |
| HDISFDA( | ADDSYS+13*, ADDSYS+14*, ADDSYS+15* |
| HDISI | FINDSYS+11~, FINDSYS+34*, FINDSYS+35*, FINDSYS+36, FINDSYS+37 |
| HDISIEN | ADDSYS+9~ |
| HDISIEN(1 | ADDSYS+21 |
| HDISIPTR | FINDSYS+11~, FINDSYS+23*, FINDSYS+25, FINDSYS+33, FINDSYS+35, FINDSYS+40, ADDSYS~, ADDSYS+13, CURSYS+5~, CURSYS+10* , CURSYS+13, GETFAC~, GETFAC+7*, GETFAC+13*, GETFAC+14, GETFACQ |
| HDISMSG | ADDSYS+9~ |
| HDISMSG("DIERR" | ADDSYS+18, ADDSYS+19 |
| HDISOKF | FINDSYS+11~, FINDSYS+38*, FINDSYS+40*, FINDSYSQ, ADDSYS+9~, ADDSYS+22*, ADDSYSQ |
| HDISRSLT | FINDSYS+11~, FINDSYS+30, FINDSYS+31 |
| HDISTYPE | FINDSYS~, FINDSYS+28*, FINDSYS+30, FINDSYS+31*, FINDSYS+40, ADDSYS~, ADDSYS+15, CURSYS+5~, CURSYS+11*, CURSYS+13 , GETTYPE~, GETTYPE+7*, GETTYPE+13*, GETTYPEQ |
| HDISTYPX | GETTYPE~, GETTYPE+7*, GETTYPE+14*, GETTYPEQ |
| HDISYIEN | FINDSYS~, FINDSYS+13*, FINDSYS+33, FINDSYS+35, FINDSYS+37*, FINDSYS+40, ADDSYS~, ADDSYS+11*, ADDSYS+21*, CURSYS~ , CURSYS+7*, CURSYS+13*, CURSYSQ, GETFAC~, GETFAC+9, GETFAC+11, GETFAC+13, GETDIP~, GETDIP+8, GETDIP+10 , GETDIP+12, GETTYPE~, GETTYPE+9, GETTYPE+11, GETTYPE+13, GETTYPE+14 |