Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in HL7 Interface |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DGPFHLT1

Package: Registration

Routine: DGPFHLT1


Information

DGPFHLT1 ;SHRPE/YMG - PRF HL7 QBP/RSP PROCESSING ; 05/02/18

Source Information

Source file <DGPFHLT1.m>

Call Graph

Call Graph

Call Graph Total: 17

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Registration 6 5216  5217  5222  5223  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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in HL7 Interface |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All