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

Package: Order Entry Results Reporting

Routine: ORLP


Information

ORLP ;SLC/CLA - Manager for Team List options ; 10/26/17 12:48pm

Source Information

Source file <ORLP.m>

Entry Points

Name Comments DBIA/ICR reference
CLEAR ; From TM, MERG^ORLP1, END^ORLP0.
TM ; From option ORLP TEAM ADD - create/add a team list.
ASKLIST ; Ask for team list.
; NOTE: For new entries, TYPE field is required and trigger
; stuffs CREATOR field with DUZ of current user.
AL
ASKLINK ; Ask for autolinks.
ADDLPTS ; Add patients linked to autolink.
BYCL(CLINIC) ; SLC/PKS - 6/99 - Return list of clinic patients by enrollment.
LOOPTS(REF,DEX) ;
ASKUSER ; From ASKLIST - ask for providers/users.
ASKDEV ; From ASKLIST - ask for device.
ASKSUB ; From ASKLIST - Ask re: subscription status.
; (PKS - 8/1999)
STOR ; From SEQ^ORLP0 - store list in 100.21.
ADDLOOP ; From STOR, LOOPTS - add patients.
CHKNAM(X) ; Check for duplicate entry.
END ;
END1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"A team list is a list containing patients related to several providers.",!,"These providers are the list's users. You may now create a new team list"
  • Line Location: TM+3
Function Call: WRITE
  • Prompt: !,"or add autolinks, users and/or patients to an existing team list. Autolinks",!,"automatically add or remove patients with ADT movements. Users on the list"
  • Line Location: TM+4
Function Call: WRITE
  • Prompt: !,"may receive notifications regarding patients on the same list. Please prefix",!,"your list name with 'TEAM' or 'SERVICE' (e.g. TEAM7B, SERVICECARDIOLOGY.)",!
  • Line Location: TM+5
Function Call: WRITE
  • Prompt: !!," Personal lists cannot be edited here.",!
  • Line Location: AL+9
Function Call: WRITE
  • Prompt: !?5," Another user is editing this entry."
  • Line Location: AL+13
Function Call: WRITE
  • Prompt: !," Type: "_$S($P(Y(0),U,2)="TM":"Manual Team List",$P(Y(0),U,2)="TA":"Autolinked Team List",$P(Y(0),U,2)="MRAL":"Manual Removal Autolinked Team List",1:"(Unknown)")
  • Line Location: AL+37
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKLINK+2
Function Call: WRITE
  • Prompt: !," This field is required in order for Provider autolinks to work correctly.",!," Please answer the question."
  • Line Location: ASKLINK+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDLPTS+1
Function Call: WRITE
  • Prompt: !," [ADT movements linked to "
  • Line Location: ADDLPTS+2
Function Call: WRITE
  • Prompt: !," ",LNAME
  • Line Location: ADDLPTS+3
Function Call: WRITE
  • Prompt: !," will now automatically add patients to this list.]"
  • Line Location: ADDLPTS+4
Function Call: WRITE
  • Prompt: !!," Adding patients linked to ",LNAME,"..."
  • Line Location: ADDLPTS+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDLPTS+7
Function Call: WRITE
  • Prompt: !
  • Line Location: BYCL+24
Function Call: WRITE
  • Prompt: !," [Patient enrollments linked to "
  • Line Location: BYCL+25
Function Call: WRITE
  • Prompt: !," ",LNAME
  • Line Location: BYCL+26
Function Call: WRITE
  • Prompt: !," will now automatically add patients to this list.]"
  • Line Location: BYCL+27
Function Call: WRITE
  • Prompt: !
  • Line Location: BYCL+28
Function Call: WRITE
  • Prompt: !," Adding patients enrolled in ",LNAME,"..."
  • Line Location: BYCL+29
Function Call: WRITE
  • Prompt: !
  • Line Location: BYCL+30
Function Call: WRITE
  • Prompt: !," "_ALCNT_" patient(s) added to list."
  • Line Location: BYCL+57
Function Call: WRITE
  • Prompt: !," No linked patients found."
  • Line Location: BYCL+58
Function Call: WRITE
  • Prompt: !," "_DUPCNT_" patient(s) already on list."
  • Line Location: BYCL+59
Function Call: WRITE
  • Prompt: !
  • Line Location: BYCL+60
Function Call: WRITE
  • Prompt: !,$S(+CNT:" "_(+$G(CNTAPR)+(+CNT))_" patient(s) added.",1:" Linked patients already on list.")
  • Line Location: LOOPTS+3
Function Call: WRITE
  • Prompt: " No linked patients found."
  • Line Location: LOOPTS+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOPTS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKUSER+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKUSER+12
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDEV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKSUB+4
Function Call: WRITE
  • Prompt: !,"Another user is editing this entry."
  • Line Location: STOR+4
Function Call: WRITE
  • Prompt: !?5,MSG
  • Line Location: STOR+6
Function Call: WRITE
  • Prompt: !?5," No patients found."
  • Line Location: STOR+7
Function Call: WRITE
  • Prompt: !?5," Storing list "
  • Line Location: STOR+8
Function Call: WRITE
  • Prompt: $P(TEAM,U,2)," "
  • Condition for execution: $D(TEAM)
  • Line Location: STOR+8
Function Call: WRITE
  • Prompt: "for future reference..."
  • Line Location: STOR+8

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