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

Package: Automated Information Collection System

Routine: IBDFDE1


Information

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

Source Information

Source file <IBDFDE1.m>

Call Graph

Call Graph

Call Graph Total: 15

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

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

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

Entry Points

Name Comments DBIA/ICR reference
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
DEL ; -- delete selected entry
DELQ
LINE(CNT,IBD) ; -- write one line of text
MODLIST(I) ; -- list modifiers if in array
LEX(VAL) ; -- get output of lexicon entry
MAKAPPT ; -- ask make appointment stuff
MAKAPQ
ERR ; -- if processing of errors is on do display
; ask if want to re-edit
DISP ; -- display data based on pxca array
FNDAPPT ; -- if form is not associated with an appointment see any in clinic
FNDQ

External References

Name Field # of Occurrence
ENDR^%ZISS FNDAPPT+3
^DIR FINAL+25, DEL+6, DEL+12, MAKAPPT+6, ERR+11
$$ICDONE^GMPTU LEX+6
$$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
$$IMPDATE^IBDUTICD LEX+2
$$MODP^ICPTMOD LINE+13, MODLIST+9
$$ICDONE^LEXU LEX+5
^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+5, LEX+6
^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+5
^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~
DT LEX+4
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
IBDIBX LEX+1~, LEX+3*, LEX+4*, LEX+5, LEX+6, LEX+7
IBDIMP LEX+1~, LEX+2*, LEX+4
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+5*, LEX+6*
VSIT MAKAPPT+1~
VSITON MAKAPPT+1~
X FINAL+13~, LEX+5*, LEX+6*, 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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All