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

Package: IHS Changes To ADT

Routine: ADGICUT


Information

ADGICUT ; IHS/ADC/PDW/ENM - PRINT TRANSFERS TO ICU ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGICUT.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
IHS Changes To ADT 2 (KILL,TIME)^ADGUTIL  PRTOPT^ADGVAR  
VA Fileman 2 ^%DT  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG IHS QA ICU  

Entry Points

Name Comments DBIA/ICR reference
END1 ;***> eoj
DATES
BDATE
END
HDR ;***> subrtn to print heading
NOICU ;***> subrtn called if facility doesn't have an ICU
INIT ;***> initialize variables
2
QUE
NEWPG ;***> subrtn for end of page control
EDATE
ICU

External References

Name Field # of Occurrence
^%DT BDATE, EDATE
^%ZIS EDATE+4
HOME^%ZIS END
^%ZISC QUE+2, END1+2
^%ZTLOAD QUE+2
KILL^ADGUTIL END1+2
TIME^ADGUTIL HDR+5
PRTOPT^ADGVAR END1+1
^DIR NEWPG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!?20,"TRANSFERS TO ICU REPORT",!!
  • Line Location: ADGICUT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END1+2
Function Call: WRITE
  • Prompt: !!,$E($P(^DPT(DFN,0),U),1,18)
  • Line Location: 2+6
Function Call: WRITE
  • Prompt: ?20,$J($P(^AUPNPAT(DFN,41,DUZ(2),0),U,2),6)
  • Line Location: 2+7
Function Call: WRITE
  • Prompt: ?30,$E(DGAD,4,5)_"/"_$E(DGAD,6,7)_"/"_$E(DGAD,2,3)_"@"_$E(DGTM,1,4)
  • Line Location: 2+10
Function Call: WRITE
  • Prompt: ?45,$E(DGTD,4,5)_"/"_$E(DGTD,6,7)_"/"_$E(DGTD,2,3)_"@"_$E(DGTM,1,4)
  • Line Location: 2+12
Function Call: WRITE
  • Prompt: ?61,$E($P(DGY,U,10),1,15)
  • Line Location: 2+13
Function Call: WRITE
  • Prompt: !!,"***** THERE IS NO ICU WARD SET UP ON YOUR SYSTEM ****",!!!
  • Line Location: NOICU+1
Function Call: WRITE
  • Prompt: !,DGLINE
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?11,"*****Confidential Patient Data Covered by Privacy Act*****"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,DGDUZ,?80-$L(DGFAC)/2,DGFAC
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?80-$L(DGTY)/2,DGTY,?70,"Page: ",DGPAGE
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,Y,!,DGLINE
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"Patient",?21,"Chart #",?32,"Admit Date",?45,"Transfer Date"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?60,"Admitting Diagnosis",!,DGLIN1,!
  • Line Location: HDR+8
Routine Call
  • %ZIS
  • Line Location:
    • END
Routine Call
  • DIR
  • Line Location:
    • NEWPG+2
Routine Call
  • %ZIS
  • Line Location:
    • EDATE+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] 2+7
^DD("DD" HDR+6
^DGPM - [#405] 2, 2+3, 2+8
^DGPM("AMV2" DATES+3, DATES+5, DATES+7
^DIC(4 - [#4] INIT+1
^DIC(42 - [#42] ICU, ICU+1, ICU+4
^DPT - [#2] 2+6
^VA(200 - [#200] INIT+1

Label References

Name Line Occurrences
2 DATES+7
DATES ICU
END BDATE+1, EDATE+1, EDATE+4
END1 NOICU+2
HDR DATES, NEWPG+1, NEWPG+2
ICU ICU+1, ICU+4, ICU+5
INIT EDATE+4
NEWPG 2+14
NOICU DATES
QUE EDATE+4

Naked Globals

Name Field # of Occurrence
^("I" ICU+1
^(0 2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT BDATE*, EDATE*
>> %DT("A" BDATE*, EDATE*
>> %ZIS EDATE+4*
>> DFN DATES+4*, DATES+5*, DATES+7, 2+6, 2+7
>> DGAD 2+9*, 2+10
>> DGADM 2+3*, 2+8
DGBDT BDATE+1*, END!, DATES+2
>> DGDT DATES+2*, DATES+3*, DATES+5, DATES+7, 2+11
>> DGDUZ INIT+1*, HDR+4
DGEDT EDATE+1*, END!, DATES+3
>> DGFAC INIT+1*, HDR+4
DGICU INIT+6!, DATES
DGICU( ICU+5*, 2+2
>> DGLIN1 INIT+2*, HDR+8
>> DGLINE INIT+2*, HDR+2, HDR+6
>> DGPAGE INIT+1*, HDR+1, HDR+2*, HDR+5
>> DGSTOP INIT+3*, DATES+4, DATES+5, DATES+7, NEWPG+1*, NEWPG+2*
>> DGTD 2+11*, 2+12
>> DGTM 2+9*, 2+10, 2+11*, 2+12
>> DGTR DATES+6*, DATES+7*, 2, 2+3
>> DGTY HDR+4*, HDR+5
>> DGX INIT+6*, ICU*, ICU+1, ICU+4, ICU+5, 2*, 2+1, 2+2
>> DGY 2+8*, 2+9, 2+13
DIR NEWPG+2!
DIR(0 NEWPG+2*
DT HDR+6
DUZ INIT+1
DUZ(2 INIT+1, 2+7
IO EDATE+4
IO("Q" EDATE+4, QUE!
IOF ADGICUT+3, END1+2, HDR+1
IOSL 2+14
IOST END1+1, NEWPG+1, HDR+1
>> POP EDATE+4
U INIT+1, ICU+4, DATES+4, DATES+5, DATES+7, 2+1, 2+2, 2+3, 2+6, 2+7
, 2+9, 2+13, NEWPG+2
>> X BDATE*, EDATE*, NEWPG+2
Y BDATE+1, EDATE+1, END!, HDR+6*
>> ZTDESC QUE*
>> ZTRTN QUE*
>> ZTSAVE("DGBDT" QUE+1*
>> ZTSAVE("DGEDT" QUE+1*
ZTSK QUE+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All