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

Package: Outpatient Pharmacy

Routine: PSOCLUTL


Information

PSOCLUTL ;BHAM ISC/DMA - utilities for clozapine reporting system ; 12/22/92

Source Information

Source file <PSOCLUTL.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 YMD^%DTC  ^DIC  ^DIE  ^DIR  
MailMan 1 ^XMD  
Outpatient Pharmacy 1 EN^PSOHLUP  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSOL EDIT  PSOL REGISTER PATIENT  

Entry Points

Name Comments DBIA/ICR reference
AGAIN ; re-enter patient - new number, status and provider
END
PHY1 ;
FACILITY ;Enter facility DEA number to set up clozapine system
OVER ;allow registration of patients and clozapine numbers not yet authorized by the NCCC.
NUMBER
PHY
SAVE
REG ; register patient

External References

Name Field # of Occurrence
YMD^%DTC OVER+4
^DIC REG+1, PHY, AGAIN+1
^DIE SAVE+1
^DIR NUMBER, NUMBER+3, PHY+4, AGAIN+4, PHY1+1, OVER+1
EN^PSOHLUP REG+2
^XMD OVER+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,PSONAME_" is already registered with number "_$P(PSO4,"^"),!!,"Use the edit option to change registration data, or",!,"contact your supervisor",!
  • Line Location: REG+4
Function Call: WRITE
  • Prompt: !,"Not registered",!
  • Line Location: NUMBER+0
Function Call: WRITE
  • Prompt: !,PSO2," is already assigned to ",$P(^DPT(+$O(^(0)),0),"^")
  • Line Location: NUMBER+1
Function Call: WRITE
  • Prompt: !,"Please contact your supervisor"
  • Line Location: NUMBER+1
Function Call: READ
  • Timeout: 10
  • Variable: X
  • Line Location: NUMBER+4
Function Call: WRITE
  • Prompt: !!,"Not registered"
  • Line Location: NUMBER+4
Function Call: READ
  • Timeout: 10
  • Variable: X
  • Line Location: PHY+0
Function Call: WRITE
  • Prompt: !!,"Not registered",!!
  • Line Location: PHY+0
Function Call: WRITE
  • Prompt: !!,"Only providers with DEA numbers entered in the New Person",!,"file can register patients in this program.",!!
  • Line Location: PHY+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Patient "_PSONAME_" is being edited by another user! Try Later."
  • Line Location: SAVE+0
Function Call: WRITE
  • Prompt: !,PSONAME_" is not registered. Use the register option."
  • Line Location: AGAIN+2
Function Call: WRITE
  • Prompt: !,PSO2," already assigned to ",$P(^DPT($O(^(0)),0),"^")
  • Line Location: AGAIN+4
Function Call: WRITE
  • Prompt: !,$P(^DD(55,54,0),"^")_": "_$S(PSO3="A":"ACTIVE TREATMENT",PSO3="D":"DISCONTINUED",PSO3="H":"TREATMENT ON HOLD",1:"PRE-TREATMENT")
  • Line Location: AGAIN+8
Function Call: WRITE
  • Prompt: !!,"Only providers with DEA numbers entered in the New Person",!,"file can register patients in this program.",!!
  • Line Location: PHY1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: OVER+1
Routine Call
  • DIE
  • Line Location:
    • SAVE+1
Routine Call
  • DIC
  • Line Location:
    • REG+1
    • PHY
    • AGAIN+1
Routine Call
  • DIR
  • Line Location:
    • NUMBER
    • NUMBER+3
    • PHY+4
    • AGAIN+4
    • PHY1+1
    • OVER+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DILOCKTM" SAVE
