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

Package: CMOP

Routine: PSXEDRG


Information

PSXEDRG ;BIR/BAB-Drug Enter/Edit for HOST ; 30 Oct 95 / 3:16 PM [ 04/08/97 2:06 PM ]

Source Information

Source file <PSXEDRG.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 4 ^DIC  YN^DICN  ^DIE  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
CMOP 1 PSXX PSODRUG  

Entry Points

Name Comments DBIA/ICR reference
PSIU ;
DONE ;
CHECK
MQ ;
END

External References

Name Field # of Occurrence
^DIC PSXEDRG+3
YN^DICN PSIU+2
^DIE PSXEDRG+6
^DIR CHECK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PSXEDRG+3
Function Call: WRITE
  • Prompt: !!,"Drug is being edited by another process, try again later...",!!
  • Line Location: PSXEDRG+4
Function Call: WRITE
  • Prompt: !!,"DO YOU WANT TO MARK THIS DRUG AS A"_PSIUT_" ITEM"
  • Line Location: PSIU+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PSIU+7
Function Call: WRITE
  • Prompt: !!," Enter `Y' to mark this drug as a"_$S($E(PSIUT)="N":"n"_$E(PSIUT,2,99),1:PSIUT)_" item.",!," or `N' to unmark as a"_$S($E(PSIUT)="N":"n"_$E(PSIUT,2,99),1:PSIUT)_" item."
  • Line Location: MQ+1
Routine Call
  • DIE
  • Line Location:
    • PSXEDRG+6
Routine Call
  • DIC
  • Line Location:
    • PSXEDRG+3
Routine Call
  • DIR
  • Line Location:
    • CHECK

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] PSXEDRG+4, PSXEDRG+6, PSIU+1, PSIU+4*, PSIU+5*
^PSDRUG("AIU" PSIU+4*, PSIU+5!
^PSDRUG("IU" PSIU+6!*

Label References

Name Line Occurrences
DONE PSIU+3, PSIU+4
END PSXEDRG+3
MQ PSIU+2
PSIU PSXEDRG+5
PSXEDRG PSXEDRG+4, PSXEDRG+5, PSXEDRG+6

Naked Globals

Name Field # of Occurrence
^("I" PSXEDRG+6
^(0 PSIU+4, PSIU+5
^(2 PSIU+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PSIU+1*, PSIU+2*, PSIU+3, PSIU+4, PSIU+5, END!
D0 END!
D1 END!
DA PSXEDRG+3*, PSXEDRG+4, PSXEDRG+6*!, PSIU+1, PSIU+4, PSIU+5, PSIU+6, END!
DIC PSXEDRG+3*, PSXEDRG+6, END!
DIC(0 PSXEDRG+3*
DIE PSXEDRG+6*, END!
DIR CHECK!, END!
DIR("A" CHECK*
DIR("B" CHECK*
DIR(0 CHECK*
DIROUT END!
DIRUT END!
>> DLAYGO PSXEDRG+3*
DP CHECK~
DQ CHECK~, END!
DR PSXEDRG+6*, END!
DT PSXEDRG+6
DTOUT PSXEDRG+3, END!
DUOUT PSXEDRG+3, END!
I END!
PSIU PSIU+2*, DONE+1!
PSIUA PSXEDRG+5, PSIU+3*, PSIU+4*, END!
>> PSIUO PSIU+1*, PSIU+4, PSIU+5, PSIU+6
PSIUQ PSIU+1*, PSIU+2, PSIU+4, DONE+1!
PSIUT PSIU+1*, PSIU+2, DONE+1!, MQ+1
PSIUX PSXEDRG+5*, PSIU+1, PSIU+4, PSIU+5, END!
PSIUY PSIU+4*, PSIU+5*, PSIU+6, DONE+1!
PSXJ PSXEDRG+2*, END!
X CHECK, END!
Y PSXEDRG+3, PSXEDRG+6, CHECK*, CHECK+1*, END!
Z END!
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