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

Package: IHS Changes To Scheduling

Routine: ASDI


Information

ASDI ; IHS/ADC/PDW/ENM - CHECK-IN/UNSCH APPT/CR TODAY ; [ 12/01/2000 10:49 AM ]

Source Information

Source file <ASDI.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Scheduling 5 (END,GOT,NEW,OKTD)^SDI  CHKSO^SDM  DT^SDM0  EN^SDROUT1  DTS^SDUTL  
IHS Changes To Scheduling 3 (AIU,EF,HS,MP)^ASDFORM  (PAT,WARD)^ASDM  ($$DIV,$$HSTYP)^ASDUT  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 ^DIC  ^DIR  
IHS VA Utilities 1 $$VAL^XBDIQ1  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS View Patient Record 1 BVPSD  
Mental Health Social Services 1 AMHVRL2  
Scheduling 1 SD IHS WALK-INS  

Entry Points

Name Comments DBIA/ICR reference
CHKR ;EP; called by CHKR to print IHS forms
PAT2 ;PEP; called when patient already known
; calling routine must set DFN=patient ien, SDPEP=1,DIV=""
; calling routine must kill SDPEP and pre-save DFN value
END ; -- eoj
FORMS1 ;
APPT ; -- SUBRTN to display today's appointments
CHK ; -- SUBRTN to check patient in for appt
CHECKIN() ; -- returns check-in time
CHK2 ;PATCH 7
CLN() ; -- returns clinic ien
FORMS ; -- checks if forms to be printed
SCX() ; -- returns multiple ien for patient in ^sc
HS1 ;EP; called by ZTLOAD to print forms
HS ; -- prints HS and other forms if set to YES for clinic
CHOOSE ; -- ask what user wants to do
CR ; -- SUBRTN to request chart
PAT ; -- select patient
DFWI() ; -- returns default health summary printer

External References

Name Field # of Occurrence
^%ZIS HS+8
HOME^%ZIS HS+12
^%ZISC HS1+6
^%ZTLOAD HS+12
AIU^ASDFORM HS1+5
EF^ASDFORM HS1+2
HS^ASDFORM HS1+3
MP^ASDFORM HS1+4
PAT^ASDM PAT+2
WARD^ASDM PAT2+4
$$DIV^ASDUT CHKR+6, FORMS+1, DFWI+1
$$HSTYP^ASDUT FORMS1+1
^DIC CR+4
^DIR CHOOSE+6, CHK+13, CHK2+3, CR+15, CHKR+2
END^SDI END+1
GOT^SDI CHK+9, CHK+15, CHK2+3
NEW^SDI CHOOSE+9
OKTD^SDI CR+16
CHKSO^SDM APPT+11
DT^SDM0 APPT+11, APPT+19
EN^SDROUT1 CHKR+5
DTS^SDUTL CR+8, CR+12
$$VAL^XBDIQ1 DFWI+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHOOSE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CHOOSE+9
Function Call: WRITE
  • Prompt: !!,"NO SCHEDULED APPOINTMENTS; CANNOT CHECK IN"
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !,*7,"Clinic is inactive ",$S(SDRE:"from ",1:"as of ")
  • Line Location: CR+11
Function Call: WRITE
  • Prompt: Y,$S(SDRE:" to "_SDRE1,1:"")
  • Line Location: CR+12
Function Call: WRITE
  • Prompt: !!?5,"** NO PENDING APPOINTMENTS FOR TODAY **",!
  • Line Location: APPT+5
Function Call: WRITE
  • Prompt: !!?20,"**** TODAY'S APPOINTMENTS ****"
  • Line Location: APPT+7
Function Call: WRITE
  • Prompt: !,ASDCT
  • Condition for execution: $X>9
  • Line Location: APPT+11
Function Call: WRITE
  • Prompt: ?11
  • Line Location: APPT+11
Function Call: WRITE
  • Prompt: ?32
  • Line Location: APPT+11
Function Call: WRITE
  • Prompt: SDLN,$S($D(^SC(DA,0)):$P(^(0),U),1:"DELETED CLINIC ")
  • Line Location: APPT+12
Function Call: WRITE
  • Prompt: COV," "
  • Line Location: APPT+13
Function Call: WRITE
  • Prompt: "UNSCHEDULED"
  • Line Location: APPT+16
Function Call: WRITE
  • Prompt: !?15,"CHECKED-IN at "
  • Line Location: APPT+19
Function Call: WRITE
  • Prompt: !!,"Ready to print Health Summary now . . "
  • Line Location: HS+7
Routine Call
  • %ZIS
  • Line Location:
    • HS+12
Routine Call
  • DIC
  • Line Location:
    • CR+4
Routine Call
  • DIR
  • Line Location:
    • CHOOSE+6
    • CHK+13
    • CHK2+3
    • CR+15
    • CHKR+2
Routine Call
  • %ZIS
  • Line Location:
    • HS+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] CHKR+6, FORMS+1
