Routine: DGHTENR

Information

DGHTENR ;ALB/JAM - Home Telehealth Patient Sign-up;10 January 2005 ; 9/20/07 8:27am

Package	Total	Call Graph
VA FileMan	6	^DIC FILE^DICN DQ^DICQ ^DIE $$GET1^DIQ ^DIR
Consult Request Tracking	2	GUI^GMRCASV1 OER^GMRCSLM1
Registration	2	($$BLDHL7,$$SNDHL7)^DGHTHL7 $$LOCREC^DGHTINAC
Kernel	1	($$FMTE,$$NOW)^XLFDT

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: 2

Package	Total	Caller Graph
Registration	2	DGHT PATIENT SIGNUP DGHTINAC

Entry Points

Name	Comments	DBIA/ICR reference
EN
SGNUPCHK(DGARY)
DSPREC(DGIEN)	;Display Home Telehealth record
GETPAT()
PATOK(DFN)
GETVEN()	;Prompt user for receiving vendor
GCONSULT(DFN,DEFAULT)	;Prompt Consult number from file #123
CONHELP	;Help for consult #
GETPROV(DEFAULT)	;Prompt for Care Coordinator
SNDMSG(TYPE)
FILE	;File patient data in #391.31
HTADD
FILE1	;Add/Update fields in #391.31
MIDUPD	;Update File #391.31 with message ID

External References

