Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call