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

Package: IHS Changes To ADT

Routine: ADGIP1


Information

ADGIP1 ; IHS/ADC/PDW/ENM - PRINT INPATIENT LIST ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGIP1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Changes To ADT 2 KILL^ADGUTIL  PRTOPT^ADGVAR  
VA Fileman 2 ^%DT  ^DIR  
Kernel 1 ^%ZISC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 ADGIP0  

Entry Points

Name Comments DBIA/ICR reference
A1
END1
A2
END ;***> eoj
NEWPG ;***> subrtn for end of page control

External References

Name Field # of Occurrence
^%DT ADGIP1+7
^%ZISC END1+2
KILL^ADGUTIL END1
PRTOPT^ADGVAR END+1
^DIR NEWPG+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ADGIP1+5
Function Call: WRITE
  • Prompt: ?26,"*****Confidential Patient Data Covered by Privacy Act*****",!
  • Line Location: ADGIP1+6
Function Call: WRITE
  • Prompt: ?DGZRM-$L(DGTL)/2,DGTL," ("_DGCNT_" patients in house)",!!
  • Line Location: ADGIP1+10
Function Call: WRITE
  • Prompt: ?2,"NAME",?31,"AGE",?37,"WARD SRVC",?47,"COMMUNITY",?61,"HRCN"
  • Line Location: ADGIP1+11
Function Call: WRITE
  • Prompt: ?71,"ADMDATE",?82,"MEDICAID",?97,"MEDICARE",!
  • Line Location: ADGIP1+12
Function Call: WRITE
  • Prompt: !?2,$E(DGNM,1,26),?30,$P(DGSTR,U,2),?37,$P(DGSTR,U,3)
  • Line Location: A2+7
Function Call: WRITE
  • Prompt: ?42,$E(DGSV,1,3),?47,$E($P(DGSTR,U,5),1,12),?61,DGHRCN
  • Line Location: A2+8
Function Call: WRITE
  • Prompt: ?71,DGDT,?82,$P(DGSTR,U,8),?97,$P(DGSTR,U,7)
  • Line Location: A2+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END1+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEWPG+2
Routine Call
  • DIR
  • Line Location:
    • NEWPG+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" ADGIP1+4, END1+1
^AUTTLOC - [#9999999.06] ADGIP1+9
^DD("DD" ADGIP1+7
^DIC(45.7 - [#45.7] A2+5
^TMP("DGZINP" ADGIP1+15, A1, A2, A2+3, END1!

Label References

Name Line Occurrences
A1 A2
A2 A2+11
END ADGIP1+15, A1
END1 A2+10
NEWPG A2+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT ADGIP1+7*
>> DFN A1*, A2*, A2+3
>> DGCNT ADGIP1+10
>> DGDATE ADGIP1+8*, ADGIP1+9
>> DGDT A2+4*, A2+9
>> DGHRCN A2+6*, A2+8
>> DGNM ADGIP1+15*, A1*, A2, A2+3, A2+7
>> DGSTOP ADGIP1+5*, A2+10, NEWPG+1*
>> DGSTR A2+3*, A2+4, A2+5, A2+6, A2+7, A2+8, A2+9
>> DGSV A2+5*, A2+8
>> DGTL ADGIP1+9*, ADGIP1+10
>> DGX A2+4*, A2+5*
>> DGZRM ADGIP1+4*, ADGIP1+10
DIR NEWPG+1!
DIR(0 NEWPG+1*
DUZ(2 ADGIP1+9
IO ADGIP1+4
IOF ADGIP1+5, END1, NEWPG+2
IOM END1+1
IOSL A2+10
IOST ADGIP1+5, END+1, NEWPG+1
U ADGIP1+9, A2+4, A2+5, A2+6, A2+7, A2+8, A2+9, A2+10, NEWPG+1
>> X ADGIP1+4*, ADGIP1+7*, END1+1*, NEWPG+1
>> Y ADGIP1+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All