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

Package: IHS Changes To ADT

Routine: ADGPCAC1


Information

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

Source Information

Source file <ADGPCAC1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Changes To ADT 2 $$HRCN^ADGF  ^ADGPCAC2  
VA Fileman 2 Y^DIQ  ^DIR  
DRG Grouper 1 $$ICDDX^ICDCODE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 ADGPCAC0  

Entry Points

Name Comments DBIA/ICR reference
A ; -- main
Q ; -- cleanup
DTS() ; -- discharge service
DDT() ; -- discharge date
ADT() ; -- admission date
1 ; -- admission
ATS() ; -- admitting service
COM() ; -- community
DOB() ; -- date of birth
ATY() ; -- admitting type
ADX() ; -- admitting dx
DTY() ; -- discharge type
TFC() ; -- transfer facility

External References

Name Field # of Occurrence
$$HRCN^ADGF 1+5
^ADGPCAC2 A+2
Y^DIQ TFC+1, ATY+1, DTY+1
^DIR Q+1
$$ICDDX^ICDCODE ADX+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!," NAME: ",$E($P(DN0,U),1,25)
  • Line Location: 1+4
Function Call: WRITE
  • Prompt: ?35,"HRCN: ",$$HRCN^ADGF,?58,"SSN: ",$P(DN0,U,9)
  • Line Location: 1+5
Function Call: WRITE
  • Prompt: !?36,"DOB: ",$$DOB,?52,"COMMUNITY: ",$$COM
  • Line Location: 1+6
Function Call: WRITE
  • Prompt: !!," (1) Admission Date: ",$$ADT,!?7,"Discharge Date: ",$$DDT
  • Line Location: 1+8
Function Call: WRITE
  • Prompt: !?4,"Admitting Service: ",$$ATS,?45,"Disch Service: ",$$DTS
  • Line Location: 1+9
Function Call: WRITE
  • Prompt: !?7,"Admission Type: ",$$ATY,?44,"Discharge Type: ",$$DTY
  • Line Location: 1+10
Function Call: WRITE
  • Prompt: !?6,"No. of Consults: ",$P(N,U,8),?27,"Adm Dx: ",$$ADX
  • Line Location: 1+11
Function Call: WRITE
  • Prompt: !
  • Line Location: Q+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: Q+1
Routine Call
  • DIR
  • Line Location:
    • Q+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] COM+1
^AUPNVINP - [#9000010.02] 1+2
^AUPNVINP("AD" 1+2
^AUPNVSIT - [#9000010] 1+3
^DD("DD" ADT+1, DDT+1
^DD(9000010.02 TFC+1, ATY+1, DTY+1
^DIC(45.7 - [#45.7] ATS+1, DTS+1
^DPT - [#2] 1+3

Label References

Name Line Occurrences
$$ADT 1+8
$$ADX 1+11
$$ATS 1+9
$$ATY 1+10
$$COM 1+6
$$DDT 1+8
$$DOB 1+6
$$DTS 1+9
$$DTY 1+10
$$TFC 1+12
1 A+1
Q A+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCDDATE 1+3*
C TFC+1~*, ATY+1~*, DTY+1~*
>> DFN 1+3, COM+1
>> DGVI 1+2, 1+3
DIR Q+1!
DIR(0 Q+1*
>> DIRUT A+1
DN0 1+1~, 1+3*, 1+4, 1+5, DOB+1
IFN 1+1~, 1+2*
IOF 1+4, Q+1
N 1+1~, 1+2*, 1+11, 1+12, DDT+1, ATS+1, DTS+1, TFC+1, ADX+2, ATY+1
, DTY+1
U 1+4, 1+5, 1+11, 1+12, DOB+1, COM+1, ATS+1, DTS+1, TFC+1, ADX+2
, ATY+1, DTY+1
VN0 1+1~, 1+3*, ADT+1
X Q+1!, DOB+1~*
Y ADT+1~*, DDT+1~*, TFC+1~*, ATY+1~*, DTY+1~*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All