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

Package: Outpatient Pharmacy

Routine: PSODELI


Information

PSODELI ;IHS/DSD/JCM - DELETE ENTRIES IN APSP INTERVENTION FILE ;03/28/93 21:15

Source Information

Source file <PSODELI.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 ^DIC  ^DIE  EN1^DIP  ^DIR  
List Manager 1 FULL^VALM1  
Outpatient Pharmacy 1 ^PSOVWI  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Outpatient Pharmacy 6 PSO INTERVENTION DELETE  PSO LM ADD INTERVENTION  PSO LM DELETE INTERVENTION  PSO LM EDIT INTERVENTION  PSO LM PRINT INTERVENTION  PSO LM VIEW INTERVENTION  
Kernel 2 ^DIC(19  ^ORD(101  
Inpatient Medications 1 PSJ LM INTERVENTION DELETE  

Entry Points

Name Comments DBIA/ICR reference
START ;
END
INTERV ; Deletes entries from APSP INTERVENTION file
DEL ; Does actual lookup and deletion of entries
DELX ; Exit point from DEL
EOJ ; Clean up variables
EDIT ;Edit Pharmacy Intervention
NEW ;Enter Pharmacy Intervention
OUT ; Print Pharmacy Intervention
VIEW ;View Pharmacy Interventions

External References

Name Field # of Occurrence
^DIC DEL+1, EDIT+3, NEW+3
^DIE DEL+7, EDIT+4, NEW+4
EN1^DIP OUT+4
^DIR DEL+4
^PSOVWI VIEW+2
FULL^VALM1 VIEW+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You may only delete entries entered on the current day.",!
  • Line Location: INTERV+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !!,"Edit Existing Intervention",!!
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEW+2
Function Call: WRITE
  • Prompt: !!,"Enter Pharmacy Intervention",!!
  • Line Location: NEW+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OUT+2
Function Call: WRITE
  • Prompt: !!,"Print Pharmacy Intervention",!!
  • Line Location: OUT+2
Function Call: WRITE
  • Prompt: !!,"Pharmacy Intervention Menu",!!
  • Line Location: OUT+4
Function Call: WRITE
  • Prompt: @IOF,!!,"View Interventions",!!
  • Line Location: VIEW+2
Routine Call
  • DIC
  • Line Location:
    • DEL+1
    • EDIT+3
    • NEW+3
Routine Call
  • DIE
  • Line Location:
    • DEL+7
    • EDIT+4
    • NEW+4
Routine Call
  • DIR
  • Line Location:
    • DEL+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^APSPQA(32.4 - [#9009032.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APSPQA(32.4 - [#9009032.4] DEL+6, DEL+8
^DD("DILOCKTM" DEL+6

Label References

Name Line Occurrences
DEL INTERV+3
DELX DEL+2, DEL+4
EOJ ENDEDIT+5, NEW+5, OUT+5, VIEW+3
INTERV START+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APSP("LOG DEL FLG" , INTERV+2*, EOJ+1!
BY OUT+1~, OUT+3*
DA START+1!, DEL+1!, DEL+5*, DEL+7!, DELX+1!, EOJ+1!, EDIT+1~, EDIT+3!, EDIT+4*, NEW+3!
NEW+4*
DIADD NEW+1~, NEW+3*!
DIC START+1!, INTERV+3*, DEL+1!, DELX+1!, EOJ+1!, EDIT+1~, EDIT+3*!, EDIT+4, NEW+1~, NEW+3*!
NEW+4!, OUT+1~, OUT+3*
DIC("A" EDIT+3*
DIC("S" INTERV+3*
DIC(0 INTERV+3*, EDIT+3*, NEW+3*
DIDEL DEL+5*, EOJ+1!
DIE START+1!, DEL+5*, DEL+7!, EOJ+1!, EDIT+1~, EDIT+3!, EDIT+4*, NEW+1~, NEW+3!, NEW+4*
DIK EOJ+1!
DIR DEL+4!, DELX+1!
DIR("A" DEL+3*
DIR(0 DEL+3*
DIRUT DEL+4, DELX+1!, EOJ+1!
DLAYGO EDIT+1~, NEW+1~, NEW+3*
DR START+1!, DEL+1!, DEL+5*, DEL+7!, EOJ+1!, EDIT+1~, EDIT+4*, NEW+1~, NEW+3!, NEW+4*
DTOUT EOJ+1!
DUOUT EOJ+1!
FLDS OUT+1~, OUT+3*
IOF EDIT+2, NEW+2, OUT+2, VIEW+2
L OUT+1~, OUT+3*
PSODELI INTERV+3*, EOJ+1!
PSODELI("DA" DEL+1!, DEL+3*, DEL+5, DEL+6, DEL+8
PSODELI("DIC" INTERV+3*, DEL+5, DELX+1!
PSODELI("QFLG" INTERV+2*, INTERV+3, DEL+2*
>> PSOVWI("DIC" VIEW+2*
>> VALMBCK DELX+1*, EDIT+5*, NEW+5*, OUT+5*, VIEW+3*
X DELX+1!, EOJ+1!, EDIT+3!, NEW+3!
Y DEL+2, DEL+3*, DEL+4, DELX+1!, EOJ+1!, EDIT+1~, EDIT+3, EDIT+4, NEW+1~, NEW+3
NEW+4, OUT+1~
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