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

Package: Mental Health

Routine: YTQROPT


Information

YTQROPT ;SLC/KCM - MHA Assignment Options ; 1/25/2017

Source Information

Source file <YTQROPT.m>

Entry Points

Name Comments DBIA/ICR reference
LSTBYPT ; List assignments by patient
; Option: YTQR ASSIGNMENT BY PATIENT
BLD4PT(YSDFN,OUT) ; List assignments for patient in OUT
; ^XTMP("YTQASMT-INDEX","AD",DFN,ORDBY,SETID)=EXPIRE
SHO4PT(OUT) ; Display assignment information
LSTALL ; List all active assignments
ADMDTL ; List details of an administration
; Option: YTQR ADMINISTRATION DETAIL
OKDETAIL() ; return 1 if OK to show details
SHOADM(YSAD) ; Show all fields for administration
SHOFULL(YSAD) ; Show answers & results for administration

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,"No assignments found for this patient",!
  • Line Location: LSTBYPT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LSTBYPT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: LSTBYPT+6
Function Call: WRITE
  • Prompt: !,?5,"Provider",?34,"PIN",?40,"Expires"
  • Line Location: SHO4PT+2
Function Call: WRITE
  • Prompt: !,?5,"--------",?34,"---",?40,"-------"
  • Line Location: SHO4PT+3
Function Call: WRITE
  • Prompt: !,?5,PRVNM,?32,$J(SET,6),?40,OUT(PRVNM,SET)
  • Line Location: SHO4PT+6
Function Call: WRITE
  • Prompt: !!,?10,"---- ",PTNM," ----"
  • Line Location: LSTALL+5
Function Call: WRITE
  • Prompt: !,"--- List Administration Details ---",!
  • Line Location: ADMDTL+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ADMDTL+10
Function Call: WRITE
  • Prompt: !,"No administrations found."
  • Line Location: ADMDTL+16
Function Call: WRITE
  • Prompt: !," --- Answer Records ---"
  • Line Location: SHOFULL+3
Function Call: WRITE
  • Prompt: !,?2,I,"=",$G(^YTT(601.85,I,0))
  • Line Location: SHOFULL+5
Function Call: WRITE
  • Prompt: !,?4,$G(^YTT(601.85,I,1,J,0))
  • Line Location: SHOFULL+7
Function Call: WRITE
  • Prompt: !," --- Result Records ---"
  • Line Location: SHOFULL+9
Function Call: WRITE
  • Prompt: !,?2,I,"=",$G(^YTT(601.92,I,0))
  • Line Location: SHOFULL+11
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOFULL+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^YTT(601.84 - [#601.84] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call