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!

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFDE

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 20

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items