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 |  Local Variables  | All
Print Page as PDF
Routine: DGPREP1

Package: Registration

Routine: DGPREP1


Information

DGPREP1 ;ALB/SCK,PWC - Program to Display Pre-Registration List Cont. 1 ;Jul 29, 2019@12:00

Source Information

Source file <DGPREP1.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Registration 7 ^DG10  EN^DGMHV  ($$MHVOK,EN)^DGMHVAC  $$MHVENABL^DGMHVUTL  BLDHIST^DGPREP0  EN^DGPREP2  $$PRIM^VASITE  
VA FileMan 5 (,IX)^DIC  FILE^DICN  ^DIE  ^DIK  ^DIR  
List Manager 2 ($$SETFLD,$$SETSTR,FULL)^VALM1  EN^VALM2  
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: 6

Package Total Caller Graph
Registration 4 DGPRE PRE-REGISTER OPTION  DGPRE RG CP  DGPRE RG EH  DGPRE RG XH  
Automated Medical Information Exchange 1 DVBA DGPRE PRE-REGISTER OPTION  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EH ; Edit call log information
; Variables
; PTIFN - Patients IEN returned from the SELPAT procedure
SELPAT ; Select patient if no patient is passed in
EDIT ; Edit Patient Information
; Variables
; DGPDIV - Division IEN from ^TMP
; DGPSTMP - Date/Time stamp from UPDLOG function
; DGPIFN - Patients IEN from ^TMP
; DGPP1-3,5 - Local Var's for $O
; DGPNEW -
; DGPFLG - Flag used to indicate a connect status of 'C'
; DGPST - Call status returned by SELST function
; DGPDA - IEN of Call log entry returned from UPDLOG function
; DGPCH - Entry in the VALMY, selected entries, array
;
INITLE(DGPY) ; Initialize for Load/Edit
; Variables
; Input:
; DGPY - Null value
STAT ; Display call history
SELST() ; Function to select status for call log
; Returns:
; Status code as a SOC
UPDLOG(DFN,DGPS,DGPDV) ; Update PRE-REGISTRATION CALL LOG File, #41.43
DIREDT ; Direct edit of a patient in the PRE-REGISTRATION CALL LIST, bypassing the call list.
UNLCK

External References

Name Field # of Occurrence
^DG10 INITLE+16
EN^DGMHV DIREDT+32
$$MHVOK^DGMHVAC DIREDT+32
EN^DGMHVAC DIREDT+33
$$MHVENABL^DGMHVUTL DIREDT+30
BLDHIST^DGPREP0 EH+22
EN^DGPREP2 STAT+3
^DIC EDIT+23, DIREDT+17
IX^DIC EH+13
FILE^DICN INITLE+40, UPDLOG+16
^DIE EH+19, EDIT+43, UPDLOG+23, DIREDT+49
^DIK UPDLOG+25
^DIR INITLE+33, SELST+11
$$SETFLD^VALM1 EH+24
$$SETSTR^VALM1 EH+23, EDIT+37, EDIT+39, INITLE+25
FULL^VALM1 SELPAT+2, EDIT+14
EN^VALM2 SELPAT+3, EDIT+15
$$PRIM^VASITE DIREDT+39
$$FMTE^XLFDT EDIT+39
$$NOW^XLFDT INITLE+37, UPDLOG+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!,"Another User is Editing this Patient"
  • Line Location: EDIT+28
Function Call: WRITE
  • Prompt: !!
  • Line Location: INITLE+15
Function Call: WRITE
  • Prompt: !
  • Line Location: INITLE+31
Function Call: WRITE
  • Prompt: !
  • Line Location: INITLE+34
Function Call: WRITE
  • Prompt: !!
  • Line Location: SELST+6
Function Call: WRITE
  • Prompt: *7,"Problem adding to file - PRE-REGISTRATION CALL LOG"
  • Line Location: UPDLOG+17
Function Call: WRITE
  • Prompt: *7,!,"Another user is editing this patient."
  • Line Location: DIREDT+24
Routine Call
  • DIC
  • Line Location:
    • EDIT+23
    • DIREDT+17
Routine Call
  • DIC
  • Line Location:
    • EH+13
Routine Call
  • DIE
  • Line Location:
    • EH+19
    • EDIT+43
    • UPDLOG+23
    • DIREDT+49
