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

Package: HINQ

Routine: DVBHQUS


Information

DVBHQUS ;ISC-ALBANY/PKE-CHECK STATUS in suspense ; 04 OCT 85 4:07 pm

Source Information

Source file <DVBHQUS.m>

Entry Points

Name Comments DBIA/ICR reference
LK
UP
FIND
EX
FILM ;
CODE
USER
TM
WRTMESS
ABS
SCROL
VER
EN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?22,"Patient not in Suspense file"
  • Line Location: UP+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: FIND+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: FILM+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CODE+3
Function Call: WRITE
  • Prompt: !!,R(3),": ",Y,?46,R(4),?61,": ",Z
  • Line Location: CODE+3
Function Call: WRITE
  • Prompt: !,R(5),?21,": ",DVBI,?46,R(8),?61,": ",Y1
  • Line Location: CODE+4
Function Call: WRITE
  • Prompt: !,"REQUESTED BY",?21,": ",$E($P(^(0),U,1),1,23),?46
  • Line Location: USER+0
Function Call: WRITE
  • Prompt: "TIME OF REQUEST",?61,": ",Y
  • Line Location: USER+0
Function Call: WRITE
  • Prompt: $P(^(0),U)," ",Y,!
  • Line Location: WRTMESS+2
Function Call: WRITE
  • Prompt: $E(^(0),1,80),!
  • Line Location: WRTMESS+3
Function Call: WRITE
  • Prompt: $E(^(0),81,150),!
  • Condition for execution: $L(^(0))>80
  • Line Location: WRTMESS+3
Function Call: WRITE
  • Prompt: $E(^(0),151,226),!
  • Condition for execution: $L(^(0))>150
  • Line Location: WRTMESS+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SCROL+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SCROL+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SCROL+1
Function Call: WRITE
  • Prompt: !,?10,"***ELIGIBILITY ",$S(Z="P":"PENDING VERIFICATION",Z="R":"PENDING RE-VERIFICATION",Z="V":"VERIFIED",1:"NOT VERIFIED"),"***",!
  • Line Location: VER+0
Function Call: WRITE
  • Prompt: !!,?10,"***ELIGIBILITY NOT VERIFIED***",!
  • Line Location: VER+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DVB(395.5 - [#395.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call