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

Package: IHS Dental System

Routine: ADEATT4


Information

ADEATT4 ; IHS/HQT/MJL - ATTENDING DDS STMNT PT 4 ;11:42 AM [ 03/24/1999 9:04 AM ]

Source Information

Source file <ADEATT4.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Kernel 1 ^%ZISC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Dental System 1 ADEATT  

Entry Points

Name Comments DBIA/ICR reference
HEAD
END ;
CAR
PROC1
TOT
EOL
INIT
SIG
PROV
PAT
LINE
PROC
PROC2

External References

Name Field # of Occurrence
^%ZISC END+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $E(ADELIN,1,40-($L(ADETITL)/2)),ADETITL,$E(ADELIN,1,39-($L(ADETITL)/2))
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: CAR+0
Function Call: WRITE
  • Prompt: !,ADEINSN
  • Line Location: CAR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CAR+2
Function Call: WRITE
  • Prompt: $P(ADENOD,U,2)
  • Line Location: CAR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CAR+3
Function Call: WRITE
  • Prompt: $P(ADENOD,U,3)
  • Line Location: CAR+3
Function Call: WRITE
  • Prompt: ?30,$P(^DIC(5,$P(ADENOD,U,4),0),U,2)
  • Line Location: CAR+4
Function Call: WRITE
  • Prompt: ?40,$P(ADENOD,U,5)
  • Line Location: CAR+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: !,ADEPNM
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: ?30,"Relationship to Sponsor: ",$P(^AUTTRLSH($P(ADENOD,U,5),0),U)
  • Line Location: PAT+3
Function Call: WRITE
  • Prompt: !,"(Mailing Address Not Available)"
  • Line Location: PAT+5
Function Call: WRITE
  • Prompt: !,$P(ADENOD,U)
  • Line Location: PAT+7
Function Call: WRITE
  • Prompt: !,$P(ADENOD,U,4),?30,$P(^DIC(5,$P(ADENOD,U,5),0),U,2),?40,$P(ADENOD,U,6)
  • Line Location: PAT+8
Function Call: WRITE
  • Prompt: !!,"(Signature on File)"
  • Line Location: PAT+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: PROV+0
Function Call: WRITE
  • Prompt: !,ADERDNM
  • Line Location: PROV+1
Function Call: WRITE
  • Prompt: !,$P(ADENOD,U,12)
  • Line Location: PROV+3
Function Call: WRITE
  • Prompt: !,$P(ADENOD,U,13),?30,$P(^DIC(5,$P(ADENOD,U,14),0),U,2),?40,$P(ADENOD,U,15)
  • Line Location: PROV+5
Function Call: WRITE
  • Prompt: !,"Dentist SSN: ",$P(^DIC(16,ADERDNMD,0),U,9)
  • Line Location: PROV+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PROC+0
Function Call: WRITE
  • Prompt: !,"Tooth",?10,"Description of Service",?35,"Date",?45,"Procedure",?60,"Fee"
  • Line Location: PROC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PROC+1
Function Call: WRITE
  • Prompt: !,$S($P($P(ADEV(X),U,2),",",K)]"":^ADEOPS($P($P(ADEV(X),U,2),",",K),88),1:"")
  • Line Location: PROC2+0
Function Call: WRITE
  • Prompt: ?10,ADEDES(X)
  • Line Location: PROC2+1
Function Call: WRITE
  • Prompt: ?35,$E(ADEVFM,4,5),"/",$E(ADEVFM,6,7),"/",$E(ADEVFM,2,3)
  • Line Location: PROC2+2
Function Call: WRITE
  • Prompt: ?45,X
  • Line Location: PROC2+3
Function Call: WRITE
  • Prompt: ?60,$J($P(ADEV(X),U,3),7,2)
  • Line Location: PROC2+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: !?35,"Total Fee Charged: ",?59,$J(ADETCH,8,2)
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: !!!
  • Line Location: SIG+0
Function Call: WRITE
  • Prompt: X
  • Line Location: SIG+0
Function Call: WRITE
  • Prompt: !,"Dentist Signature",?35,"Date"
  • Line Location: SIG+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADEOPS - [#9002010.03] PROC2
^AUPNPRVT - [#9000006] PAT+2
^AUTNINS - [#9999999.18] CAR+1
^AUTTLOC - [#9999999.06] PROV+2
^AUTTRLSH - [#9999999.36] PAT+3
^DIC(16 - [#16] PROV+6
^DIC(5 - [#5] CAR+4, PAT+8, PROV+5
^DPT - [#2] PAT+5, PAT+6

Label References

Name Line Occurrences
CAR INIT+4
EOL PROC+2
HEAD INIT+2, EOL
LINE HEAD, HEAD+1, CAR, PAT, PROV, PROC, PROC+1, TOT+2
PAT INIT+6
PROC INIT+10
PROC1 PROC+2
PROC2 PROC1+1
PROV INIT+8
SIG INIT+14
TOT INIT+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADEDES( PROC2+1
>> ADEINS CAR+1, PAT+2
>> ADEINSN CAR+1, PAT+2
ADELIN INIT!*, LINE, HEAD*, HEAD+2*
>> ADENOD CAR+1*, CAR+2, CAR+3, CAR+4, CAR+5, PAT+2*, PAT+3, PAT+4, PAT+6*, PAT+7
, PAT+8, PROV+2*, PROV+3, PROV+5
ADEPAG INIT*, END+3!, HEAD*, HEAD+1
>> ADEPAT PAT+2, PAT+5, PAT+6
>> ADEPNM HEAD+1, PAT+1
>> ADERDNM PROV+1
>> ADERDNMD PROV+6
>> ADETCH TOT+1
>> ADETITL LINE, HEAD*, HEAD+1*, CAR*, PAT*, PROV*, PROC*, PROC+1*, TOT*
>> ADEV( PROC+2, PROC1, PROC1+1, PROC2, PROC2+4
>> ADEVFM PROC2+2
DUZ(2 PROV+2
IO INIT
IOF HEAD
IOSL EOL
>> J PROC+2*
>> K PROC1+1*, PROC2
U CAR+2, CAR+3, CAR+4, CAR+5, PAT+3, PAT+4, PAT+7, PAT+8, PROV+3, PROV+5
, PROV+6, PROC1, PROC1+1, PROC2, PROC2+4
>> X PROC+2*, PROC1, PROC1+1, PROC2, PROC2+1, PROC2+3, PROC2+4, SIG*
>> ZTQUEUED END+2
>> ZTREQ END+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All