Routine: IBDFDE1

Information

IBDFDE1 ;ALB/AAS - AICS Data Entry, Final check; 24-FEB-96 [ 11/12/96 2:12 PM ]

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Automated Information Collection System	7	$$FINDID^IBDF18C ETIME^IBDFBK1 EW^IBDFBK2 LSTDATA^IBDFBK3 ^IBDFDE ($$ASKYN,WRITE)^IBDFDE0 SEND^IBDFRPC4
Kernel	2	ENDR^%ZISS ($$FMTE,$$HDIFF)^XLFDT
Lexicon Utility	2	$$ICDONE^GMPTU $$ICDONE^LEXU
DRG Grouper	1	$$MODP^ICPTMOD
Scheduling	1	^SDM
VA Fileman	1	^DIR

Package	Total	Caller Graph
Automated Information Collection System	6	IBDFDE IBDFDE21 IBDFDE22 IBDFDE41 IBDFDE42 IBDFDE7

Entry Points

Name	Comments	DBIA/ICR reference
DISP	; -- display data based on pxca array
FNDQ
ERR	; -- if processing of errors is on do display ; ask if want to re-edit
LEX(VAL)	; -- get output of lexicon entry
MODLIST(I)	; -- list modifiers if in array
MAKAPPT	; -- ask make appointment stuff
DELQ
DEL	; -- delete selected entry
FNDAPPT	; -- if form is not associated with an appointment see any in clinic
MAKAPQ
LINE(CNT,IBD)	; -- write one line of text
FINAL	; -- display everything selected and check okay ; -- input IBDSEL : ; $p1 := package interface ien (for input) ; $p2 := code to send (may be internal or external) ; $p3 := text to send ; $p4 := hdr to send (optional) ; $p5 := clinic lexicon pointer (optional) ; $p6 := qualifier (i.e. primary or secondary) ; $P7 := ; $p8 := ; $p9 := ; $p10 := external value of code (optional)
FINALQ

External References

