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

Package: Automated Information Collection System

Routine: IBDF1BA


Information

IBDF1BA ;ALB/CJM - ENCOUNTER FORM (user options for printing - continuation of IBDF1B); 3/1/93

Source Information

Source file <IBDF1BA.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 ^DIC  ^DIR  
Automated Information Collection System 1 $$DIVISION^IBDF1B5  
Registration 1 SDA^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Information Collection System 1 IBDF1B  

Entry Points

Name Comments DBIA/ICR reference
DISP ;display patients/clinics appointments found and get users choice
ENDDISP
SEARCH ;get the appointment data on a patient, put in IBTMP array, indexed by appointment
CLNCSTRT ;get clinic and division to restart from,OUTPUT=IBREPRNT (name of clinic) and IBSTRTDV (division to restart from)
STARTDIV() ;asks what division to restart the job from and returns division name, or "" if user declines
SORTBY ;sort by clinic/patient, clinic/terminal digit, or terminal digit?
TERMSTRT ;get terminal digit to restart from - OUTPUT=IBREPRNT

External References

Name Field # of Occurrence
^DIC STARTDIV+4
^DIR TERMSTRT+2, CLNCSTRT+5, DISP+7, SORTBY+3
$$DIVISION^IBDF1B5 SEARCH+7
SDA^VADPT SEARCH+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"MUST BE 4 NUMBERS!"
  • Line Location: TERMSTRT+3
Function Call: WRITE
  • Prompt: !!,?5,"No Active Appointments for ",IBNM," on",!,"this date in any clinic or division that has forms or reports defined to print",!
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !!,?10,"No Active Appointments in a Clinic with an Encounter Form",!,?10,"for ",IBNM," on this date.",!
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !!,"Appointments for ",IBNM,!
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !,$J(IBI,3)," ",$E($P(IBLN,"^",5),1,20),?25," "
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: " ",$P(IBLN,"^",IBJ)
  • Line Location: DISP+6
Routine Call
  • DIC
  • Line Location:
    • STARTDIV+4
Routine Call
  • DIR
  • Line Location:
    • TERMSTRT+2
    • CLNCSTRT+5
    • DISP+7
    • SORTBY+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] CLNCSTRT+8, STARTDIV+3
^SC - [#44] CLNCSTRT+6
^SD(409.95 - [#409.95] SEARCH+7
^SD(409.96 - [#409.96] SEARCH+7
^TMP("IBDF" DISP+13*, DISP+15*
^UTILITY("VASD" SEARCH+3, SEARCH+4, SEARCH+5, SEARCH+9, SEARCH+10!, ENDDISP!

Label References

Name Line Occurrences
ENDDISP DISP+3, DISP+4, DISP+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APPT SEARCH+2~, SEARCH+5*, SEARCH+6, SEARCH+9
CLINIC SEARCH+2~, SEARCH+5*, SEARCH+6, SEARCH+7, SEARCH+9
CLNCIEN DISP+2~, DISP+9*, DISP+13
CLNCNAME DISP+2~, DISP+9*, DISP+13
>> DFN SEARCH+9, DISP+13, DISP+15
DIC STARTDIV+2!*, STARTDIV+4!
DIC("A" STARTDIV+2*
DIC("B" STARTDIV+3*
DIC(0 STARTDIV+2*
DIR TERMSTRT+5!, CLNCSTRT+5!, DISP+7!, SORTBY+1!, SORTBY+3!
DIR("?" TERMSTRT+1*, CLNCSTRT+4*, SORTBY+2*
DIR("A" TERMSTRT+1*, CLNCSTRT+4*, DISP+7*, SORTBY+3*
DIR("B" SORTBY+3*
DIR(0 TERMSTRT+1*, CLNCSTRT+4*, DISP+7*, SORTBY+1*
DIROUT ENDDISP!
DIRUT TERMSTRT+2, CLNCSTRT+5, DISP+7, ENDDISP!, SORTBY+3
DTOUT ENDDISP!, STARTDIV+5
DUOUT ENDDISP!, STARTDIV+5
IBDIV STARTDIV+1~, STARTDIV+3*
>> IBDT SEARCH+3
IBI DISP+6*, DISP+7, DISP+8*, ENDDISP!
IBJ DISP+6*, ENDDISP!
IBLN SEARCH+2~, SEARCH+5*, DISP+6*, ENDDISP!
>> IBNM SEARCH+9, DISP+3, DISP+4, DISP+5, DISP+13
>> IBREPRNT TERMSTRT+1*, TERMSTRT+2, TERMSTRT+4*, CLNCSTRT+3*, CLNCSTRT+7*
>> IBSRT SORTBY+5*
>> IBSTRTDV CLNCSTRT+8*
IBTMP DISP+3, DISP+4, ENDDISP!
IBTMP( SEARCH+9*, DISP+6, DISP+8, DISP+9
IBX SEARCH+2~, SEARCH+4*, SEARCH+5, SEARCH+9, DISP+6*, DISP+8*, DISP+9, DISP+13, DISP+15, ENDDISP!
NODE CLNCSTRT+2~, CLNCSTRT+6*, CLNCSTRT+7, CLNCSTRT+8
>> QUIT SORTBY+3*, SORTBY+4*
VAERR SEARCH+3, SEARCH+10!
VASD SEARCH+10!
VASD("F" SEARCH+3*
VASD("T" SEARCH+3*
VASD("W" SEARCH+3*
X ENDDISP!
Y TERMSTRT+2, TERMSTRT+3, TERMSTRT+4, CLNCSTRT+5, CLNCSTRT+6, DISP+8, ENDDISP!, STARTDIV+5, STARTDIV+6, SORTBY+4
, SORTBY+5
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 |  Local Variables |  All