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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ASDCR

Package: IHS Changes To Scheduling

Routine: ASDCR


Information

ASDCR ; IHS/ADC/PDW/ENM - CHART REQUEST (FUTURE) ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ASDCR.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA Fileman 6 ^%DT  C^%DTC  ^DIC  DT^DICRW  ^DIE  ^DIR  
Scheduling 5 ROUT^SDDIV  OKTD^SDI  START^SDROUT  END^SDROUT1  (DIV,DTS)^SDUTL  
Kernel 3 (,HOME)^%ZIS  ^%ZTLOAD  $$FMTE^XLFDT  
IHS Changes To Scheduling 1 $$DIV^ASDUT  
IHS VA Utilities 1 $$VAL^XBDIQ1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SD IHS CHART  

Entry Points

Name Comments DBIA/ICR reference
END
PT ; -- get patient
CRPTR() ; -- returns default chart request printer
DAYSN() ; -- returns default # of days
A1 ;
PRT ; -- prints out routing slips for patients selected
ENR ; -- enroll patient in clinic
OTHER
QUE ;
DAYSP() ; -- return default day in readable format
DAYS() ; -- returns default first date for charts to be ready
TIME ; -- ask user for date/time to be ready
GOT ;W !,"REQUESTED FOR "_$E(SDPR_"000",9,12)_" ON "

External References

Name Field # of Occurrence
^%DT ENR+3
C^%DTC DAYS+3
^%ZIS PRT+11
HOME^%ZIS QUE+4
^%ZTLOAD QUE+4
$$DIV^ASDUT PRT+1, DAYS+2, DAYSN+1, CRPTR+1
^DIC A1+5, PT+1
DT^DICRW ASDCR+4
^DIE ENR+6
^DIR OTHER+5, TIME+4
ROUT^SDDIV PRT+6
OKTD^SDI PT+18
START^SDROUT PRT+12
END^SDROUT1 END+3
DIV^SDUTL PRT+6
DTS^SDUTL A1+9, A1+13
$$VAL^XBDIQ1 PRT+1, DAYS+2, DAYSN+1, CRPTR+1
$$FMTE^XLFDT DAYSP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: A1+2
Function Call: WRITE
  • Prompt: !,*7,"Clinic is inactive ",$S(SDRE:"from ",1:"as of ")
  • Line Location: A1+12
Function Call: WRITE
  • Prompt: Y,$S(SDRE:" to "_SDRE1,1:"")
  • Line Location: A1+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: PT+1
Function Call: WRITE
  • Prompt: *7,!,"** PATIENT HAS DIED! **"
  • Line Location: PT+5
Function Call: WRITE
  • Prompt: !!,"TO BYPASS PRINTING OF ROUTING SLIPS NOW - TYPE IN ^"
  • Line Location: PRT+5
Routine Call
  • %ZIS
  • Line Location:
    • QUE+4
Routine Call
  • DIE
  • Line Location:
    • ENR+6
Routine Call
  • DIC
  • Line Location:
    • A1+5
    • PT+1
Routine Call
  • DIR
  • Line Location:
    • OTHER+5
    • TIME+4
Routine Call
  • %ZIS
  • Line Location:
    • PRT+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PT+4, PT+7, PT+8, PT+10, PT+14
