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 |  Local Variables |  All
Print Page as PDF
Routine: PSODUE

Package: Outpatient Pharmacy

Routine: PSODUE


Information

PSODUE ;BHAM ISC/JRR - DUE BUILD A QUESTIONNAIRE ; 11/17/92 10:20

Source Information

Source file <PSODUE.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 ^DIC  ^DIE  ^DIR  
Outpatient Pharmacy 1 QOUT^PSODACT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSOD BATCH PRINT QUESTIONNAIRE  PSOD DUE BUILD QUESTIONNAIRE  

Entry Points

Name Comments DBIA/ICR reference
EXITP
START ;Start here when print is queued
BUILD ;Build/Edit a DUE Survey Questionnaire
B2
EXITB
PRINT ;Batch print a Due Questionnaire
X
OUT

External References

Name Field # of Occurrence
^%ZIS PRINT+7
^%ZISC EXITP
^%ZTLOAD PRINT+8
^DIC B2, PRINT+1
^DIE B2+2
^DIR PRINT+4
QOUT^PSODACT OUT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Entry is being edited by another user. Try Later!",!
  • Line Location: B2+1
Function Call: WRITE
  • Prompt: @IOF,?(IOM\2-($L(PSOQM)\2)-4),"*** ",PSOQM," ***",!
  • Line Location: OUT+1
Function Call: WRITE
  • Prompt: !,"DRUG: __________________________"
  • Line Location: OUT+2
Function Call: WRITE
  • Prompt: !!
  • Condition for execution: (IOM-$X)<($L(X)+4)
  • Line Location: X+0
Function Call: WRITE
  • Prompt: ?(TAB),X
  • Line Location: X+0
Routine Call
  • DIE
  • Line Location:
    • B2+2
Routine Call
  • DIC
  • Line Location:
    • B2
    • PRINT+1
Routine Call
  • DIR
  • Line Location:
    • PRINT+4
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.073 - [#50.073] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DILOCKTM" B2+1
^PS(50.073 - [#50.073] B2+1, B2+2, OUT

Label References

Name Line Occurrences
B2 B2+1, B2+3
EXITB B2
EXITP PRINT+2, PRINT+5, PRINT+7, PRINT+8
OUT START+2
X OUT+3, OUT+4, OUT+5, OUT+6, OUT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS PRINT+7!*
DA B2+1*, EXITB!
DIC B2*!, EXITB!, PRINT+1*!
DIC(0 B2*, PRINT+1*
DIE B2+1*, EXITB!
DIR PRINT+4!
DIR("?" PRINT+4*
DIR("A" PRINT+4*
DIR(0 PRINT+4*
DIROUT EXITP+2!
DIRUT EXITP+2!
>> DLAYGO B2*
DR B2+1*, EXITB!
DTOUT EXITP+1!
DUOUT EXITP+1!
IO START+1
IO("Q" PRINT+8!
IOF OUT+1
IOM OUT+1, X
ION PRINT+7
IOP PRINT+7!*
POP PRINT+7, EXITP+2!
PSDASH EXITP+1!, OUT+9!
PSI START+2*, EXITP+2!
PSIGN EXITP+1!
PSLOCK EXITB!, EXITP+2!
PSMARG EXITP+2!
PSODUEL B2+1*, B2+2!
PSOION PRINT+7*!, PRINT+8!
PSOQ START+2*, OUT, OUT+9!
PSOQAIR PRINT+3*, START+2, EXITP+1!
PSOQL EXITP+2!
PSOQM EXITP+1!, OUT*, OUT+1, OUT+9!
PSOQN EXITP+1!
PSQ EXITP+1!
PSQA EXITP+1!
PSQCNT PRINT+6*, START+2, EXITP+1!
PSQNUM EXITP+1!
PSQTYP EXITB!, EXITP+2!
PSQUEST EXITB!, EXITP+2!
PSRC B2+2!
PSTXT EXITP+1!
PSWRAP EXITP+1!
TAB EXITP+2!, X*
X EXITB!, EXITP+2!, OUT+3*, OUT+4*, OUT+5*, OUT+6*, OUT+7*, X
Y B2, B2+1, EXITB!, PRINT+2, PRINT+3, PRINT+5, PRINT+6, EXITP+2!
>> ZTDESC PRINT+8*
ZTDTH PRINT+7!
>> ZTRTN PRINT+8*
ZTSAVE PRINT+7!
ZTSAVE("PSOQAIR" PRINT+8*
ZTSAVE("PSQCNT" PRINT+8*
ZTSAVE("ZTREQ" PRINT+8*
ZTSK PRINT+7!, PRINT+8!
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 |  Local Variables |  All