Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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 ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100.21 - [#100.21] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call