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 |  Marked Items |  All
Print Page as PDF
Routine: IBDFDE

Package: Automated Information Collection System

Routine: IBDFDE


Information

IBDFDE ;ALB/AAS - AICS Data Entry, Entry point by form ; 24-FEB-96

Source Information

Source file <IBDFDE.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Automated Information Collection System 5 (CHKOUT,WRITE)^IBDFDE0  (FINAL,FNDAPPT)^IBDFDE1  DEFPROV^IBDFDE21  FRMLSTI^IBDFRPC  ($$SDV,IDPAT)^IBDFRPC3  
Kernel 4 HOME^%ZIS  ENDR^%ZISS  (T0,T1)^%ZOSV  $$FMTE^XLFDT  
VA Fileman 2 DT^DICRW  ^DIR  

Caller Graph

Caller Graph Total: 20

Package Total Caller Graph
Automated Information Collection System 19 IBD MANUAL DATA ENTRY BY FORM  IBDF18E0  IBDFDE0  IBDFDE1  IBDFDE2  IBDFDE21  IBDFDE22  IBDFDE3  
IBDFDE4  IBDFDE41  IBDFDE42  IBDFDE5  IBDFDE6  IBDFDE7  IBDFDE8  IBDFDE9  
IBDFDEA  IBDFFT  IBDFRPC5  
Integrated Billing 1 IBD MANUAL DATA ENTRY BY FORM  

Entry Points

Name Comments DBIA/ICR reference
LISTOB ; -- header for input object list
EN ; -- entry point to edit one form,
; Input IBDF("FORM") := form number
END
HDR ; -- print patient header
ERR ;
EXPAND(X) ; -- sets standard varibles for form data
OVER ; -- start here to re-edit an entry
STRT ; -- ask for form id
FNDSDOE(DFN,APPT) ; -- returns pointer to opt encounter for appt.
ENQ
PAUSE ; -- go to bottom of screen and pause for return
KILLTMP
STRTQ
NEWOVER ; -- start here to re-edit an entry

External References

Name Field # of Occurrence
HOME^%ZIS %+5
ENDR^%ZISS OVER+2
T0^%ZOSV EN+3
T1^%ZOSV NEWOVER+23
DT^DICRW %+4
^DIR STRT+3, OVER+25, OVER+34, PAUSE+3
CHKOUT^IBDFDE0 NEWOVER+3
WRITE^IBDFDE0 LISTOB+2
FINAL^IBDFDE1 NEWOVER+22
FNDAPPT^IBDFDE1 OVER+36
DEFPROV^IBDFDE21 NEWOVER+4
FRMLSTI^IBDFRPC OVER+38
$$SDV^IBDFRPC3 FNDSDOE+3
IDPAT^IBDFRPC3 OVER+4
$$FMTE^XLFDT OVER+22, OVER+31, OVER+32, HDR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Data Entry of Encounter Forms (by Form)",!!
  • Line Location: IBDFDE+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: STRTQ+2
Function Call: WRITE
  • Prompt: !!,"Form is currently being entered by another user, try again later!"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"Form Tracking Entry has been deleted, Data entry not available"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"Form is not scannable. Data entry not available"
  • Line Location: OVER+6
Function Call: WRITE
  • Prompt: !!,"Form Definition entry not defined for form tracking entry.",!,"Data entry not available."
  • Line Location: OVER+8
Function Call: WRITE
  • Prompt: !!,"Form Definition Entry has been deleted.",!,"Data entry not available."
  • Line Location: OVER+9
Function Call: WRITE
  • Prompt: !!,"Can not determine Encounter Form from Form Tracking entry.",!,"Data entry not available."
  • Line Location: OVER+10
Function Call: WRITE
  • Prompt: !!,"Encounter Form has been deleted. Data entry not available."
  • Line Location: OVER+11
Function Call: WRITE
  • Prompt: !!,"Form "_IBDF("FORM")_" is for an Appointment that has been canceled.",!,"Data entry not available."
  • Line Location: OVER+12
Function Call: WRITE
  • Prompt: !!,"Form "_IBDF("FORM")_" is for an Appointment that has been canceled or no-showed.",!,"Data entry not available."
  • Line Location: OVER+13
Function Call: WRITE
  • Prompt: !!,"No action Taken",!
  • Line Location: OVER+36
Function Call: WRITE
  • Prompt: !,$G(^TMP("IBD-OBJ",$J,IBDFMIEN,0)),!
  • Line Location: OVER+39
