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

Package: IHS Changes To ADT

Routine: ADGPCAC3


Information

ADGPCAC3 ; IHS/ADC/PDW/ENM - ADT/PCC DATA ENTRY-PROCEDURE ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGPCAC3.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 Y^DIQ  ^DIR  
DRG Grouper 1 ($$ICDDX,$$ICDOP)^ICDCODE  
IHS Changes To ADT 1 ^ADGPCAC4  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 ADGPCAC2  

Entry Points

Name Comments DBIA/ICR reference
A ; -- driver
INF() ; -- infection
DT() ; -- date
Q ; -- cleanup
DX() ; -- diagnosis
3 ; -- display procedure/operation info
L3 ; -- loop v procedure
PP() ; -- principle proc
PRC() ; -- procedure
OPP() ; -- operating provider
ASA() ; -- ASA-PS class
NAR() ; -- narrative

External References

Name Field # of Occurrence
^ADGPCAC4 A+2
Y^DIQ PP+1, INF+1, OPP+1, ASA+1
^DIR 3+8, Q+1
$$ICDDX^ICDCODE DX+2
$$ICDOP^ICDCODE PRC+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF," (3) Procedure"
  • Line Location: L3+3
Function Call: WRITE
  • Prompt: !!?12,"Procedure: ",$$PRC,!?12,"Narrative: ",$$NAR
  • Line Location: 3+2
Function Call: WRITE
  • Prompt: !?12,"Diagnosis: ",$$DX,?54,"Date: ",$$DT
  • Line Location: 3+3
Function Call: WRITE
  • Prompt: !?6,"Principle Proc.? ",$$PP,?49,"Infection? ",$$INF
  • Line Location: 3+4
Function Call: WRITE
  • Prompt: !?3,"Operating Provider: ",$$OPP
  • Line Location: 3+5
Function Call: WRITE
  • Prompt: !?4,"Anesthesia Admin?: YES",?45,"ASA-PS Class: ",$$ASA
  • Line Location: 3+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: 3+8
Function Call: WRITE
  • Prompt: !
  • Line Location: Q+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: Q+1
Routine Call
  • DIR
  • Line Location:
    • 3+8
    • Q+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVPRC - [#9000010.08] 3+1
^AUPNVPRC("AD" L3+2, L3+4
^AUTNPOV - [#9999999.27] NAR+1
^DD(9000010.08 PP+1, INF+1, OPP+1, ASA+1
^ICD0 - [#80.1] PRC+2

Label References

Name Line Occurrences
$$ASA 3+6
$$DT 3+3
$$DX 3+3
$$INF 3+4
$$NAR 3+2
$$OPP 3+5
$$PP 3+4
$$PRC 3+2
3 L3+4
L3 A+1
Q L3+5

Naked Globals

Name Field # of Occurrence
^(0 3+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C PP+1*, INF+1*, OPP+1*, ASA+1*
>> DGVI L3+2, L3+4
DIR 3+8!, Q+1!
DIR(0 3+8*, Q+1*
>> DIRUT A+1, L3+4, L3+5
IFN L3+1~, L3+4*, 3+1
IOF L3+3, 3+8, Q+1
IOSL 3+8
N L3+1~, 3+1*, 3+6, PRC+2, NAR+1, DX+2, DT+1, PP+1, INF+1, OPP+1
, ASA+1
U 3+6, PRC+2, NAR+1, DX+2, DT+1, PP+1, INF+1, OPP+1, ASA+1
X 3+8!, Q+1!, DT+1~*
Y PP+1~*, INF+1~*, OPP+1~*, ASA+1~*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All