Name	Field # of Occurrence
$$BLDHL7^DGHTHL7	EN+32
$$SNDHL7^DGHTHL7	EN+39
$$LOCREC^DGHTINAC	SGNUPCHK+11
^DIC	GETPAT+6
FILE^DICN	HTADD+4, FILE1+11
DQ^DICQ	CONHELP+8
^DIE	FILE1+4, FILE1+15, MIDUPD+5
$$GET1^DIQ	DSPREC+10, DSPREC+11, DSPREC+12, DSPREC+22, GETPROV+8
^DIR	SGNUPCHK+17, GETVEN+8, GCONSULT+20, GETPROV+9, SNDMSG+9
GUI^GMRCASV1	GCONSULT+10
OER^GMRCSLM1	GCONSULT+14
$$FMTE^XLFDT	DSPREC+14, DSPREC+15, DSPREC+17, DSPREC+23, CONHELP+6
$$NOW^XLFDT	EN+27

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " ...Patient Sign-Up/Activation request terminated." Line Location: EN+16
Function Call: WRITE	Prompt: " ...Patient record not transmitted." Line Location: EN+25
Function Call: WRITE	Prompt: @IOF,!,"PATIENT ALREADY SIGNED-UP/ACTIVATED WITH VENDOR",!! Line Location: SGNUPCHK+13
Function Call: WRITE	Prompt: ! Line Location: SGNUPCHK+20
Function Call: WRITE	Prompt: !?3,"Patient: ",$$GET1^DIQ(2,$P(DGDAT,"^",2),.01,"E") Line Location: DSPREC+10
Function Call: WRITE	Prompt: !?3,"Vendor: ",$$GET1^DIQ(4,$P(DGDAT,"^",3),.01,"E") Line Location: DSPREC+11
Function Call: WRITE	Prompt: !?3,"Care Coordinator: ",$$GET1^DIQ(200,$P(DGDAT,"^",5),.01,"E") Line Location: DSPREC+12
Function Call: WRITE	Prompt: ?45,"Consult Number: ",$P(DGDAT,"^",4) Line Location: DSPREC+13
Function Call: WRITE	Prompt: !?3,"Activation Date: ",$$FMTE^XLFDT($P(DGDAT,"^",6),2) Line Location: DSPREC+14
Function Call: WRITE	Prompt: !?3,"Reject Message: ",$P(DGDAT1,"^",8) Line Location: DSPREC+26
Function Call: WRITE	Prompt: !,"* Patient has expired. *" Line Location: PATOK+6
Function Call: WRITE	Prompt: !,"* Patient has no ICN. *" Line Location: PATOK+9
Function Call: WRITE	Prompt: !,"* Patient has local ICN. *" Line Location: PATOK+11
Function Call: WRITE	Prompt: !,"Service Area not available" Line Location: GCONSULT+12
Routine Call	DIC Line Location: GETPAT+6
Routine Call	DIE Line Location: FILE1+4 FILE1+15 MIDUPD+5
Routine Call	DIR Line Location: SGNUPCHK+17 GETVEN+8 GCONSULT+20 GETPROV+9 SNDMSG+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls, GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^DGHT(391.31 - [#391.31]	Classic Fileman Calls
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(391.31	FILE1+7
^DGHT(391.31 - [#391.31]	SGNUPCHK+18, DSPREC+8, DSPREC+9, HTADD, HTADD+1, HTADD+2*, HTADD+3
^DGHTH(391.31	FILE1+9
^DPT - [#2]	PATOK+6, PATOK+8
^TMP("GMRCR"	GCONSULT+9!, GCONSULT+15, GCONSULT+21!, CONHELP+2, CONHELP+4, CONHELP+5, CONHELP+6, CONHELP+7

Label References

Name	Line Occurrences
$$GCONSULT	EN+18
$$GETPAT	EN+9
$$GETPROV	EN+21
$$GETVEN	EN+12
$$PATOK	GETPAT+7
$$SGNUPCHK	EN+15
$$SNDMSG	EN+24
DSPREC	SGNUPCHK+14
FILE	EN+28
FILE1	FILE+4
HTADD	HTADD+1
MIDUPD	EN+46

Naked Globals

Name	Field # of Occurrence
^(0	HTADD+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARR	EN~, EN+2*, EN+31, EN+32, EN+34, EN+36, EN+39, EN+43, EN+48
CON	GCONSULT+6~, GCONSULT+8, GCONSULT+10, GCONSULT+11, GCONSULT+12, GCONSULT+13*, GCONSULT+14
CONZER	GCONSULT+6~, GCONSULT+15*, GCONSULT+16
D	CONHELP+1~
DA	SGNUPCHK+6~, DSPREC+4~, DSPREC+6, DSPREC+7, DSPREC+8, DSPREC+9, FILE+1~, FILE1+1, FILE1+6!, FILE1+13* , MIDUPD+1~, MIDUPD+2*
DA(1	FILE1+7, FILE1+9, FILE1+10, FILE1+13, MIDUPD+2, MIDUPD+4
DA1	SGNUPCHK+6~, DSPREC+4~, DSPREC+6*, DSPREC+9
DAIEN	SGNUPCHK+6~, SGNUPCHK+11*, SGNUPCHK+12, SGNUPCHK+14, SGNUPCHK+18
DD	FILE1+6!
DEFAULT	GCONSULT~, GCONSULT+19, GETPROV~, GETPROV+8
DFN	SGNUPCHK+10, SGNUPCHK+11, PATOK~, PATOK+6, PATOK+8, GCONSULT~, GCONSULT+14
DGARY	SGNUPCHK~
DGARY(	SGNUPCHK+7, SGNUPCHK+8!, SGNUPCHK+9
DGARY("CONSULT"	SGNUPCHK+19*
DGARY("COORD"	SGNUPCHK+19*
DGARY("DA"	SGNUPCHK+18*
DGCHK	EN~, EN+15*, EN+16
DGCON	EN~, EN+18*, EN+19, FILE1+2
DGDAT	SGNUPCHK+6~, SGNUPCHK+18, SGNUPCHK+19, DSPREC+4~, DSPREC+8, DSPREC+10, DSPREC+11, DSPREC+12, DSPREC+13, DSPREC+14 , DSPREC+15
DGDAT1	DSPREC+4~, DSPREC+9*, DSPREC+16, DSPREC+17, DSPREC+19, DSPREC+20, DSPREC+21, DSPREC+22, DSPREC+23, DSPREC+25 , DSPREC+26
DGDEF	EN~, EN+18, EN+21
DGDFN	EN~, EN+9*, EN+10, EN+18, FILE1+2
DGEVNDT	EN+1~, EN+27*, FILE1+3, FILE1+9, FILE1+14
DGHTH	EN~, EN+5!, EN+15, EN+32
DGHTH("CONSULT"	EN+18, EN+19*
DGHTH("COORD"	EN+21, EN+22*
DGHTH("DA"	FILE+3, HTADD+5, FILE1+1, FILE1+7, FILE1+8, FILE1+9, FILE1+13, MIDUPD+2
DGHTH("DFN"	EN+10*
DGHTH("DGTYPE"	EN+6*, EN+24
DGHTH("EVENTDT"	EN+27*
DGHTH("VENDOR"	EN+13*
DGIEN	DSPREC~, DSPREC+5, DSPREC+6
DGMID	EN~, EN+45*, MIDUPD+3
DGPRV	EN~, EN+21*, EN+22, FILE1+2
DGRN	FILE+1~, HTADD+1, HTADD+4, FILE1+9
DGTMP	GCONSULT+6~
DGTMP(	GCONSULT+13
DGTMP(0	GCONSULT+11
DGTREVN	FILE+1~, FILE+2, HTADD+5, FILE1+3, FILE1+14
DGTYPE	EN+1~, SGNUPCHK+10, SGNUPCHK+11, FILE1+14
DGVEN	EN~, EN+12*, EN+13, EN+39, FILE1+2
DIC	GETPAT+4~, GETPAT+5, CONHELP+1~, CONHELP+8, FILE+1~, HTADD+4, FILE1+6!, FILE1+10
DIC("A"	GETPAT+5*
DIC("P"	FILE1+7*
DIC(0	GETPAT+5, CONHELP+8, HTADD+4, FILE1+7
DIE	FILE+1~, FILE1+1, FILE1+13, MIDUPD+1~, MIDUPD+4*
DINUM	FILE+1~, HTADD+4*
DIR	SGNUPCHK+6~, GETVEN+5~, GCONSULT+6~, GETPROV+5~, SNDMSG+5~
DIR("?"	SGNUPCHK+16, GETVEN+7, GCONSULT+15, GETPROV+7, SNDMSG+8*
DIR("A"	SGNUPCHK+15, GETVEN+6, GCONSULT+18, GETPROV+6, SNDMSG+7*
DIR("B"	SGNUPCHK+15, GCONSULT+19, GETPROV+8, SNDMSG+6
DIR(0	SGNUPCHK+15, GETVEN+6, GCONSULT+18, GETPROV+6, SNDMSG+6*
DIRUT	GETVEN+5~, GCONSULT+6~, GETPROV+5~, SNDMSG+5~
DO	FILE1+6!
DR	FILE+1~, FILE1+2, FILE1+3, FILE1+12!, FILE1+14, MIDUPD+1~, MIDUPD+3
DR(2	FILE1+14, MIDUPD+3
DTOUT	SGNUPCHK+6~, GETPAT+4~, GETVEN+5~, GCONSULT+6~, GETPROV+5~, SNDMSG+5~
DUOUT	SGNUPCHK+6~, GETPAT+4~, GETVEN+5~, GCONSULT+6~, GETPROV+5~, SNDMSG+5~
DUZ	FILE1+14
GETOK	EN~, EN+24*, EN+25
>> HLA("HLS"	EN+2
IENVAL	GETPAT+4~, GETPAT+7*
IOF	SGNUPCHK+13
NODE	PATOK+4~, PATOK+8*, PATOK+9, PATOK+11
RESULT	EN~, EN+32, EN+33, EN+34, EN+35, EN+39, EN+40, EN+42, EN+45, EN+47
STOP	EN~, EN+3, EN+4, EN+9
TYPE	SNDMSG~, SNDMSG+7
VENDOR	EN+1~, SGNUPCHK+10, SGNUPCHK+11
X	SGNUPCHK+6~, SGNUPCHK+7, SGNUPCHK+8, SGNUPCHK+9, GETPAT+4~, GETVEN+5~, GCONSULT+6~, GETPROV+5~, SNDMSG+5~, FILE+1~ , HTADD+4, FILE1+9*, MIDUPD+1~
XX	CONHELP+1~, CONHELP+4*, CONHELP+5, CONHELP+6, CONHELP+7
Y	SGNUPCHK+6~, SGNUPCHK+17, SGNUPCHK+21, GETPAT+4~, GETPAT+6, GETPAT+7, GETPAT+8, GETVEN+5~, GETVEN+9, GCONSULT+6~ , GCONSULT+22, GETPROV+5~, GETPROV+10, SNDMSG+5~, SNDMSG+10, FILE+1~, HTADD+5, MIDUPD+1~

Customize PDF page

Package: Registration