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

Package: IHS Changes To ADT

Routine: ADGICAL1


Information

ADGICAL1 ; IHS/ADC/PDW/ENM - INCOMPLETE CHARTS ALPHA LIST PRINT ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGICAL1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Changes To ADT 3 $$INS^ADGMREC  (KILL,TIME)^ADGUTIL  PRTOPT^ADGVAR  
Kernel 1 ^%ZISC  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 ADGICAL  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;***> subrtn to print heading
END
NAME() ; -- returns printable name
A1
A3
A2
A4
NEWPG ;***> subrtn for end of page control

External References

Name Field # of Occurrence
^%ZISC END+4
$$INS^ADGMREC A3+15
KILL^ADGUTIL END+3
TIME^ADGUTIL HEAD+4
PRTOPT^ADGVAR END+1
^DIR NEWPG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$NAME,?18,$J($P(DGSTR,U),7)
  • Line Location: A3+9
Function Call: WRITE
  • Prompt: ?67,$S($P(DGSTR,U,14)="Y":"YES",$P(DGSTR,U,14)="N":"NO",1:"")
  • Line Location: A3+14
Function Call: WRITE
  • Prompt: ?110,$P(DGSTR,U,13),?123,$$INS^ADGMREC(DFN)
  • Line Location: A3+15
Function Call: WRITE
  • Prompt: ?67,$S($P(DGSTR,U,12)="Y":"YES",$P(DGSTR,U,12)="N":"NO",1:"")
  • Line Location: A3+20
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>75
  • Line Location: A4+2
Function Call: WRITE
  • Prompt: ?75
  • Line Location: A4+2
Function Call: WRITE
  • Prompt: ?92,$E($P(^ADGCD(DGY,0),U),1,16),!
  • Line Location: A4+9
Function Call: WRITE
  • Prompt: !!,DGLIN,!,"Total Count: ",DGCNT
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?37,"*****Confidential Patient Data Covered by Privacy Act*****"
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,DGDUZ,?132-$L(DGFAC)\2,DGFAC
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: ?52,"INCOMPLETE CHARTS ALPHA LIST"
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: ?122,"Page ",DGPAGE
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3),?52,DGDTS
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !!!,"Patient Name",?20,"HRCN",?27,"Admt Date",?38,"Ward"
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: ?44,"Summ Dict",?55,"Op Dict",?65,"A Sheet"
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !?27,"Dsch Date",?38,"Srvc",?44,"Summ Rcvd",?55,"Op Rcvd"
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: ?65,"Coded",?75,"Provider",?92,"Chart Deficiency",?110,"Comments"
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: ?122,"Insurance",!,DGLIN1,!!
  • Line Location: HEAD+11
Routine Call
  • DIR
  • Line Location:
    • NEWPG+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" ADGICAL1+4, END+2
^ADGCD - [#9009013.5] A4+9
^ADGIC - [#9009013] A3+23, A4, A4+1, A4+7, A4+8
^DIC(4 - [#4] ADGICAL1+6
^DIC(42 - [#42] A3+11
^DIC(45.7 - [#45.7] A3+17
^DPT - [#2] NAME+2
^TMP("DGZICAL" A1, A2, A3, A3+3, END+3!
^VA(200 - [#200] ADGICAL1+6, A4+3

Label References

Name Line Occurrences
$$NAME A3+9
A1 A2
A2 A3
A3 A3+23, A4
A4 A4+11
END A1, A3+21, A4+11
HEAD ADGICAL1+11, NEWPG+1, NEWPG+3
NEWPG A3+21, A4+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN A1*, A2*, A3, A3+3, A3+15, A3+23, A4, A4+1, A4+7, A4+8
, NAME+2
>> DGAD A3+4*, A3+10
>> DGBDT ADGICAL1+7
>> DGCNT END
>> DGCOM A3+6*
>> DGDD A3+4*, A3+16
>> DGDFN1 A3*, A3+3, A3+23, A4, A4+1, A4+7, A4+8
>> DGDFN2 A2*, A3+26*, A4*, A4+1, A4+7, A4+8
>> DGDTS ADGICAL1+9*, HEAD+6
>> DGDUZ ADGICAL1+6*, HEAD+3
>> DGEDT ADGICAL1+8
>> DGFAC ADGICAL1+6*, HEAD+3
DGIOM ADGICAL1+4*, END+2!
>> DGLIN ADGICAL1+10*, END
>> DGLIN1 ADGICAL1+10*, HEAD+11
>> DGNAM ADGICAL1+14*, A1*, A2, A3, A3+3, NAME+2
>> DGOPD A3+6*, A3+13
>> DGOPR A3+6*, A3+19
>> DGPAGE ADGICAL1+5*, HEAD+1, HEAD+5*
>> DGPRV A4+1*, A4+3
>> DGSMD A3+5*, A3+12
>> DGSMR A3+5*, A3+18
>> DGSRT NAME+2
>> DGSTOP ADGICAL1+5*, A3+21, A4+6, A4+11, NEWPG+2*, NEWPG+3
>> DGSTR A3+3*, A3+4, A3+5, A3+6, A3+9, A3+14, A3+15, A3+20
>> DGSV A3+5*, A3+17
>> DGWD A3+4*, A3+11
>> DGX ADGICAL1+7*, ADGICAL1+9, A4+6*, A4+7*, A4+8
>> DGY ADGICAL1+8*, ADGICAL1+9, A4+8*, A4+9
DIR NEWPG+2!
DIR(0 NEWPG+2*
DT HEAD+6
DUZ ADGICAL1+6
DUZ(2 ADGICAL1+6
IOF END+3, HEAD+1
IOM ADGICAL1+4
IOSL A3+21, A4+10
IOST END+1, HEAD+1, NEWPG+1
N NAME+1~, NAME+2*, NAME+3
U ADGICAL1+6, A3+4, A3+5, A3+6, A3+9, A3+11, A3+14, A3+15, A3+17, A3+20
, A3+21, A4+1, A4+3, A4+6, A4+8, A4+9, A4+11, NEWPG+3, NAME+2
>> X ADGICAL1+4*, END+2*, NEWPG+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All