^DPT - [#2] APPT+4, APPT+8, APPT+9, APPT+14, APPT+17, CLN+1
^SC - [#44] CR+5, CR+7, CR+8, APPT+12, FORMS1+1, FORMS1+2, FORMS1+3, FORMS1+4, HS+3, CHECKIN+3
, CHECKIN+4, CHECKIN+5, SCX+3

Label References

Name Line Occurrences
$$CHECKIN APPT+16, APPT+18
$$CLN CHECKIN+2
$$DFWI HS+6, HS+9
$$SCX CHK+9, CHK+15, CHK2+3
APPT PAT2+3, CHK+11
ASDI CHOOSE+6
CHK CHOOSE+7, CHK2+5
CHK2 CHK+6
CR CHOOSE+8, CR+10
END PAT+2
FORMS CHKR+4
FORMS1 HS+4
HS CHKR+6
PAT CHOOSE+7, CHOOSE+8, CHOOSE+9

Naked Globals

Name Field # of Occurrence
^( SCX+3
^("I" CR+8
^("SL" CR+5
^(0 APPT+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS HS+8*
AGE END+1!
>> ASD CHK2+1*
ASDA END+1!, CHK+2, APPT+1!
ASDA( CHK+4, CHK+5, CHK+6, CHK+14, CHK+15, CHK+16, APPT+16*, APPT+18*, APPT+21*
ASDA(0 CHK+3
ASDCKI APPT+17!, APPT+18*, APPT+19, APPT+21
>> ASDCKO CHK+6*, CHK+16*
ASDCR PAT+2!
ASDCT END+1!, CHK+12, APPT+1!, APPT+10*, APPT+11, APPT+16, APPT+18, APPT+21
ASDE END+1!, APPT+1!, APPT+3*, APPT+4, APPT+8
ASDQUIT PAT+2, END+1!
ASDS END+1!, APPT+1!, APPT+3*, APPT+4, APPT+8*, APPT+9, APPT+11, APPT+14, APPT+16, APPT+17
, APPT+18, APPT+21, CHECKIN+3, CHECKIN+4, CHECKIN+5, CLN+1
>> AUPNSEX CHOOSE+1
CLN CHECKIN+1~, CHECKIN+2*, CHECKIN+3, CHECKIN+4, CHECKIN+5
>> COV APPT+13
>> DA APPT+11*, APPT+12
DFN PAT+2*, END+1!, APPT+4, APPT+8, APPT+9, APPT+14, APPT+17, CHKR+5, FORMS1+1, HS+1~
, HS+2*, HS1+2, HS1+3, HS1+4, HS1+5, CHECKIN+4, SCX+3, CLN+1
DIC CR+1!*, CR+4!
DIC("A" CR+2*
DIC("S" CR+3*
DIC(0 CR+1*
DIR CHOOSE+2!, END+1!, CHK+12!, CHK2+1!, CR+14!, CHKR+1~
DIR("A" CHOOSE+3*, CHOOSE+4*, CHOOSE+5*, CHOOSE+6*, CHK+12*, CHK2+2*, CR+15*, CHKR+2*
DIR("B" CHK2+1*, CR+14*, CHKR+1*
DIR(0 CHOOSE+2*, CHK+12*, CHK2+1*, CR+14*, CHKR+1*
>> DIRUT CHOOSE+6, CHK+13, CR+15
>> DIV PAT+2*
DT CR+10, APPT+3
HRCN END+1!
>> I CHK+9*, CHK+15*, CHK2+3*, HS+11*
>> I( CHK+5*, CHK+14*, SCX+3
IO HS1+1
ION HS+9
IOP CHKR+3!
>> ORDER CHKR+3*
>> POP HS+6
QUIT CHECKIN+1~, CHECKIN+3, CHECKIN+5*
SC CR+5*, CR+7, CR+8, CHKR+5, FORMS1+1, FORMS1+2, FORMS1+3, FORMS1+4, HS+1~, HS+2*
, HS+3
SDIN CR+5!, CR+8*, CR+10, CR+12
>> SDLN APPT+12
>> SDPEP PAT+1
>> SDPR CHK+5*, CHK+14*, HS1+2, SCX+3
SDRE CR+5!, CR+8*, CR+10, CR+11, CR+12
SDRE1 CR+5!, CR+8*, CR+12
>> SDREP CHKR+3*
>> SDSEX CHOOSE+1*
>> SDSL CR+5*
>> SDSTART CHKR+3*
>> SDX CHKR+3*
SDZAI CHKR+4*, CHKR+7!, FORMS1+4*, HS+4*, HS+5, HS1+5
SDZCV CHKR+3*, CHKR+7!
SDZDFN CHKR+5*, CHKR+7!, HS+2
SDZEF CHKR+4*, CHKR+7!, FORMS1+2*, HS+4*, HS+5, HS1+2
SDZHS CHKR+4*, CHKR+7!, FORMS1+1*, HS+4*, HS+5, HS1+3
SDZMP CHKR+4*, CHKR+7!, FORMS1+3*, HS+4*, HS+5, HS1+4
SDZPL PAT+2!
SDZRS CHKR+2*, CHKR+5, CHKR+7!
SDZSC CHKR+5*, CHKR+7!, HS+2, HS1+2
SEX END+1!
>> SSC APPT+11, APPT+16, APPT+18, APPT+21
SSN END+1!
U CHK+5, CHK+6, CHK+14, CHK+15, CHK+16, CR+4, CR+8, APPT+9, APPT+12, APPT+14
, APPT+16, APPT+17, APPT+18, APPT+21, CHKR+6, FORMS+1, FORMS1+1, FORMS1+2, FORMS1+3, FORMS1+4
, HS+3, HS1+3, CHECKIN+4, CLN+1
X CHK+1~, CHK+3*, CHK+4, CHK+5, CHK+6, CHK+16, CR+4, APPT+4*, CHECKIN+1~, CHECKIN+3*
, CHECKIN+4, CHECKIN+5, SCX+1~, SCX+2*, SCX+3*, SCX+4
Y CHOOSE+7, CHOOSE+8, CHK+13, CHK+14, CHK+15, CHK2+1, CHK2+3, CR+4, CR+5, CR+8*
, CR+12*, CR+15, APPT+11*, APPT+19*, CHKR+2, CHECKIN+1~, CHECKIN+5*, CHECKIN+6
>> YY CR+5*
>> ZTDESC HS+10*
>> ZTDTH HS+10*
>> ZTIO HS+9*
>> ZTRTN HS+10*
>> ZTSAVE( HS+11*
ZTSK HS+12!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All