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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ADGOASP

Package: IHS Changes To ADT

Routine: ADGOASP


Information

ADGOASP ; IHS/ADC/PDW/ENM - PRINT OUTSTANDING A SHEETS LIST ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGOASP.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 ADGOASC  

Entry Points

Name Comments DBIA/ICR reference
END1
HEAD ;***> subrtn to print heading
END ;***> eoj
HEAD1
ERR ;***> list any errors found
LIST ;***> list outstanding A Sheets
TOTALS ;***> print totals
A1
L2
MON ;;JAN;;FEB;;MAR;;APR;;MAY;;JUN;;JUL;;AUG;;SEP;;OCT;;NOV;;DEC
L1
NEWPG ;***> subrtn for end of page control
ERR2
ERR1

External References

Name Field # of Occurrence
^%ZISC END1
$$INS^ADGMREC L2+7
KILL^ADGUTIL END1
TIME^ADGUTIL HEAD+6
PRTOPT^ADGVAR END+1
^DIR NEWPG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?30,"NO DISCHARGES RECORDED",!!
  • Line Location: ADGOASP+9
Function Call: WRITE
  • Prompt: !,$P($T(MON),";;",+$E(DGDT,4,5)+1)_" "_($E(DGDT,1,3)+1700)
  • Line Location: A1+1
Function Call: WRITE
  • Prompt: ?16,$J(^TMP("DGZOAS",$J,"CT",DGDT),4)
  • Line Location: A1+2
Function Call: WRITE
  • Prompt: ?29,$J(^(DGDT),4)
  • Line Location: A1+3
Function Call: WRITE
  • Prompt: ?42,$J(^(DGDT),4)
  • Line Location: A1+4
Function Call: WRITE
  • Prompt: ?55,$J(^(DGDT),4)
  • Line Location: A1+5
Function Call: WRITE
  • Prompt: ?68,$J(^(DGDT),4)
  • Line Location: A1+6
Function Call: WRITE
  • Prompt: !,DGLIN
  • Line Location: TOTALS+2
Function Call: WRITE
  • Prompt: !?16,$J(DGCTT,4),?29,$J(DGCCTT,4),?42,$J(DGCOTT,4)
  • Line Location: TOTALS+3
Function Call: WRITE
  • Prompt: ?55,$J(DGCTEX,4),?68,$J(DGERRT,4)
  • Line Location: TOTALS+4
Function Call: WRITE
  • Prompt: !,DGLIN1,!
  • Line Location: TOTALS+5
Function Call: WRITE
  • Prompt: !!?20,"*** UNCODED CLINICAL RECORD BRIEFS ***",!
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !,$E(DGDT,4,5)_"/"_$E(DGDT,6,7)_"/"_$E(DGDT,2,3)
  • Line Location: L2+4
Function Call: WRITE
  • Prompt: ?12,$E($P(^DPT(DFN,0),U),1,20)
  • Line Location: L2+5
Function Call: WRITE
  • Prompt: ?35,$J(DGCHT,6),?48,$E($P(^DIC(45.7,DGSRV,0),U),1,3)
  • Line Location: L2+6
Function Call: WRITE
  • Prompt: ?57,$$INS^ADGMREC(DFN)
  • Line Location: L2+7
Function Call: WRITE
  • Prompt: !!?33,"*** ERRORS ***",!
  • Line Location: ERR+3
Function Call: WRITE
  • Prompt: !,$E(DGDT,4,5)_"/"_$E(DGDT,6,7)_"/"_$E(DGDT,2,3)
  • Line Location: ERR2+1
Function Call: WRITE
  • Prompt: ?20,$E($P(^DPT(DFN,0),U),1,20)
  • Line Location: ERR2+2
Function Call: WRITE
  • Prompt: ?45,$J($P(^AUPNPAT(DFN,41,DUZ(2),0),U,2),6)
  • Line Location: ERR2+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END1+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,DGLIN1
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !?11,"*****Confidential Patient Data Covered by Privacy Act*****"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,DGDUZ,?80-$L(DGFAC)/2,DGFAC
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: ?80-$L(DGTY)/2,DGTY,?70,"Page: ",DGPAGE
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: ?80-$L(DGRANGE)/2,DGRANGE
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !,DGLIN1
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !,DGLIN,!
  • Line Location: HEAD1+3
