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

Package: IHS Changes To ADT

Routine: ADGDSAU1


Information

ADGDSAU1 ; IHS/ADC/PDW/ENM - DAY SURGERY AUDIT REPORT PRINT ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGDSAU1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 DD^%DT  ^DIR  
IHS Changes To ADT 1 (KILL,TIME)^ADGUTIL  
Kernel 1 ^%ZISC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 ADGDSAU  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;***> subrtn to print heading
END ;***> eoj
A3A
TOTALS
A1
NEWPG ;***> subrtn for end of page control
A3
A2
A4
PRINT ;***> print line

External References

Name Field # of Occurrence
DD^%DT ADGDSAU1+9, HEAD+6
^%ZISC END+2
KILL^ADGUTIL END+2
TIME^ADGUTIL HEAD+5
^DIR TOTALS+9, NEWPG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E(DGDT,4,5)_"/"_$E(DGDT,6,7)_"/"_$E(DGDT,2,3),?11,$E(DGNM,1,20)
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: ?34,DGCHT,?41,AGE,?46,$E(DGSRV,1,3),?52,$E(DGPRC,1,20)
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?75,$J(DGLOS,5),?82,$J(DGOBS,5),?91,DGUNES
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?97,$S(+DGADM=DGADM:"Y",1:DGADM)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?114,"C"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?114,"N"
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?120,DGCMT
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !!,DGLIN1,!?5,"TOTAL PATIENTS: ",DGCNT
  • Line Location: TOTALS+0
Function Call: WRITE
  • Prompt: !!?65,"TOTAL SENT TO OBS",?85,DGOCNT
  • Line Location: TOTALS+1
Function Call: WRITE
  • Prompt: !?65,"TOTAL UNESCORTED",?90,DGACNT
  • Line Location: TOTALS+2
Function Call: WRITE
  • Prompt: !?65,"TOTAL ADMITTED FROM DS",?99,DGADCNT
  • Line Location: TOTALS+3
Function Call: WRITE
  • Prompt: !?65,"TOTAL ADMITTED W/IN WEEK",?106,DGWCNT
  • Line Location: TOTALS+4
Function Call: WRITE
  • Prompt: !?65,"TOTAL CANCELLED",?114,DGCCNT
  • Line Location: TOTALS+5
Function Call: WRITE
  • Prompt: !?65,"TOTAL NO-SHOWS",?114,DGNCNT
  • Line Location: TOTALS+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?37,"*****Confidential Patient Data Covered by Privacy Act*****",!
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: DGDUZ,?132-$L(DGFAC)\2,DGFAC,?125,"Page ",DGPAGE
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: ?52,"DAY SURGERY AUDIT REPORT"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,Y,?48,DGDTLIN
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !!?98,"ADMITTED",?112,"CANCEL"
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,"SURGERY",?77,"LOS",?83,"OBSV",?96,"FROM",?104,"W/IN"
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: ?113,"OR",?120,"POST-OP",!,"DATE",?11,"PATIENT",?34,"HRCN"
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: ?41,"AGE",?47,"SRV",?52,"PROCEDURE",?77,"HRS",?83,"LOS"
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: ?89,"UNESC",?97,"DS",?104,"WEEK",?112,"NOSHOW",?120,"COMMENTS"
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !,DGLIN,!!
  • Line Location: HEAD+12
Routine Call
  • DIR
  • Line Location:
    • TOTALS+9
    • NEWPG+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" ADGDSAU1+11, END+1
^DIC(4 - [#4] ADGDSAU1+6
^TMP("DGDSAU" A1, A2, A3, A3A, A4, A4+2
^VA(200 - [#200] ADGDSAU1+7

Label References

Name Line Occurrences
A1 A2
A2 A3
A3 A3A
A3A A4
A4 PRINT+11
END PRINT+10
HEAD ADGDSAU1+11, NEWPG+1, NEWPG+3
NEWPG PRINT+10, TOTALS
TOTALS A1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AGE ADGDSAU1+4*, A4+3*, PRINT+2
>> DFN A3*, A3A*, A4, A4+2
>> DGACNT ADGDSAU1+5*, PRINT+4*, TOTALS+2
>> DGADCNT ADGDSAU1+5*, A4+7*, TOTALS+3
>> DGADM ADGDSAU1+4*, A4+6*, A4+7, PRINT+5
>> DGADWK ADGDSAU1+4*, A4+6*, A4+7, PRINT+6
>> DGBDT ADGDSAU1+9
>> DGCAN ADGDSAU1+4*, A4+8*, PRINT+7
>> DGCCNT ADGDSAU1+5*, PRINT+7*, TOTALS+5
>> DGCHT ADGDSAU1+4*, A4+3*, PRINT+2
>> DGCMT A4+10*, PRINT+9
>> DGCNT ADGDSAU1+4*, A4+10*, TOTALS
>> DGDFN1 A3A*, A4*, A4+2
>> DGDT ADGDSAU1+5*, A1*, A2, A3, A3A, A4, A4+2, PRINT+1
>> DGDTLIN ADGDSAU1+10*, HEAD+6
>> DGDUZ ADGDSAU1+7*, HEAD+4
>> DGEDT ADGDSAU1+9
>> DGFAC ADGDSAU1+6*, HEAD+4
>> DGLIN ADGDSAU1+8*, HEAD+12
>> DGLIN1 ADGDSAU1+8*, TOTALS
>> DGLOS ADGDSAU1+4*, A4+4*, PRINT+3
>> DGNCNT ADGDSAU1+5*, PRINT+8*, TOTALS+6
>> DGNM A2*, A3*, A3A, A4, A4+2, PRINT+1
>> DGNS A4+9*, PRINT+8
>> DGOBS ADGDSAU1+4*, A4+6*, A4+8, PRINT+3
>> DGOCNT ADGDSAU1+5*, A4+8*, TOTALS+1
>> DGPAGE ADGDSAU1+6*, NEWPG+2, HEAD+1, HEAD+2*, HEAD+4
>> DGPRC ADGDSAU1+4*, A4+4*, PRINT+2
>> DGSRV A1*, A2*, A3, A3A, A4, A4+2, PRINT+2
>> DGSTOP PRINT+10, NEWPG+1*, NEWPG+2*, NEWPG+3
>> DGSTR A4+2*, A4+3, A4+4, A4+6, A4+8, A4+9, A4+10
>> DGUNES A4+9*, PRINT+3, PRINT+4
>> DGWCNT ADGDSAU1+5*, A4+7*, TOTALS+4
>> DGX ADGDSAU1+9*, ADGDSAU1+10
>> DGY ADGDSAU1+9*, ADGDSAU1+10
DGZRM ADGDSAU1+11*, END+1!
DIR TOTALS+8!, NEWPG+2!
DIR("A" TOTALS+9*
DIR(0 TOTALS+8*, NEWPG+2*
DT HEAD+6
DUZ ADGDSAU1+7
DUZ(2 ADGDSAU1+6
IOF END+1, HEAD+1
IOM ADGDSAU1+11
IOSL PRINT+10, TOTALS
IOST TOTALS+7, NEWPG+1, HEAD+1
U ADGDSAU1+6, ADGDSAU1+7, PRINT+10
>> X ADGDSAU1+11*, END+1*, NEWPG+2
>> Y ADGDSAU1+9*, HEAD+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All