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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ASDROUT0

Package: IHS Changes To Scheduling

Routine: ASDROUT0


Information

ASDROUT0 ; IHS/ADC/PDW/ENM - ROUTING SLIPS PRINT ; [ 11/13/2002 9:31 AM ]

Source Information

Source file <ASDROUT0.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
IHS Changes To Scheduling 3 (AIU,EF,HS,MP)^ASDFORM  $$SHORT^ASDROUT2  ($$HRN,$$HSTYP)^ASDUT  
Scheduling 3 (,END,LIN2)^SDROUT1  (HD,HED,SCCOND)^SDROUT2  DTS^SDUTL  
VA Fileman 1 ^DIE  

Entry Points

Name Comments DBIA/ICR reference
LOC ; -- SUBRTN to return location
FUT ;EP -- SUBRTN to print future appts
DIV() ; -- returns division ien
AIU ; -- insurance update
HS ; -- health summary
LIN ; -- SUBRTN to print individual appointments
HED2 ;EP -- SUBRTN to print future appt heading
CLIN ; -- SUBRTN to print by clinic
PCO ; -- sort by principal clinic
GOT ;EP; -- SUBRTN to set up ^utility sort of patient appts
DATE
COL ; -- ??
SETP(J,K) ; -- called to set date printed
ONE(DFN,FORM) ; -- returns 1 if at least one clinic for pat wants form
PRINT(I,J) ; -- SUBRTN to print a routing slip based on patient ifn J
TM ; -- SUBRTN for printable time
X1 ; -- SUBRTN to print extra info
GO1 ; -- SUBRTN to initialize sort
CNT ; -- increment # of routing slips printed
CLO ; -- sort by clinic
PRINT2(I,J) ; -- SUBRTN to print rs by clinic
EF ; -- encounter form
NEW1() ; -- returns 1 if patient has new appt on same day
RS2() ; -- returns 1 if want >1 rs
OTHER ; -- calls other forms
; searhc/maw these all get set up in the clinic setup option
GO ;EP; called to print r slips
X ; -- SUBRTN to print extra info
TDO ; -- sort by terminal digit
LIN2 ; -- SUBRTN to print future appts line
MP ; -- med profile
CKP1 ; -- check if rs should be included in reprint
NMO ; -- sort by name
CKP ; -- check to see if rs should be printed for patient

External References

Name Field # of Occurrence
AIU^ASDFORM AIU+1
EF^ASDFORM EF+1
HS^ASDFORM HS+9
MP^ASDFORM MP+1
$$SHORT^ASDROUT2 LIN+4, FUT+1
$$HRN^ASDUT GOT+4
$$HSTYP^ASDUT ONE+6, ONE+7
^DIE SETP+7
^SDROUT1 GOT+5
END^SDROUT1 GO+14, CLIN+7
LIN2^SDROUT1 LIN2+1
HD^SDROUT2 PRINT2+3, PRINT+3
HED^SDROUT2 PRINT2+3, PRINT+3, LIN+14, FUT+3, FUT+6
SCCOND^SDROUT2 LIN+8
DTS^SDUTL DATE+1, LIN2+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT2+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,$J(X,8)
  • Line Location: LIN+1
Function Call: WRITE
  • Prompt: ?11,$P(^SC(L,0),U)
  • Line Location: LIN+3
Function Call: WRITE
  • Prompt: SDLOC
  • Line Location: LIN+5
Function Call: WRITE
  • Prompt: !,?4,$P(^(L),U)
  • Line Location: X+1
Function Call: WRITE
  • Prompt: !,?4,"** COLLATERAL **"
  • Line Location: X+2
Function Call: WRITE
  • Prompt: !,?4,$P(^(J),U,2)
  • Line Location: X1+1
Function Call: WRITE
  • Prompt: !,?4,"** COLLATERAL **"
  • Line Location: X1+2
Function Call: WRITE
  • Prompt: !!,"DATE PRINTED : "
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: Y,!,"DATE REPRINTED: ",PRDATE
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !!,"DATE PRINTED: ",PRDATE
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !,"Requested by: ",$P($G(^VA(200,+$G(DUZ),0)),U)
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !,Y,?11,$J(X,8),?20,$P(^SC(L,0),U,1)
  • Line Location: LIN2+3
Function Call: WRITE
  • Prompt: ?52,SDLOC
  • Line Location: LIN2+3
Function Call: WRITE
  • Prompt: !?13,$P(^(9999999),U,7)
  • Line Location: LIN2+4
Function Call: WRITE
  • Prompt: !!,?9,"**FUTURE APPOINTMENTS**"
  • Line Location: HED2+1
