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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ADGSRVP1

Package: IHS Changes To ADT

Routine: ADGSRVP1


Information

ADGSRVP1 ; IHS/ADC/PDW/ENM - HSA-202 PRINT ; [ 08/05/1999 8:51 AM ]

Source Information

Source file <ADGSRVP1.m>

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 ADGSRVC  

Entry Points

Name Comments DBIA/ICR reference
P3
OC() ; -- % of occupancy
OT() ; -- occup, tb
LOS4() ; -- alos, ped
OO() ; -- occup, ob
PCU() ; -- pcu patient days
OA() ; -- occup, adult
ND() ; -- # days in month
OL() ; -- occup, al
OI() ; -- occup, icu
ON() ; -- occup, nb
OU() ; -- occup, pcu
OP() ; -- occup, ped
ICU() ; -- icu patient days
LOS2() ; -- alos, ped
OM() ; -- occup, mh
LOS1() ; -- alos, adult
TOT() ; -- total # of beds ('nb)
DAY ;;31 28 31 30 31 30 31 31 30 31 30 31

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,DGLINE,!?16,"Part III",!?13,"Beds Available"
  • Line Location: P3+0
Function Call: WRITE
  • Prompt: ?50,"Comments",!,LN,!,"STAFF UNITS",?21,"# of Beds",?32,"% Occup."
  • Line Location: P3+1
Function Call: WRITE
  • Prompt: ?45,"ALOS: ",?60,"ADULT: ",$J($$LOS1(),1,2)
  • Line Location: P3+3
Function Call: WRITE
  • Prompt: !,LN,?56,"PEDIATRIC: ",$J($$LOS2(),1,2)
  • Line Location: P3+4
Function Call: WRITE
  • Prompt: !?58,"NEWBORN: ",$J($$LOS4(),1,2)
  • Line Location: P3+5
Function Call: WRITE
  • Prompt: !,"MEDICAL (Adult)",?28,DGBED("AM")
  • Line Location: P3+6
Function Call: WRITE
  • Prompt: !,"SURGICAL (Adult)",?28,DGBED("AS"),?27,"_____"
  • Line Location: P3+7
Function Call: WRITE
  • Prompt: ?45,"ADPL:",?60,"ADULT: ",$J(DGA(1,6)+DGA(3,6)/ND,1,2)
  • Line Location: P3+8
Function Call: WRITE
  • Prompt: !?15,"Subtotal",?28,DGBED("AM")+DGBED("AS"),?35,$$OA
  • Line Location: P3+9
Function Call: WRITE
  • Prompt: ?56,"PEDIATRIC: ",$J(DGA(2,6)/ND,1,2)
  • Line Location: P3+10
Function Call: WRITE
  • Prompt: !?58,"NEWBORN: ",$J(DGA(4,6)/ND,1,2)
  • Line Location: P3+11
Function Call: WRITE
  • Prompt: !,"MEDICAL (Pediatric)",?28,DGBED("PM")
  • Line Location: P3+12
Function Call: WRITE
  • Prompt: !,"SURGICAL (Pediatric)",?28,DGBED("PS"),?27,"_____"
  • Line Location: P3+13
Function Call: WRITE
  • Prompt: ?45,"1 DAY PATIENTS ADULT: ",DGA(1,10)
  • Line Location: P3+14
Function Call: WRITE
  • Prompt: !?15,"Subtotal",?28,DGBED("PM")+DGBED("PS"),?35,$$OP
  • Line Location: P3+15
Function Call: WRITE
  • Prompt: ?56,"PEDIATRIC: ",DGA(2,10),!?58,"NEWBORN: ",DGA(4,10)
  • Line Location: P3+16
Function Call: WRITE
  • Prompt: !,"OBSTETRIC",?28,DGBED("O"),?35,$$OO
  • Line Location: P3+17
Function Call: WRITE
  • Prompt: !,"TUBERCULOSIS",?28,DGBED("T"),?35,$$OT
  • Line Location: P3+18
Function Call: WRITE
  • Prompt: ?45,"ICU/SCU PATIENT DAYS: ",$$ICU
  • Line Location: P3+19
Function Call: WRITE
  • Prompt: !,"ALCOHOL/SUBSTANCE ABUSE",?28,DGBED("AL"),?35,$$OL
  • Line Location: P3+20
Function Call: WRITE
  • Prompt: ?49,"PCU PATIENT DAYS: ",$$PCU
  • Line Location: P3+21
