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

Package: Outpatient Pharmacy

Routine: PSOPTC0


Information

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

Source Information

Source file <PSOPTC0.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
VA FileMan 6 NOW^%DTC  ^DIC  (FILE,UPDATE)^DIE  GETS^DIQ  ^DIR  ^DIWP  
List Manager 3 EN^VALM  (FULL,WAIT)^VALM1  (CLEAN,SET)^VALM10  
Kernel 2 $$FMTE^XLFDT  $$LJ^XLFSTR  
Outpatient Pharmacy 2 ^PSOLSET  $$YESNO^PSOREJP3  
Registration 1 DEM^VADPT  

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

Package Total Caller Graph
Outpatient Pharmacy 7 PSO EPHARMACY PATIENT COMMENTS  PSO PATIENT COMMENT  PSO PATIENT COMMENT ACTIVATE  PSO PATIENT COMMENT ADD  PSO PATIENT COMMENT EXIT  PSO PATIENT COMMENT HISTORY  PSOREJP3  
Kernel 1 ^ORD(101  

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 ;

External References

Name Field # of Occurrence
NOW^%DTC ADDPC+6, ACT+47
^DIC EN+14
FILE^DIE ADDPC+18, ADDPCH+16, ACT+44
UPDATE^DIE ADDPC+9, ADDPCH+8
GETS^DIQ BUILD+19, ACT+22, HIST+22, HIST+40
^DIR COMMENT+9, SELECT+18
^DIWP BUILD+33, ACT+31, HIST+26
^PSOLSET EN+9
$$YESNO^PSOREJP3 COMMENT+16, ACT+38
DEM^VADPT HDR+6
EN^VALM EN+18
FULL^VALM1 ADD+4, SELECT+4
WAIT^VALM1 HIST+45, SELECT+8
CLEAN^VALM10 INIT+2
SET^VALM10 BUILD+28, BUILD+37
$$FMTE^XLFDT HDR+8
$$LJ^XLFSTR HDR+7, HDR+8, HDR+9

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
Routine Call
  • DIC
  • Line Location:
    • EN+14
Routine Call
  • DIE
  • Line Location:
    • ADDPC+18
    • ADDPCH+16
    • ACT+44
Routine Call
  • DIE
  • Line Location:
    • ADDPC+9
    • ADDPCH+8
Routine Call
  • DIR
  • Line Location:
    • COMMENT+9
    • SELECT+18
Routine Call
  • VALM
  • Line Location:
    • EN+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
55.17 GETS^DIQ
55.174 GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(55 - [#55] BUILD+16, BUILD+17, ADDPC+13, ADDPCH+12, HIST+35, HIST+37
^TMP("PSOPTC0" SELECT+6, SELECT+10, SELECT+12, SELECT+23, EXIT+2!
^UTILITY($J BUILD+31!, BUILD+34, BUILD+35, BUILD+38!, ACT+29!, ACT+32, ACT+33, ACT+35!, HIST+24!, HIST+27
HIST+28, HIST+30!
^XUSEC("PSO EPHARMACY SITE MANAGER" EN+2

Label References

Name Line Occurrences
$$COMMENT ADD+5
$$SELECT ACT+14, HIST+13
ACTX ACT+39
ADDPC ADD+10
ADDPCH ADDPC+21, ACT+49, ACT+50
BUILD INIT+3
EXIT EN+9, EN+15, HDR+5, BUILD+11
INIT ADD+11, ACTX+2, HIST+47

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ADDPC+7, ACT+48
DFN HDR+2~, HDR+4*, HDR+5
DIC EN+4~, EN+13*
DIC(0 EN+13*
DIR COMMENT+1~, SELECT+2~
DIR("?" COMMENT+6*
DIR("A" COMMENT+5*, SELECT+16*
DIR("B" COMMENT+13*, SELECT+17*
DIR(0 COMMENT+4*, SELECT+15*
DIRUT SELECT+2~, SELECT+20
DIWL BUILD+5~, BUILD+32*, ACT+10~, ACT+30*, HIST+10~, HIST+25*
DIWR BUILD+5~, BUILD+32*, ACT+10~, ACT+30*, HIST+10~, HIST+25*
DTOUT EN+4~, EN+15, COMMENT+1~, COMMENT+10
DUOUT COMMENT+1~, COMMENT+10
DUZ EN+2, ADDPC+12, ADDPCH+6
H1 HDR+2~, HDR+7*, HDR+8*, HDR+12
H2 HDR+2~, HDR+9*, HDR+10*, HDR+13
PSMLEN COMMENT~, COMMENT+3*, COMMENT+11, COMMENT+13
PSO200 ADDPC+2~, ADDPC+12*, ADDPC+15, ADDPCH+2~, ADDPCH+6*, ADDPCH+14
PSO55 ADD+2~, ADD+8*, ADD+10, ADDPC~, ADDPC+8, ADDPC+13, ADDPC+14, ADDPC+21, ADDPCH~, ADDPCH+7
, ADDPCH+12, ADDPCH+13, ACT+10~, ACT+19*, ACT+21, ACT+49, ACT+50, HIST+10~, HIST+17*, HIST+20
HIST+35, HIST+37, HIST+38
PSOACT ADDPCH~, ADDPCH+15, ACT+10~, ACT+24*, ACT+26*, ACT+27
PSOACT1 ACT+10~, ACT+25*, ACT+26, ACT+43, ACT+49, ACT+50
PSOAR ADDPC+2~, ADDPC+9!, ADDPC+18!, ADDPCH+2~, ADDPCH+9!, ADDPCH+16!, ACT+10~, ACT+44!
PSOAR( ADDPC+15*, ADDPC+16*, ADDPC+17*, ADDPCH+14*, ADDPCH+15*, ACT+42*, ACT+43*
PSOAR(1 ADDPC+8*, ADDPCH+7*
PSOCNT BUILD+5~, BUILD+9*, BUILD+24*, BUILD+25, BUILD+27
PSOCOM BUILD+5~, BUILD+35*, BUILD+37, ADD+2~, ADD+5*, ADD+7, ADD+10, ADDPC~, ADDPC+17, ACT+10~
ACT+33*, ACT+34, HIST+10~, HIST+28*, HIST+29
PSOCOMMENT BUILD+5~, BUILD+23*, BUILD+32
PSODATA BUILD+5~, BUILD+18!, ACT+10~, ACT+20!, HIST+10~, HIST+21!, HIST+39!
PSODATA( BUILD+20, BUILD+21, BUILD+22, BUILD+23, ACT+23, ACT+25, ACT+28, ACT+30, ACT+36, HIST+23
HIST+25, HIST+31, HIST+41, HIST+42, HIST+43
PSODATE BUILD+5~, BUILD+15*, BUILD+16*, BUILD+17
PSODATE1 BUILD+5~, BUILD+20*, BUILD+25
PSODFN BUILD+6~, BUILD+10*, BUILD+11, BUILD+16, BUILD+17, BUILD+19, BUILD+20, BUILD+21, BUILD+22, BUILD+23
PSOFILE ADDPC+2~, ADDPC+5*, ADDPC+8, ADDPC+15, ADDPC+16, ADDPC+17, ADDPCH+2~, ADDPCH+5*, ADDPCH+7, ADDPCH+14
, ADDPCH+15, ACT+10~, ACT+18*, ACT+42, ACT+43
PSOIEN ADDPC+2~, ADDPC+14*, ADDPC+15, ADDPC+16, ADDPC+17, ADDPCH+2~, ADDPCH+13*, ADDPCH+14, ADDPCH+15, ACT+11~
ACT+21*, ACT+22, ACT+23, ACT+25, ACT+28, ACT+30, ACT+36, ACT+42, ACT+43, HIST+10~
HIST+20*, HIST+22, HIST+23, HIST+25, HIST+31, HIST+38*, HIST+40, HIST+41, HIST+42, HIST+43
PSOLINE BUILD+6~, BUILD+8*, BUILD+26*, BUILD+28, BUILD+36*, BUILD+37, BUILD+40, ACT+11~, ACT+14, ACT+27
HIST+10~, HIST+13, SELECT~, SELECT+12*, SELECT+21*, SELECT+23
PSOMAX SELECT+2~, SELECT+10*, SELECT+12, SELECT+15, SELECT+17
PSONOW ADDPC+2~, ADDPC+7*, ADDPC+8, ADDPC+13, ADDPC+21, ADDPCH~, ADDPCH+7, ADDPCH+12, ACT+11~, ACT+23*
HIST+11~, HIST+34*, HIST+35*, HIST+37
PSONOWH ACT+11~, ACT+48*, ACT+49, ACT+50
>> PSOPAR EN+9
PSOPC BUILD+6~, BUILD+17*, BUILD+19, BUILD+20, BUILD+21, BUILD+22, BUILD+23, BUILD+27, ADDPC+2~, ADDPC+13*
, ADDPC+14, ADDPC+21, ADDPCH~, ADDPCH+7, ADDPCH+12, ADDPCH+13, ACT+11~, ACT+14*, ACT+16, ACT+21
ACT+49, ACT+50, HIST+11~, HIST+13*, HIST+15, HIST+20, HIST+35, HIST+37, HIST+38
PSOPCH ADDPCH+2~, ADDPCH+12*, ADDPCH+13, HIST+11~, HIST+36*, HIST+37*, HIST+38
PSOPTC EN+6!, EXIT+2!
PSOPTC("DFN" EN+16*, HDR+4, BUILD+10, ADD+8, ACT+19, HIST+17
>> PSOSITE EN+9
PSOSTATUS BUILD+6~, BUILD+22*, BUILD+25
PSOSTR BUILD+6~, BUILD+25*, BUILD+28
PSOTR COMMENT~, COMMENT+2*, COMMENT+5
PSOUSER BUILD+6~, BUILD+21*, BUILD+25
PSOY BUILD+6~, BUILD+34*, BUILD+35, ACT+11~, ACT+32*, ACT+33, HIST+11~, HIST+27*, HIST+28
PSOYESNO ACT+11~, ACT+38*, ACT+39, ACT+41
PSQ COMMENT+1~, COMMENT+7*, COMMENT+8, COMMENT+10*, COMMENT+11*, COMMENT+14, COMMENT+16*, COMMENT+17, COMMENT+18
U HDR+8, HDR+9, HDR+10
VA HDR+2~
VA("BID" HDR+7
VADM HDR+2~
VADM(1 HDR+7
VADM(14 HDR+10
VADM(3 HDR+8
VADM(4 HDR+8
VADM(5 HDR+9
>> VALMAR BUILD+27
>> VALMBCK ADD+7*, ADD+12*, ACT+16*, ACTX+3*, HIST+15*, HIST+48*
>> VALMCNT BUILD+40*
>> VALMHDR(1 HDR+12*
>> VALMHDR(2 HDR+13*
>> VALMHDR(3 HDR+14*
X EN+4~, BUILD+32*, ACT+30*, HIST+25*
Y EN+4~, EN+15, EN+16, COMMENT+11, COMMENT+13, COMMENT+15, COMMENT+19, SELECT+2~, SELECT+21
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