^SC - [#44] A1+6, A1+8, A1+9, PT+12, PT+13, PT+16, ENR+1, ENR+2, GOT+1, PRT+7

Label References

Name Line Occurrences
$$CRPTR PRT+11
$$DAYS TIME+1, DAYSP+1
$$DAYSN TIME+3
$$DAYSP TIME+1
A1 A1+11, OTHER+5, TIME+4, PT+2
END A1+5, PRT+1, PRT+6, PRT+12, QUE+4
ENR PT+16
GOT PT+14
PRT PT+2
PT PT+18
QUE PRT+12

Naked Globals

Name Field # of Occurrence
^( PT+4, PT+10, PT+12
^("I" A1+9
^("SL" A1+6
^(0 PT+8, PT+10, GOT+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUE+2*, END!
%DT ENR+3*, END!
>> %ZIS PRT+11*
>> %ZIS("B" PRT+11*
APCHSTYP PRT+4*, END!
>> APDATE PRT+9*
ASDCR A1+1*, PRT+2!, END+2!
D PT+14*, END!
DA ENR+4*, END!
DFN PT+1*, PT+4, PT+10, PT+13, PT+14, ENR+4, END!
DIC A1+2*, A1+5!, PT+1*!, ENR+4*, END!
DIC("A" A1+3*
DIC("S" A1+4*
DIC(0 A1+2*, PT+1*
DIE ENR+4*, END!
DIR OTHER+5!, TIME+1!, TIME+4!
DIR("?" OTHER+2*, OTHER+3*, OTHER+4*, TIME+1*, TIME+2*, TIME+3*
DIR("A" OTHER+1*, TIME+4*
DIR("B" TIME+1*
DIR(0 OTHER*, TIME+1*
>> DIRUT OTHER+5, TIME+4
>> DIV PRT+4*
DP ENR+4*, END!
DR ENR+4*, ENR+6!, END!
DR(2 ENR+5*
DR(3 ENR+6*
DT A1+11, PT+7, PRT+10, DAYS+2
GDATE END!
>> HEY ENR+3*, ENR+5, ENR+6
I PT+1!, PT+12*, PT+13, END!
I( PT+8*, PT+11, PT+12, PT+13, GOT+1
IO("Q" PRT+12, QUE+1!
J PT+1!, PT+10*, END!
J( PT+10*, PT+16
>> ORDER PRT+7*
>> POP PRT+12
PRDATE PRT+10*, END!
SC A1+6*, A1+8, A1+9, PT+16, ENR+1, PRT+7, END+1!
SD END+1!
SDAIU PRT+4*, END+1!
SDAPTYP END+1!
SDATE PRT+8*, PRT+9, END!
SDD END+1!
SDHS PRT+4*, END+1!
SDIN A1+6!, A1+9*, A1+11, A1+13
SDINP END+1!
SDIQ PRT+4*, END+1!
SDMADE A1+1!, PT+2, GOT+1*, END+2!
SDNFF PRT+4*, END+1!
SDPL END+1!
SDPP PRT+4*, END+1!
SDPR PT+7*, PT+8, PT+11*, PT+12, PT+13, GOT+1, END+1!
SDRE A1+6!, A1+9*, A1+11, A1+12, A1+13
SDRE1 A1+6!, A1+9*, A1+13
>> SDREP PRT+4*
SDRT END+1!
SDSC END+2!
SDSL A1+6*, END+2!
>> SDSP PRT+3*
>> SDSTART PRT+7*
SDTTM END+2!
SDX PRT+3*, END+2!
SDY ENR+3*, ENR+4, ENR+5, END+2!
SDZPL OTHER+5*, PRT+2!, END+2!
SDZY TIME+6*, PT+18, END!
SDZYY TIME+6*, PRT+8, END+2!
U A1+5, A1+9, PT+4, PT+8, PT+10, PT+14, PT+16, ENR+1, ENR+2, PRT+7
>> VAUTC PRT+7*
>> VAUTC( PRT+7*
X A1+5, ENR+3*, END+2!, DAYS+1~, DAYS+4
X1 DAYS+1~, DAYS+2*
X2 DAYS+1~, DAYS+2*, DAYS+3*
Y A1+5, A1+6, A1+9*, A1+13*, OTHER+5, TIME+4, TIME+6, PT+1, PT+2, PT+7
, PT+8, PT+18*, ENR+1*, ENR+2*, ENR+3, PRT+6, END+2!
Y1 END+2!
YY A1+6*, END+2!
>> ZTDESC QUE+3*
>> ZTRTN QUE+3*
ZTSAVE QUE+1!
ZTSAVE( QUE+2*
ZTSK QUE+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All