Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ADGSRVP

Package: IHS Changes To ADT

Routine: ADGSRVP


Information

ADGSRVP ; IHS/ADC/PDW/ENM - HSA-202 PRINT ; [ 11/01/2000 1:00 PM ]

Source Information

Source file <ADGSRVP.m>

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 ADGSRVC  

Entry Points

Name Comments DBIA/ICR reference
A ; -- driver
P2
P1
TOT ; -- totals
WS ;I S=1 W:DGA(3,8) ?40,DGA(3,8)_"t" W:DGA(3,7) ?55,DGA(3,7)_"t"
LS
SRV ;;
HD
MON ;;JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: ?80-$L(X)/2,X,!,DGLINE,!,"Name and Location of Hospital"
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: ?64,"Month and Year",!!?5,$P($G(^DIC(4,+DUZ(2),0)),U)
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: " ",$P(X,U,13)_", "_$P($G(^DIC(5,+$P(X,U,14),0)),U)
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: ?64,$P($P($T(MON),";;",2)," ",X)_" "_Y,!,DGLINE
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !?80-$L(X)/2,X,!,DGLINE
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !?31,"Bom",?48,"Discharges",?64,"Eom",?70,"Inpatient"
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: !?1,"Medical Services Provided",?30,"Census",?40,"Adm"
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: ?48,"Death",?55,"Other",?63,"Census",?72,"Days",!,DGLINE,!
  • Line Location: P1+3
Function Call: WRITE
  • Prompt: !,$P($T(SRV+S),";;",2)
  • Line Location: WS+6
Function Call: WRITE
  • Prompt: ?32,$J(DGA(S,1),3),?40,$J(DGA(S,2),3),?48,$J(DGA(S,3),3)
  • Line Location: WS+7
Function Call: WRITE
  • Prompt: ?55,$J(DGA(S,4),3),?64,$J(DGA(S,5),3),?72,$J(DGA(S,6),4),!
  • Line Location: WS+8
Function Call: WRITE
  • Prompt: ?30,"-----",?38,"-----",?46,"-----",?53,"-----",?62,"-----"
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: ?70,"------"
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: !?10,"TOTAL",?32,$J(DGX(1),3),?40,$J(DGX(2),3),?48,$J(DGX(3),3)
  • Line Location: TOT+4
Function Call: WRITE
  • Prompt: ?55,$J(DGX(4),3),?64,$J(DGX(5),3),?72,$J(DGX(6),4),!,DGLINE
  • Line Location: TOT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: TOT+7
Function Call: WRITE
  • Prompt: ?40,DGA(4,7)_"t"
  • Condition for execution: DGA(4,7)
  • Line Location: TOT+7
Function Call: WRITE
  • Prompt: ?54,DGA(4,8)_"t"
  • Condition for execution: DGA(4,8)
  • Line Location: TOT+7
Function Call: WRITE
  • Prompt: !,"NEWBORN"
  • Line Location: TOT+8
Function Call: WRITE
  • Prompt: ?32,$J(DGA(4,1),3),?40,$J(DGA(4,2),3),?48,$J(DGA(4,3),3)
  • Line Location: TOT+9
Function Call: WRITE
  • Prompt: ?55,$J(DGA(4,4),3),?64,$J(DGA(4,5),3),?72,$J(DGA(4,6),4),!,DGLINE
  • Line Location: TOT+10
Function Call: WRITE
  • Prompt: !?26,"Part II - Special Information",!,DGLINE
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: !!,"Peak Census, Excluding Newborn................................."
  • Line Location: P2+1
Function Call: WRITE
  • Prompt: ?64,DGMAX
  • Line Location: P2+2
Function Call: WRITE
  • Prompt: !!,"Minimum Census, Excluding Newborn..............................."
  • Line Location: P2+3
Function Call: WRITE
  • Prompt: ?64,DGMIN
  • Line Location: P2+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTLOC - [#9999999.06] HD+3
^DIC(4 - [#4] HD+2
^DIC(5 - [#5] HD+6

Label References

Name Line Occurrences
HD A+1
LS A+1
MON HD+8
P1 A+1
P2 A+1
TOT LS+1
WS LS

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DGA( WS+5, WS+7, WS+8, TOT+3
>> DGA(4 TOT+7, TOT+9, TOT+10
>> DGLINE ADGSRVP+3*, HD+1, HD+8, P1, P1+3, TOT+5, TOT+10, P2
>> DGMAX P2+2
>> DGMIN P2+4
>> DGMON HD+7
>> DGX( TOT+2*, TOT+3*
>> DGX(1 TOT+4
>> DGX(2 TOT+4
>> DGX(3 TOT+4
>> DGX(4 TOT+5
>> DGX(5 TOT+5
>> DGX(6 TOT+5
DUZ(2 HD+2, HD+3
I LS~, TOT+2*, TOT+3*
IOF HD+1
J LS~, TOT+3*
S LS~*, WS+5, WS+7, WS+8
U HD+2, HD+6
X HD~*, HD+1, HD+3*, HD+6, HD+7*, HD+8, P1*
Y HD~, HD+7*, HD+8

Marked Items

Name Field # of Occurrence
$T(MON HD+8
$T(SRV+S WS+6
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All