Function Call: WRITE
  • Prompt: !,"MENTAL HEALTH",?28,DGBED("MH"),?35,$$OM
  • Line Location: P3+22
Function Call: WRITE
  • Prompt: !,"ICU/SCU",?28,DGBED("I"),?35,$$OI
  • Line Location: P3+23
Function Call: WRITE
  • Prompt: !,"PCU",?28,DGBED("P"),?35,$$OU
  • Line Location: P3+24
Function Call: WRITE
  • Prompt: ?48,"NON-BENEFICIARIES: ",!?27,"_____",?53,"# Discharged: ",DGCNT
  • Line Location: P3+25
Function Call: WRITE
  • Prompt: !?18,"Total",?28,$$TOT,?48,"With total LOS of ",DGLOS," days"
  • Line Location: P3+26
Function Call: WRITE
  • Prompt: !!,"NEWBORN",?28,DGBED("N"),?35,$$ON
  • Line Location: P3+27
Function Call: WRITE
  • Prompt: ?51,"% OF OCCUPANCY: ",$$OC,!,DGLINE
  • Line Location: P3+28
Function Call: WRITE
  • Prompt: !,"Name of SUD",?35,"Signature Of SUD",?65,"Date"
  • Line Location: P3+29

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADGWD - [#9009011] ICU+5, ICU+6, PCU+5, PCU+6
^DIC(42 - [#42] ICU+2, ICU+3, PCU+2, PCU+3

Label References

Name Line Occurrences
$$ICU P3+19, OI+1
$$LOS1 P3+3
$$LOS2 P3+4
$$LOS4 P3+5
$$ND ADGSRVP1+3
$$OA P3+9
$$OC P3+28
$$OI P3+23
$$OL P3+20
$$OM P3+22
$$ON P3+27
$$OO P3+17
$$OP P3+15
$$OT P3+18
$$OU P3+24
$$PCU P3+21, OU+1
$$TOT P3+26, OC+1
DAY ND+1

Naked Globals

Name Field # of Occurrence
^(0 ICU+6, PCU+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D ICU+1~, ICU+4*, ICU+5*, ICU+6, PCU+1~, PCU+4*, PCU+5*, PCU+6
>> DGA(1 P3+8, P3+14, OA+2, LOS1+3
>> DGA(2 P3+10, P3+16, OP+2, LOS2+3
>> DGA(3 P3+8, OO+1, LOS1+3
>> DGA(4 P3+11, P3+16, ON+1, LOS4+3
>> DGA(5 OT+1
>> DGA(6 OL+1
>> DGA(7 OM+1
>> DGBED("AL" P3+20, OL+1, TOT+1
>> DGBED("AM" P3+6, P3+9, OA+1, OA+2, TOT+1
>> DGBED("AS" P3+7, P3+9, OA+1, OA+2, TOT+1
>> DGBED("I" P3+23, OI+1, TOT+1
>> DGBED("MH" P3+22, OM+1, TOT+1
>> DGBED("N" P3+27, ON+1
>> DGBED("O" P3+17, OO+1, TOT+1
>> DGBED("P" P3+24, OU+1, TOT+1
>> DGBED("PM" P3+12, P3+15, OP+1, OP+2, TOT+1
>> DGBED("PS" P3+13, P3+15, OP+1, OP+2, TOT+1
>> DGBED("T" P3+18, OT+1, TOT+1
>> DGCNT P3+25
>> DGLINE P3, P3+28
>> DGLOS P3+26
>> DGMON ND+1, ND+2, ICU+4, PCU+4
>> DGX(6 OC+1
E ICU+1~, ICU+4*, ICU+5, PCU+1~, PCU+4*, PCU+5
LN ADGSRVP1+3~*, P3+1, P3+4
ND ADGSRVP1+3~*, P3+8, P3+10, P3+11, OA+2, OP+2, OO+1, OT+1, OL+1, OM+1
, OI+1, OU+1, ON+1, OC+1
T ICU+1~, ICU+2*, ICU+6*, ICU+7, PCU+1~, PCU+2*, PCU+6*, PCU+7
U ICU+3, ICU+6, PCU+3, PCU+6
X ND+1~*, ND+2, OC+1~*, ICU+1~, ICU+2*, ICU+3, ICU+5, ICU+6, PCU+1~, PCU+2*
, PCU+3, PCU+5, PCU+6

Marked Items

Name Field # of Occurrence
$T(DAY ND+1
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All