Routine: HDISVF09

Information

HDISVF09 ;ALB/RMO,ALB/GRR - 7115.1 File Utilities/API Cont.; 2/1/06@09:56:00

Package	Total	Call Graph
Health Data and Informatics	6	$$BLDSND^HDISVCUT ($$FACPTR,$$GETSTAT,SETSTAT)^HDISVF01 ($$ADDFFNM,$$GETFF)^HDISVF05 ($$GETDIP,$$GETFAC,$$GETTYPE)^HDISVF07 ERR^HDISVF09 ERR2XTMP^HDISVU01
VA FileMan	4	DD^%DT $$GET1^DID UPDATE^DIE CLEAN^DILF
Kernel	3	$$NOW^XLFDT $$NS^XUAF4 $$PROD^XUPROD
MailMan	1	TASKBULL^XMXAPI
Registration	1	$$SITE^VASITE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 26

Package	Total	Caller Graph
Health Data and Informatics	13	HDI1014A HDI1015A HDI1016A HDI1018A HDI1019A HDI1020A HDI1021A HDISVAP HDISVC01 HDISVCMR HDISVCUT HDISVF09 HDISVS01
Kernel	2	XU671PO ^DIC(4.001
Pharmacy Data Management	2	PSS211PO PSSPO129
Adverse Reaction Tracking	1	GMRAY23
General Medical Record - Vitals	1	GMV8PST
Integrated Billing	1	IBE585PO
Lab Service	1	LR664L
Order Entry Results Reporting	1	ORY242
PCE Patient Care Encounter	1	PXVP206
Radiology Nuclear Medicine	1	RA127PO
Registration	1	DG933PO
Text Integration Utility	1	TIUPS211

Entry Points

Name	Comments	DBIA/ICR reference
FINDDOM(HDISDOM,HDISDFFS,HDISADDF,HDISDIEN,HDISERRM)	;Find or Add a New Domain Entry ; Input -- HDISDOM Domain Name ; HDISDFFS Domain File/Field Array (Optional) ; Pass by HDISDFFS(File #)=Field # (Field # optional- Default .01) ; Example: HDISDFFS(100.1)="" ; HDISADDF Add a New Entry Flag (Optional- Default 0) ; 1=Yes and 0=No ; Output -- 1=Successful and 0=Failure ; If Successful: ; HDISDIEN HDIS Domain file IEN ; If Failure: ; HDISERRM Error Message (Optional)
FINDDOMQ
ADDDOM(HDISDOM,HDISDFFS,HDISDIEN,HDISERRM)	;Add a New Domain Entry ; Input -- HDISDOM Domain Name ; HDISDFFS Domain File/Field Array (Optional) ; Pass by HDISDFFS(File #)=Field # (Field # optional- Default .01) ; Example: HDISDFFS(100.1)="" ; Output -- 1=Successful and 0=Failure ; If Successful: ; HDISDIEN HDIS Domain file IEN ; If Failure: ; HDISERRM Error Message (Optional)
ADDDOMQ
ADDDFFS(HDISDIEN,HDISDFFS,HDISERRM)	;Add Domain File/Fields ; Input -- HDISDIEN HDIS Domain file (#7115.1) IEN ; HDISDFFS Domain File/Field Array ; Pass by HDISDFFS(File #)=Field # (Field # optional- Default .01) ; Example: HDISDFFS(100.1)="" ; Output -- 1=Successful and 0=Failure ; If Failure: ; HDISERRM Error Message (Optional)
ADDDFFSQ
GETFILS(HDISDIEN,HDISCODE,HDISFILS)	;Get an Array of Files by Domain and Client Status Code ; Input -- HDISDIEN HDIS Domain file (#7115.1) IEN ; HDISCODE Client Status Code (Optional- Default 0=Not Started for Client) ; Output -- 1=Successful and 0=Failure ; If Successful: ; HDISFILS Array Subscripted by File # (i.e. HDISFILS(120.8)="")
GETFILSQ
GETIEN(HDISDOM,HDISDIEN)	;Get IEN for a Domain by Domain ; Input -- HDISDOM Domain Name ; Output -- 1=Successful and 0=Failure ; If Successful: ; HDISDIEN HDIS Domain file IEN
GETIENQ
ERR(HDISP1,HDISP2,HDISP3)	;
ERTBULL(HDISP1,HDISP2,HDISP3,HDISP4,HDISP5,HDISP6)	;
MFSUP(HDISFILE,HDISERR,HDISFN)	; Update status to complete and send HDR Bulletin

External References

Name	Field # of Occurrence
DD^%DT	ERR+9, ERTBULL+5, MFSUP+42
$$GET1^DID	MFSUP+35
UPDATE^DIE	ADDDOM+21, ADDDFFS+31
CLEAN^DILF	ADDDOM+28
$$BLDSND^HDISVCUT	MFSUP+11, MFSUP+12
$$FACPTR^HDISVF01	MFSUP+23
$$GETSTAT^HDISVF01	GETFILS+16, MFSUP+7
SETSTAT^HDISVF01	MFSUP+11, MFSUP+14
$$ADDFFNM^HDISVF05	ADDDFFS+19
$$GETFF^HDISVF05	GETFILS+16
$$GETDIP^HDISVF07	MFSUP+20
$$GETFAC^HDISVF07	MFSUP+19
$$GETTYPE^HDISVF07	MFSUP+21
ERR^HDISVF09	MFSUP+11, MFSUP+13, MFSUP+15
ERR2XTMP^HDISVU01	ERR+16, ERTBULL+15, MFSUP+52
$$SITE^VASITE	MFSUP+31
$$NOW^XLFDT	MFSUP+11, MFSUP+12, MFSUP+13, MFSUP+14, MFSUP+15, MFSUP+37, MFSUP+42
TASKBULL^XMXAPI	ERR+13, ERTBULL+12, MFSUP+49
$$NS^XUAF4	MFSUP+27
$$PROD^XUPROD	MFSUP+25

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HDIS(7115.1 - [#7115.1]	FINDDOM+19, FINDDOM+20, ADDDOM+17, GETFILS+15, GETIEN+10
^HDIS(7115.6 - [#7115.6]	ADDDFFS+28
^TMP("HDIS ERRORS"	ERTBULL+2, MFSUP+38
^TMP("HDIS STATUS"	MFSUP+10
^TMP("XMERR"	ERR+16, ERR+17!, ERTBULL+15, ERTBULL+16!, MFSUP+52, MFSUP+53!
^XMB("NETNAME"	MFSUP+11, MFSUP+13, MFSUP+15, MFSUP+24

Label References

Name	Line Occurrences
$$ADDDFFS	ADDDOM+30
$$ADDDOM	FINDDOM+23
ADDDFFSQ	ADDDFFS+12, ADDDFFS+16
ADDDOMQ	ADDDOM+14, ADDDOM+17
FINDDOMQ	FINDDOM+16, FINDDOM+19
GETFILSQ	GETFILS+10
GETIENQ	GETIEN+8

Naked Globals

Name	Field # of Occurrence
^(0	ADDDFFS+28

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DOMAIN	MFSUP+17~, MFSUP+20, MFSUP+24*, MFSUP+34
DUZ	ERR+13, ERTBULL+12, MFSUP+49
ERRARR	ERR+6~, ERR+7, ERR+13, ERTBULL+1~, ERTBULL+2, ERTBULL+12, MFSUP+38*, MFSUP+49
FACNAME	MFSUP+17~, MFSUP+28, MFSUP+30, MFSUP+32, MFSUP+34*, MFSUP+40
FACNUM	MFSUP+17~, MFSUP+29, MFSUP+30, MFSUP+33, MFSUP+34, MFSUP+45
FACPTR	MFSUP+17~, MFSUP+19, MFSUP+23*, MFSUP+27
FILE	MFSUP+6~, MFSUP+8*, MFSUP+35, MFSUP+36, MFSUP+46
FILENAME	MFSUP+17~, MFSUP+35, MFSUP+36, MFSUP+41
HDISADDF	FINDDOM~, FINDDOM+23
HDISARRY	MFSUP+6~, MFSUP+10*, MFSUP+11, MFSUP+12
HDISBDT	MFSUP+17~, MFSUP+37*
HDISCNT	ADDDFFS+8~, ADDDFFS+27, ADDDFFS+29, ADDDFFS+30
HDISCODE	GETFILS~, GETFILS+12, GETFILS+16, MFSUP+6~, MFSUP+7, MFSUP+9
HDISDFFS	FINDDOM~, FINDDOM+23, ADDDOM~, ADDDOM+30, ADDDFFS~, ADDDFFS+12
HDISDFFS(	ADDDFFS+16, ADDDFFS+18
HDISDIEN	FINDDOM~, FINDDOM+14, FINDDOM+19, FINDDOM+20, FINDDOM+23, ADDDOM~, ADDDOM+12, ADDDOM+26, ADDDOM+30, ADDDFFS~ , ADDDFFS+12, ADDDFFS+30, GETFILS~, GETFILS+10, GETFILS+15, GETIEN~, GETIEN+6, GETIEN+10, GETIENQ
HDISDOM	FINDDOM~, FINDDOM+16, FINDDOM+19, FINDDOM+20, FINDDOM+23, ADDDOM~, ADDDOM+14, ADDDOM+17, ADDDOM+20, GETIEN~ , GETIEN+8, GETIEN+10
HDISE	ERR+6~, ERR+7*
HDISE(1	ERR+7*
HDISERR	MFSUP~, MFSUP+11
HDISERRM	FINDDOM~, FINDDOM+14, FINDDOM+17, FINDDOM+23, ADDDOM~, ADDDOM+12, ADDDOM+15, ADDDOM+18, ADDDOM+24, ADDDOM+30 , ADDDFFS~, ADDDFFS+10, ADDDFFS+13, ADDDFFS+16, ADDDFFS+19, ADDDFFS+23, ADDDFFS+34
HDISFARY	ADDDFFS+8~
HDISFARY(	ADDDFFS+20*, ADDDFFS+28
HDISFDA	ADDDOM+10~, ADDDFFS+8~
HDISFDA(	ADDDOM+20, ADDDFFS+30
HDISFFNM	ADDDFFS+8~, ADDDFFS+28*, ADDDFFS+30
HDISFIEN	ADDDFFS+8~, ADDDFFS+19, ADDDFFS+20, ADDDFFS+26, ADDDFFS+28, GETFILS+6~, GETFILS+14, GETFILS+15, GETFILS+16
HDISFILE	MFSUP~, MFSUP+7, MFSUP+8, MFSUP+11, MFSUP+12, MFSUP+14
HDISFILN	ADDDFFS+8~, ADDDFFS+15, ADDDFFS+16, ADDDFFS+18, ADDDFFS+19, ADDDFFS+23, GETFILS+6~, GETFILS+16, GETFILS+17
HDISFILS	GETFILS~, GETFILS+8!, GETFILSQ
HDISFILS(	GETFILS+17*
HDISFLAG	ERR+13, ERTBULL+1~, ERTBULL+12, MFSUP+49
HDISFLAG("FROM"	ERR+12, ERTBULL+11, MFSUP+48*
HDISFLDN	ADDDFFS+8~, ADDDFFS+18*, ADDDFFS+19, ADDDFFS+23, GETFILS+6~, GETFILS+16
HDISFN	MFSUP~
HDISIEN	ADDDOM+10~, ADDDFFS+8~
HDISIEN(1	ADDDOM+26
HDISMESS	MFSUP+6~, MFSUP+13, MFSUP+15
HDISMSG	ADDDOM+10~, ADDDFFS+8~
HDISMSG("DIERR"	ADDDOM+23, ADDDOM+24, ADDDFFS+33, ADDDFFS+34
HDISNM	MFSUP+6~, MFSUP+11, MFSUP+13, MFSUP+15*
HDISOKF	FINDDOM+12~, FINDDOM+21, FINDDOM+23, FINDDOMQ, ADDDOM+10~, ADDDOM+27, ADDDOM+30, ADDDOMQ, ADDDFFS+8~, ADDDFFS+36* , ADDDFFSQ
HDISOUT	MFSUP+6~, MFSUP+11, MFSUP+12, MFSUP+13, MFSUP+15
HDISP	ERR+6~, ERR+13, ERTBULL+1~, ERTBULL+12, MFSUP+39~, MFSUP+49
HDISP(1	ERR+8, ERTBULL+3, MFSUP+40*
HDISP(2	ERR+9, ERTBULL+4, MFSUP+41*
HDISP(3	ERR+10, ERTBULL+6, MFSUP+43*
HDISP(4	ERTBULL+7, MFSUP+44
HDISP(5	ERTBULL+8, MFSUP+45
HDISP(6	ERTBULL+9, MFSUP+46
HDISP1	ERR~, ERR+8, ERTBULL~, ERTBULL+3
HDISP2	ERR~, ERR+9, ERTBULL~, ERTBULL+4
HDISP3	ERR~, ERR+10, ERTBULL~, ERTBULL+5
HDISP4	ERTBULL~, ERTBULL+7
HDISP5	ERTBULL~, ERTBULL+8
HDISP6	ERTBULL~, ERTBULL+9
HDISTASK	ERR+6~, ERR+13, ERTBULL+1~, ERTBULL+12, MFSUP+6~, MFSUP+49
NAME	ERR+6~, ERR+11, ERR+13, ERTBULL+1~, ERTBULL+10, ERTBULL+12, MFSUP+6~, MFSUP+47*, MFSUP+49
OOPS	MFSUP+6~, MFSUP+18, MFSUP+19, MFSUP+20, MFSUP+21, MFSUP+22
SYSTYP	MFSUP+17~
SYSTYPE	MFSUP+6~, MFSUP+21, MFSUP+25, MFSUP+26, MFSUP+44
TMP	MFSUP+6~, MFSUP+27, MFSUP+28, MFSUP+29, MFSUP+31, MFSUP+32, MFSUP+33
XMERR	ERR+14, ERR+17!, ERTBULL+13, ERTBULL+16!, MFSUP+50, MFSUP+53!
Y	ERR+9, ERTBULL+5~, ERTBULL+6, MFSUP+42~*, MFSUP+43

Customize PDF page

Package: Health Data and Informatics