Routine Call
  • DIR
  • Line Location:
    • NEWPG+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] L2+3, ERR2+3
^DD("DD" HEAD+7
^DIC(4 - [#4] ADGOASP+5
^DIC(45.7 - [#45.7] L2+6
^DPT - [#2] L2+5, ERR2+2
^TMP("DGZOAS" ADGOASP+9, A1, A1+2, A1+3, A1+4, A1+5, A1+6, LIST+1, L1, L2
, L2+2, ERR+1, ERR1, ERR2, END1+1!
^VA(200 - [#200] ADGOASP+5

Label References

Name Line Occurrences
A1 A1+8
END ADGOASP+9, ERR+1, ERR1
END1 A1+7, LIST+2, L2+8, ERR2+4
ERR LIST+1, L1
ERR1 ERR2
ERR2 ERR2+5
HEAD ADGOASP+7, NEWPG+1, NEWPG+3
HEAD1 LIST+3, ERR+3
L1 LIST+2, L2
L2 L2+9
LIST TOTALS+1
MON A1+1
NEWPG A1+7, LIST+2, L2+8, ERR2+4
TOTALS A1

Naked Globals

Name Field # of Occurrence
^( A1+2, A1+3, A1+4, A1+5, A1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN L1*, L2*, L2+2, L2+3, L2+5, L2+7, ERR1*, ERR2*, ERR2+2, ERR2+3
>> DGCCT ADGOASP+8*
>> DGCCTT ADGOASP+8*, A1+3*, TOTALS+3
>> DGCHT L2+3*, L2+6
>> DGCOT ADGOASP+8*
>> DGCOTT ADGOASP+8*, A1+4*, TOTALS+3
>> DGCT ADGOASP+8*
>> DGCTEX ADGOASP+8*, A1+5*, TOTALS+4
>> DGCTT ADGOASP+8*, A1+2*, TOTALS+3
>> DGDT ADGOASP+12*, A1*, A1+1, A1+2, A1+3, A1+4, A1+5, A1+6, LIST+2*, L1*
, L2, L2+2, L2+4, ERR+2*, ERR1*, ERR2, ERR2+1
>> DGDUZ ADGOASP+5*, HEAD+4
>> DGERR ADGOASP+8*
>> DGERRT ADGOASP+8*, A1+6*, TOTALS+4
>> DGFAC ADGOASP+5*, HEAD+4
>> DGLIN ADGOASP+6*, TOTALS+2, HEAD1+3
>> DGLIN1 ADGOASP+6*, TOTALS+5, HEAD+2, HEAD+9
>> DGMON TOTALS+1
>> DGMON2 TOTALS+1
>> DGPAGE ADGOASP+4*, HEAD+1, HEAD+2*, HEAD+6
>> DGRANGE HEAD+8
>> DGSRV L2+2*, L2+6
>> DGSTOP ADGOASP+4*, A1+7, LIST+2, L2+8, ERR2+4, NEWPG+1*, NEWPG+2*, NEWPG+3
>> DGSUB ADGOASP+4*, LIST+2*, ERR+2*, HEAD1, HEAD1+1, HEAD1+2
>> DGTY HEAD+5*, HEAD+6
DIR NEWPG+2!
DIR(0 NEWPG+2*
DT HEAD+7
DUZ ADGOASP+5
DUZ(2 ADGOASP+5, L2+3, ERR2+3
IOF END1, HEAD+1
IOSL A1+7, LIST+2, L2+8, ERR2+4
IOST END+1, NEWPG+1, HEAD+1
U ADGOASP+5, A1+7, LIST+2, L2+3, L2+5, L2+6, L2+8, ERR2+2, ERR2+3, ERR2+4
, NEWPG+3
>> X NEWPG+2
>> Y HEAD+7*

Marked Items

Name Field # of Occurrence
$T(MON A1+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All