Routine Call
  • DIR
  • Line Location:
    • INITLE+33
    • SELST+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGS(41.41 - [#41.41] Classic Fileman Calls
^DGS(41.42 - [#41.42] Classic Fileman Calls
^DGS(41.43 - [#41.43] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGS(41.42 - [#41.42] EDIT+27, EDIT+28, EDIT+44, DIREDT+21, DIREDT+22, DIREDT+23, DIREDT+24, UNLCK
^DGS(41.43 - [#41.43] INITLE+24, INITLE+27
^TMP("DGPRERG" EH+23, EH+25*, SELPAT+6, EDIT+18, EDIT+19, EDIT+37, EDIT+40*, INITLE+25, INITLE+29*

Label References

Name Line Occurrences
$$SELST INITLE+19
$$UPDLOG INITLE+23
INITLE EDIT+34, DIREDT+41
SELPAT EH+6, STAT+1
UNLCK DIREDT+43

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D EH+4~, EH+9*
DA EH+4~, EH+16*, EDIT+30*, EDIT+41*, UPDLOG+22*, UPDLOG+26, DIREDT+46*
DD INITLE+36!, UPDLOG+12!
DFN EDIT+30*, INITLE+38, UPDLOG~, DIREDT+10~, DIREDT+20*, DIREDT+21, DIREDT+22, DIREDT+32, DIREDT+33
DGABB DIREDT+31~
DGMHVNOS DIREDT+11~
DGMHVOUT DIREDT+11~, DIREDT+31~
DGMODE INITLE+24, DIREDT+10~, DIREDT+35*
DGNEW EDIT+20*, DIREDT+10~, DIREDT+35*
DGPCH EH+23, EH+25, SELPAT+5*, SELPAT+6, EDIT+17*, EDIT+18, EDIT+19, EDIT+36, EDIT+37, EDIT+40
EDIT+45!, INITLE+25, INITLE+29
>> DGPDA INITLE+23*, INITLE+24, INITLE+27
>> DGPDFN EH+21*
DGPDIV EDIT+12~, EDIT+19*, INITLE+23, DIREDT+10~, DIREDT+23*, DIREDT+38, DIREDT+39*
DGPDV UPDLOG~
DGPENT EDIT+45!
DGPFLG EDIT+12~, EDIT+20*, EDIT+32*, EDIT+36, EDIT+45!, INITLE+17, DIREDT+10~, DIREDT+35*, DIREDT+45
DGPIDX DIREDT+10~, DIREDT+20*, DIREDT+22*, DIREDT+23, DIREDT+24, DIREDT+45, DIREDT+46, UNLCK
DGPIFN EDIT+12~, EDIT+18*, EDIT+23, EDIT+27, EDIT+30, INITLE+23, DIREDT+10~, DIREDT+20*
DGPLOC EDIT+45!, INITLE+14*
DGPN1 SELPAT+5*, EDIT+17*, EDIT+45!
DGPN5 EDIT+12~, EDIT+27*, EDIT+28, EDIT+41, EDIT+44, EDIT+45!
DGPNEW EDIT+12~
DGPP1 EDIT+12~, INITLE+26*, INITLE+28
DGPP2 EDIT+12~, INITLE+26*, INITLE+27*, INITLE+28
DGPP3 EDIT+12~, INITLE+26*, INITLE+28
DGPRFLG INITLE+13~, INITLE+14*
DGPS UPDLOG~
DGPST EDIT+45!, INITLE+19*, INITLE+20, INITLE+22, INITLE+23, DIREDT+10~
DGPSTMP EDIT+12~, EDIT+33*, EDIT+34, EDIT+39, EDIT+42, DIREDT+10~, DIREDT+35*, DIREDT+41, DIREDT+48
>> DGPTAT EH+24
DGPX DIREDT+10~, DIREDT+21, DIREDT+24*
DGPXX DIREDT+10~
DGPY INITLE~, INITLE+37*
DGRPOUT INITLE+17, DIREDT+11~, DIREDT+43
DIC EH+8*, EH+13!, EDIT+23*!, INITLE+38*, INITLE+41!, UPDLOG+13*, DIREDT+13!, DIREDT+14*, DIREDT+17!
DIC("?" DIREDT+16*
DIC("A" EH+10*, DIREDT+15*
DIC("DR" INITLE+39*
DIC("S" EH+11*
DIC(0 EH+8*, EDIT+23*, INITLE+38*, UPDLOG+14*, DIREDT+14*
DIE EH+17*, EH+19!, EDIT+41*, EDIT+43!, UPDLOG+19*, UPDLOG+23!, DIREDT+47*, DIREDT+49!
DIK UPDLOG+25*!
DIR INITLE+33!, SELST+5~, SELST+11!, DIREDT+31~
DIR("?" SELST+9*, SELST+10*
DIR("A" INITLE+32*, SELST+8*
DIR("B" INITLE+32*, SELST+8*
DIR(0 INITLE+32*, SELST+7*
DIRUT SELST+4!
DO INITLE+36!, UPDLOG+12!
DR EH+4~, EH+18*, EDIT+42*, UPDLOG+21*, DIREDT+48*
DTOUT DIREDT+13!, DIREDT+18
DUOUT DIREDT+13!, DIREDT+18
PTIFN EH+4~, EH+5*, EH+7, EH+9, EH+21, SELPAT+6*, STAT+1!, STAT+2, STAT+4!
U INITLE+24, INITLE+27, DIREDT+23
VALMAT SELPAT+1~, EDIT+12~
>> VALMBCK EH+26*, SELPAT+4*, EDIT+16*, EDIT+28*, INITLE+20*
VALMI SELPAT+1~, SELPAT+3*, EDIT+12~, EDIT+15*
VALMY SELPAT+1~, SELPAT+4, EDIT+12~, EDIT+16
VALMY( SELPAT+5, EDIT+17
X EH+4~, EH+9*, EH+23*, EH+24*, EH+25, SELPAT+1~, EDIT+12~, EDIT+23*, EDIT+37*, EDIT+39*
EDIT+40, INITLE+25*, INITLE+26, INITLE+28*, INITLE+29, INITLE+38*, UPDLOG+15*
>> XQORNOD(0 SELPAT+3, EDIT+15
>> Y EH+15, EH+16, EH+20, EDIT+24, INITLE+35, SELST+12, UPDLOG+17, UPDLOG+18, UPDLOG+22, UPDLOG+24
DIREDT+18, DIREDT+20
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 |  Local Variables  | All