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
Print Page as PDF
Routine: DGQPT

Package: Registration

Routine: DGQPT


Information

DGQPT ; SLC/MKB - Patient Selection ;8/8/97 13:07

Source Information

Source file <DGQPT.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for DG PATIENT SELECTION
HDR ; -- header code
INIT ; -- init variables and list array
; Modifications for multiple "Combination" lists by PKS.
DEFAULT() ; -- Returns default action
MSG() ; -- Lmgr msg bar
HELP ; -- help code
EXIT ; -- exit code
BUILD(LIST) ; -- build list in ^TMP("DG",$J,"PATIENTS")
B1
B2
BQ
ID(DFN) ; -- Returns short ID for patient ID
APPT(DFN,CLINIC,FROM,TO) ; -- Return [next?] clinic appointment
ALT ; -- XQORM("ALT") code to search File 2 for patient X
FIND ; -- find patient in ^DPT
SELECT ; -- select patient from list
SLCT1 ; -- may enter here with DFN from FIND
SLCT2 ; -- convert patient's orders, if not already done
OK(DATE) ; -- Patient is deceased; ok to continue?

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter the display number of the patient whose chart you wish to open"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !,"or enter a patient name, SSN, or initial/last 4 combination. To"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !,"change the list of patients displayed on this screen, enter CV. To"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !,"have the new list automatically displayed when selecting a new patient,"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !,"enter SV. Enter FD to search by patient name or identifier."
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !!,"Press <return> to continue ..."
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: $C(7),!!,NMBR_" is not a valid selection.",!
  • Line Location: SELECT+3
Function Call: WRITE
  • Prompt: !!,"Press <return> to continue ..."
  • Line Location: SLCT1+14
Function Call: WRITE
  • Prompt: !,"DONE"
  • Line Location: SLCT2+2
Function Call: WRITE
  • Prompt: $C(7),!!,$P(DGCNV,U,2)
  • Line Location: SLCT2+3
Function Call: WRITE
  • Prompt: $C(7),!!,"This patient died "_$$FMTE^XLFDT(DATE)_"!"
  • Line Location: OK+3
Info |  Source |  Entry Points |  Interaction Calls