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

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

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

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