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

Package: Registration

Routine: DGREG


Information

DGREG ;ALB/JDS,MRL,PJR,PHH,ARF,RN,JAM,ARF,SJD - REGISTER PATIENT ; 3/28/14 12:38pm

Source Information

Source file <DGREG.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
EN
A
ENRYN
APPTREQ(DGENRDTT,DGBACK) ; Prompt for DO YOU WANT AN APPT. WITH A VA DOCTOR/PROVIDER AS SOON AS AVAILABLE?
; If YES, update fields #2,#1010.159 and #2,#1010.1511 (NOTE: This code came from DGEN)
; Input: DGENRDTT - value for ENROLLMENT APPLICATION DATE field 1010.1511 in PATIENT file
; Output: DGBACK (Pass by Reference) - If set, the user has exited from the prompt
PREEXIST(DFN) ;DG*5.3*993 - Did this patient exist before the installation of DG*5.3*993
HELPENR ;DG*5.3*993 - Help for ?? on the DO YOU WISH TO ENROLL? question
REASON(Y,XQY0) ; DG*5.3*1027 - Screen logic/Input Transform for field .15 (REGISTRATION ONLY REASON) of the 27.11 (PATIENT ENROLLMENT) file
; Input: Y - Entry to be checked
; XQYO - String containing the option that is being run (may be null when accessing the field from Fileman)
; Returns: TRUE if the entry Y is valid
PAUSE ;
RT ;I $D(^DIC(195.4,1,"UP")) I ^("UP") S $P(DGFC,U,1)=DIV D ADM^RTQ3 ;DG*5.3*1111-remove Select Admitting Area from Register a Patient
A1
PR
CK
CH
CH1
SEEN ;W !!,"Is the patient to be examined in the medical center today" S %=1 D YN^DICN S SEEN=% G:%<0 Q I %'>0 W !!,"Enter 'Y' if the patient is to be examined today, 'N' if not.",$C(7) G SEEN
ABIL
ENR ; next line appears to be dead code. left commented just to test. mli 4/28/94
REG
ASKDIV
CONT ; continue
PR2
PR3
H
Q
Q1
EL
FEE
  • ICR #699
    • Status: Active
    • Usage: Private
    WARN
    MSG
    BEGINREG(DFN) ;
    ENDREG(DFN) ;
    IFREG(DFN) ;
    CIRN ;MPI QUERY
    ROMQRY ;**926 TRIGGER IB INSURANCE QUERY

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,$C(7),"Not a printer"
    • Line Location: EN+4
    Function Call: WRITE
    • Prompt: !,"Using closest printer ",Y,!
    • Line Location: EN+6
    Function Call: WRITE
    • Prompt: !!
    • Line Location: A+4
    Function Call: WRITE
    • Prompt: !!?5,"This is an existing patient. To complete the enrollment"
    • Line Location: ENRYN+45
    Function Call: WRITE
    • Prompt: !?5,"application process, please use the Enrollment System."
    • Line Location: ENRYN+45
    Function Call: WRITE
    • Prompt: !!!?5,"Press <Enter> to Continue or '^' to exit:"
    • Line Location: ENRYN+46
    Function Call: WRITE
    • Prompt: !
    • Line Location: ENRYN+57
    Function Call: WRITE
    • Prompt: !,"This is a required field.",!
    • Line Location: ENRYN+66
    Function Call: WRITE
    • Prompt: !,"Select Y or YES if the patient wants to apply for enrollment for VHA"
    • Line Location: HELPENR+1
    Function Call: WRITE
    • Prompt: !,"Healthcare benefits. Select N or NO if the patient only wants to"
    • Line Location: HELPENR+2
    Function Call: WRITE
    • Prompt: !,"register without applying for enrollment."
    • Line Location: HELPENR+3
    Function Call: WRITE
    • Prompt: !?4,$C(7),"Enter 'Y' if the patient is being followed in clinic for condition for which",!?6,"registered, 'N' if not."
    • Line Location: PR+1
    Function Call: WRITE
    • Prompt: !!,"There is still an open disposition--register aborted.",$C(7),$C(7)
    • Line Location: CH1+0
    Function Call: WRITE
    • Prompt: !!,"Enter 'Y' if the patient is to be examined today, 'N' if not.",$C(7)
    • Line Location: SEEN+0
    Function Call: READ
    • Variable: ANS
    • Timeout: DTIME
    • Line Location: REG+1
    Function Call: WRITE
    • Prompt: " ("_RESULT(0)_")"
    • Line Location: REG+2
    Function Call: WRITE
    • Prompt: !!,"You must enter a date that does not exist.",$C(7),$C(7)
    • Line Location: REG+4
    Function Call: WRITE
    • Prompt: !!?5,"The facility chosen either has no pointer to an Institution"
    • Line Location: ASKDIV+0
    Function Call: WRITE
    • Prompt: !?5,"file record or the Institution file record is inactive."
    • Line Location: ASKDIV+1
    Function Call: WRITE
    • Prompt: !?5,"Please choose another division."
    • Line Location: ASKDIV+2
    Function Call: WRITE
    • Prompt: !!,"You can only enter new registrations through this option.",$C(7),$C(7)
    • Line Location: PR2+0
    Function Call: WRITE
    • Prompt: !!,"Time is required to register the patient.",!!,$C(7),$C(7)
    • Line Location: PR3+0
    Function Call: WRITE
    • Prompt: !?5,"Enter 'YES' to enter/edit registration data or 'NO' to continue."
    • Line Location: H+0
    Function Call: WRITE
    • Prompt: !,$C(7),"***PATIENT IS CURRENTLY AN INPATIENT***",!
    • Line Location: WARN+0
    Function Call: WRITE
    • Prompt: !,$C(7),"***PATIENT IS CURRENTLY A LODGER***",!
    • Line Location: WARN+1
    Function Call: WRITE
    • Prompt: !,"Another user is editing, try later ..."
    • Line Location: MSG+0
    Function Call: WRITE
    • Prompt: !!,"Enrollment/Eligibility Query sent ...",!!
    • Line Location: BEGINREG+9

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls,  GET1^DIQ,  GETS^DIQ
    2.101 CHK^DIE
    ^DGEN(27.11 - [#27.11] GET1^DIQ
    ^IBE(350.9 - [#350.9] GET1^DIQ
    ^DIC(4 - [#4] GET1^DIQ
    ^DG(408.43 - [#408.43] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call