Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call