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 |  All
Print Page as PDF
Routine: ADGINPL

Package: IHS Changes To ADT

Routine: ADGINPL


Information

ADGINPL ; IHS/ADC/PDW/ENM - PROVIDER-INPATIENT INQUIRY ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGINPL.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
IHS Changes To ADT 2 $$HRCN^ADGF  PRTOPT^ADGVAR  
IHS VA Utilities 1 ^XBCLS  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG IHS PROVIDER INQ  

Entry Points

Name Comments DBIA/ICR reference
A ; -- driver
LN ; -- patient information
SP ; -- select provider
HD ; -- heading
LP ; -- loop APR (provider) x-ref of va patient file

External References

Name Field # of Occurrence
$$HRCN^ADGF LN+1
PRTOPT^ADGVAR LP+5
^DIC SP+2
^XBCLS A+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"INPATIENT PROVIDER INQUIRY",!!
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !!," No inpatients currently assigned to this provider",!
  • Line Location: LP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LP+5
Function Call: WRITE
  • Prompt: !,$P(^DPT(DFN,0),U),?32,$$HRCN^ADGF,?45,$G(^DPT(DFN,.1))
  • Line Location: LN+1
Function Call: WRITE
  • Prompt: ?53,$G(^DPT(DFN,.101))
  • Line Location: LN+2
Function Call: WRITE
  • Prompt: ?63,$P(^DIC(45.7,+^(.103),0),U)
  • Line Location: LN+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !!,"CURRENT INPATIENTS FOR ",DGPVN,":",!
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?32,"CHART #",?45,"WARD",?53,"RM-BD",?63,"SERVICE"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !,"------------",?32,"-------",?45,"----",?53,"-----",?63,"-------"
  • Line Location: HD+3
Routine Call
  • DIC
  • Line Location:
    • SP+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(45.7 - [#45.7] LN+3
^DPT - [#2] LP+4, LN+1, LN+2, LN+3
^DPT("APR" LP+1, LP+3

Label References

Name Line Occurrences
A A+3
HD LP+3
LN LP+4
LP A+3
SP A+2

Naked Globals

Name Field # of Occurrence
^( LN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN ADGINPL+3~, LP+3*, LP+4, LN+1, LN+2, LN+3
DGPRDA ADGINPL+3~, SP+3*, LP+1, LP+3
DGPVN ADGINPL+3~, SP+3*, HD+1
DIC SP+1*, SP+2!
DIC("A" SP+2*
DIC("S" SP+1*
DIC(0 SP+1*
IOF HD+1
U SP+3, LN+1, LN+3
X ADGINPL+3~
Y ADGINPL+3~, A+2, SP+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All