Function Call: WRITE
  • Prompt: !!
  • Line Location: ENQ+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: IBDPTNM,?32,IBDPID,?47,$$FMTE^XLFDT($P($G(^DPT(DFN,0)),"^",3))
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: " Form ID: ",$P(^IBD(357.96,IBDF("FORM"),0),"^")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","=")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !," Clinic: ",$E(IBDCLNME,1,25)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?40," Date/Time: ",IBDPTDTE
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !," Form Name: ",$E(IBDFMNME,1,25)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?40,"Form Status: ",$E(IBDFMSTE,1,25)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,"Items available for Input:"
  • Line Location: LISTOB+1
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","=")
  • Line Location: LISTOB+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAUSE+2
Routine Call
  • %ZIS
  • Line Location:
    • %+5
Routine Call
  • DIR
  • Line Location:
    • STRT+3
    • OVER+25
    • OVER+34
    • PAUSE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] OVER+12, OVER+13, OVER+36, HDR+2, FNDSDOE+2, FNDSDOE+3
^IBD(357.09 - [#357.09] STRTQ, ENQ+3
^IBD(357.95 - [#357.95] OVER+9, OVER+10
^IBD(357.96 - [#357.96] EN+6, EN+7, ENQ+1, HDR+3
^IBE(357 - [#357] OVER+6, OVER+11, OVER+14
^IBE(357.6 - [#357.6] NEWOVER+18
^TMP("IB" KILLTMP!
^TMP("IBD-ASK" END+1!, KILLTMP!
^TMP("IBD-LCODE" END+1!, KILLTMP!
^TMP("IBD-LST" END+1!, KILLTMP!
^TMP("IBD-LTEXT" END+1!, KILLTMP!
^TMP("IBD-OBJ" OVER+38, OVER+39, NEWOVER+7, NEWOVER+8, NEWOVER+11, NEWOVER+12, LISTOB+3, LISTOB+4, LISTOB+11, END+1!
, KILLTMP!
^TMP("IBD-PI-CNT" NEWOVER+6!, NEWOVER+9*, NEWOVER+21!

Label References

Name Line Occurrences
$$FNDSDOE EXPAND+19
EN STRT+6
END STRT+1, STRT+4, STRTQ+1
ENQ EN+6, EN+7, OVER+6, OVER+8, OVER+9, OVER+10, OVER+11, OVER+12, OVER+13, OVER+17
, OVER+27, OVER+36, OVER+39
ERR OVER+8, OVER+9, OVER+10, OVER+11
EXPAND OVER+5
HDR OVER+15, NEWOVER+1
KILLTMP OVER+14
LISTOB NEWOVER+2
OVER NEWOVER+22
PAUSE STRTQ, ENQ+3
STRT STRTQ+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% %~
%H %~
ADD %~
ANS1 %+2~
APPT FNDSDOE~, FNDSDOE+2, FNDSDOE+3
ASKOTHER %~
AUPNDAYS %+2~
AUPNDOB %+2~
AUPNDOD %+2~
AUPNPAT %+2~
AUPNSEX %+2~
C %~
CHOICE END!
CNT %~
DA %~, STRT+3!, END!
DEL %~
DFN %~, OVER+12, OVER+13, OVER+36, HDR+2, EXPAND+1*, EXPAND+19, FNDSDOE~, FNDSDOE+2, FNDSDOE+3
DIC %~, STRT+3!, END!
DIE END!
DIR %~, STRT+3!, OVER+25!, OVER+34!, PAUSE+2~, END!
DIR("?" STRT+2*, OVER+23*, OVER+32*
DIR("A" STRT+3*, OVER+24*, OVER+33*
DIR("B" OVER+24*, OVER+33*
DIR(0 STRT+3*, OVER+24*, OVER+33*, PAUSE+3*
DIRUT %~, STRT+4, PAUSE+2~, END!
DR STRT+3!, END!
DT %+4
DTOUT %~, PAUSE+2~, END!
DUOUT %~, PAUSE+2~, END!
FRMDATA %~, OVER+4, OVER+5
I %~, NEWOVER+7*, NEWOVER+8, NEWOVER+11*, NEWOVER+12, NEWOVER+17, NEWOVER+20*, LISTOB+3*, LISTOB+4, LISTOB+11*
, PAUSE+2~, END!
IBD %+1~
IBDASK %+1~
IBDCKOUT %+1~, OVER+21, OVER+22, OVER+27, OVER+31, OVER+32, EXPAND+18*
IBDCLNME %+1~, HDR+5, EXPAND+7*
IBDCLNPH %+1~, EXPAND+8*
IBDCO %+1~, END!
IBDF %~, END!
IBDF("APPT" OVER+12, OVER+13, OVER+36, EXPAND+9*, EXPAND+19
IBDF("CLINIC" OVER+12, EXPAND+2*
IBDF("DFN" EXPAND+1*
IBDF("FORM" STRT+5*, EN+6, EN+7, OVER+4, OVER+12, OVER+13, ENQ+1, HDR+3, ERR+1
IBDF("FRMDEF" OVER+8, OVER+9, OVER+10, EXPAND+15*, ERR+2
IBDF("GOTO" NEWOVER+20!
IBDF("IBDF" NEWOVER+17*
IBDF("IEN" NEWOVER+14*, NEWOVER+16
IBDF("KILL" OVER+3*
IBDF("OPTION" STRTQ+3
IBDF("PAGE" NEWOVER+15*
IBDF("PI" NEWOVER+13*, NEWOVER+16, NEWOVER+18
IBDF("PROVIDE R PI" , NEWOVER+4, LISTOB+7*, LISTOB+14*
IBDF("PROVIDER" NEWOVER+4
IBDF("SDOE" NEWOVER+3, LISTOB+2, EXPAND+19*
IBDF("TYPE" NEWOVER+13*
IBDF("VITAL" NEWOVER+14*
IBDFIN EN+4~
IBDFMIDI %+1~
IBDFMIEN %+1~, OVER+6, OVER+11, OVER+14, OVER+38, OVER+39, NEWOVER+7, NEWOVER+8, NEWOVER+11, NEWOVER+12
, LISTOB+3, LISTOB+4, LISTOB+11, EXPAND+6*, KILLTMP, ERR+3
IBDFMNME %+1~, HDR+6, EXPAND+5*
IBDFMSTE %+1~, OVER+20, HDR+6, EXPAND+14*
IBDFMSTI %+1~, OVER+17, OVER+28, EXPAND+13*
IBDOBJ %~, NEWOVER+12*, NEWOVER+13, NEWOVER+14, NEWOVER+15
IBDOK %+1~, OVER+36*
IBDPI %+1~, END!
IBDPID %+1~, HDR+2, EXPAND+4*
IBDPRE %+1~
IBDPTDTE %+1~, HDR+5, EXPAND+10*
IBDPTDTI %~
IBDPTNM %~, HDR+2, EXPAND+3*
IBDPTPRI %+1~, EXPAND+16*, EXPAND+17*
IBDPTSTE %~, OVER+22, OVER+31, EXPAND+12*
IBDPTSTI %~, EXPAND+11*
IBDREDIT %+1~, OVER+14, OVER+15, OVER+18, OVER+29, OVER+36, NEWOVER+1, NEWOVER+22
IBDSEL %+1~, END!
IBDSTRT EN+4~*
IBDTIME EN+4~
IBFLAG EN+6*, EN+7*, OVER+6*, OVER+8*, OVER+9*, OVER+10*, OVER+11*, OVER+12*, OVER+13*, ENQ+2
, ENQ+4!
IBFORM %+1~
IBQUIT %~, STRTQ+1, EN+5*, OVER+3*, OVER+17, OVER+19*, OVER+25*, OVER+27, OVER+30*, OVER+34*
, NEWOVER+11, NEWOVER+22*, PAUSE+1, PAUSE+3*
IBY %~
IOF STRTQ+2, HDR+1
IOINHI OVER+1~, OVER+22, OVER+31
IOINORM OVER+1~, OVER+22, OVER+31
IOM HDR+4, LISTOB+18
IOSL PAUSE+2
IOST PAUSE+3
J %~, END!
POP %~
PXCA %+1~
PXCASTAT %+1~
PXKNODA %+1~
PXKNODB %+1~
RESULT END!
RTN %~, NEWOVER+18*, NEWOVER+19
SDCLST %+1~
SDFN ENQ!
SDOE FNDSDOE+1~, FNDSDOE+2*, FNDSDOE+3*, FNDSDOE+4
SEL %~
TEXT END!
TEXTU END!
X %~, OVER+2*, OVER+13*, NEWOVER+8*, NEWOVER+9, LISTOB+4*, LISTOB+5, LISTOB+6, LISTOB+7, LISTOB+11*
, LISTOB+12, LISTOB+13, LISTOB+14, EXPAND~, EXPAND+1, EXPAND+2, EXPAND+3, EXPAND+4, EXPAND+5, EXPAND+6
, EXPAND+7, EXPAND+8, EXPAND+9, EXPAND+10, EXPAND+11, EXPAND+12, EXPAND+13, EXPAND+14, EXPAND+15, EXPAND+16
, EXPAND+17, EXPAND+18, END!
>> XRT0 NEWOVER+23
>> XRTL EN+3
>> XRTN NEWOVER+23*
Y %~, STRT+5, OVER+25, OVER+34, LISTOB+6*, LISTOB+7, LISTOB+8*, LISTOB+9, LISTOB+13*, LISTOB+14
, LISTOB+15*, LISTOB+16, PAUSE+3, END!

Marked Items

Name Field # of Occurrence
$T( NEWOVER+23
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All