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 |  Local Variables  | All
Print Page as PDF
Routine: ORLP2

Package: Order Entry Results Reporting

Routine: ORLP2


Information

ORLP2 ; SLC/Staff - Remove Autolinks from Team List ; 11/3/10 12:44pm

Source Information

Source file <ORLP2.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 6 %XY^%RCR  ^DIC  YN^DICN  ^DIE  ^DIK  ^DIR  
Order Entry Results Reporting 3 CLEAR^ORLP  GETDEF^ORLPL  ^ORUS  
Scheduling 1 $$PTCL^SCAPMC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Order Entry Results Reporting 4 ORLP TEAM DELETE AUTOLINKS  ORLP TEAM RENAME  ORLP3AC1  ORLPL  

Entry Points

Name Comments DBIA/ICR reference
ASKLIST ;ask for team list
ASKLINK(LIST) ;ask for autolinks
PTS(VP,ACT) ;
; set or kill entries out of temp global
; set for patients found to be on a deleted link
; kill for patients to be on another autolink.
; ("Clinic" addition to $SELECT function added by PKS-6/99:)
LOOPTS(REF,DEX,ACT) ;
LOOPCL(REF,CLINIC,ACT) ; slc/PKS - 6/99
REN ; SLC/PKS - 7/99
;
; Allow users to rename a Team List.
; Shows as a selection on menu of ORLP TEAM MENU option,
; Called by option ORLP TEAM RENAME shown on that menu.
END ;

External References

Name Field # of Occurrence
%XY^%RCR ASKLINK+3
^DIC ASKLIST+4, ASKLINK+16, REN+21
YN^DICN ASKLIST+9
^DIE ASKLINK+11, REN+49, REN+51
^DIK ASKLINK+21
^DIR REN+36
CLEAR^ORLP ORLP2+15
GETDEF^ORLPL ASKLIST+3
^ORUS ASKLINK+3
$$PTCL^SCAPMC LOOPCL+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ORLP2+16
Function Call: WRITE
  • Prompt: !,"A team list is a list containing patients related to several providers.",!,"These providers are the list's users. You may select one of these lists"
  • Line Location: ORLP2+17
Function Call: WRITE
  • Prompt: !,"and remove one or more autolinks. Removal of autolinks will stop the",!,"automatic addition or deletion of patients with ADT movements associated",!,"with the deleted autolink."
  • Line Location: ORLP2+18
Function Call: WRITE
  • Prompt: !!,"Patients that were placed on the list using the deleted autolink will be",!,"removed from the list if they were not placed on the list by another Autolink.",!!
  • Line Location: ORLP2+19
Function Call: WRITE
  • Prompt: !,"No Autolinks established for this team",!
  • Line Location: ASKLIST+6
Function Call: WRITE
  • Prompt: !,"Another user is editing this entry."
  • Line Location: ASKLIST+9
Function Call: WRITE
  • Prompt: !,"Answer 'YES' to delete existing 'Autolinks' and the associated patients,",!,"'NO' to return to the menus.",!
  • Line Location: ASKLIST+10
Function Call: WRITE
  • Prompt: !," Autolink "_$P(ALINK(LNK),U,3)_" deleted!"
  • Line Location: ASKLINK+11
Function Call: WRITE
  • Prompt: !," "_CNT_" patient(s) removed from list.",!
  • Line Location: ASKLINK+22
