Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 5 ^DIC  DT^DICRW  ^DIE  Y^DIQ  ^DIR  
Automated Information Collection System 4 ($$FID,$$FINDID)^IBDF18C  $$FORMTYPE^IBDF18D  EN^IBDFDE  ($$MULT,ASKPT)^IBDFDE61  
Kernel 3 HOME^%ZIS  ($$FMADD,$$FMTE)^XLFDT  $$UP^XLFSTR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Automated Information Collection System 5 IBD MANUAL DATA ENTRY BY CLIN  IBDFDE61  IBDFDE7  IBDFDE8  IBDFDEA  

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

External References

Name Field # of Occurrence
HOME^%ZIS %+4
^DIC ANYWAY+23
DT^DICRW %+3
^DIE OTHFRM+13
Y^DIQ ONE+6
^DIR ANYWAY+9, SELCL+6, SELAP+9, SELPT+6
$$FID^IBDF18C OTHFRM+12
$$FINDID^IBDF18C OVER+6, ONE+4
$$FORMTYPE^IBDF18D OTHFRM+7
EN^IBDFDE OVER+10
$$MULT^IBDFDE61 FIND+4
ASKPT^IBDFDE61 LIST+3
$$FMADD^XLFDT APDT+1
$$FMTE^XLFDT ONE+7, APDT+6, APDT+7, APDT+8, APDT+9, HDR+4
$$UP^XLFSTR SELPT+8

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
Routine Call
  • %ZIS
  • Line Location:
    • %+4
Routine Call
  • DIC
  • Line Location:
    • ANYWAY+23
Routine Call
  • DIE
  • Line Location:
    • OTHFRM+13
