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

Package: Mental Health

Routine: YSSR


Information

YSSR ;SLC/AFE,HIOFO/FT - SECLUSION/RESTRAINT - Lookup & Entry ;10/21/11 9:51am

Source Information

Source file <YSSR.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 6 (,DD)^%DT  (,NOW)^%DTC  ^DIC  YN^DICN  ^DIE  ^DIK  
Mental Health 3 ^YSLRP  ERRMSG^YSSITE  WAIT^YSUTL  
DRG Grouper 1 $$ICDDATA^ICDXCODE  
Kernel 1 KILL^XUSCLEAN  
Registration 1 (DEM,PID)^VADPT  

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

Package Total Caller Graph
Mental Health 4 YSSR ENTRY  YSSR SEC/RES  YSSR1  YSSR2  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
ENLST ; Called from MENU option YSSR ENTRY
; Entry of basic S/R information
ENTER ;
SQ ;
REVIEW ;
FILE ;
END ; Called by routines YSSR1, YSSR2
EDIT ;
DELETE ; Called by routine YSSR2
PTNAME ; Called by routine YSSR1
; Patient look-up.
LKUP ; Called as ENTRY action from MENU option YSSR SEC/RES
; Called by routine YSSR1
; Lists patients in currently in S/R. May pass YSQT.
PNAMES ; Called by routine YSSR1
DXLKUP ; Checks ^YSD(627.8 DIAGNOSTIC RESULTS for most recent diagnosis.
HEADER ; Write header
TTIME ;calculate total time

External References

Name Field # of Occurrence
^%DT LKUP+9
DD^%DT PNAMES+2, PNAMES+6, TTIME+4
^%DTC TTIME+9
NOW^%DTC TTIME+3
^DIC ENTER+3
YN^DICN SQ+2, REVIEW+2, FILE+2
^DIE SQ+8, SQ+12, SQ+19, EDIT+5
^DIK DELETE+2
$$ICDDATA^ICDXCODE DXLKUP+13
DEM^VADPT PNAMES+1
PID^VADPT PNAMES+1
KILL^XUSCLEAN END+1
^YSLRP ENTER+1, PTNAME+2
ERRMSG^YSSITE SQ+7, SQ+11, SQ+18, EDIT+4
WAIT^YSUTL ENTER+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?IOM-$L("SECLUSION/RESTRAINT INFORMATION")\2,"SECLUSION/RESTRAINT INFORMATION",!
  • Line Location: ENLST+2
Function Call: WRITE
  • Prompt: !!,"Patient shown in Seclusion/Restraint at this time.",!
  • Line Location: ENTER+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTER+3
Function Call: WRITE
  • Prompt: !,"Was patient searched"
  • Line Location: SQ+1
Function Call: WRITE
  • Prompt: !!,"If patient was not searched, a reason should be given for the omission.",!
  • Line Location: SQ+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SQ+16
Function Call: WRITE
  • Prompt: !!?13,"INSUFFICIENT INFORMATION"
  • Line Location: SQ+21
Function Call: WRITE
  • Prompt: !!,"Do you need to edit the above information"
  • Line Location: REVIEW+1
Function Call: WRITE
  • Prompt: !!,"After the information is filed, you may no longer edit it.",!,"You may alter the information now.",!
  • Line Location: REVIEW+2
Function Call: WRITE
  • Prompt: !!,"Save this information"
  • Line Location: FILE+1
Function Call: WRITE
  • Prompt: !!,"NO, will delete this information from the record.",!,"YES, will file it under the patient's name."
  • Line Location: FILE+2
Function Call: WRITE
  • Prompt: !!?5,"INFORMATION NOTED.",!
  • Line Location: FILE+3
Function Call: WRITE
  • Prompt: !!?10,"< ENTRY FOR "_$P(YSNM,",",2)_" "_$P(YSNM,",")_" DELETED >",!
  • Line Location: DELETE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PTNAME+2
Function Call: WRITE
  • Prompt: !!,"Patient Name Required.",!
  • Line Location: PTNAME+3
Function Call: WRITE
  • Prompt: !?IOM-$L(" ** "_MSG1_" ** ")\2," ** "_MSG1_" ** ",!!
  • Line Location: LKUP+3
Function Call: WRITE
  • Prompt: !!,"The following patient(s) are currently listed as being in Seclusion/Restraint: ",!
  • Line Location: LKUP+4
Function Call: WRITE
  • Prompt: !!," * Written order required.",!
  • Line Location: LKUP+6
Function Call: WRITE
  • Prompt: " # Record incomplete, please contact IRM.",!
  • Line Location: LKUP+7
Function Call: WRITE
  • Prompt: !?5," ** ",MSG1," ** "
  • Line Location: LKUP+8
Function Call: WRITE
  • Prompt: !?0,$E(B,1,20),?22,SSN
  • Line Location: PNAMES+9
Function Call: WRITE
  • Prompt: ?28,YS01
  • Condition for execution: $D(YS01)
  • Line Location: PNAMES+9
Function Call: WRITE
  • Prompt: ?29,YS03
  • Line Location: PNAMES+9
Function Call: WRITE
  • Prompt: ?31,Y,?52,$E(JRBYN,1,18)
  • Line Location: PNAMES+10
Function Call: WRITE
  • Prompt: ?71,JRTT
  • Line Location: PNAMES+10
Function Call: WRITE
  • Prompt: !?31,"DATE & TIME",?72,"TOTAL",!
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: ?0,"PATIENT",?23,"SSN",?31,"INITIATED",?52,"ORDERED BY",?72,"TIME",!
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !
  • Line Location: TTIME+3
Routine Call
  • DIC
  • Line Location:
    • ENTER+3
Routine Call
  • DIE
  • Line Location:
    • SQ+8
    • SQ+12
    • SQ+19
    • EDIT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^YS(615.2 - [#615.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VA(200 - [#200] PNAMES+5
^YS(615.2 - [#615.2] ENTER+2, SQ+7, SQ+8, SQ+11, SQ+12, SQ+17, SQ+19, SQ+21, EDIT+3, EDIT+5
, LKUP+3, LKUP+5, PNAMES+2, PNAMES+4, PNAMES+6, PNAMES+7, PNAMES+8, TTIME+1, TTIME+2, TTIME+3
^YSD(627.7 - [#627.7] DXLKUP+9
^YSD(627.8 - [#627.8] DXLKUP+2, DXLKUP+3, DXLKUP+4, DXLKUP+5

Label References

Name Line Occurrences
DELETE SQ+3, SQ+5, SQ+9, SQ+18, SQ+21, REVIEW+3, FILE+4
DXLKUP SQ+15
EDIT REVIEW+4
END ENTER+1, ENTER+2, ENTER+3, SQ+3, SQ+5, SQ+9, SQ+18, SQ+21, REVIEW+3
HEADER LKUP+5
LKUP ENLST+2
PNAMES LKUP+5
TTIME PNAMES+3

Naked Globals

Name Field # of Occurrence
^(0 TTIME+1
^(10 SQ+21, PNAMES+8
^(40 TTIME+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SQ+1*, SQ+2, SQ+3, SQ+5, SQ+9, REVIEW+1*, REVIEW+2, REVIEW+4, FILE+1*, FILE+2
, FILE+3, TTIME+3, TTIME+12!
>> %DT LKUP+9*
>> A LKUP+5*, PNAMES+1, PNAMES+7
>> A1 LKUP+5*, PNAMES+2, PNAMES+4, PNAMES+6, PNAMES+8, TTIME+1, TTIME+2, TTIME+3
>> B PNAMES+1*, PNAMES+9
C1 LKUP+8!, PNAMES+1*
DA SQ+6*, SQ+7, SQ+8, SQ+10*, SQ+11, SQ+12, SQ+16*, SQ+17, SQ+19, SQ+21
, EDIT+1~, EDIT+2*, EDIT+3, EDIT+5, DELETE+1~, DELETE+2*
DFN PNAMES+1*, PNAMES+12!
>> DIC ENTER+3*, SQ+6, SQ+10
>> DIC(0 ENTER+3*
DIE SQ+6*, SQ+10*, SQ+16*, EDIT+1~, EDIT+2*
DIK DELETE+1~, DELETE+2*
>> DILOCKTM SQ+7, SQ+11, SQ+17, EDIT+3
>> DLAYGO ENTER+3*
DR SQ+6*, SQ+10*, SQ+16*, EDIT+1~, EDIT+2*
>> DTOUT SQ+2, SQ+13, SQ+20, REVIEW+2, FILE+2
>> DUOUT SQ+2, REVIEW+2, FILE+2
>> FN ENTER+3*, SQ+6, SQ+10, SQ+16, EDIT+2, DELETE+2
>> I HEADER+3*
IOF ENLST+2
IOM ENLST+2, LKUP+3, HEADER+3
>> JRBY PNAMES+4*, PNAMES+5
>> JRBYN PNAMES+5*, PNAMES+10
JRH TTIME+10*, TTIME+11*, TTIME+12!
JRISR TTIME+4*, TTIME+12!
JRMIN TTIME+10*, TTIME+11, TTIME+12!
JROSR TTIME+4*, TTIME+12!
JRTT PNAMES+10, PNAMES+11!, TTIME+11*
K DXLKUP+3*, DXLKUP+4, DXLKUP+6!
L DXLKUP+3*, DXLKUP+4, DXLKUP+6!
M DXLKUP+4*, DXLKUP+5, DXLKUP+6!
M1 DXLKUP+6*, DXLKUP+8, DXLKUP+9, DXLKUP+11, DXLKUP+13, DXLKUP+15, DXLKUP+16!
M2 DXLKUP+6*, DXLKUP+7, DXLKUP+8, DXLKUP+10, DXLKUP+11, DXLKUP+15, DXLKUP+16!
>> MSG1 ENLST+2*, LKUP+3*, LKUP+8
N1 DXLKUP+8*, DXLKUP+9, DXLKUP+11*, DXLKUP+15*, DXLKUP+16!
N2 DXLKUP+9*, DXLKUP+15*, DXLKUP+16!
N3 DXLKUP+15*, DXLKUP+16!
N4 DXLKUP+15*, DXLKUP+16!
>> OPT LKUP+8
R1 TTIME+1*, TTIME+4, TTIME+5, TTIME+6, TTIME+12!
R2 TTIME+2*, TTIME+3*, TTIME+4, TTIME+5, TTIME+6, TTIME+12!
R3 TTIME+10*, TTIME+12!
R4 TTIME+10*, TTIME+12!
>> SSN PNAMES+1*, PNAMES+9
VA PNAMES+12!
VA("BID" PNAMES+1
VADM PNAMES+12!
VADM(1 PNAMES+1
X ENTER+3*, PTNAME+2, LKUP+9*, TTIME+6*, TTIME+8*, TTIME+9*, TTIME+10, TTIME+12!
>> X1 TTIME+6*, TTIME+8
>> X2 TTIME+8*
XQT END+1~
Y ENTER+3, SQ+19!, PNAMES+2*, PNAMES+6*, PNAMES+10, TTIME+4*, TTIME+8*, TTIME+9, TTIME+12!
Y("" SQ+20
YS01 PNAMES+1!, PNAMES+7*, PNAMES+9
YS02 LKUP+6, LKUP+7, LKUP+10!, PNAMES+7*
YS03 PNAMES+1!, PNAMES+8*, PNAMES+9
YS04 LKUP+7, LKUP+10!, PNAMES+8*
>> YSDFN ENTER+1, ENTER+2, SQ+16, PTNAME+3, DXLKUP+2, DXLKUP+3, DXLKUP+4
YSDT END+1~
YSDTM END+1~
>> YSDX DXLKUP+2*, DXLKUP+9*, DXLKUP+13*, DXLKUP+14*, DXLKUP+15*
YSDXDAT DXLKUP+1~, DXLKUP+4*, DXLKUP+5*, DXLKUP+13
YSLC END+1~
YSLCN END+1~
>> YSN PTNAME+4*
>> YSNM DELETE+2, PTNAME+4
YSPDZ END+1~
>> YSQT PTNAME+2*, PTNAME+3*, LKUP+8*
YSTM END+1~
YSTO SQ+4~*, SQ+5, SQ+7*, SQ+9, SQ+11*, SQ+14*
YSTOUT SQ+2*, SQ+3, SQ+13*, SQ+14, SQ+20*, SQ+21, REVIEW+2*, REVIEW+3, FILE+2*, END+1~
YSUOUT SQ+2*, SQ+3, SQ+20*, SQ+21, REVIEW+2*, REVIEW+3, FILE+2*, END+1~
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