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

Package: Order Entry Results Reporting

Routine: ORLP1


Information

ORLP1 ; SLC/DCM,CLA - Patient Lists, Store ; [1/3/01 1:37pm]

Source Information

Source file <ORLP1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 5 ^DIC  YN^DICN  ^DIE  ^DIK  ^DIR  
Order Entry Results Reporting 3 (BUILD,PR2)^ORLA1  CLEAR^ORLP  (ASK,END,LIST,P1)^ORLP0  
Consult Request Tracking 1 CLNLIST^GMRCTU  
Toolkit 1 $$GET^XPAR  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Order Entry Results Reporting 7 ORLP  ORLP CLEAR  ORLP DELETE  ORLP MERGE  ORLP TEAM DELETE  ORLP0  ORLP00  

Entry Points

Name Comments DBIA/ICR reference
CLEAR(X) ;called by option ORLP CLEAR - clear active list
GETNAME ; Call DIR to get user entry for new list name:
OVRWR ;
STOR ;called by ORLP0 - Store lists
DEL ;called by option ORLP DELETE - delete a list
OWNER ; Get input from CAC for list user/owner.
NAMCH(ORTEAM) ; Check for name duplication, proper team type.
D1 ;
D2 ;
MERG ;called by option ORLP MERG - merge patient lists

External References

Name Field # of Occurrence
^DIC GETNAME+11, OVRWR+28, OVRWR+39, OVRWR+44, DEL+3
YN^DICN STOR+3, OVRWR+14, D2+2, D1+2, CLEAR+4
^DIE OVRWR+37
^DIK OVRWR+21, D1+8
^DIR GETNAME+7, OWNER+16
CLNLIST^GMRCTU D1+13
BUILD^ORLA1 MERG+14
PR2^ORLA1 MERG+10
CLEAR^ORLP MERG+1
ASK^ORLP0 MERG+2
END^ORLP0 MERG+9, MERG+13
LIST^ORLP0 MERG+12
P1^ORLP0 MERG+7
$$GET^XPAR D2+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Store list for future reference"
  • Line Location: STOR+2
Function Call: WRITE
  • Prompt: !,"You may store the newly compiled list. Answer YES or NO."
  • Line Location: STOR+4
Function Call: WRITE
  • Prompt: " List not permanently stored."
  • Line Location: GETNAME+8
Function Call: WRITE
  • Prompt: !,"List ",ORLN," unchanged.",!
  • Line Location: OVRWR+15
Function Call: WRITE
  • Prompt: !,"Answer YES or NO, if you answer YES the list "_ORLN_" will be cleared,",!,"and this temporary list will overwrite it.",!
  • Line Location: OVRWR+16
Function Call: WRITE
  • Prompt: !!,"List has been stored."
  • Line Location: OVRWR+47
Function Call: WRITE
  • Prompt: @IOF,!,"Merging patients from two or more Personal and/or Team patient lists.",!
  • Line Location: MERG+5
Function Call: WRITE
  • Prompt: !!,ORCT_" Patients added, "_ORCNT_" total"
  • Line Location: MERG+7
Function Call: WRITE
  • Prompt: !!,"List empty.",!
  • Line Location: MERG+9
Function Call: WRITE
  • Prompt: !!,"LIST PATIENTS MERGED"
  • Line Location: MERG+11
Function Call: WRITE
  • Prompt: !!,"This is your primary patient list, are you sure you want to remove it"
  • Line Location: D2+2
Function Call: WRITE
  • Prompt: !,"Answer YES if you really want to remove this list."
  • Line Location: D2+3
Function Call: WRITE
  • Prompt: !!,"WARNING - Deleting a patient list will disable access by providers who use the",!,"list as their preferred patient list."
  • Line Location: D2+5
Function Call: WRITE
  • Prompt: !,"Are you ready to delete list ",$P(DLIST,"^",2)
  • Line Location: D1+1
Function Call: WRITE
  • Prompt: !,"Enter YES to delete the list, NO to quit."
  • Line Location: D1+3
Function Call: WRITE
  • Prompt: !,"Processing........"
  • Line Location: D1+5
Function Call: WRITE
  • Prompt: !,"Searching for/removing Consults pointers to deleted team..."
  • Line Location: D1+12
Function Call: WRITE
  • Prompt: !,"List deletion completed.",!
  • Line Location: D1+15
Function Call: WRITE
  • Prompt: !!,"No list currently defined"
  • Line Location: CLEAR+1
Function Call: WRITE
  • Prompt: !!,"Are you sure you want to clear the current pt selection list"
  • Line Location: CLEAR+3
Function Call: WRITE
  • Prompt: !!,"YES will clear the current pt selection list and leave you with a blank slate to work from."
  • Line Location: CLEAR+6
Function Call: WRITE
  • Prompt: !!,"List cleared"
  • Line Location: CLEAR+7
Function Call: WRITE
  • Prompt: !!,"Nothing done."
  • Line Location: CLEAR+8
Routine Call
  • DIE
  • Line Location:
    • OVRWR+37
Routine Call
  • DIC
  • Line Location:
    • GETNAME+11
    • OVRWR+28
    • OVRWR+39
    • OVRWR+44
    • DEL+3
