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 |  Local Variables  | All
Print Page as PDF
Routine: IBDFDE8

Package: Automated Information Collection System

Routine: IBDFDE8


Information

IBDFDE8 ;ALB/AAS - AICS Manual Data Entry, Entry for no form no appt ; 31-MAY-96

Source Information

Source file <IBDFDE8.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Automated Information Collection System 4 $$FINDID^IBDF18C  EN^IBDFDE  ($$ASKDT,$$ASKYN)^IBDFDE0  ($$SELCL,ANYWAY)^IBDFDE6  
VA FileMan 3 DT^DICRW  Y^DIQ  ^DIR  
Kernel 2 HOME^%ZIS  ($$DOW,$$FMADD,$$FMTE)^XLFDT  

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

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

Entry Points

Name Comments DBIA/ICR reference
STRT ; -- ask for form id
CLINIC ; -- select clinic
STRTQ
END
LSTAP ; -- list appointments for date range
LISTONE ; -- List appointments for one date
FRMSTAT ; -- count forms and form status for appointments

External References

Name Field # of Occurrence
HOME^%ZIS %+4
DT^DICRW %+3
Y^DIQ FRMSTAT+4
^DIR STRT+5
$$FINDID^IBDF18C CLINIC+23, FRMSTAT+2
EN^IBDFDE CLINIC+28
$$ASKDT^IBDFDE0 CLINIC+11
$$ASKYN^IBDFDE0 CLINIC+17, CLINIC+18
$$SELCL^IBDFDE6 CLINIC+3
ANYWAY^IBDFDE6 CLINIC+24
$$DOW^XLFDT LSTAP+4
$$FMADD^XLFDT LSTAP+6, LSTAP+7
$$FMTE^XLFDT CLINIC+17, LISTONE+9, LISTONE+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?4,"** This option is OUT OF ORDER **"
  • Line Location: IBDFDE8+3
Function Call: WRITE
  • Prompt: !!,"Data Entry Pre-Printed form, No appointment",!
  • Line Location: IBDFDE8+10
Function Call: WRITE
  • Prompt: !
  • Line Location: STRT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CLINIC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CLINIC+10
Function Call: WRITE
  • Prompt: !
  • Line Location: CLINIC+14
Function Call: WRITE
  • Prompt: !
  • Line Location: CLINIC+14
Function Call: WRITE
  • Prompt: !
  • Line Location: CLINIC+19
Function Call: WRITE
  • Prompt: !
  • Line Location: LSTAP+3
Function Call: WRITE
  • Prompt: !,"Patient has the following appointments: "
  • Line Location: LISTONE+8
Function Call: WRITE
  • Prompt: !,"No appointments for Patient found on ",$$FMTE^XLFDT($E(IBDF("APPT"),1,7))
  • Line Location: LISTONE+11
Function Call: WRITE
  • Prompt: ?50,$E($G(STATUS),1,25),?76,"("_CNT_")"
  • Line Location: FRMSTAT+5
Routine Call
  • %ZIS
  • Line Location:
    • %+4
