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

Package: Automated Information Collection System

Routine: IBDFDE6


Information

IBDFDE6 ;ALB/AAS - AICS Manual Data Entry, Entry point by clinic ; 29-APR-96

Source Information

Source file <IBDFDE6.m>

Entry Points

Name Comments DBIA/ICR reference
STRT ; -- ask for Clinic, date then patient.
; Only list patients w/no data entry
; find all forms for appt., then go through 1 at a time
APPT
OVER
OVERQ
STRTQ ;D PAUSE^IBDFDE
ANYWAY ; -- if no forms available ask if want to enter form anyway
; all to use default form, clinic setup,or any form
ANYWAYQ
OTHFRM(IBFORM) ; -- if no form printed, add form tracking entry,
; -- compile form if necessary return form list
SELCL() ; -- select clinic
SELCLQ
SELAP(IBDF) ; -- select appointment date for a clinic
SELAPQ
SELPT ; -- select patient(s) to process
FIND ;find appropriate pt appt from array
SELQ
ARRAY(ARRAY,ANS) ; -- bld array of multiple patients
; -- required variables: array = name x-ref; ans = name of selection
BLD ; -- Find all appointments for a date
LIST ; -- print list of patients
ONE(NODE,IBD1) ; -- write one line
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: IBDFDE6+3
Function Call: WRITE
  • Prompt: !!,"Data Entry of Encounter Forms (by Clinic)",!!
  • Line Location: IBDFDE6+10
Function Call: WRITE
  • Prompt: !
  • Line Location: APPT+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: APPT+1
Function Call: WRITE
  • Prompt: !!,"No appointments on that Date!",!!
  • Line Location: APPT+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: OVER+1
Function Call: WRITE
  • Prompt: !,"No forms Printed for Patient"
  • Line Location: OVER+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: OVER+11
Function Call: WRITE
  • Prompt: !,"No Forms Defined for Clinic"
  • Line Location: ANYWAY+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ANYWAY+29
Function Call: WRITE
  • Prompt: !!,"No forms defined for clinic"
  • Line Location: ANYWAY+30
Function Call: WRITE
  • Prompt: "."
  • Line Location: OTHFRM+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: OTHFRM+8
Function Call: WRITE
  • Prompt: " ",$P($G(^DPT(+RESULT,0)),"^")
  • Line Location: SELPT+11
Function Call: WRITE
  • Prompt: " ",$E($P($G(^DPT(+RESULT,0)),"^"),($L(ANS)+1),999)
  • Line Location: FIND+2
Function Call: WRITE
  • Prompt: $C(7)," ?? Not Found"
  • Line Location: FIND+6
Function Call: WRITE
  • Prompt: !?2,IBD1,?5,$E($P(^DPT(DFN,0),"^"),1,18),?26,$P($G(^DPT(DFN,.36)),"^",4),?32,$$FMTE^XLFDT(+APPT),?52,$E($G(STATUS),1,24),?77,"("_CNT_")"
  • Line Location: ONE+7
Function Call: WRITE
  • Prompt: !!,"The following are valid Appointment dates in the past 60 days:"
  • Line Location: APDT+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !," Clinic: ",$E(CLNAME,1,25)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?40," Date: ",$$FMTE^XLFDT(IBDFDT)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !," Basic Form: ",$E(IBDFMNME,1,25)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?40," Active Forms: ",CNT
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"Appointments: ",$O(^TMP("IBD-PL",$J,IBDF("CLINIC"),""),-1)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","=")
  • Line Location: HDR+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(357 - [#357] Classic Fileman Calls
^IBD(357.96 - [#357.96] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call