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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Automated Information Collection System 6 ($$FID,$$FINDID)^IBDF18C  (EN,PAUSE)^IBDFDE  CHKOUT^IBDFDE0  (DISP,ERR,MAKAPPT)^IBDFDE1  ($$SELCL,ANYWAY,HDR,LIST)^IBDFDE6  SEND^IBDFRPC4  
VA FileMan 3 DT^DICRW  Y^DIQ  ^DIR  
Kernel 2 HOME^%ZIS  ($$FMADD,$$FMTE)^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Information Collection System 1 IBD MANUAL DATA ENTRY GROUP  

Entry Points

Name Comments DBIA/ICR reference
END
SCRN ; -- input transform logic for selecting an appointment date/time
APDT ; -- list last 30 days appointment dates in clinic
SELAPT(IBDF) ; -- select appointment date/time for a clinic
OVER ;
LIST ; -- print list of patients
EXCLUDQ
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
ALLPTQ
ALLPTS ; -- loop through all patients, merge ibdf=^tmp("ibd-save),
; reset dfn, pass data to ibdfrpc4
STRTQ
SELAPQ
BLD ; -- Find all appointments for a date
EXCLUD ; -- select patient(s) to process
OVERQ
HDR ; -- print Clinic header

External References

Name Field # of Occurrence
HOME^%ZIS %+4
DT^DICRW %+3
Y^DIQ LIST+5
^DIR SELAPT+6, EXCLUD+6
$$FID^IBDF18C ALLPTS+13
$$FINDID^IBDF18C OVER+21, LIST+4
EN^IBDFDE OVER+25
PAUSE^IBDFDE STRTQ
CHKOUT^IBDFDE0 ALLPTS+16
DISP^IBDFDE1 ALLPTS+19
ERR^IBDFDE1 ALLPTS+20
MAKAPPT^IBDFDE1 ALLPTS+21
$$SELCL^IBDFDE6 STRT+7
ANYWAY^IBDFDE6 OVER+22
HDR^IBDFDE6 OVER+10
LIST^IBDFDE6 OVER+10
SEND^IBDFRPC4 ALLPTS+18
$$FMADD^XLFDT APDT+1
$$FMTE^XLFDT LIST+6, APDT+5, APDT+6, APDT+7, HDR+2

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
Routine Call
  • %ZIS
  • Line Location:
    • %+4
Routine Call
  • DIR
  • Line Location:
    • SELAPT+6
    • EXCLUD+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(357.96 LIST+5
^DPT - [#2] ALLPTS+14, EXCLUD+13, EXCLUD+14, BLD+6, BLD+12, LIST+6
^IBD(357.09 - [#357.09] ALLPTS+4, ALLPTS+21
^IBD(357.96 - [#357.96] ALLPTS+3, LIST+5
^IBE(357 - [#357] HDR+3
^SC - [#44] STRT+9, SCRN+2, BLD+4, BLD+5, APDT+2
^SD(409.95 - [#409.95] STRT+10
^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" OVER+8, OVER+18, OVER+19, ALLPTS+7, ALLPTS+9, EXCLUD+11, EXCLUD+12, EXCLUD+13!, EXCLUD+16, BLD+1!
, BLD+11*, LIST+2, LIST+3, END+1!
^TMP("IBD-PL4" END+1!
^TMP("IBD-PLB" END+1!
^TMP("IBD-PLCHK" END+1!
^TMP("IBD-PLN" EXCLUD+13!, BLD+1!, BLD+12*, END+1!
^TMP("IBD-SAVED" ALLPTS+5, ALLPTS+10, ALLPTS+23!, END+1!

Label References

Name Line Occurrences
$$SELAPT OVER+3
ALLPTQ ALLPTS+5
ALLPTS OVER+27
BLD OVER+7
END STRT+5, STRTQ
EXCLUD OVER+12, EXCLUD+18
EXCLUDQ EXCLUD+7, EXCLUD+9, EXCLUD+16
OVER OVERQ
OVERQ OVER+23
SELAPQ SELAPT+7
STRT OVER+4, STRTQ+1
STRTQ STRT+7, STRT+8, OVER+3, OVER+8, OVER+13, OVER+14

Naked Globals

Name Field # of Occurrence
^( LIST+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% %~
%H %~
ADD %~
ANS %+1~, SELAPT+1~, SELAPT+2*, SELAPT+8*, SELAPQ, EXCLUD+8*, EXCLUD+9, EXCLUD+10, EXCLUD+11, EXCLUD+12
, EXCLUD+13
>> APPT LIST+3*, LIST+4, LIST+6
ASKOTHER %~
C %~, LIST+5*
CHOICE END!
CLNAME %+1~, STRT+9*, HDR+2
CLSETUP %+1~, STRT+10*, HDR+3
CNT %~, BLD+3*, BLD+10*, BLD+11, APDT+1*, APDT+3*, APDT+4, APDT+5, APDT+6, APDT+7
DA %~, SELAPT+1~, END!
DEL %~
DFN %~, OVER+20*, OVER+21, ALLPTS+11*, ALLPTS+13, ALLPTS+14, BLD+9*, BLD+11, BLD+12, LIST+3*
, LIST+4, LIST+6
DIC %~, SELAPT+1~, END!
DIE SELAPT+1~, END!
DIR %~, SELAPT+1~, SELAPT+6!, EXCLUD+6!, END!
DIR("?" SELAPT+4*, EXCLUD+2*
DIR("??" SELAPT+5*, EXCLUD+3*
DIR("A" SELAPT+3*, EXCLUD+4*, EXCLUD+5*
DIR(0 SELAPT+3*, EXCLUD+4*
DIRUT %~, SELAPT+1~, SELAPT+7, END!
DR SELAPT+1~, END!
DT %+3, APDT+1, APDT+2
DTOUT %~, EXCLUD+7, END!
DUOUT %~, EXCLUD+7, END!
FORM %+1~, LIST+1~, LIST+4*, LIST+5, HDR+3*
FORMID ALLPTS+2~, ALLPTS+3*, ALLPTS+13
FORMLST %+1~, OVER+21*, OVER+22, OVER+23, OVER+25
FRMDATA %~
I %~, END!
IBD %~, BLD+2~, BLD+3*, BLD+4, BLD+5, BLD+6, BLD+11, BLD+12, LIST+1~, LIST+2*
, LIST+3, LIST+6
IBD1 BLD+2~, BLD+4*, BLD+5
IBDA %~, ALLPTS+6*, ALLPTS+7*, ALLPTS+8, END!
IBDASK %+1~
IBDCKOUT %~
IBDCLNME %+1~
IBDCLNPH %+1~
IBDCO %+1~, ALLPTS+15!, ALLPTS+17, END!
IBDF %~, OVER+3, ALLPTS+10*, ALLPTS+17*, ALLPTS+18, SELAPT~, END!
IBDF("AO" ALLPTS+15!
IBDF("APPT" OVER+5*, OVER+21, ALLPTS+13
IBDF("CLINIC" STRT+7*, OVER+8, OVER+18, OVER+19, ALLPTS+7, ALLPTS+9, ALLPTS+13, SCRN+1, SCRN+2, EXCLUD+11
, EXCLUD+12, EXCLUD+13, EXCLUD+16, BLD+3, LIST+2, LIST+3, APDT+2
IBDF("DFN" ALLPTS+11*, BLD+9*
IBDF("EC" ALLPTS+15!
IBDF("FORM" OVER+25*, ALLPTS+3, ALLPTS+13*
IBDF("IR" ALLPTS+15!
IBDF("MST" ALLPTS+15!
IBDF("NOTHING" OVER+26
IBDF("SAVE" OVER+24*, OVER+28!
IBDF("SC" ALLPTS+15!
IBDF("SDOE" ALLPTS+12*, ALLPTS+16
IBDFDT %+1~, OVER+3*, OVER+4, OVER+5, BLD+3, HDR+2
IBDFMIDI %+1~
IBDFMIEN %+1~
IBDFMNME %+1~, HDR+3*, HDR+4
IBDFMSTE %+1~
IBDFMSTI %+1~
>> IBDFN OVER+20*
IBDOBJ %~
IBDPI %+1~, OVER+27!, END!
IBDPID %+1~
IBDPRE %+1~
IBDPTDTE %+1~
IBDPTDTI %~
IBDPTNM %~
IBDPTPRI %+1~
IBDPTSTE %~
IBDPTSTI %~
IBDREDIT %+1~
IBDSC %+1~, STRT+7*, STRT+8, STRT+9, STRT+10
IBDSEL %+1~, OVER+27!, END!
>> IBDSTRT OVER+18*, OVER+19, ALLPTS+6
IBDX %+1~, OVER+25*
IBFORM %+1~
IBJ LIST+1~
IBQUIT %~, STRT+6*, STRT+7, STRT+8*, OVER+2*, OVER+3, OVER+13*, OVER+14, OVER+26, OVER+27
, STRTQ, ALLPTS+7, EXCLUD+7*, EXCLUD+16*
IBX ALLPTS+2~, ALLPTS+8*, ALLPTS+9
IBY %~
IOF HDR+1
IOM HDR+5
J %~, END!
NODE OVER+19*, OVER+20, ALLPTS+2~, ALLPTS+9*, ALLPTS+11, ALLPTS+12, BLD+5*, BLD+6, BLD+9
PARAM ALLPTS+2~, ALLPTS+4*, ALLPTS+19, ALLPTS+20
POP %~
PXCA %+1~
PXCA("ERROR" ALLPTS+20
PXCA("WARNING" ALLPTS+20
PXCASTAT %+1~
PXKNODA %+1~
PXKNODB %+1~
RESULT ALLPTS+18, EXCLUD+1*, EXCLUD+5, EXCLUD+12*, EXCLUD+13, EXCLUD+14, END!
RTN %~
SC BLD+2~, BLD+3*, BLD+4, BLD+5, BLD+11, BLD+12
SDCLST %+1~
SDFN END!
SEL %~
>> SNODE BLD+6*, BLD+7, BLD+11, BLD+12, LIST+3*
STATUS LIST+1~, LIST+4*, LIST+5*, LIST+6
TEXT END!
TEXTU END!
X %~, SELAPT+1~, SCRN+1!, SCRN+2!, BLD+7*, BLD+8, APDT+1*, APDT+2*, APDT+3, END!
Y %~, SELAPT+1~, SELAPT+8, SCRN+2, EXCLUD+8, LIST+5*, APDT+1*, APDT+3*, APDT+5, APDT+6
, APDT+7, END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All