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

Package: Outpatient Pharmacy

Routine: PSOPMPPF


Information

PSOPMPPF ;BIRM/MFR - Patient Medication Profile - Preferences ;04/28/05

Source Information

Source file <PSOPMPPF.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 6 ^%DT  FILE^DICN  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Outpatient Pharmacy 1 ^PSOLSET  
Registration 1 FULL^VALM1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSO PMP SITE PREFERENCES  PSOPMP0  

Entry Points

Name Comments DBIA/ICR reference
SAVE(SITE,USER) ; - Saves preferences by Site and/or User
EN ; - Menu option entry point
STSGP ; - Group By Status
LOAD(SITE,USER) ; Loading Factory/Division/User preferences
SRTBY ; - Sort By
DISPLAY(SITE,USER) ; - Displays the current view
ORDCNT ; - Display Order Count
SET(ZNODE) ;
LST(PSOSITE,PSOUSER) ; - Listmanager entry point
EXIT ; Exit
GOTO(INPUT,HOME) ; - Directed up-arrow
SIGDP ; - Display SIG
EXPDC ; - Expiration/Discontinued Cutoff Date
END
CHANGED(SITE,USER,FIELD,VALUE) ; - Sets PSOCHNG so the list can be refreshed
ORDER ; - Sort Order
DELETE(SITE,USER) ; - Deletes user/division preferences

External References

Name Field # of Occurrence
^%DT EXPDC+6, LOAD+18, SET+2
FILE^DICN SAVE+8, SAVE+13
^DIE SAVE+21, DELETE+9
^DIK DELETE+6, DELETE+7
$$GET1^DIQ LST+5, LST+11, DISPLAY+4, DISPLAY+6, DISPLAY+8
^DIR LST+8, EXPDC+5, SRTBY+3, ORDER+3, SIGDP+3, STSGP+3, ORDCNT+3, EXIT+5
^PSOLSET EN+2
FULL^VALM1 LST+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Pharmacy Division Must be Selected!",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LST+10
Function Call: WRITE
  • Prompt: !,"Division: ",$$GET1^DIQ(59,PSOSITE,.01),!
  • Line Location: LST+11
Function Call: WRITE
  • Prompt: " DAYS"
  • Line Location: EXPDC+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+4
Function Call: WRITE
  • Prompt: !?5,X,!?5,LN
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: !?5,"EXP/CANCEL CUTOFF : ",$P(Z,"^",2)," DAYS"
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: !?5,"SORT BY : "
  • Line Location: DISPLAY+11
Function Call: WRITE
  • Prompt: $S(X="RX":"Rx#",X="DR":"DRUG NAME",X="ID":"ISSUE DATE",X="LF":"LAST FILL DATE",1:"??")
  • Line Location: DISPLAY+12
Function Call: WRITE
  • Prompt: !?5,"SORT ORDER : ",$S($P(Z,"^",4)="A":"ASCENDING",1:"DESCENDING")
  • Line Location: DISPLAY+13
Function Call: WRITE
  • Prompt: !?5,"DISPLAY SIG : ",$S($P(Z,"^",5):"ON",1:"OFF")
  • Line Location: DISPLAY+14
Function Call: WRITE
  • Prompt: !?5,"GROUP BY STATUS : ",$S($P(Z,"^",6):"ON",1:"OFF")
  • Line Location: DISPLAY+15
Function Call: WRITE
  • Prompt: !?5,"DISPLAY ORDER COUNT: ",$S($P(Z,"^",7):"ON",1:"OFF")
  • Line Location: DISPLAY+16
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+17
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: GOTO+14
Function Call: WRITE
  • Prompt: !!,"Saving..."
  • Line Location: SAVE+3
Function Call: WRITE
  • Prompt: "OK!"
  • Line Location: SAVE+21
Function Call: WRITE
  • Prompt: !!,"Deleting..."
  • Line Location: DELETE+3
Function Call: WRITE
  • Prompt: "OK!"
  • Line Location: DELETE+6
Function Call: WRITE
  • Prompt: "OK!"
  • Line Location: DELETE+7
Function Call: WRITE
  • Prompt: "OK!"
  • Line Location: DELETE+9
Routine Call
  • DIE
  • Line Location:
    • SAVE+21
    • DELETE+9
