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

Package: Automated Information Collection System

Routine: IBDFDE7


Information

IBDFDE7 ;ALB/AAS - AICS Manual Data Entry, Entry point for Group Clinics ; 29-APR-96

Source Information

Source file <IBDFDE7.m>

Entry Points

Name Comments DBIA/ICR reference
STRT ; -- ask for Clinic, appt. date/time
; list patients, allow to deselect
; find all forms for appt., then go through 1 at a time
; then send data for each patient
OVER ;
OVERQ
STRTQ
ALLPTS ; -- loop through all patients, merge ibdf=^tmp("ibd-save),
; reset dfn, pass data to ibdfrpc4
ALLPTQ
SELAPT(IBDF) ; -- select appointment date/time for a clinic
SELAPQ
SCRN ; -- input transform logic for selecting an appointment date/time
EXCLUD ; -- select patient(s) to process
EXCLUDQ
BLD ; -- Find all appointments for a date
LIST ; -- print list of patients
APDT ; -- list last 30 days appointment dates in clinic
HDR ; -- print Clinic header
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?4,"** This option is OUT OF ORDER **"
  • Line Location: IBDFDE7+3
Function Call: WRITE
  • Prompt: !!,"Data Entry of Encounter Forms for Group Clinics",!
  • Line Location: IBDFDE7+10
Function Call: WRITE
  • Prompt: !
  • Line Location: STRT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: OVER+1
Function Call: WRITE
  • Prompt: !!,"No valid appointments at that Date/Time!",!!
  • Line Location: OVER+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: OVER+11
Function Call: WRITE
  • Prompt: !,"No forms Printed for first Patient"
  • Line Location: OVER+22
Function Call: WRITE
  • Prompt: !!
  • Line Location: OVER+26
Function Call: WRITE
  • Prompt: !!,"Form contains patient specific information, Not available for this option!",!!
  • Line Location: ALLPTS+5
Function Call: WRITE
  • Prompt: $C(7),"?? No appointments that time."
  • Line Location: SCRN+2
Function Call: WRITE
  • Prompt: !,"You must select a number from the list."
  • Line Location: EXCLUD+10
Function Call: WRITE
  • Prompt: !!,"No patients left"
  • Line Location: EXCLUD+16
Function Call: WRITE
  • Prompt: !!,"The following are valid Appointment date/times in the past 60 days:"
  • Line Location: APDT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !," Clinic: ",$E(CLNAME,1,25)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?40," Date: ",$$FMTE^XLFDT(IBDFDT)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !," Basic Form: ",$E(IBDFMNME,1,25)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","=")
  • Line Location: HDR+5
Info |  Source |  Entry Points |  Interaction Calls