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

Package: IHS Changes To ADT

Routine: ADGDSIP1


Information

ADGDSIP1 ; IHS/ADC/PDW/ENM - DS CHART DEFICIENCY LIST ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGDSIP1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Changes To ADT 3 ^ADGDSIP2  KILL^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 ADGDSIP  

Entry Points

Name Comments DBIA/ICR reference
A ;--main
END1
PINI ;--provider name and zero counts
END ;--cleanup
SUM ;--set ^TMP for summary page
HEAD ;--heading
TOTALS ;--print totals for each provider
1 ;--incomplete chart file data
NEWPG ;--page control
CHDEF ;--chart deficiencies
INI ;--initialize variables
LPRV ;--loop provider
LUTL ;--loop disch date, patient name, dfn

External References

Name Field # of Occurrence
^%ZISC END1
^ADGDSIP2 A+5
KILL^ADGUTIL END1
PRTOPT^ADGVAR END+1
^DIR A+4, NEWPG+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$E(NM,1,20),?22,$J(CHT,6)
  • Line Location: 1+9
Function Call: WRITE
  • Prompt: ?30,$E(SD,4,5)_"/"_$E(SD,6,7)_"/"_$E(SD,2,3)
  • Line Location: 1+10
Function Call: WRITE
  • Prompt: !!?20,"TOTAL INCOMPLETE CHARTS: ",$J(DGTCNT,3)
  • Line Location: TOTALS+3
Function Call: WRITE
  • Prompt: !?17,"# Incomplete for SIGNATURE: ",$J(DGCNT("ISG"),3)
  • Line Location: TOTALS+5
Function Call: WRITE
  • Prompt: !!?20,"TOTAL DELINQUENT CHARTS: ",$J(DGCNT("DEL"),3)
  • Line Location: TOTALS+7
Function Call: WRITE
  • Prompt: !?17,"# Delinquent for OP REPORT: ",$J(DGCNT("OPR"),3)
  • Line Location: TOTALS+9
Function Call: WRITE
  • Prompt: !?17,"# Delinquent for SIGNATURE: ",$J(DGCNT("SIG"),3)
  • Line Location: TOTALS+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: ?12,"*****Confidential Patient Data Covered by Privacy Act*****"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !?80-$L(DGFAC)/2,DGFAC,!,DGDUZ
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: ?22,"DAY SURGERY INCOMPLETE CHART LIST FOR"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3)
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: ?80-$L(DGPRVN)/2,DGPRVN
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: ?65,"Page ",DGPAGE
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !!,"Patient Name",?22,"HRCN",?30,"Surg Date",?40,"Op Dict"
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: ?50,"Op Rcvd",?60,"Chart Deficiency",!,DGLIN
  • Line Location: HEAD+10
Routine Call
  • DIR
  • Line Location:
    • A+4
    • NEWPG+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADGCD - [#9009013.5] CHDEF+2
^DIC(4 - [#4] INI+2
^TMP("DGZICPL" END1+1!, LPRV+2, LUTL+2, LUTL+4, LUTL+6, 1+2
^TMP("DGZICPL1" INI+3!, END1+1!, 1+5*, CHDEF+13*, SUM+1*
^VA(200 - [#200] INI+2

Label References

Name Line Occurrences
1 LUTL+6
CHDEF 1+14
END A+7
END1 A+2, A+6
HEAD NEWPG+3, NEWPG+6
INI A+1
LPRV A+1
LUTL LPRV+3
NEWPG LPRV+3, 1+8, TOTALS+2
PINI LPRV+3
SUM LPRV+4
TOTALS LPRV+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CD CHDEF+1~, CHDEF+2*, CHDEF+3, CHDEF+5, CHDEF+8, CHDEF+14
CHT 1+1~, 1+3*, 1+9
DFN LUTL+1~, LUTL+5*, LUTL+6*, 1+2, 1+5, CHDEF+11, CHDEF+12, CHDEF+13
DGA 1+17!
DGA( 1+16, CHDEF+10*
DGA("ISG" CHDEF+5*
>> DGCNT( PINI+2*, 1+16*
>> DGCNT("DEL" CHDEF+12*, TOTALS+7, SUM+1
>> DGCNT("ISG" TOTALS+4, TOTALS+5, SUM+1
>> DGCNT("OPR" TOTALS+8, TOTALS+9, SUM+1
>> DGCNT("SIG" TOTALS+10, TOTALS+11, SUM+1
>> DGDEL CHDEF+5, CHDEF+8
>> DGDUZ INI+2*, HEAD+4
>> DGFAC INI+2*, HEAD+4
>> DGFLG INI+1*, 1+17*, CHDEF+11, CHDEF+12*
>> DGI PINI+2*
>> DGII A+1*
>> DGLIN INI+1*, HEAD+10
>> DGNUM A+1
>> DGPAGE A+4, INI+1*, HEAD+2, HEAD+8*, NEWPG+3
>> DGPRVN PINI+1*, SUM+1, HEAD+7
>> DGSTOP A+1, A+2, A+6, INI+1*, LPRV+2, LPRV+3, LUTL+2, LUTL+4, LUTL+6, 1+7
, 1+8, TOTALS+2, NEWPG+5*
>> DGSUMPG A+3, LPRV+4, 1+7, CHDEF+3, CHDEF+5, CHDEF+8, CHDEF+14, HEAD+1, NEWPG+1
>> DGTCNT PINI+1*, 1+5*, TOTALS+3, SUM+1
>> DGX CHDEF+2*
DIR A+4!, NEWPG+5!
DIR(0 A+4*, NEWPG+5*
DT HEAD+6
DUZ INI+2
DUZ(2 INI+2
GRP CHDEF+1~, CHDEF+2*, CHDEF+3, CHDEF+5*, CHDEF+8*, CHDEF+10, CHDEF+14
IO A+1
IOF HEAD+2
IOSL 1+8, TOTALS+2
IOST A+4, END+1, HEAD+2, NEWPG+3
J 1+1~, 1+14*, 1+16*, CHDEF+2
N 1+1~, 1+2*, 1+3, 1+14, CHDEF+2
NM LUTL+1~, LUTL+3*, LUTL+4*, LUTL+6, 1+2, 1+9
OPD 1+1~, 1+3*, 1+11
OPR 1+1~, 1+3*, 1+12
PR LPRV+1~, LPRV+2*, PINI+1, LUTL+2, LUTL+4, LUTL+6, 1+2
SD LUTL+1~, LUTL+2*, LUTL+4, LUTL+6, 1+2, 1+10, CHDEF+5, CHDEF+8
SUM 1+1~
U A+1, A+2, A+4, A+6, INI+2, LPRV+2, LPRV+3, LUTL+2, LUTL+4, LUTL+6
, 1+3, 1+7, 1+8, 1+14, CHDEF+2, TOTALS+2, SUM+1, NEWPG+6
>> X A+4, NEWPG+5, NEWPG+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All