Name	Field # of Occurrence
ENDR^%ZISS	FNDAPPT+3
^DIR	FINAL+25, DEL+6, DEL+12, MAKAPPT+6, ERR+11
$$ICDONE^GMPTU	LEX+2
$$FINDID^IBDF18C	FNDAPPT+10
ETIME^IBDFBK1	FINAL+43
EW^IBDFBK2	ERR+4
LSTDATA^IBDFBK3	DISP+3
^IBDFDE	%
$$ASKYN^IBDFDE0	FNDAPPT+13, FNDAPPT+19
WRITE^IBDFDE0	FINAL+19
SEND^IBDFRPC4	FINAL+34
$$MODP^ICPTMOD	LINE+13, MODLIST+9
$$ICDONE^LEXU	LEX+1
^SDM	MAKAPPT+12
$$FMTE^XLFDT	DISP+5, FNDAPPT+9, FNDAPPT+11, FNDAPPT+19
$$HDIFF^XLFDT	FINAL+36

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Nothing Selected!!" Line Location: FINAL+15
Function Call: WRITE	Prompt: !!,"You have entered the following:" Line Location: FINAL+18
Function Call: WRITE	Prompt: !!,"No action Taken",! Line Location: FINAL+26
Function Call: WRITE	Prompt: !!,"No action Taken",! Line Location: FINAL+30
Function Call: WRITE	Prompt: !!,"Sending Data to PCE..." Line Location: FINAL+33
Function Call: WRITE	Prompt: $S($G(RESULT(0)):" Successful",1:" Unsuccessful"),!! Line Location: FINAL+35
Function Call: WRITE	Prompt: ! Line Location: DEL+3
Function Call: WRITE	Prompt: !,"Nothing Deleted" Line Location: DEL+13
Function Call: WRITE	Prompt: ! Line Location: DEL+23
Function Call: WRITE	Prompt: !?11,"Associated Modifier(s): " Line Location: LINE+9
Function Call: WRITE	Prompt: !,?15,MODSAVE,?20,XX Line Location: LINE+14
Function Call: WRITE	Prompt: !?11,"Selected during Data Entry Modifier(s): " Line Location: MODLIST+2
Function Call: WRITE	Prompt: !,?15,MODSAVE,?20,XX Line Location: MODLIST+10
Function Call: WRITE	Prompt: !!!,"The following Error(s) occurred while validating data in PCE for: ",$P($G(^DPT(IBDF("DFN"),0)),"^") Line Location: ERR+6
Function Call: WRITE	Prompt: !?4,$E(ERR(I),1,75) Line Location: ERR+7
Function Call: WRITE	Prompt: !?10,$E(ERR(I),76,140) Line Location: ERR+7
Function Call: WRITE	Prompt: ! Line Location: ERR+8
Function Call: WRITE	Prompt: !!!,"The following data was sent to PCE for: ",$P($G(^DPT(IBDF("DFN"),0)),"^") Line Location: DISP+4
Function Call: WRITE	Prompt: !,?4,"Clinic: ",$P($G(^SC(+$P($G(PXCA("ENCOUNTER")),"^",3),0)),"^")," at ",$$FMTE^XLFDT(+$G(PXCA("ENCOUNTER"))) Line Location: DISP+5
Function Call: WRITE	Prompt: !?4,$E(LST(I),1,75) Line Location: DISP+6
Function Call: WRITE	Prompt: !?10,$E(LST(I),76,140) Line Location: DISP+6
Function Call: WRITE	Prompt: ! Line Location: DISP+7
Function Call: WRITE	Prompt: $C(7),!!,IOINHI,"Warning:"," You are about to create a stand alone visit for: ",IOINORM,!,$E($P(^DPT(DFN,0),"^"),1,25),?27,CLNAM,?49,$$FMTE^XLFDT(IBDF("APPT")) Line Location: FNDAPPT+9
Function Call: WRITE	Prompt: ! Line Location: FNDAPPT+13
Function Call: WRITE	Prompt: ! Line Location: FNDAPPT+13
Function Call: WRITE	Prompt: ! Line Location: FNDAPPT+19
Routine Call	DIR Line Location: FINAL+25 DEL+6 DEL+12 MAKAPPT+6 ERR+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	LEX+1, LEX+2
^DPT - [#2]	MAKAPPT+5, ERR+6, DISP+4, FNDAPPT+5, FNDAPPT+6, FNDAPPT+9
^IBD(357.09 - [#357.09]	FINAL+37, FINAL+44
^IBE(357.3 - [#357.3]	LINE+7, LINE+8, LINE+10, LINE+11
^IBE(357.6 - [#357.6]	LINE+1, LINE+2
^LEX	LEX+1
^SC - [#44]	DISP+5, FNDAPPT+8
^TMP("IBD-SAVED"	FINAL+31*

Label References

Name	Line Occurrences
$$LEX	LINE+2
DEL	FINAL+27
DISP	FINAL+38
ERR	FINAL+39
FINALQ	FINAL+26, FINAL+27, FINAL+28
FNDQ	FNDAPPT+1, FNDAPPT+5, FNDAPPT+15
LINE	FINAL+23, DEL+9
MAKAPPT	FINAL+44
MAKAPQ	MAKAPPT+3, MAKAPPT+7, MAKAPPT+8
MODLIST	FINAL+24, DEL+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%I	MAKAPPT+1~
%T	MAKAPPT+1~
CLNAM	FNDAPPT+2~, FNDAPPT+8*, FNDAPPT+9, FNDAPPT+11
CNT	DEL+1~, DEL+2, DEL+9, DEL+11, DEL+12, DEL+22, LINE~, LINE+1, FNDAPPT+2~, FNDAPPT+4* , FNDAPPT+5, FNDAPPT+8*, FNDAPPT+9, FNDAPPT+18, FNDAPPT+23
CNTD	DEL+1~, DEL+21*, DEL+22
CODE	LINE+6~, LINE+8, LINE+13, MODLIST+3~, MODLIST+4, MODLIST+9
DA	MAKAPPT+1~
>> DFN	MAKAPPT+10, MAKAPPT+13, FNDAPPT+5, FNDAPPT+6, FNDAPPT+9, FNDAPPT+10
DIC	MAKAPPT+1~
DIR	FINAL+13~, DEL+1~, DEL+6!, DEL+12!, MAKAPPT+1~, MAKAPPT+6!, ERR+2~, ERR+11!, FNDAPPT+2~
DIR("?"	DEL+5, MAKAPPT+4
DIR("A"	FINAL+25, DEL+4, MAKAPPT+5, ERR+10, FNDAPPT+24*
DIR("B"	FINAL+25, DEL+4, ERR+10*
DIR(0	FINAL+25, DEL+4, DEL+12, MAKAPPT+5, ERR+10, FNDAPPT+25
DIRUT	FINAL+13~, FINAL+26, DEL+1~, DEL+7, DEL+13, MAKAPPT+1~, ERR+2~, ERR+16, FNDAPPT+2~
DTOUT	FINAL+13~, DEL+1~, MAKAPPT+7, FNDAPPT+2~
DUOUT	FINAL+13~, DEL+1~, MAKAPPT+1~, MAKAPPT+7, ERR+2~, FNDAPPT+2~
DUZ	FINAL+42
ERR	ERR+2~, ERR+4
ERR(	ERR+7
FORMLST	FNDAPPT+2~, FNDAPPT+10*, FNDAPPT+11
I	FINAL+13~, FINAL+20, FINAL+23, FINAL+24, DEL+1~, MODLIST~, MODLIST+4, MODLIST+5, MODLIST+7, MODLIST+8 , MAKAPPT+1~, ERR+2~, ERR+7, ERR+15, DISP+1~, DISP+6
IBD	DEL+1~, DEL+9*, DEL+10, LINE~, LINE+1, LINE+2, LINE+3, LINE+4
IBD1	DEL+1~, DEL+14*
IBDCNT	FINAL+13~, FINAL+17, FINAL+19, FINAL+21, FINAL+23
>> IBDCO	FINAL+32
>> IBDCO("AO"	FINAL+15
>> IBDCO("CO"	FINAL+15
>> IBDCO("EC"	FINAL+15
>> IBDCO("IR"	FINAL+15
>> IBDCO("MST"	FINAL+15
>> IBDCO("SC"	FINAL+15
IBDEL	DEL+1~, DEL+14*, DEL+15, DEL+16, DEL+17, DEL+18, DEL+19, DEL+20
IBDEL(	DEL+9*, DEL+16, DEL+17, DEL+18, DEL+19, DEL+20!
>> IBDF	FINAL+29, FINAL+31, FINAL+32, FINAL+34, FINAL+43
>> IBDF(	ERR+15!
>> IBDF("AO"	ERR+14!
>> IBDF("APPT"	FNDAPPT+4, FNDAPPT+9, FNDAPPT+21*
>> IBDF("CLINIC"	FNDAPPT+7, FNDAPPT+8
>> IBDF("CO"	ERR+14!
>> IBDF("DFN"	MAKAPPT+5, MAKAPPT+10, ERR+6, DISP+4
>> IBDF("EC"	ERR+14!
>> IBDF("IR"	ERR+14!
>> IBDF("MST"	ERR+14!
>> IBDF("NOAPPT"	MAKAPPT+3
>> IBDF("NOTHING"	FINAL+15*
>> IBDF("SAVE"	FINAL+31, ERR+9
>> IBDF("SC"	ERR+14!
>> IBDF("SDOE"	FINAL+19
>> IBDF("SECONDS"	FINAL+42*
>> IBDF("USER"	FINAL+42*
>> IBDFIN	FINAL+36*
IBDFN	MAKAPPT+1~, MAKAPPT+10*, MAKAPPT+13
IBDI	FNDAPPT+2~, FNDAPPT+4, FNDAPPT+5, FNDAPPT+6, FNDAPPT+8, FNDAPPT+10, FNDAPPT+11
IBDJ	FNDAPPT+2~, FNDAPPT+4*, FNDAPPT+5
>> IBDOK	FNDAPPT+1, FNDAPPT+13, FNDAPPT+14, FNDAPPT+15, FNDAPPT+19, FNDAPPT+20*, FNDAPPT+21
>> IBDPI(	DEL+17!, DEL+18!
IBDREDIT	FINAL+14!, FINAL+27, FINAL+44, ERR+13
>> IBDSAEOK	FNDAPPT+1
>> IBDSEL	FINAL+29
>> IBDSEL(	FINAL+20, FINAL+23, FINAL+24, DEL+9, DEL+10, DEL+16, DEL+17, DEL+18, DEL+19!, MODLIST+4 , MODLIST+5, MODLIST+7, MODLIST+8
>> IBDSEL(0	FINAL+15, DEL+22*
>> IBDSTRT	FINAL+36
>> IBDTIME	FINAL+36*, FINAL+40, FINAL+41, FINAL+42
>> IBQUIT	FINAL+17, FINAL+26, FINAL+27, DEL+7, MAKAPPT+7, ERR+16*
IOINHI	FNDAPPT+2~, FNDAPPT+9, FNDAPPT+11
IOINORM	FNDAPPT+2~, FNDAPPT+9, FNDAPPT+11
J	DEL+1~, MAKAPPT+1~, ERR+2~
LCNT	ERR+2~, ERR+3, ERR+4, DISP+1~, DISP+2, DISP+3
LEX	FINALQ!
LST	DISP+1~, DISP+3
LST(	DISP+6
>> MOD	LINE+10, LINE+11, MODLIST+5, MODLIST+7, MODLIST+8
MODSAVE	FINAL+13~, FINAL+22!, LINE+11, LINE+12, LINE+13, LINE+14, MODLIST+8, MODLIST+9, MODLIST+10
MODSAVE(	LINE+12*, MODLIST+7
NEWAPPT	FNDAPPT+2~
NEWAPPT(	FNDAPPT+8*
NEWAPPT(1	FNDAPPT+19, FNDAPPT+21
NODE	FNDAPPT+2~, FNDAPPT+6*, FNDAPPT+7
ORVP	FINALQ!
PARAM	FINAL+13~, FINAL+37*, FINAL+38, FINAL+39
PXCA	FINALQ!, ERR+4, DISP+3
PXCA("ENCOUNTER"	DISP+5
PXCA("ERROR"	FINAL+39
PXCA("WARNING"	FINAL+39
PXCASTAT	FINALQ!
PXCAVSIT	FINALQ!
>> QLFR	DEL+16*, DEL+17
>> RESULT	FINAL+34, FINAL+43
>> RESULT(0	FINAL+35
RTCLEX	MAKAPPT+1~
SDALLE	MAKAPPT+1~
SDATD	MAKAPPT+1~
SDAV	MAKAPPT+1~
SDCLN	MAKAPPT+1~
SDDECOD	MAKAPPT+1~
SDEC	MAKAPPT+1~
SDEMP	MAKAPPT+1~
SDFN	FINALQ!, MAKAPPT+1~, MAKAPPT+10*, MAKAPPT+13!
SDHX	MAKAPPT+1~
SDLOCK	MAKAPPT+1~
SDMADE	MAKAPPT+1~
SDNOT	MAKAPPT+1~
SDOEL	MAKAPPT+1~
SDPL	MAKAPPT+1~
SDRE	MAKAPPT+1~
SDRT	MAKAPPT+1~
SDSOH	MAKAPPT+1~
SDT	MAKAPPT+1~
SDTTM	MAKAPPT+1~
SDY	MAKAPPT+1~
SECONDS	FINALQ!
SEL1	FINALQ!
>> SLCTN	LINE+4*, LINE+7, LINE+8, LINE+10, LINE+11
VAL	LEX~, LEX+1, LEX+2
VSIT	MAKAPPT+1~
VSITON	MAKAPPT+1~
X	FINAL+13~, LEX+1, LEX+2, MAKAPPT+1~, FNDAPPT+2~, FNDAPPT+3*
XQXFLG	MAKAPPT+1~
XX	FINAL+13~, LINE+13, LINE+14, MODLIST+9, MODLIST+10
Y	FINAL+27, FINAL+28, DEL+8, DEL+14, MAKAPPT+1~, MAKAPPT+8, ERR+12
ZTSK	FINALQ!

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFDE1

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: