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

Package: IHS Changes To ADT

Routine: ADGDSN


Information

ADGDSN ; IHS/ADC/PDW/ENM - PATIENTS NOT RELEASED FROM DAY SURGERY ; [ 01/05/2004 11:45 AM ]

Source Information

Source file <ADGDSN.m>

Call Graph

Call Graph Total: 8

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG IHS DS NOT RELEASED  

Entry Points

Name Comments DBIA/ICR reference
END1 ;***> eoj
END2
HEAD ;***> subrtn to print heading
DATE2
END
PRNT ;***> print list
A1
NEWPG ;***> subrtn for end of page control
A3
A2
QUE
A4
PR2
DATE
PR1
CALC ;***> calculate patients not released; screen out no-shows & cancels

External References

Name Field # of Occurrence
^%DT DATE, DATE2
C^%DTC DATE2+4
^%ZIS DATE2+6
HOME^%ZIS END
^%ZISC QUE+3, END2+1
^%ZTLOAD QUE+3
KILL^ADGUTIL END2
TIME^ADGUTIL HEAD+5
PRTOPT^ADGVAR END1+1
^DIR NEWPG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"PRINT LIST OF PATIENTS NOT RELEASED FROM DAY SURGERY"
  • Line Location: ADGDSN+4
Function Call: WRITE
  • Prompt: *7,!!?5,"Ending date MUST NOT be before beginning date",!
  • Line Location: DATE2+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: DATE2+6
Function Call: WRITE
  • Prompt: !?3,$P(^DPT(DFN,0),U)
  • Line Location: PR2+3
Function Call: WRITE
  • Prompt: ?30,$J($P(^(0),U,2),7)
  • Condition for execution: $D(^AUPNPAT(DFN,41,DUZ(2),0))
  • Line Location: PR2+4
Function Call: WRITE
  • Prompt: ?50,X
  • Line Location: PR2+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END2+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?11,"*****Confidential Patient Data Covered by Privacy Act*****"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,DGDUZ,?80-$L(DGFAC)\2,DGFAC
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: ?23,"DAY SURGERY PATIENTS NOT RELEASED"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !!!?3,"PATIENT NAME",?30,"CHART #",?50,"SURGERY DATE/TIME"
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,DGLIN,!!
  • Line Location: HEAD+7
Routine Call
  • %ZIS
  • Line Location:
    • END
Routine Call
  • DIR
  • Line Location:
    • NEWPG+2
Routine Call
  • %ZIS
  • Line Location:
    • DATE2+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADGDS - [#9009012] A3+1, A3+2
^ADGDS("AA" A1, A2, A3
^AUPNPAT - [#9000001] PR2+4
^DIC(4 - [#4] PRNT+3
^DPT - [#2] PR2+3
^TMP("DGZDSN" CALC+1!, A4*, PR1, PR2, END2+1!
^VA(200 - [#200] PRNT+3

Label References

Name Line Occurrences
A1 A2
A2 A3
A3 A3+1, A3+3, A4
A4 A3+2
CALC DATE2+6
DATE DATE2
DATE2 DATE2+1
END DATE+1, DATE2+6
END1 PR1
END2 PR2+5
HEAD PRNT+4, NEWPG+1, NEWPG+3
NEWPG PR2+5
PR1 PR2
PR2 PR2+5
PRNT A1
QUE DATE2+6

Naked Globals

Name Field # of Occurrence
^(0 PR2+4
^(2 A3+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DATE*, DATE2*
>> %DT("A" DATE*, DATE2*
>> %ZIS DATE2+6*
>> DFN A1*, A2*, A3, A3+1, A3+2, A4, PR1*, PR2*, PR2+3, PR2+4
>> DGBDT DATE+1*, DATE2+1, CALC+1
DGBED END!
>> DGDT CALC+1*, A1*, A2, A3, A4, PRNT+1*, PR1*, PR2, PR2+1, PR2+2
>> DGDUZ PRNT+3*, HEAD+4
DGEDT DATE2*, DATE2+1, DATE2+4*, END!, CALC+1*, A1
>> DGFAC PRNT+3*, HEAD+4
>> DGI QUE+2*
>> DGLIN PRNT+2*, HEAD+7
>> DGN A2*, A3*, A3+1, A3+2
>> DGPAGE PRNT+1*, NEWPG+2, HEAD+1, HEAD+2*
>> DGSTOP PRNT+1*, PR2+5, NEWPG+1*, NEWPG+2*, NEWPG+3
>> DGSTR A3+2*, A3+3
>> DGT PR2+1*, PR2+2
DIR NEWPG+2!
DIR(0 NEWPG+2*
DT DATE2+4
DUZ PRNT+3
DUZ(2 PRNT+3, PR2+4
IO DATE2+6
IO("Q" DATE2+6, QUE!
IOF END2, HEAD+1
IOSL PR2+5
IOST END1+1, NEWPG+1, HEAD+1
>> POP DATE2+6
U A3+3, PRNT+3, PR2+3, PR2+4, PR2+5, NEWPG+3
>> X DATE*, DATE2*, DATE2+4, PR2+2*, PR2+4, NEWPG+2
>> X1 DATE2+4*
>> X2 DATE2+4*
>> Y DATE+1, DATE2
>> ZTDESC QUE*
>> ZTRTN QUE*
>> ZTSAVE( QUE+2*
ZTSK QUE+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All