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

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 5 ^DIC  FILE^DICN  ^DIE  ^DIK  ^DIR  
Order Entry Results Reporting 2 ASKPT^ORLP00  OWNER^ORLP1  
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: 6

Package Total Caller Graph
Order Entry Results Reporting 5 ORLP TEAM ADD  ORLP TEAM MENU  ORLP0  ORLP1  ORLP2  
Kernel 1 ^DIC(19  

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

External References

Name Field # of Occurrence
^DIC AL+6, ASKLINK+5, ASKUSER+11, CHKNAM+4
FILE^DICN BYCL+52, ADDLOOP+5
^DIE AL+19, ASKLINK+9, ASKDEV+9, ASKSUB+9
^DIK AL+19, AL+26
^DIR AL+2
ASKPT^ORLP00 AL+33, AL+47
OWNER^ORLP1 AL+24
$$PTCL^SCAPMC BYCL+35

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
Routine Call
  • DIC
  • Line Location:
    • AL+6
    • ASKLINK+5
    • ASKUSER+11
    • CHKNAM+4
Routine Call
  • DIE
  • Line Location:
    • AL+19
    • ASKLINK+9
    • ASKDEV+9
    • ASKSUB+9
Routine Call
  • DIR
  • Line Location:
    • AL+2

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] AL+9, AL+13, AL+21, AL+25*, AL+29, ASKLINK+10, BYCL+48, BYCL+49, ASKUSER+3, STOR+4
, STOR+9, ADDLOOP+1, ADDLOOP+2, END+1
^TMP("ORLP" AL+10*
^TMP("SC TMP LIST" BYCL+33!, BYCL+45, BYCL+46, BYCL+61!
^XUTL("OR" CLEAR+1!, STOR+5

Label References

Name Line Occurrences
$$CHKNAM AL+4
ADDLOOP LOOPTS+1, STOR+5
ADDLPTS ASKLINK+14
AL AL+9
ASKDEV AL+30, AL+33, AL+41, AL+47
ASKLINK AL+30, AL+41
ASKLIST TM+6
ASKSUB AL+30, AL+34, AL+45, AL+47
ASKUSER AL+30, AL+33, AL+41, AL+47
BYCL ASKLINK+12
CLEAR TM+2
END TM+6
LOOPTS ADDLPTS+8, ADDLPTS+9, ADDLPTS+15, ADDLPTS+16, ADDLPTS+17, ADDLPTS+18

Naked Globals

Name Field # of Occurrence
^( STOR+5
^("ORU" CLEAR+1!
^("ORV" CLEAR+1!
^("ORW" CLEAR+1!
^(0 AL+29*, BYCL+49*, ASKUSER+3*, STOR+5, ADDLOOP+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END1!
ALCNT BYCL+17~, BYCL+42*, BYCL+53*, BYCL+57, BYCL+58
CLINIC BYCL~, BYCL+20*, BYCL+21*, BYCL+35
CNT ADDLPTS+5*, ADDLPTS+15*, LOOPTS+3, STOR+5*, STOR+6, STOR+8, ADDLOOP+5*, END1!
CNTAPR ADDLPTS+15~*, LOOPTS+3
DA AL+19*, AL+26*, ASKLINK+1~, ASKLINK+3!, ASKLINK+9*, BYCL+17~, BYCL+50!, ASKUSER+4!, ASKUSER+13!, ASKDEV+7*
, ASKSUB+7*, ADDLOOP+3!, END1!
DA(1 ASKLINK+4*, ASKLINK+9*, BYCL+51*, ASKUSER+5*, ASKUSER+6, ADDLOOP+4*
DD BYCL+17~, BYCL+50!, ADDLOOP+3!, END1!
DEX LOOPTS~, LOOPTS+1, LOOPTS+6!
DFN BYCL+17~, BYCL+46*, BYCL+47
DIC AL~, AL+6~*, AL+10!, ASKLINK+1~, ASKLINK+3!, ASKLINK+4*, BYCL+17~, BYCL+50!, BYCL+51*, ASKUSER+4!
, ASKUSER+6*, ASKUSER+13!, ADDLOOP+3!, ADDLOOP+4*, CHKNAM+1~, CHKNAM+3*, END1!
DIC("A" ASKLINK+4*, ASKUSER+7*
DIC("P" ASKUSER+6*
DIC("S" ASKUSER+9*
DIC(0 AL+6*, ASKLINK+4*, BYCL+51*, ASKUSER+6*, ADDLOOP+4*
DIE AL~, AL+19~*, ASKLINK+9*, ASKDEV+5~, ASKDEV+6*, ASKDEV+10!, ASKSUB+5~, ASKSUB+6*, ASKSUB+10!, END1!
DIK AL~, AL+19*, AL+26*, END1!
>> DILOCKTM STOR+4
DIR AL+1~, AL+3!, AL+5!, END1!
DIR("A" AL+1*
DIR(0 AL+1*
DIRUT AL+3!, AL+7!
DLAYGO AL~, AL+6*, ASKLINK+1~, ASKLINK+4*, ASKUSER+5*, ASKUSER+13!, STOR+3*
DO BYCL+17~, BYCL+50!, ADDLOOP+3!, END1!
DR AL~, AL+19*, ASKLINK+9*, ASKDEV+5~, ASKDEV+8*, ASKSUB+5~, ASKSUB+8*, END1!
DTOUT ASKUSER+1, ASKDEV+3, ASKSUB+3, END1!
DUOUT ASKLINK+1~, ASKLINK+3!, ASKUSER+1, ASKDEV+3, ASKSUB+3
DUPCNT BYCL+17~, BYCL+43*, BYCL+48*, BYCL+59
DUZ STOR+1
FILE ADDLPTS+5*, ADDLPTS+8, ADDLPTS+9, ADDLPTS+10, ADDLPTS+18, LOOPTS+6!
IOF TM+3
LINK ADDLPTS+5*, ADDLPTS+15, ADDLPTS+16, ADDLPTS+17, ADDLPTS+18, END1!
LNAME ASKLINK+1~, ASKLINK+7*, ADDLPTS+3, ADDLPTS+6, ADDLPTS+8, ADDLPTS+9, BYCL+26, BYCL+29
LVP ASKLINK+1~, ASKLINK+3, ASKLINK+5*, ASKLINK+8, ASKLINK+9, ASKLINK+10, ASKLINK+12, ADDLPTS+5
LVPT ASKLINK+1~, ASKLINK+10*, ADDLPTS+15, ADDLPTS+16, ADDLPTS+17, LOOPTS+2
MSG LOOPTS+6!, STOR+6*
ORBROOT END1!
ORBSTG END1!
ORCNT CLEAR+1*, STOR+1, END1!
ORDA AL~, AL+10*, AL+26
ORERR BYCL+17~, BYCL+35
ORFLAG AL~
ORLI STOR+5*, END1!
ORLIST BYCL+17~, BYCL+35
ORLJ STOR+5*, END1!
ORLPT LOOPTS+1*, END1!
ORLTNAM AL~, AL+4*, AL+9
ORLTYP TM+1~, AL+20*, AL+21*, AL+23, AL+26, AL+29, AL+34
OROWNER AL~, AL+20*, AL+26
ORRET BYCL+17~, BYCL+34*, BYCL+37*, BYCL+38
ORROOT AL~, AL+6*, AL+19, AL+26
ORYY AL~, AL+10*
RCD BYCL+17~, BYCL+44*, BYCL+45*, BYCL+46
REF LOOPTS~, LOOPTS+1, LOOPTS+2, LOOPTS+6!
RESULT BYCL+17~, BYCL+35*, BYCL+36, BYCL+37
SEL END1!
TEAM AL+10*, AL+13, AL+16, AL+18, AL+21, AL+25, AL+29, AL+33, AL+47, ASKLINK+4
, ASKLINK+9, ASKLINK+10, BYCL+48, BYCL+49, BYCL+51, ASKUSER+3, ASKUSER+5, ASKDEV+7, ASKSUB+7, STOR+2*
, STOR+4, STOR+8, STOR+9, ADDLOOP+1, ADDLOOP+2, ADDLOOP+4, END+1, END1!
TEAM(0 AL+10*, AL+17, AL+18, AL+40, AL+44, AL+47
U AL+9, AL+16, AL+17, AL+21, AL+37, AL+40, AL+44, AL+47, ASKLINK+6, ASKLINK+10
, ASKLINK+12, ADDLPTS+5, STOR+5, STOR+8
X AL+3, AL+6*, AL+7, ADDLPTS+5*, BYCL+17~, BYCL+47*, BYCL+48, BYCL+53, LOOPTS+1*, LOOPTS+3
, LOOPTS+6!, STOR+5*, STOR+6, ADDLOOP+1, CHKNAM~, CHKNAM+2*, CHKNAM+5*, CHKNAM+6, END1!
Y AL+4, AL+7, AL+9, AL+10, AL+18*, AL+19, ASKLINK+1~, ASKLINK+5, ASKLINK+6, ASKLINK+8
, ASKLINK+9, LOOPTS+6!, ASKUSER+10, ASKUSER+12, STOR+2, ADDLOOP+5, CHKNAM+5, END1!
Y(0 AL+10, AL+18*, AL+19, AL+37, ASKLINK+7
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