Routine Call
  • DIR
  • Line Location:
    • ANYWAY+9
    • SELCL+6
    • SELAP+9
    • SELPT+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(357 - [#357] Classic Fileman Calls
^IBD(357.96 - [#357.96] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(357.96 ONE+6
^DPT - [#2] SELPT+11, FIND+2, FIND+3, FIND+5, BLD+7, BLD+13, BLD+14, BLD+15, ONE+7
^IBD(357.09 - [#357.09] ANYWAY+16
^IBD(357.95 - [#357.95] OTHFRM+8*
^IBD(357.96 - [#357.96] OVER+7, ONE+6
^IBE(357 - [#357] ANYWAY+17, OTHFRM+3, OTHFRM+6, OTHFRM+9*, OTHFRM+10*, OTHFRM+11, HDR+5
^SC - [#44] STRT+8, ANYWAY+7, BLD+4, BLD+5, BLD+6, APDT+2
^SD(409.95 - [#409.95] STRT+9, ANYWAY+7
^TMP( SELPT+11, SELPT+16, FIND+1, ARRAY+2
^TMP("IBD-ASK" END+2!
^TMP("IBD-LCODE" END+2!
^TMP("IBD-LST" END+2!
^TMP("IBD-LTEXT" END+2!
^TMP("IBD-MORE" END+1!
^TMP("IBD-OBJ" END+2!
^TMP("IBD-PL" APPT+4, BLD+1!, BLD+12*, LIST+3, HDR+7, END+1!
^TMP("IBD-PL4" BLD+15*, END+1!
^TMP("IBD-PLB" BLD+14*, END+1!
^TMP("IBD-PLCHK" END+1!
^TMP("IBD-PLN" BLD+1!, BLD+13*, END+1!

Label References

Name Line Occurrences
$$OTHFRM ANYWAY+18, ANYWAY+25, ANYWAY+29
$$SELAP APPT
$$SELCL STRT+6
ANYWAY OVER+8
ANYWAYQ ANYWAY+10, ANYWAY+11, ANYWAY+13, ANYWAY+15, ANYWAY+21, ANYWAY+28
APPT APPT+4, OVER+3, STRTQ+2
ARRAY SELPT+13, SELPT+14, SELPT+15, SELPT+16
BLD APPT+3
END STRT+4, STRTQ+1
FIND SELPT+13, SELPT+14, SELPT+15
HDR OVER
ONE LIST+3
OVER OVERQ
OVERQ OVER+4, OVER+9
SELAPQ SELAP+10, SELAP+11
SELCLQ SELCL+7, SELCL+8
SELPT OVER+1
SELQ SELPT+7, SELPT+9, SELPT+10, SELPT+11, SELPT+17, FIND+1
STRT APPT+1
STRTQ STRT+6, STRT+7, APPT, OVER+1, OVER+8

Naked Globals

Name Field # of Occurrence
^( SELPT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% %~
%H %~
>> A ARRAY+2*
ADD %~
ANS %+1~, ANYWAY+12*, ANYWAY+13, ANYWAY+15, ANYWAY+21, ANYWAY+28, SELCL+2~, SELCL+3*, SELCL+9*, SELCLQ
, SELAP+2~, SELAP+3*, SELAP+12*, SELAPQ, SELPT+2*, SELPT+8*, SELPT+9, SELPT+11, SELPT+13, SELPT+14
, SELPT+15, SELPT+16, FIND+2, ARRAY~, ARRAY+2
>> APPT ONE+3*, ONE+4, ONE+7
ARRAY SELPT+1~, SELPT+2*, SELPT+11*, SELPT+13*, SELPT+14*, SELPT+15*, SELPT+16, FIND+1, FIND+2, ARRAY~
, ARRAY+2
ASKOTHER %~
C %~, ONE+1~, ONE+6*
CHOICE END!
CLNAME %+1~, STRT+8*, ANYWAY+7*, HDR+4
CLSETUP %+1~, STRT+9*, ANYWAY+7*, ANYWAY+8, ANYWAY+29, HDR+3, HDR+5
CNT %~, SELPT+1~, SELPT+2*, FIND+1, FIND+4, ARRAY+2*, BLD+3*, BLD+11*, BLD+12, BLD+13
, BLD+14, BLD+15, LIST+1~, ONE+1~, ONE+5*, ONE+7, APDT+1*, APDT+4*, APDT+5, APDT+6
, APDT+7, APDT+8, APDT+9, HDR+1~, HDR+2*, HDR+3*, HDR+6
DA %~, OTHFRM+13*!, SELCL+2~, SELCL+6!, SELAP+2~, END!
DEL %~
DFN %~, OVER+5*, OVER+6, OTHFRM+12, BLD+10*, BLD+12, BLD+13, BLD+14, BLD+15, ONE+3*
, ONE+4, ONE+7
DIC %~, ANYWAY+23*!, OTHFRM+13!, SELCL+2~, SELCL+6!, SELAP+2~, END!
DIC("S" ANYWAY+22*
DIC(0 ANYWAY+23*
DIE OTHFRM+13*!, SELCL+2~, SELAP+2~, END!
DIR %~, ANYWAY+3~, ANYWAY+9!, SELCL+2~, SELCL+6!, SELAP+2~, SELAP+9!, SELPT+6!, END!
DIR("?" ANYWAY+4*, SELCL+4*, SELAP+7*, SELPT+3*
DIR("??" SELAP+8*, SELPT+4*
DIR("A" ANYWAY+5*, SELCL+6*, SELAP+6*, SELPT+5*
DIR("B" ANYWAY+6*, ANYWAY+8*
DIR("S" SELCL+5*
DIR(0 ANYWAY+6*, SELCL+6*, SELAP+6*, SELPT+5*
DIRUT %~, ANYWAY+3~, ANYWAY+11, SELCL+2~, SELCL+8, SELAP+2~, SELAP+11, SELPT+10, END!
DR OTHFRM+13*!, SELCL+2~, SELCL+6!, SELAP+2~, END!
DT %+3, APDT+1, APDT+2
DTOUT %~, ANYWAY+10, SELCL+7, SELAP+10, SELPT+7, END!
DUOUT %~, ANYWAY+10, SELCL+7, SELAP+10, SELPT+7, END!
FORM %+1~, LIST+1~, ONE+4*, ONE+5, ONE+6, HDR+5*
FORMID OTHFRM+2~, OTHFRM+3*, OTHFRM+4, OTHFRM+7*, OTHFRM+8, OTHFRM+9, OTHFRM+12
FORMLST %+1~, OVER+6*, OVER+7*, OVER+8, OVER+9, OVER+10, ANYWAY+18*, ANYWAY+25*, ANYWAY+29*, ANYWAY+30
, OTHFRM+2~, OTHFRM+12*, OTHFRM+13, OTHFRM+15
FRMDATA %~
I %~, END!
IBD %~, %+1~, ANYWAY+29*, SELPT+1~, FIND+4, BLD+2~, BLD+3*, BLD+4*, BLD+5, BLD+6
, BLD+7, BLD+12, BLD+13, BLD+14, BLD+15, LIST+1~, LIST+3*, HDR+1~, HDR+3*
IBD( FIND+1, ARRAY+2*
IBD1 BLD+2~, BLD+5*, BLD+6, ONE~, ONE+7, HDR+1~, HDR+3*
IBDASK %+1~
IBDCKOUT %~
IBDCLIN SELPT+1*!
IBDCLNME %+1~
IBDCLNPH %+1~
IBDCO %+1~, SELPT+1!, END!
IBDF %~, APPT, SELAP~, SELPT+1!, END!
IBDF("APPT" OVER+5*, OVER+6, OTHFRM+12
IBDF("CLINIC" STRT+6*, APPT+4, OVER+7, ANYWAY+7, OTHFRM+12, SELPT+1*, SELPT+11, SELPT+16, FIND+1, ARRAY+2
, BLD+3, LIST+3, APDT+2, HDR+7
IBDF("DFN" OVER+5*, BLD+10*
IBDF("FORM" OVER+10*
IBDF("OPTION" OVER+2*
IBDFDT %+1~, APPT*, APPT+1, BLD+3, BLD+4, HDR+4
IBDFMIDI %+1~
IBDFMIEN %+1~
IBDFMNME %+1~, HDR+5*, HDR+6
IBDFMSTE %+1~
IBDFMSTI %+1~
IBDOBJ %~
IBDPI %+1~, OVER+10!, END!
IBDPID %+1~
IBDPRE %+1~
IBDPTDTE %+1~
IBDPTDTI %~
IBDPTNM %~
IBDPTPRI %+1~
IBDPTSTE %~
IBDPTSTI %~
IBDREDIT %+1~
IBDSC %+1~, STRT+6*, STRT+7, STRT+8, STRT+9
IBDSEL %+1~, OVER+10!, END!
IBDX %+1~, OVER+10*
IBFORM %+1~, ANYWAY+16*, ANYWAY+17*, ANYWAY+18, ANYWAY+24*, ANYWAY+25, ANYWAY+29*, OTHFRM~, OTHFRM+3, OTHFRM+6
, OTHFRM+8, OTHFRM+9, OTHFRM+10, OTHFRM+11
IBJ LIST+1~, ONE+5*
IBQUIT %~, STRT+5*, STRT+6, STRT+7*, APPT, OVER+1, OVER+8, OVER+10, STRTQ+1, ANYWAY+10*
, SELCL+1*, SELCL+7*, SELAP+1*, SELAP+10*, SELPT+2*, SELPT+7*, SELPT+10*, LIST+1~, LIST+2*, LIST+3
IBY %~
IOF HDR+1
IOM HDR+8
J %~, END!
>> NAME SELPT+16*
NODE BLD+2~, BLD+6*, BLD+7, BLD+10, LIST+3*, ONE~, ONE+2, ONE+3
POP %~
PXCA %+1~, SELPT+1!
PXCASTAT %+1~
PXKNODA %+1~
PXKNODB %+1~
RESULT OVER+3, OVER+4, OVER+5, SELPT+2*, SELPT+11*, FIND+1*, FIND+2, FIND+3, FIND+4*, FIND+5
, FIND+6*, END!
RTN %~
SC BLD+2~, BLD+3*, BLD+4, BLD+5, BLD+6, BLD+12, BLD+13, BLD+14, BLD+15
SDCLST %+1~
SEL %~, SELPT+1!
SNODE BLD+2~, BLD+7*, BLD+8, BLD+12, BLD+13, BLD+14, BLD+15
STATUS LIST+1~, ONE+4*, ONE+6*, ONE+7
TEXT END!
TEXTU END!
X %~, ANYWAY+3~, SELCL+2~, SELAP+2~, BLD+8*, BLD+9, LIST+1~, ONE+5*, APDT+1*, APDT+2*
, APDT+3, APDT+4, END!
Y %~, ANYWAY+3~, ANYWAY+12, ANYWAY+23, ANYWAY+24, SELCL+2~, SELCL+9, SELAP+2~, SELAP+12, SELPT+8
, ONE+6*, APDT+1*, APDT+3, APDT+4*, APDT+6, APDT+7, APDT+8, APDT+9, END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All