^DD(55 AGAIN+8
^DPT - [#2] REG+1, NUMBER+1, AGAIN+1, AGAIN+4
^PS(55 - [#55] REG+2, REG+4, NUMBER+1, SAVE, SAVE+1, AGAIN+2, AGAIN+4, AGAIN+7, PHY1+1
^TMP("PSO" END!
^TMP($J END!
^VA(200 - [#200] PHY+1, PHY1+2, OVER+3
^YSCL(603.01 REG+3, NUMBER+2, AGAIN+3, AGAIN+5

Label References

Name Line Occurrences
AGAIN AGAIN+2, AGAIN+3
END REG+1, NUMBER, NUMBER+1, NUMBER+2, NUMBER+4, PHY, PHY+4, SAVE, AGAIN+1, AGAIN+4
, AGAIN+5, PHY1+1
OVER REG+3, NUMBER+2, AGAIN+3, AGAIN+5
PHY PHY+1
PHY1 PHY1+2
REG REG+3, REG+4, NUMBER, NUMBER+1
SAVE PHY1+3

Naked Globals

Name Field # of Occurrence
^( NUMBER+1, AGAIN+4
^("SAND" REG+4
^(0 NUMBER+1, AGAIN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% REG+3, NUMBER+2, END!, AGAIN+3, AGAIN+5, OVER+2*, OVER+4
>> %H OVER+4*
%Y END!
C END!
D END!
D0 END!
DA SAVE*, SAVE+1, END!, AGAIN+1*, AGAIN+2, AGAIN+7, PHY1+1
DFN END!
DI END!
DIC REG+1*!, PHY*!, END!, AGAIN+1*!
DIC("A" REG+1*, PHY*, AGAIN+1*
DIC("S" PHY*
DIC(0 REG+1*, PHY*, AGAIN+1*
DIE SAVE*, END!
DIR NUMBER!, NUMBER+3!, PHY+2!, PHY+4!, OVER+1!, OVER+6!
DIR("?" NUMBER+3*
DIR("A" NUMBER+3*, PHY+3*, OVER+1*
DIR("B" PHY+4*, OVER+1*
DIR(0 NUMBER*, NUMBER+3*, PHY+4*, AGAIN+4*, PHY1+1*, OVER+1*
DIRUT NUMBER, NUMBER+4, PHY+2!, AGAIN+4, PHY1+1, OVER+6!
DLAYGO REG+1*!
DQ END!
DR SAVE*, END!
DT SAVE
DTOUT PHY+2!
DUOUT PHY+2!, OVER+6!
DUZ OVER+3
DUZ(2 OVER+3, OVER+4
>> JADOVER REG+3*, NUMBER+2, AGAIN+3*, AGAIN+5
PSO END!
PSO1 REG+1*, REG+2, REG+3, REG+4, NUMBER+1, SAVE, END!, AGAIN+1*, AGAIN+3, AGAIN+4
PSO2 NUMBER*, NUMBER+1, NUMBER+2, PHY+3, SAVE, END!, AGAIN+4*, AGAIN+5, OVER+3
PSO3 NUMBER+3*, PHY+3, SAVE, END!, AGAIN+7*, AGAIN+8
PSO4 REG+4*, PHY+2*, SAVE, END!, PHY1+1*, PHY1+2
PSOC END!
PSOLN END!
PSONAME REG+1*, REG+3, REG+4, PHY+3, SAVE, END!, AGAIN+1*, AGAIN+2, AGAIN+3, OVER+3
PSONO END!
PSOT END!
R END!
VAERR END!
X NUMBER+4*!, PHY*!, OVER+4
XMDUN OVER+4*, OVER+5!
XMDUZ END!, OVER+4*, OVER+5!
XMER OVER+5!
XMREC OVER+5!
XMSUB END!, OVER+4*, OVER+5!
XMTEXT END!, OVER+4*, OVER+5!
XMY OVER+5!
XMY("G.CLOZAP INE ROLL-UP@FORUM.VA.GOV" , OVER+4*
XMZ OVER+5!
XRG OVER+5!
Y REG+1, NUMBER, NUMBER+3, PHY, PHY+1, PHY+2, PHY+4, END!, AGAIN+1, AGAIN+4
, PHY1+1, OVER+2
YSCLDATA OVER+5!
YSCLDATA(1 OVER+3*
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