Function Call: WRITE
  • Prompt: !,"[ADT movements linked to "_$S(VP["DIC(42":"Ward Location ",VP["DG(405":"Room Bed ",VP["VA(200":"Provider ",VP["SC(":"Clinic ",1:"Treating Speciality ")_LNAME_" will now be discontinued.]"
  • Line Location: PTS+5
Routine Call
  • DIC
  • Line Location:
    • ASKLIST+4
    • ASKLINK+16
    • REN+21
Routine Call
  • DIE
  • Line Location:
    • ASKLINK+11
    • REN+49
    • REN+51
Routine Call
  • DIR
  • Line Location:
    • REN+36

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)
^DPT - [#2] LOOPTS+1
^OR(100.21 - [#100.21] ASKLIST+6, ASKLIST+7, ASKLIST+9, ASKLINK+9, ASKLINK+10, ASKLINK+16, ASKLINK+21, REN+27, REN+53, END+2
^TMP("ORLP" ASKLIST+5*, ASKLINK+4!, ASKLINK+20, ASKLINK+21, LOOPTS+1*, LOOPCL+31*
^TMP("SC TMP LIST" LOOPCL+21!, LOOPCL+28, LOOPCL+29, LOOPCL+34!

Label References

Name Line Occurrences
ASKLINK ORLP2+21
ASKLIST ORLP2+20
END ORLP2+20, ORLP2+21, ORLP2+22
LOOPCL PTS+14
LOOPTS PTS+6, PTS+7, PTS+9, PTS+10, PTS+11, PTS+12
PTS ASKLINK+10, ASKLINK+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASKLIST+8, ASKLIST+9*, ASKLIST+10, ASKLIST+11
%X ORLP2+14~, ASKLINK+3*
%Y ORLP2+14~, ASKLINK+3*
ACT ORLP2+14~, PTS~, PTS+5, PTS+6, PTS+7, PTS+9, PTS+10, PTS+11, PTS+12, PTS+14
, LOOPTS~, LOOPTS+1, LOOPCL~, LOOPCL+31
ALINK ORLP2+14~
ALINK( ASKLINK+8, ASKLINK+10, ASKLINK+11
ALINK(0 ASKLINK+3
CLINIC LOOPCL~, LOOPCL+22
CNT ORLP2+14~, ASKLINK+20*, ASKLINK+21*, ASKLINK+22
DA ORLP2+14~, ASKLIST+1~, ASKLINK+11*, ASKLINK+21*, REN+47*
DA(1 ASKLINK+11*, ASKLINK+15*, ASKLINK+21*
DEX LOOPTS~, LOOPTS+1
DIC ORLP2+14~, ASKLIST+1~, ASKLIST+2*, ASKLINK+15*, ASKLINK+17!, REN+15~, REN+18*, REN+25!
DIC("A" ASKLIST+2*, REN+20*
DIC("S" ASKLIST+2*
DIC(0 ASKLIST+2*, ASKLINK+15*, REN+19*
DIE ORLP2+14~, ASKLIST+1~, ASKLINK+11*, REN+15~, REN+46*, REN+54!
DIK ORLP2+14~, ASKLINK+21*!
>> DILOCKTM ASKLIST+9, REN+27
DIR ORLP2+14~, REN+15~, REN+38!, REN+40!
DIR("?" REN+34*, REN+35
DIR("??" REN+35*
DIR("A" REN+33*
DIR(0 REN+32*
DLAYGO ORLP2+14~
DR ORLP2+14~, ASKLINK+11*, REN+15~, REN+48*, REN+50*
DTOUT ORLP2+14~, ORLP2+20, ORLP2+21, REN+22, REN+37
DUOUT ORLP2+14~, REN+22, REN+37
ERROR ORLP2+14~, ORLP2+21, ASKLIST+9*
FILE ORLP2+14~
IOF ORLP2+16
K ORLP2+14~, ASKLINK+20*, ASKLINK+21
LINK ORLP2+14~
LIST ORLP2+14~, ORLP2+21, ASKLIST+5*, ASKLIST+6, ASKLIST+9, ASKLINK~, ASKLINK+1, ASKLINK+9, ASKLINK+10, ASKLINK+11
, ASKLINK+15, ASKLINK+16, ASKLINK+21, END+1, END+2
LNAME ORLP2+14~, ASKLINK+10*, ASKLINK+16*, PTS+5, PTS+6, PTS+7
LNK ORLP2+14~, ASKLINK+8*, ASKLINK+10, ASKLINK+11
LST ORLP2+14~, ASKLINK+16*
ORERR LOOPCL+18~, LOOPCL+22
ORLIST LOOPCL+18~, LOOPCL+22
ORLPT ORLP2+14~, LOOPTS+1*
ORNEW REN+15~, REN+39*
ORSTOP ORLP2+14~, ORLP2+20, ORLP2+21, ASKLIST+4*, ASKLIST+6*, ASKLIST+9*, ASKLIST+11*
ORTEAM REN+15~, REN+24*, REN+27, REN+47, REN+53
ORUS ORLP2+14~, ASKLINK+2*
ORUS("A" ASKLINK+2*
ORUS("T" ASKLINK+2*
ORUS(0 ASKLINK+2*
PATIENT LOOPCL+18~, LOOPCL+29*, LOOPCL+30
RCD LOOPCL+18~, LOOPCL+27*, LOOPCL+28*, LOOPCL+29
REF ORLP2+14~, LOOPTS~, LOOPTS+1, LOOPCL~
RESULT LOOPCL+18~, LOOPCL+22*, LOOPCL+23
TEAM ORLP2+14~
U ASKLINK+9, ASKLINK+10, ASKLINK+11, ASKLINK+16, PTS+9, PTS+10, PTS+11
USER ORLP2+14~
VP ORLP2+14~, ASKLINK+10*, ASKLINK+16*, PTS~, PTS+5, PTS+9, PTS+10, PTS+11, PTS+12, PTS+14
VP(1 ASKLINK+10*, ASKLINK+16*, PTS+6, PTS+7, PTS+8, PTS+12, PTS+14
VP(2 ASKLINK+10*, ASKLINK+16*
X ASKLINK+16*, LOOPTS+1*, LOOPCL+18~, LOOPCL+30*, LOOPCL+31, REN+39
Y ORLP2+14~, ASKLIST+4, ASKLIST+5, ASKLIST+7, ASKLIST+9, REN+23, REN+24, REN+38
Y(0 ASKLINK+16
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 |  Local Variables  | All