Routine Call
  • DIR
  • Line Location:
    • GETNAME+7
    • OWNER+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100.21 - [#100.21] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^OR(100.21 - [#100.21] OVRWR+11, OVRWR+18, OVRWR+19, OVRWR+20, OVRWR+21, OVRWR+22, OVRWR+35, OVRWR+39, OVRWR+42, OVRWR+46
, D1+6, D1+16, NAMCH+7, NAMCH+14, OWNER+21*
^TMP("ORLP" D1+17!
^XUTL("OR" OVRWR+44, CLEAR+1, CLEAR+7!

Label References

Name Line Occurrences
$$NAMCH OVRWR+6
D1 D1+3
D2 D2+3
DEL D1+18
GETNAME OVRWR+7, OVRWR+23
STOR STOR+4, MERG+13

Naked Globals

Name Field # of Occurrence
^( OVRWR+44
^("ORU" CLEAR+7!
^("ORV" CLEAR+7!
^("ORW" CLEAR+7!
^(0 OVRWR+19*, OVRWR+20*, OVRWR+44

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% STOR+1~, STOR+3*, STOR+4, STOR+5, OVRWR+11, OVRWR+12, OVRWR+14*, OVRWR+15, OVRWR+16, D2+1*
, D2+2*, D2+3, D2+4, D1+2*, D1+3, D1+4, CLEAR+4*, CLEAR+5, CLEAR+6, CLEAR+7
DA STOR+1~, OVRWR+21*, OVRWR+36*, OVRWR+38!, D1+7*, D1+9!
DA(1 OVRWR+21*, OVRWR+39*, OVRWR+44*
DIC STOR+1~, GETNAME+10*, GETNAME+13!, OVRWR+27*, OVRWR+31!, OVRWR+39*!, OVRWR+44*, OVRWR+45!, MERG+6*, MERG+15!
, DEL+1*, DEL+2*, DEL+4!, D1+9!
DIC("A" MERG+7*, DEL+1*, DEL+2*
DIC("S" MERG+6*, DEL+1*, DEL+2*
DIC(0 OVRWR+27*, OVRWR+39*, OVRWR+44*, MERG+6*, DEL+1*, DEL+2*
DIE OVRWR+36*, OVRWR+38!
DIK STOR+1~, OVRWR+21*, D1+7*, D1+9!
DIR STOR+1~, OWNER+8~, OWNER+18!
DIR("?" OWNER+15*
DIR("A" GETNAME+6*, OWNER+13*
DIR("S" OWNER+14*
DIR(0 GETNAME+6*, OWNER+12*
DIRUT GETNAME+8!
DLAYGO STOR+1~, OVRWR+27*
DLIST DEL+6*, D2+2, D1+1, D1+6, D1+7, D1+13, D1+16, D1+17!
DR STOR+1~, OVRWR+36*
>> DTOUT MERG+8
>> DUOUT MERG+8
DUZ OVRWR+39, D2+2, NAMCH+14
I STOR+1~, OVRWR+21*
IOF MERG+5
J STOR+1~
ORABORT OVRWR+1~, OVRWR+2*, OVRWR+6*, OVRWR+7, OVRWR+15*, OVRWR+17, OVRWR+23, OVRWR+29*, OVRWR+31
ORCEND MERG+15!
ORCLIN MERG+15!
ORCNT MERG+4*, MERG+7, MERG+9, MERG+15!, CLEAR+7*
ORCOLW MERG+15!
ORCSTRT MERG+15!
ORCT MERG+7*, MERG+15!
ORDEF MERG+15!
ORI OVRWR+43*, OVRWR+44*, OVRWR+45!
ORK MERG+7*, MERG+15!
ORLIST STOR+1~, GETNAME+13*, OVRWR+6, OVRWR+18, OVRWR+19, OVRWR+20, OVRWR+21, OVRWR+22, OVRWR+30*, OVRWR+35
, OVRWR+36, OVRWR+39, OVRWR+42, OVRWR+44, OVRWR+46, NAMCH+9!, NAMCH+16!
ORLN STOR+1~, GETNAME+9*, GETNAME+13*, OVRWR+13, OVRWR+15, OVRWR+16, NAMCH+9!, NAMCH+16!
ORLPDUZ D1+17!
>> ORLST DEL+1, DEL+2
ORNEWL GETNAME+3~, GETNAME+4*, GETNAME+13*, OVRWR+5, OVRWR+10, OVRWR+26, OVRWR+34
>> OROPREF MERG+10
>> OROWNER OWNER+11*, OWNER+17*, OWNER+19*, OWNER+20*, OWNER+21
ORPRIM MERG+15!
ORPROV MERG+15!
ORSPEC MERG+15!
ORTEAM NAMCH~, NAMCH+7, NAMCH+14
ORTITLE MERG+15!
ORTNAM GETNAME+1~, GETNAME+2*, GETNAME+9*, NAMCH+8, NAMCH+15
ORUPNM MERG+15!
ORUSSN MERG+15!
ORWARD MERG+15!
>> ORY MERG+7
>> ORYY OWNER+21
U GETNAME+13, OVRWR+35, NAMCH+7, OWNER+21
X STOR+1~, GETNAME+5, GETNAME+8, GETNAME+9, GETNAME+10*, GETNAME+12, OVRWR+29, OVRWR+39*, OVRWR+44*, MERG+2
, MERG+3, CLEAR~, CLEAR+1*, CLEAR+2, CLEAR+5*, CLEAR+6*, CLEAR+7*, CLEAR+9*, NAMCH+9!, NAMCH+16!
, OWNER+8~, OWNER+18!
XX D1+17!
Y STOR+1~, GETNAME+13*, OVRWR+11, OVRWR+29, OVRWR+30, MERG+15!, DEL+5, DEL+6, D1+17!, NAMCH+9!
, NAMCH+16!, OWNER+8~, OWNER+17, OWNER+18!
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