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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGHTENR

Package: Registration

Routine: DGHTENR


Information

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

Source Information

Source file <DGHTENR.m>

Call Graph

Call Graph

Call Graph Total: 11

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:

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: 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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All