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

Package: Outpatient Pharmacy

Routine: PSOPTC0


Information

PSOPTC0 ;AITC/PD - Patient Billing Comments;9/5/2017

Source Information

Source file <PSOPTC0.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Menu Option Entry Point
HDR ; Header
INIT ;
BUILD ; Build ListMan Screen
ADD ; Add Patient Comment
COMMENT(PSOTR,PSMLEN) ;*/
ADDPC(PSOCOM,PSO55) ; Add new multiple record for Patient Comment
ADDPCH(PSO55,PSOPC,PSONOW,PSOACT) ; Add new multiple record for Patient Comment History
ACT ; Activate / Inactivate Patient Comment
ACTX ;
HIST ; Patient Comment History
SELECT(PSOLINE) ; Select Line from List View
HELP ;
EXIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"Requires Pharmacy Key (PSO EPHARMACY SITE MANAGER) !"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: $C(7),!!,"Pharmacy Division Must be Selected!",!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !
  • Line Location: COMMENT+9
Function Call: WRITE
  • Prompt: !!,"Enter a free text comment up to 150 characters long.",!
  • Line Location: COMMENT+12
Function Call: WRITE
  • Prompt: !,PSOACT_" Comment # "_PSOLINE_":"
  • Line Location: ACT+27
Function Call: WRITE
  • Prompt: !," "_PSOCOM
  • Line Location: ACT+34
Function Call: WRITE
  • Prompt: !," "_PSODATA(55.17,PSOIEN,3,"I")
  • Line Location: ACT+36
Function Call: WRITE
  • Prompt: !
  • Line Location: HIST+19
Function Call: WRITE
  • Prompt: !," "_PSOCOM
  • Line Location: HIST+29
Function Call: WRITE
  • Prompt: !," "_PSODATA(55.17,PSOIEN,3,"I")
  • Line Location: HIST+31
Function Call: WRITE
  • Prompt: !
  • Line Location: HIST+32
Function Call: WRITE
  • Prompt: !,$G(PSODATA(55.174,PSOIEN,2,"E"))
  • Line Location: HIST+41
Function Call: WRITE
  • Prompt: ?15,$G(PSODATA(55.174,PSOIEN,.01,"E"))
  • Line Location: HIST+42
Function Call: WRITE
  • Prompt: ?45,$G(PSODATA(55.174,PSOIEN,1,"E"))
  • Line Location: HIST+43
Function Call: WRITE
  • Prompt: !!,"No Patient Comments available for selection."
  • Line Location: SELECT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
55.17 GETS^DIQ
55.174 GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call