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

Package: Controlled Substances

Routine: PSDUSER


Information

PSDUSER ;BIR/LTL- MFI - NDES USERS Message builder for HL7 ; 16 Aug 95

Source Information

Source file <PSDUSER.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 (,HOME)^%ZIS  (,$$S)^%ZTLOAD  
VA FileMan 2 ^DIC  ^DIR  
Health Level Seven 1 (EN,INIT,KILL)^HLTRANS  

Entry Points

Name Comments DBIA/ICR reference
PIC
PRI
Q
HL
MFI
MFE
SEND
HEADER

External References

Name Field # of Occurrence
^%ZIS PRI+3
HOME^%ZIS PRI+4
^%ZTLOAD PRI+4
$$S^%ZTLOAD HEADER+1
^DIC PIC+2
^DIR PRI+2, HEADER
EN^HLTRANS SEND
INIT^HLTRANS HL+1
KILL^HLTRANS HL+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PRI+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRI+3
Function Call: WRITE
  • Prompt: !,PSD,?32,+PSD(PSD),?42,$P(PSD(PSD),U,2)
  • Line Location: Q+1
Function Call: WRITE
  • Prompt: !!,"Task#",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"."
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !,"User List for Narcotic Dispensing Equipment System",?70
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: "Page: ",PG,!,LN,!?5,"NAME",?32,"USER ID",?42,"PHONE NUMBER",!,LN
  • Line Location: HEADER+4
Routine Call
  • %ZIS
  • Line Location:
    • PRI+3
Routine Call
  • %ZIS
  • Line Location:
    • PRI+4
Routine Call
  • DIC
  • Line Location:
    • PIC+2
Routine Call
  • DIR
  • Line Location:
    • PRI+2
    • HEADER

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)
^TMP("HLS" MFI*, MFE*
^VA(200 - [#200] PIC+2, HEADER+1

Label References

Name Line Occurrences
HEADER Q, Q+1
HL PIC+4, PRI+2, PRI+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS PRI+3~*
DIC PSDUSER+2~, PIC*, PIC+3!
DIC("S" PIC+1*
DIC("W" PIC+2*
DIC(0 PIC*
DIR PSDUSER+2~, PRI+2!, HEADER!
DIR("?" PRI+1*
DIR("A" PRI*
DIR("B" PRI*
DIR(0 PRI*, HEADER*
DIRUT PSDUSER+2~, PRI+2
DT HL+2
DTOUT PSDUSER+2~, PIC+3
DUOUT PSDUSER+2~, PIC+3
DUZ HEADER+1
HLCHAR HL~
HLDA HL~
HLDAN HL~
HLDAP HL~
HLDT HL~
HLDT1 HL~, MFI
HLECH HL~, MFI, MFE
HLERR HL~, HL+1
HLEVN HL~, HL+2*
HLFS HL~, MFI, MFE
HLMTN HL~, HL+2*
HLNDAP HL~, HL+1*
HLNDAP0 HL~
HLPID HL~
HLQ HL~
HLSDATA HL~
HLSDT HL~, HL+2*, MFI, MFE
HLSEC HL~
HLVER HL~
IO("Q" PRI+3!, PRI+4
IOF HEADER+2
IOP PRI+3~
IOSL Q+1
IOST HEADER
LN Q~, HEADER+2*, HEADER+4
PG Q~*, HEADER, HEADER+2*, HEADER+4
POP PRI+3~
PSD PSDUSER+2~, Q*, Q+1*, MFI*, MFE*
PSD( PIC+2*, PIC+4, Q+1, MFE
PSD(0 PIC+3, PIC+4
PSD(1 PIC+4*, MFI*, MFE*
PSDOUT PSDUSER+2~, Q*, Q+1, HEADER*, HEADER+1*
U PIC+2, Q+1, HEADER+1
X PSDUSER+2~
Y PSDUSER+2~, PIC+2, PRI+2, HEADER
>> ZTDESC PRI+4*, HEADER+1
ZTDTH PRI+4~
ZTIO PRI+4~
>> ZTRTN PRI+4*
>> ZTSAVE("PSD*" PRI+4*
ZTSK PRI+4~, HEADER+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All