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 ; [1/2/01 11:43am]

Source Information

Source file <ORLP2.m>

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

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
LOOPCL(REF,CLINIC,ACT) ; slc/PKS - 6/99
END ;
ASKLIST ;ask for team list
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.
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:)
ASKLINK(LIST) ;ask for autolinks
LOOPTS(REF,DEX,ACT) ;

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+46, REN+48
^DIK ASKLINK+21
^DIR REN+33
CLEAR^ORLP ORLP2+4
GETDEF^ORLPL ASKLIST+3
^ORUS ASKLINK+3
$$PTCL^SCAPMC LOOPCL+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ORLP2+5
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+6
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+7
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+8
Function Call: WRITE
  • Prompt: !,"No Autolinks established for this team",!
  • Line Location: ASKLIST+6
Function Call: WRITE
  • Prompt: !,"List ",$P(Y,"^",2)," already contains patients and/or users.",!,"Do you want to remove some of them"
  • 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
  • DIE
  • Line Location:
    • ASKLINK+11
    • REN+46
    • REN+48
Routine Call
  • DIC
  • Line Location:
    • ASKLIST+4
    • ASKLINK+16
    • REN+21
Routine Call
  • DIR
  • Line Location:
    • REN+33

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.12 REN+50
^OR(100.21 - [#100.21] ASKLIST+6, ASKLIST+7, ASKLIST+9, ASKLINK+9, ASKLINK+10, ASKLINK+16, ASKLINK+21, REN+39, 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+10
ASKLIST ORLP2+9
END ORLP2+9, ORLP2+10, ORLP2+11
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+3~, ASKLINK+3*
%Y ORLP2+3~, ASKLINK+3*
ACT ORLP2+3~, 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+3~
ALINK( ASKLINK+8, ASKLINK+10, ASKLINK+11
ALINK(0 ASKLINK+3
CLINIC LOOPCL~, LOOPCL+22
CNT ORLP2+3~, ASKLINK+20*, ASKLINK+21*, ASKLINK+22
DA ORLP2+3~, ASKLIST+1~, ASKLINK+11*, ASKLINK+21*, REN+44*
DA(1 ASKLINK+11*, ASKLINK+15*, ASKLINK+21*
DEX LOOPTS~, LOOPTS+1
DIC ORLP2+3~, 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+3~, ASKLIST+1~, ASKLINK+11*, REN+15~, REN+43*, REN+51!
DIK ORLP2+3~, ASKLINK+21*!
DIR ORLP2+3~, REN+15~, REN+35!, REN+37!
DIR("?" REN+31*, REN+32
DIR("??" REN+32*
DIR("A" REN+30*
DIR(0 REN+29*
DLAYGO ORLP2+3~
DR ORLP2+3~, ASKLINK+11*, REN+15~, REN+45*, REN+47*
DTOUT ORLP2+3~, ORLP2+9, ORLP2+10, REN+22, REN+34
DUOUT ORLP2+3~, REN+22, REN+34
FILE ORLP2+3~
IOF ORLP2+5
K ORLP2+3~, ASKLINK+20*, ASKLINK+21
LINK ORLP2+3~
LIST ORLP2+3~, ORLP2+10, 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+3~, ASKLINK+10*, ASKLINK+16*, PTS+5, PTS+6, PTS+7
LNK ORLP2+3~, ASKLINK+8*, ASKLINK+10, ASKLINK+11
LST ORLP2+3~, ASKLINK+16*
ORERR LOOPCL+18~, LOOPCL+22
ORLIST LOOPCL+18~, LOOPCL+22
ORLPT ORLP2+3~, LOOPTS+1*
ORNEW REN+15~, REN+36*
ORSTOP ORLP2+3~, ORLP2+9, ORLP2+10, ASKLIST+4*, ASKLIST+6*, ASKLIST+9*, ASKLIST+11*
ORTEAM REN+15~, REN+24*, REN+39, REN+44, REN+50
ORUS ORLP2+3~, 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+3~, LOOPTS~, LOOPTS+1, LOOPCL~
RESULT LOOPCL+18~, LOOPCL+22*, LOOPCL+23
TEAM ORLP2+3~
U ASKLINK+9, ASKLINK+10, ASKLINK+11, ASKLINK+16, PTS+9, PTS+10, PTS+11
USER ORLP2+3~
VP ORLP2+3~, 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+36
Y ORLP2+3~, ASKLIST+4, ASKLIST+5, ASKLIST+7, ASKLIST+9, REN+23, REN+24, REN+35
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