Routine Call
  • DIR
  • Line Location:
    • LST+8
    • EXPDC+5
    • SRTBY+3
    • ORDER+3
    • SIGDP+3
    • STSGP+3
    • ORDCNT+3
    • EXIT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^PS(52.85 - [#52.85] Classic Fileman Calls,  GET1^DIQ
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.85 - [#52.85] LST+5, DISPLAY+3, DISPLAY+4, DISPLAY+6, LOAD+37, LOAD+40, CHANGED+5, CHANGED+6, SAVE+5, SAVE+10
, DELETE+7

Label References

Name Line Occurrences
$$GOTO EXPDC+5, SRTBY+3, ORDER+3, SIGDP+3, STSGP+3, ORDCNT+3
@( EXPDC+5, SRTBY+3, ORDER+3, SIGDP+3, STSGP+3, ORDCNT+3
CHANGED EXPDC+7, SRTBY+4, ORDER+4, SIGDP+4, STSGP+4, ORDCNT+4
DELETE LST+9
DISPLAY LST+6
END EN+7
LOAD EN+4, LST+9
LST EN+4
SAVE EN+5, EXIT+6
SET LOAD+37, LOAD+40

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SAVE+6~, SAVE+11~
DA SAVE+1~, SAVE+6~, SAVE+11~, SAVE+18*, SAVE+19*, DELETE+1~, DELETE+6*, DELETE+7*, DELETE+9*
DA(1 SAVE+12*, SAVE+19*, DELETE+6*
DD SAVE+6~, SAVE+8!, SAVE+11~, SAVE+13!
DIC SAVE+6~, SAVE+7*, SAVE+11~, SAVE+12*
DIC(0 SAVE+7*, SAVE+12*
DIE SAVE+1~, SAVE+18*, SAVE+19*, DELETE+1~, DELETE+9*
DIK DELETE+1~, DELETE+6*, DELETE+7*
DINUM SAVE+6~, SAVE+7*, SAVE+11~, SAVE+12*
DIR EN+1~, LST+1~, EXPDC+1!, SRTBY+1!, ORDER+1!, SIGDP+1!, STSGP+1!, ORDCNT+1!
DIR("?" EXPDC+3*, EXPDC+4*
DIR("A" LST+7*, EXPDC+2*, SRTBY+3*, ORDER+3*, SIGDP+3*, STSGP+3*, ORDCNT+3*, EXIT+4*
DIR("B" LST+8*, EXPDC+2*, SRTBY+2*, ORDER+2*, SIGDP+2*, STSGP+2*, ORDCNT+2*, EXIT+4*
DIR(0 LST+8*, EXPDC+2*, SRTBY+2*, ORDER+2*, SIGDP+2*, STSGP+2*, ORDCNT+2*, EXIT+4*
DIROUT EN+1~, LST+1~, LST+8, EXPDC+1!, EXPDC+5, SRTBY+1!, SRTBY+3, ORDER+1!, ORDER+3, SIGDP+1!
, SIGDP+3, STSGP+1!, STSGP+3, ORDCNT+1!, ORDCNT+3, EXIT+5
DIRUT EN+1~, LST+1~, LST+8, EXPDC+1!, EXPDC+5, SRTBY+1!, SRTBY+3, ORDER+1!, ORDER+3, SIGDP+1!
, SIGDP+3, STSGP+1!, STSGP+3, ORDCNT+1!, ORDCNT+3, EXIT+5
DLAYGO SAVE+6~, SAVE+11~
DO SAVE+6~, SAVE+8!, SAVE+11~, SAVE+13!
DR SAVE+1~, SAVE+6~, SAVE+11~, SAVE+15*, SAVE+16*, DELETE+1~, DELETE+8*
FIELD CHANGED~, CHANGED+8, CHANGED+9, CHANGED+10, CHANGED+11, CHANGED+12, CHANGED+13
FLD DELETE+1~, DELETE+8*
FLG DISPLAY+1~, DISPLAY+2*, DISPLAY+4*, DISPLAY+8
GOTO GOTO+1~, GOTO+12*, GOTO+13*, GOTO+14, GOTO+16
GRPNAM LOAD+15~
HOME GOTO~, GOTO+12, GOTO+14
INPUT GOTO~, GOTO+2, GOTO+4
LN DISPLAY+1~, DISPLAY+9*
ORDGRP LOAD+15~
PSOCHNG EN+1~, EN+5, LST+2*, EXIT+3, CHANGED+1, CHANGED+8*, CHANGED+9*, CHANGED+10*, CHANGED+11*, CHANGED+12*
, CHANGED+13*
PSOEXDCE EXPDC+2, EXPDC+6*, EXPDC+7, LOAD+13!, LOAD+18*, SET+2*, SAVE+15
PSOEXPDC EXPDC+6*, LOAD+13!, LOAD+18*, SET+2*
>> PSOPAR EN+2
PSOQUIT EN+1~, EN+5, LST+2*, LST+8*, LST+12, GOTO+2*
>> PSORDCNT ORDCNT+2, ORDCNT+4*, LOAD+19*, SET+7*, SAVE+16
PSORDER ORDER+2, ORDER+4*, LOAD+13!, LOAD+19*, SET+4*, SAVE+15
PSORDSEQ LOAD+13!
PSORDSEQ("N" LOAD+34*
PSORDSEQ("P" LOAD+33*
PSORDSEQ("R" LOAD+32*
PSORDSEQ("T" LOAD+31*
PSOSIGDP SIGDP+2, SIGDP+4*, LOAD+13!, LOAD+19*, SET+5*, SAVE+16
PSOSITE EN+2, EN+4, EN+5, LST~, LST+5, LST+6, LST+9, LST+11, EXPDC+7, SRTBY+4
, ORDER+4, SIGDP+4, STSGP+4, ORDCNT+4, EXIT+6
PSOSRTBY SRTBY+2, SRTBY+4*, LOAD+13!, LOAD+19*, SET+3*, SAVE+15
PSOSTSEQ LOAD+13!
PSOSTSEQ("A" LOAD+21*
PSOSTSEQ("DC" LOAD+24*
PSOSTSEQ("DE" LOAD+26*
PSOSTSEQ("DP" LOAD+25*
PSOSTSEQ("E" LOAD+23*
PSOSTSEQ("H" LOAD+27*
PSOSTSEQ("N" LOAD+29*
PSOSTSEQ("PH" LOAD+28*
PSOSTSEQ("S" LOAD+22*
PSOSTSGP STSGP+2, STSGP+4*, LOAD+13!, LOAD+19*, SET+6*, SAVE+16
PSOUSER LST~, LST+2*, LST+5, LST+6, LST+9, EXPDC+7, SRTBY+4, ORDER+4, SIGDP+4, STSGP+4
, ORDCNT+4, EXIT+3, EXIT+6
SAVEX EXPDC+1!
SITE DISPLAY~, DISPLAY+3, DISPLAY+4, DISPLAY+6, DISPLAY+8, LOAD~, LOAD+37, LOAD+40, CHANGED~, CHANGED+5
, CHANGED+6, SAVE~, SAVE+5, SAVE+7, SAVE+10, SAVE+12, SAVE+18, SAVE+19, DELETE~, DELETE+5
, DELETE+6, DELETE+7, DELETE+9
STS LOAD+15~
STSGRP LOAD+15~
TAG GOTO+1~, GOTO+13*
TAG( GOTO+13
TAG("DISPLAY ORDER COUNT" , GOTO+10*, SIG" , GOTO+8*
TAG("EXP/CANC EL CUTOFF" , GOTO+5*
TAG("GROUP BY STATUS" , GOTO+9*
TAG("SORT BY" , GOTO+6*
TAG("SORT ORD ER" , GOTO+7*
TMP LOAD+15~
TRGT GOTO+1~, GOTO+4*, GOTO+13
USER DISPLAY~, DISPLAY+3, DISPLAY+4, LOAD~, LOAD+37, CHANGED~, CHANGED+5, CHANGED+6, SAVE~, SAVE+10
, SAVE+12, SAVE+18, SAVE+19, DELETE~, DELETE+6
>> VALMBCK EXIT+8*
VALUE CHANGED~, CHANGED+8, CHANGED+9, CHANGED+10, CHANGED+11, CHANGED+12, CHANGED+13
X EXPDC+5, EXPDC+6*, SRTBY+3, ORDER+3, SIGDP+3, SIGDP+4, STSGP+3, STSGP+4, ORDCNT+3, ORDCNT+4
, DISPLAY+1~, DISPLAY+2*, DISPLAY+4*, DISPLAY+6*, DISPLAY+8*, DISPLAY+9, DISPLAY+11*, DISPLAY+12, LOAD+15~, LOAD+18*
, SET+1~, SET+2*, SET+3*, SET+4*, SET+5*, SET+6*, SET+7*, SAVE+6~, SAVE+7*, SAVE+11~
, SAVE+12*
Y LST+9, EXPDC+6, SRTBY+4, ORDER+4, SIGDP+4*, STSGP+4*, ORDCNT+4*, EXIT+5, LOAD+15~, LOAD+18
, SET+1~, SET+2
Z DISPLAY+1~, DISPLAY+2*, DISPLAY+4*, DISPLAY+6*, DISPLAY+7, DISPLAY+10, DISPLAY+11, DISPLAY+13, DISPLAY+14, DISPLAY+15
, DISPLAY+16, LOAD+15~, CHANGED+4*, CHANGED+5*, CHANGED+6*, CHANGED+8, CHANGED+9, CHANGED+10, CHANGED+11, CHANGED+12
, CHANGED+13
ZNODE SET~, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7
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