Function Call: WRITE
  • Prompt: !!," DATE",?11,"TIME",?21,"CLINIC",?55,"LOCATION",!
  • Line Location: HED2+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EF+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HS+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HS+8
Routine Call
  • DIE
  • Line Location:
    • SETP+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("SITE" LOC+2
^DG(40.8 - [#40.8] LOC+3, OTHER+2, RS2+1, DIV+1
^DIC(4 - [#4] LOC+2
^DIC(8 - [#8] COL+3, X+2, X1+2
^DPT - [#2] GOT+3, CKP+2, CKP+3, CKP+4, CKP1+1, CKP1+3, LIN+6, LIN+7, X+2, X1+2
, FUT+2, FUT+5, FUT+7, LIN2+2, SETP+4, SETP+5, SETP+6, NEW1+3, NEW1+4, NEW1+5
, ONE+3, ONE+4
^SC - [#44] GOT+1, CLO+1, PCO+1, PCO+2, COL+1, COL+2, LIN+2, LIN+3, LIN+9, LIN+11
, LIN+12, LIN+13, LOC+1, LOC+3, LIN2+3, LIN2+4, ONE+5
^TMP("SDRS" TDO+2*, CLO+2*, CLO+3*, PCO+3*, PCO+4*, NMO+2*, GO+5, GO+6, GO+10, GO+11
, GO1+6, CLIN+1, CLIN+2, CLIN+3, CLIN+4, CLIN+5, PRINT2+4, PRINT2+5, PRINT+4, PRINT+5
, X+1, X1+1
^VA(200 - [#200] DATE+4

Label References

Name Line Occurrences
$$DIV OTHER+2, RS2+1
$$NEW1 CKP+4
$$ONE EF+1, HS+7, HS+9, MP+1, AIU+1
$$RS2 GO+9, GO+10, CLIN+6
AIU OTHER+6
CKP GOT+2
CKP1 CKP+1
CLIN GO+2
CLO GOT+7
CNT GO+8, GO+12, CLIN+6
COL TDO+1, CLO+1, PCO+2, NMO+1
DATE FUT+1
EF OTHER+3
FUT PRINT2+4, PRINT+4
GO1 GO+1
HED2 FUT+4, FUT+6
HS OTHER+4
LIN PRINT2+5, PRINT+5
LIN2 FUT+7
LOC LIN+4, LIN2+3
MP OTHER+5
NMO GOT+9
OTHER GO+9, GO+13, CLIN+6
PCO GOT+8
PRINT GO+8, GO+9, GO+12
PRINT2 CLIN+6
SETP LIN+6
TDO GOT+6
TM LIN+1, LIN2+2
X PRINT+5
X1 PRINT2+5

Naked Globals

Name Field # of Occurrence
^( X+1, X1+1
^("DIV" LOC+2
^(0 CLO+1, PCO+2, COL+3, CKP+2, CKP1+1, CKP1+3*, LIN+13, X+2, X1+2, LOC+3
, FUT+7, NEW1+5, ONE+4
^(9999999 LIN2+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % TM+2*
DA SETP+1~, SETP+3*, SETP+4*, SETP+5, SETP+6
DA(1 SETP+3*
DFN GOT+1*, GOT+3, GOT+4, TDO+2, CLO+2, CLO+3, PCO+3, PCO+4, NMO+2, CKP+2
, CKP+3, CKP+4, CKP1+1, CKP1+3, NEW1+3, NEW1+4, NEW1+5, ONE~, ONE+3, ONE+4
, ONE+6, ONE+7
DIE SETP+1~, SETP+3*
>> DIV LOC+3
DR SETP+1~, SETP+6*
DT SETP+6
DUZ DATE+4
DUZ(2 DIV+1
END SETP+1~, SETP+3*, SETP+4
FORM ONE~, ONE+5, ONE+6, ONE+7
>> GDATE GOT+1, TDO+2, CLO+3, PCO+4, NMO+2, COL+1, COL+2, CKP+2, CKP+3, CKP+4
, CKP1+1, CKP1+3, NEW1+2, NEW1+3
I GO+5*, GO+6, GO+8, GO+9, GO+10, GO+11, GO+12, GO1+1*, GO1+4*, GO1+6*
, GO1+8*, CLIN+1*, CLIN+2, CLIN+3, CLIN+4, CLIN+5, CLIN+6, PRINT2~, PRINT~, PRINT+4
, PRINT+5, X+1, X1+1
IOF CLIN+7, PRINT2+2, PRINT+2, EF+1
IOSL LIN+14, FUT+3, FUT+6
J GO+6*, GO+8, GO+9, GO+10, GO+11, GO+12, CLIN+3*, CLIN+4, CLIN+5, CLIN+6
, PRINT2~, PRINT2+4, PRINT2+5, PRINT~, PRINT+4, PRINT+5, LIN+6, LIN+7, LIN+12, X+1
, X+2, X1+1, X1+2, FUT+2, FUT+5, FUT+7, LIN2+2, SETP~, SETP+2, SETP+3
, SETP+4, SETP+5, SETP+6, EF+1, HS+7, HS+9, MP+1, AIU+1
K GO+10*, GO+11, PRINT2+1~, PRINT2+3*, PRINT2+4*, PRINT2+5, PRINT+1~, PRINT+4*, PRINT+5, LIN+1
, LIN+6, LIN+7, LIN+11, LIN+12, LIN+13, X+1, SETP~, SETP+2, SETP+3
L GOT+1, COL+1, COL+2, GO+11*, PRINT2+1~, PRINT2+5*, PRINT+1~, PRINT+5*, LIN+2, LIN+3
, LIN+9, LIN+11, LIN+12, LIN+13, X+1, LOC+1, LOC+3, LIN2+2*, LIN2+3, LIN2+4
>> M FUT+5*, FUT+7, LIN2+2
>> NAME GOT+3*, NMO+2
>> ORDER GOT+6, GOT+7, GOT+8, GO+2
>> P GO+7*, CLIN+5*
>> POP GOT+2*, CKP+2*, CKP+3*, CKP+4*, CKP1+1*, CKP1+2*, CKP1+3*, CKP1+4*
>> PRDATE DATE+2, DATE+3
>> SC GOT+1, TDO+2, CLO+1, CLO+2, CLO+3, PCO+1, PCO+3, PCO+4, NMO+2, COL+1
, COL+2, CLIN+5*, EF+1
>> SCN CLO+1*, CLO+2, PCO+2*, PCO+3
SCZ PCO+1~*, PCO+2
>> SDATE FUT+2, FUT+5, EF+1, ONE+2, ONE+3
>> SDCNT GO+1*, PRINT2+2, PRINT+2, CNT+1*
>> SDI1 CKP+3
>> SDIQ CKP+3
SDLOC LIN+5!, LOC+1*, LOC+2, LOC+3*, LIN2+3!
>> SDREP CKP+1, GO1+1, DATE
>> SDSTART CKP1+3, GO1+1, GO1+2, GO1+3, GO1+6, GO1+7, GO1+8, DATE+1, NEW1+5
>> SDTD CLIN+2*, CLIN+3, CLIN+4, CLIN+5, X1+1
>> SDX CKP+3, CKP1+2, GO1+1, DATE
SDZ GO+7*, GO1+3*, GO1+4*!, GO1+7*, GO1+8!, PRINT2+5*
>> SDZAI AIU+1
>> SDZCV GO+9
>> SDZEF EF+1
>> SDZHS HS+3
>> SDZMK GO+8
>> SDZMP MP+1
>> TDO GOT+4*, TDO+2, CLO+2, PCO+3
U GOT+1, GOT+3, CLO+1, PCO+1, PCO+2, COL+1, COL+2, COL+3, CKP+2, CKP+3
, CKP+4, CKP1+1, CKP1+3, LIN+3, LIN+12, LIN+13, X+1, X+2, X1+1, X1+2
, LOC+1, LOC+3, FUT+7, DATE+4, LIN2+3, LIN2+4, SETP+5, SETP+6, OTHER+2, HS+9
, NEW1+4, NEW1+5, ONE+4, ONE+5, ONE+7, RS2+1
V TDO+2, CLO+2, CLO+3!, PCO+3, PCO+4!, NMO+2!, COL+1*, COL+2*, COL+3*
X LIN+1*, LIN+11~*, LIN+12, LIN+13, LIN2+2*, LIN2+3, TM+1, TM+2*, NEW1+1~, NEW1+2*
, NEW1+3*, NEW1+4, NEW1+5, ONE+1~, ONE+2*, ONE+3*, ONE+4
>> X1 TM+1*
Y DATE+1*, DATE+2, LIN2+2*, LIN2+3, NEW1+1~, NEW1+2*, NEW1+3, NEW1+5*, NEW1+6, ONE+1~
, ONE+2*, ONE+3, ONE+5*, ONE+6*, ONE+7*, ONE+8
Z ONE+1~, ONE+4*, ONE+5, ONE+6, ONE+7
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All