Routine: DGPFHLT1

Package	Total	Call Graph
Registration	11	($$FNDASGN,$$GETASGN,$$STOALL)^DGPFAA $$SNDORU^DGPFHLS SEND^DGPFHLT2 EN^DGPFHLT3 SEND^DGPFHLT4 (TERRMSG,TREQMSG)^DGPFHLTM $$DECHL7^DGPFHLUT $$PARENT^DGPFUT1 BLDTFL^DGPFUT2 GETDBRS^DGPFUT6 $$SITE^VASITE
Kernel	2	$$NOW^XLFDT ($$IEN,$$NAME)^XUAF4
VA FileMan	2	$$FIND1^DIC (FILE,UPDATE)^DIE
Health Level Seven	1	($$FMDATE,$$FMNAME)^HLFNC
Master Patient Index VistA	1	$$GETDFN^MPIF001

Package	Total	Caller Graph
Registration	6	DGPF PRF QBP/Q11 EVENT DGPF PRF QBP/Q11 SUBSC DGPF PRF RSP/K11 EVENT DGPF PRF RSP/K11 SUBSC DGPFHLT DGPFTR1
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	; entry point ; DATAARY array has the following structure: ; DATAARY("ACTIVE") = 1 if PRF flag is active, 0 otherwise ; DATAARY("REVBY") = name of the person reviewing the request ; DATAARY("REVDUZ") = DUZ of the person reviewing the request ; DATAARY("REVDTM") = Date/time of the review ; DATAARY("REVRES") = Result of the review ; "A" for approval ; "D" for denial/rejection ; DATAARY("REVCMT") = review comment/reason ; DATAARY("DFN") = patient DFN ; DATAARY("FLAG") = PRF flag ien in file 26.15 ; DATAARY("ICN") = patient ICN ; DATAARY("MSGID") = HL7 message Id ; DATAARY("QOK") = flag for QAK segment in RSP^K11 message ; 1 if patient + PRF flag data has been found and retrieved ; 0 otherwise ; DATAARY("REQBY") = requester name ; DATAARY("REQDTM") = request date/time ; DATAARY("REQCMT") = request comment/reason ; DATAARY("REQID") = query id ; DATAARY("SENDTO") = file 4 ien of facility we're sending HL7 message to ; DATAARY("SFIEN") = ien of sending facility in file 4 ; DATAARY("SFNAME") = formatted name of sending facility ; DATAARY("ORIGOWN")= file 4 ien of flag's original owner
CHK()	; Check data in incoming message ; Called from EN tag, relies on (and sets) some variables defined in there ; Returns "" if there are no problems, or error message otherwise
UPDLOG(DATA)	; file a log entry ; DATA - Array of values to file (see tag EN) ; Returns "" if there are no problems, or error message otherwise ;
UPDASGN(AFLG,DGIEN,DATA,DGPFA)	; update PRF assignment and assignment history ; AFLG - 1 if flag needs to be reactivated, 0 otherwise ; DGIEN - ien of PRF assignment record ; DATA - Array of values to work with (see tag EN) ; DGPFA - PRF assignment array ; Returns "" if there are no problems, or error message otherwise
NORESP(DFN,FLAG,STATUS)	; set status of entries in file 26.22 to "NO RESPONSE" ; DFN - patient DFN ; FLAG - flag ien in file 26.15 ; STATUS - current status of entries that should be flipped to "NO RESPONSE" (internal code)

External References

Name	Field # of Occurrence
$$FNDASGN^DGPFAA	CHK+17
$$GETASGN^DGPFAA	CHK+19
$$STOALL^DGPFAA	UPDASGN+26, UPDASGN+39
$$SNDORU^DGPFHLS	UPDASGN+30, UPDASGN+43
SEND^DGPFHLT2	EN+95
EN^DGPFHLT3	EN+41
SEND^DGPFHLT4	EN+80
TERRMSG^DGPFHLTM	EN+102
TREQMSG^DGPFHLTM	EN+87
$$DECHL7^DGPFHLUT	EN+57, EN+61, EN+63
$$PARENT^DGPFUT1	EN+92, CHK+23
BLDTFL^DGPFUT2	CHK+12
GETDBRS^DGPFUT6	UPDASGN+16
$$FIND1^DIC	EN+75, CHK+15
FILE^DIE	NORESP+15
UPDATE^DIE	UPDLOG+18
$$FMDATE^HLFNC	EN+65
$$FMNAME^HLFNC	EN+62
$$GETDFN^MPIF001	CHK+8
$$SITE^VASITE	CHK+22
$$NOW^XLFDT	EN+77, UPDASGN+38
$$IEN^XUAF4	CHK+10, CHK+13
$$NAME^XUAF4	CHK+14

