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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ADGPM1

Package: IHS Changes To ADT

Routine: ADGPM1


Information

ADGPM1 ; IHS/ADC/PDW/ENM - VIEW ADMISSION HISTORY ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGPM1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Changes To ADT 2 $$HRCN^ADGF  PRTOPT^ADGVAR  
VA Fileman 2 ^DIC  EN^DIQ1  
Registration 1 INP^DGRPD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG IHS VIEW ADMISSIONS  

Entry Points

Name Comments DBIA/ICR reference
A ; -- main
TS() ; -- treating specialty
HD2 ; -- heading 2
HD1 ; -- heading 1
PR() ; -- provider
PRNT ; -- print admission data
SP ; -- patient
WD() ; -- ward
RM() ; -- room
ADT() ; -- admission date
Q ; -- cleanup
DS() ; -- discharge
DOB() ; -- date of birth
L1 ; -- loop admissions
CS ; -- current status
AGE() ; -- age

External References

Name Field # of Occurrence
$$HRCN^ADGF HD1+3
PRTOPT^ADGVAR Q+1
INP^DGRPD CS+1
^DIC SP+1
EN^DIQ1 AGE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ADGPM1+3
Function Call: WRITE
  • Prompt: !!?20,"VIEW A PATIENT'S ADMISSION HISTORY",!!
  • Line Location: ADGPM1+3
Function Call: WRITE
  • Prompt: @IOF,?11,"*****Confidential Patient Data Covered by Privacy Act*****"
  • Line Location: HD1+1
Function Call: WRITE
  • Prompt: !,$P(DGDPTN0,U),?32,"DOB: ",$$DOB
  • Line Location: HD1+2
Function Call: WRITE
  • Prompt: ?50,"Age: ",$$AGE,?60,"CHART #: ",$$HRCN^ADGF
  • Line Location: HD1+3
Function Call: WRITE
  • Prompt: !!?80-$L(X)/2,X
  • Line Location: HD1+4
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HD1+4
Function Call: WRITE
  • Prompt: !!?80-$L(X)/2,X,!
  • Line Location: HD2+1
Function Call: WRITE
  • Prompt: X
  • Line Location: HD2+1
Function Call: WRITE
  • Prompt: !!?8,"Admit Date",?25,"Ward",?32,"Service",?43,"Rm/Bed"
  • Line Location: HD2+2
Function Call: WRITE
  • Prompt: ?51,"Discharge",?66,"Provider"
  • Line Location: HD2+3
Function Call: WRITE
  • Prompt: !?3,"-----------------",?24,"------",?31,"---------",?43,"------"
  • Line Location: HD2+4
Function Call: WRITE
  • Prompt: ?51,"-----------",?64,"--------------"
  • Line Location: HD2+5
Function Call: WRITE
  • Prompt: !
  • Line Location: L1+6
Function Call: WRITE
  • Prompt: !,"(",X,") ",$$ADT,?24,$$WD,?31,$$TS,?44,$$RM
  • Line Location: PRNT+2
Function Call: WRITE
  • Prompt: ?52,$$DS,?65,$$PR
  • Line Location: PRNT+3
Routine Call
  • DIC
  • Line Location:
    • SP+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DOB+1
^DG(405.4 - [#405.4] RM+1
^DGPM - [#405] PRNT+1, TS+2, PR+2, DS+1
^DGPM("APHY" TS+1, PR+1
^DGPM("APTT1" L1+2, L1+4
^DIC(42 - [#42] WD+1
^DIC(45.7 - [#45.7] TS+2
^UTILITY("DIQ1" AGE+1!, AGE+2!
^VA(200 - [#200] PR+3

Label References

Name Line Occurrences
$$ADT PRNT+2
$$AGE HD1+3
$$DOB HD1+2
$$DS PRNT+3
$$PR PRNT+3
$$RM PRNT+2
$$TS PRNT+2
$$WD PRNT+2
CS A+2
HD1 A+2
HD2 A+2
L1 A+2
PRNT L1+5
Q A+1, A+2
SP A+1

Naked Globals

Name Field # of Occurrence
^(0 PRNT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA Q+2!, AGE+1*
DFN SP+2*, L1+2, L1+4, Q+2!, AGE+1, AGE+2
DGDPTN0 SP+2*, HD1+2, Q+2!, DOB+1
DGDT L1+1*, L1+2*, L1+4, Q+2!
DGPMDA L1+3*, L1+4*, PRNT+1, Q+2!, TS+1, PR+1
DGPMN0 PRNT+1*, Q+2!, WD+1, RM+1, DS+1, ADT+1
DIC SP+1*, Q+2!, AGE+1*
DIC(0 SP+1*
DR Q+2!, AGE+1*
E Q+2!
IOF ADGPM1+3, HD1+1
U HD1+2, WD+1, RM+1, TS+2, PR+2, PR+3, DS+1, DOB+1
X HD1+4*, HD2+1*, L1+1~*, PRNT+1*, PRNT+2, Q+2!, TS+1~*, TS+2*, PR+1~*, PR+2*
, PR+3, DS+1~*, DS+2, ADT+1~*, ADT+2, ADT+3, AGE+1~, AGE+2*
Y A+1, SP+1, SP+2, Q+2!, DOB+1~*, ADT+2*, ADT+3
Y(0 SP+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All