Routine Call
  • DIR
  • Line Location:
    • STRT+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(357.96 FRMSTAT+4
^DPT - [#2] LISTONE+4, LISTONE+6
^IBD(357.96 - [#357.96] FRMSTAT+4
^SC - [#44] CLINIC+6, LISTONE+9
^SD(409.95 - [#409.95] CLINIC+7
^TMP("IBD-ASK" END+1!
^TMP("IBD-LCODE" END+1!
^TMP("IBD-LST" END+1!
^TMP("IBD-LTEXT" END+1!
^TMP("IBD-OBJ" END+1!

Label References

Name Line Occurrences
CLINIC CLINIC+12, CLINIC+20
END STRT+1, STRT+6
FRMSTAT LISTONE+10
LISTONE CLINIC+14, LSTAP+7
STRT CLINIC+5, STRTQ+1
STRTQ CLINIC+3, CLINIC+4, CLINIC+11, CLINIC+20, CLINIC+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% %~
%H %~
ADD %~
ASKOTHER %~
BEGIN LSTAP+1~, LSTAP+6*, LSTAP+7
C %~, FRMSTAT+1~, FRMSTAT+4*
CHOICE END!
>> CLNAME CLINIC+6*
>> CLSETUP CLINIC+7*
CNT %~, LSTAP+1~, LSTAP+2*, LSTAP+8, LISTONE+3*, LISTONE+5*, LISTONE+8, LISTONE+11, FRMSTAT+1~, FRMSTAT+3*
, FRMSTAT+5
DA %~, STRT+5!, END!
DEL %~
DFN %~, STRT+7*, CLINIC+23, LISTONE+4, LISTONE+6, FRMSTAT+2
DIC %~, STRT+5!, END!
DIE END!
DIR %~, STRT+5!, END!
DIR("?" STRT+4*
DIR("A" STRT+5*
DIR(0 STRT+5*
DIRUT %~, STRT+6, END!
DOW LSTAP+1~, LSTAP+4*, LSTAP+5
DR STRT+5!, END!
DT %+3, CLINIC+11, LSTAP+4, LSTAP+6
DTOUT %~, END!
DUOUT %~, END!
FORM FRMSTAT+1~, FRMSTAT+2*, FRMSTAT+3, FRMSTAT+4
>> FORMLST CLINIC+23*, CLINIC+24, CLINIC+28
FRMDATA %~
HELP LSTAP+1~, LSTAP+2*, LISTONE+3, LISTONE+11
I %~, END!
IBD %~
IBDAPPT %+1~, CLINIC+17, CLINIC+18, LISTONE+2*, LISTONE+7*
IBDASK %+1~
IBDCKOUT %~
IBDCLNME %+1~
IBDCLNPH %+1~
IBDCO %+1~, END!
IBDF %~, END!
IBDF("APPT" CLINIC+11*, CLINIC+12, CLINIC+17, CLINIC+23, LSTAP+7*, LISTONE+2, LISTONE+4, LISTONE+7, LISTONE+11
IBDF("CLINIC" CLINIC+3*, CLINIC+4, CLINIC+5, CLINIC+6, CLINIC+7, LISTONE+7
IBDF("DFN" STRT+7*
IBDF("FORM" CLINIC+28*
IBDFMIDI %+1~
IBDFMIEN %+1~
IBDFMNME %+1~
IBDFMSTE %+1~
IBDFMSTI %+1~
IBDI LSTAP+1~, LSTAP+7*
IBDOBJ %~
IBDPI %+1~, CLINIC+28!, END!
IBDPID %+1~
IBDPRE %+1~
IBDPTDTE %+1~
IBDPTDTI %~
IBDPTNM %~
IBDPTPRI %+1~
IBDPTSTE %~
IBDPTSTI %~
IBDREDIT %+1~
IBDSAEOK %+1~, CLINIC+2*, CLINIC+17*, CLINIC+18*, CLINIC+20, CLINIC+28, STRTQ!
IBDSEL %+1~, CLINIC+28!, END!
>> IBDX CLINIC+28*
IBFORM %+1~
IBJ FRMSTAT+1~, FRMSTAT+3*
IBQUIT %~, STRT+2*, CLINIC+3, CLINIC+11, CLINIC+20, CLINIC+26, CLINIC+28, STRTQ+1
IBY %~
J %~, END!
NEXT LISTONE+1~, LISTONE+2*, LISTONE+4*, LISTONE+6, LISTONE+7, LISTONE+9, FRMSTAT+2
NODAYS LSTAP+1~, LSTAP+5*, LSTAP+6, LSTAP+7
NODE LISTONE+1~, LISTONE+6*, LISTONE+7, LISTONE+9
POP %~
PXCA %+1~
PXCASTAT %+1~
PXKNODA %+1~
PXKNODB %+1~
RESULT END!
RTN %~
SDCLST %+1~
SEL %~
STATUS FRMSTAT+1~, FRMSTAT+2*, FRMSTAT+4*, FRMSTAT+5
TEXT END!
TEXTU END!
X %~, END!, FRMSTAT+1~, FRMSTAT+3*
Y %~, STRT+7, END!, FRMSTAT+1~, FRMSTAT+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All