Used in HL7 Interface

HL7 Protocol Name	Call Tags
DGPF PRF QBP/Q11 EVENT	EN
DGPF PRF RSP/K11 SUBSC	EN
DGPF PRF QBP/Q11 SUBSC	EN
DGPF PRF RSP/K11 EVENT	EN

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	FIND1^DIC
^DGPF(26.15 - [#26.15]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPF(26.22 - [#26.22]	NORESP+10, NORESP+12, NORESP+13
^TMP("DGPFHLT1"	EN+30!, EN+33, EN+34, EN+37, EN+39!, EN+45, EN+46, EN+104!

Label References

Name	Line Occurrences
$$CHK	EN+69
$$UPDASGN	EN+91
$$UPDLOG	EN+82
NORESP	EN+85

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AFLG	UPDASGN~, UPDASGN+23
CNT	EN+27~, EN+33, EN+34
DATA	UPDLOG~, UPDASGN~
DATA("ACTIVE"	UPDLOG+9
DATA("DFN"	UPDLOG+7
DATA("FLAG"	UPDLOG+8
DATA("MSGID"	UPDLOG+15
DATA("REQBY"	UPDLOG+6
DATA("REQCMT"	UPDLOG+17
DATA("REQDTM"	UPDLOG+5
DATA("REQID"	UPDLOG+14
DATA("REVBY"	UPDLOG+10, UPDLOG+11
DATA("REVDTM"	UPDLOG+12, UPDASGN+10
DATA("REVDUZ"	UPDASGN+9, UPDASGN+11
DATA("SFIEN"	UPDLOG+16, UPDASGN+35
DATA("SFNAME"	UPDASGN+37
DATAARY	EN+27~, EN+82, EN+87, EN+91, EN+95
DATAARY("ACTIVE"	EN+71*, EN+72, EN+87, EN+89
DATAARY("DFN"	EN+85, CHK+8*, CHK+9, CHK+12, CHK+17
DATAARY("FLAG"	EN+85, CHK+15*, CHK+16, CHK+17
DATAARY("ICN"	EN+56*, CHK+8
DATAARY("MSGID"	EN+51*, EN+80, EN+100, EN+102, CHK+5
DATAARY("ORIGOWN"	EN+90*
DATAARY("QOK"	EN+69, CHK+20
DATAARY("REQBY"	EN+62, EN+63, CHK+24
DATAARY("REQCMT"	EN+61*
DATAARY("REQDTM"	EN+65*, CHK+25
DATAARY("REQID"	EN+55*, CHK+7
DATAARY("REVBY"	EN+74*, EN+75
DATAARY("REVDTM"	EN+77*
DATAARY("REVDUZ"	EN+75*, EN+76
DATAARY("REVRES"	EN+77*
DATAARY("SENDTO"	EN+92, EN+93
DATAARY("SFIEN"	EN+92, EN+93, CHK+10*, CHK+11, CHK+14
DATAARY("SFNAME"	CHK+14*
DATE	NORESP+5~, NORESP+10, NORESP+12, NORESP+13
DBRSCNT	UPDASGN+7~, UPDASGN+17, UPDASGN+18, UPDASGN+19, UPDASGN+20
DBRSDATA	UPDASGN+7~, UPDASGN+16
DBRSDATA(	UPDASGN+17, UPDASGN+19, UPDASGN+20
DBRSNUM	UPDASGN+7~, UPDASGN+17*, UPDASGN+19, UPDASGN+20
DFN	NORESP~, NORESP+6, NORESP+10, NORESP+12, NORESP+13
DGERR	EN+27~, EN+69, EN+76, EN+77, EN+80, EN+82, EN+83, EN+91, EN+95, EN+98 , EN+101
DGFDA	EN+27~, UPDLOG+4~, NORESP+5~, NORESP+15!
DGFDA(	UPDLOG+5, UPDLOG+6, UPDLOG+7, UPDLOG+8, UPDLOG+9, UPDLOG+11, UPDLOG+12, UPDLOG+14, UPDLOG+15, UPDLOG+16 , UPDLOG+17, NORESP+14
DGHERR	EN+73~, CHK+4~, NORESP+5~
DGIEN	EN+27~, EN+91, CHK+17*, CHK+18, CHK+19, UPDASGN~, UPDASGN+16, UPDASGN+30, UPDASGN+43
DGPFA	EN+27~, EN+87, EN+91, CHK+19, UPDASGN~, UPDASGN+26, UPDASGN+39
DGPFA("OWNER"	EN+90, CHK+21, UPDASGN+35*
DGPFA("REVIEWDT"	UPDASGN+12*
DGPFA("STATUS"	EN+71, UPDASGN+13*
DGPFAH	EN+27~, UPDASGN+26, UPDASGN+39
DGPFAH("ACTION"	UPDASGN+24, UPDASGN+34
DGPFAH("APPRVBY"	UPDASGN+9*
DGPFAH("ASSIGNDT"	UPDASGN+10, UPDASGN+38
DGPFAH("COMMENT"	UPDASGN+14, UPDASGN+25, UPDASGN+36, UPDASGN+37
DGPFAH("DBRS"	UPDASGN+19, UPDASGN+20
DGPFAH("ENTERBY"	UPDASGN+11*
DGTFL	CHK+4~, CHK+12
DGTFL(	CHK+13
DIEERR	UPDLOG+4~, UPDLOG+19
DIEERR("DIERR"	UPDLOG+19
DIERR	EN+27~, EN+73~, CHK+4~, UPDLOG+4~, NORESP+5~
>> ERTXT	EN+102
>> ERTXT(1	EN+100*
>> ERTXT(4	EN+101*
FCLTY	CHK+4~, CHK+22*, CHK+23
FLAG	NORESP~, NORESP+7, NORESP+10, NORESP+12, NORESP+13
FLAGNM	EN+27~, EN+43, EN+57, CHK+15
>> HL("ECH"	EN+29
>> HL("FS"	EN+29
HLCMP	EN+26~, EN+29*, EN+39, EN+41, EN+50, EN+62, EN+64
HLECH	EN+26~, EN+29*, EN+62
HLFS	EN+26~, EN+29*, EN+39, EN+41, EN+47, EN+50, EN+51, EN+55, EN+56, EN+57 , EN+61, EN+62, EN+64, EN+65
>> HLNEXT	EN+32
>> HLNODE	EN+33
>> HLNODE(	EN+34
>> HLQUIT	EN+32
HLREP	EN+26~, EN+29*
HLSCMP	EN+26~, EN+29*, EN+64
IEN	NORESP+5~, NORESP+13*, NORESP+14
MSGTYPE	EN+27~
OWNER	CHK+4~, CHK+21*, CHK+23
RES	UPDASGN+7~, UPDASGN+8, UPDASGN+27, UPDASGN+28, UPDASGN+30, UPDASGN+32, UPDASGN+40, UPDASGN+41, UPDASGN+43*, UPDASGN+45
SEGCNT	EN+27~, EN+32, EN+33, EN+34, EN+45, EN+46
SEGNM	EN+27~, EN+47*, EN+48, EN+53, EN+59
SEGSTR	EN+27~, EN+37, EN+39, EN+41, EN+46, EN+47, EN+50, EN+51, EN+55, EN+56 , EN+57, EN+61, EN+62, EN+64, EN+65
SNDDIV	EN+27~, EN+43, EN+64, CHK+6, CHK+10, CHK+14
SNDFAC	EN+27~, EN+43, EN+50, CHK+13
STATUS	NORESP~, NORESP+8, NORESP+10, NORESP+12, NORESP+13
U	EN+71, EN+90, EN+92, CHK+21, CHK+22, CHK+23, UPDASGN+19, UPDASGN+20, UPDASGN+27, UPDASGN+28 , UPDASGN+40, UPDASGN+41
Z	UPDASGN+7~, UPDASGN+26, UPDASGN+27, UPDASGN+28, UPDASGN+39, UPDASGN+40, UPDASGN+41

Customize PDF page

Package: Registration

Routine: DGPFHLT1

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 7

Entry Points

External References

Used in HL7 Interface

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: