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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOUTLA

Package: Outpatient Pharmacy

Routine: PSOUTLA


Information

PSOUTLA ;BHAM ISC/AMC - pharmacy utility program ;07/24/96 1:13 pm

Source Information

Source file <PSOUTLA.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 6 ^%DT  NOW^%DTC  EN^DDIOL  ^DIC  ^DIE  ^DIR  
Outpatient Pharmacy 2 (KCMPX,SCMPX)^PSOCMOP  $$MAXNUMRF^PSOUTIL  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 39

Package Total Caller Graph
Outpatient Pharmacy 39 PARTIAL DATE  PSO AUTO DISPENSING DEVICE  PSO SETUP CLINIC GROUPS  PSOCPDUP  PSOCST7  PSODDPR1  PSODDPR8  PSODDPRE  
PSODRDU1  PSODRDU2  PSODRDUP  PSOHELP  PSOHELP1  PSOHLDS3  PSOHLNEW  PSOHLSG3  
PSOHLSN1  PSOP  PSOP1  PSOPMP1  PSOPRF  PSOQMCAL  PSORDS  PSOREF0  
PSORREF0  PSORXED  PSORXLAB  PSORXPR  PSORXRP1  PSORXRP2  PSORXRPT  PSOSD0  
PSOSDP  PSOXZA1  PSOXZA10  PSOXZA7  REFILL  ^PS(59  ^PSRX  

Entry Points

Name Comments DBIA/ICR reference
YN ;YES/NO PROMPT
FSTART
EDNEW ;
CHK1
ZIPIN ; input transform for ZIP field in file #59 internal format (no '-'s)
; Input: X as user entered value
; Output: X as internal value of user input OR
; undefined if input from user was invalid
FLDTHELP(FILLTYPE) ; Executable Help for FILL DATE, REFILL DATE and PARTIAL DATE fields in the PRESCRIPTION file (#52)
HLNEW ;formats provider instructions in FSIG for front door order
DRUGW ;
ZIPOUT ; output transform for ZIP - prints either ZIP or ZIP+4 (in 12345-1234)
; format.
; Input: Y internal value
; Output: Y external (12345 or 12345-1234)
FLDTINTR(FILLTYPE) ; Input Transform for FILL DATE, REFILL DATE and PARTIAL DATE fields in the PRESCRIPTION file (#52)
SETUPX
SETUP ;enter/edit clinic sort groups
PARKILL
FQUIT
EDSTAT
CHK
ADD ;enter/edit automated devices - OPAI
HLNEWX ;
STATDAY
SUSFDK ;
DAYS ;
ADDX
SUSFDS ;
FSIG(PSOFILE,PSOINTR,PSOLENTH) ;Format front door sig

External References

Name Field # of Occurrence
^%DT FLDTINTR+6
NOW^%DTC PARKILL+8
EN^DDIOL EDSTAT, PARKILL+2, PARKILL+4, FLDTINTR+6, FLDTINTR+9, FLDTINTR+12, FLDTHELP+6, FLDTHELP+8
^DIC SETUP+1, ADD+1
^DIE SETUP+1, ADD+1
^DIR CHK1+3, PARKILL+4
KCMPX^PSOCMOP SUSFDK+6
SCMPX^PSOCMOP SUSFDS+6
$$MAXNUMRF^PSOUTIL EDNEW+3
$$FMTE^XLFDT FLDTINTR+9, FLDTINTR+12, FLDTHELP+6, FLDTHELP+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?10,$C(7)," # ",PSPR," is not a valid choice."
  • Line Location: CHK+0
Function Call: WRITE
  • Prompt: !?10,$C(7),"RX# ",$P(^PSRX(+$P(PY(PSPR),"^"),0),"^")," is a duplicate choice."
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !!,$C(7),"RX# "_$P(^PSRX(PSPRXN,0),"^")_" is not a valid choice. (Different Division)",!
  • Line Location: CHK1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK1+3
Function Call: WRITE
  • Prompt: !?5,"'Y' FOR YES",!?5,"'N' FOR NO",!
  • Line Location: YN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SETUP+1
Function Call: WRITE
  • Prompt: ?35,"NO SUCH WARNING LABEL"
  • Line Location: DRUGW+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+1
Routine Call
  • DIE
  • Line Location:
    • SETUP+1
    • ADD+1
Routine Call
  • DIC
  • Line Location:
    • SETUP+1
    • ADD+1
Routine Call
  • DIR
  • Line Location:
    • CHK1+3
    • PARKILL+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.41 - [#52.41] FSIG+7, FSIG+11
^PS(52.5 - [#52.5] SUSFDS+3, SUSFDS+4, SUSFDS+5*, SUSFDS+6*, SUSFDS+7*, SUSFDK+3, SUSFDK+4, SUSFDK+5!, SUSFDK+6!, SUSFDK+7!
^PS(53 - [#53] STATDAY
^PS(54 - [#54] DRUGW+1
^PSDRUG - [#50] DAYS+1
^PSRX - [#52] CHK+1, CHK+2, CHK1, CHK1+2, DAYS+1, DAYS+2, EDNEW+3, STATDAY, PARKILL, PARKILL+8*
, FSIG+8, FSIG+9, FSIG+14, SUSFDS+2, SUSFDK+2, FLDTINTR+7, FLDTINTR+8, FLDTINTR+9, FLDTINTR+10, FLDTINTR+11
, FLDTINTR+12, FLDTHELP+5, FLDTHELP+6, FLDTHELP+7, FLDTHELP+8

Label References

Name Line Occurrences
ADD ADD+1
ADDX ADD+1
EDNEW DAYS+2
EDSTAT EDNEW+7
FQUIT FSIG+5, FSIG+6, FSIG+7, FSIG+8, FSIG+9, FSIG+12, FSIG+15
FSTART FSIG+12, HLNEW+3, HLNEWX+3
PARKILL PARKILL+1
SETUP SETUP+1
SETUPX SETUP+1

Naked Globals

Name Field # of Occurrence
^( FSIG+11, FSIG+14
^(0 STATDAY, FSIG+11, FSIG+14, DRUGW+1, SUSFDS+5, SUSFDK+5
^(2 CHK+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ZIPIN+4~*, PARKILL+8
%DT FLDTINTR+3~, FLDTINTR+6*
>> ACOM PARKILL+5*, PARKILL+7*, PARKILL+8
>> CLOZPAT EDNEW+3
CNT PARKILL*, PARKILL+8*!, FSIG+10~, FSTART+1*, FSTART+2, HLNEW+1~, HLNEWX+1~
>> CS DAYS+1*
DA DAYS+1, DAYS+2, EDNEW+3, STATDAY, SETUP+1*, SETUPX!, SUSFDS+2, SUSFDS+3, SUSFDK+2, SUSFDK+3
, ADD+1*, ADDX!, FLDTINTR+5, FLDTHELP+4
DA(1 PARKILL, PARKILL+8, FLDTINTR+5, FLDTHELP+4
DIC SETUP+1*, SETUPX!, ADD+1*, ADDX!
DIC("A" SETUP+1*, ADD+1*
DIC(0 SETUP+1*, ADD+1*
DIE SETUP+1*, SETUPX!, ADD+1*, ADDX!
DIR CHK1+1!, CHK1+4!, PARKILL+2!, PARKILL+8!
DIR("?" CHK1+2*, PARKILL+2*, PARKILL+3*
DIR("A" CHK1+2*, PARKILL+2*
DIR("B" CHK1+3*, PARKILL+3*
DIR(0 CHK1+2*, PARKILL+2*
>> DIRUT PARKILL+1, PARKILL+4, PARKILL+5
DLAYGO SETUP+1*, SETUPX!, ADD+1*
DR SETUP+1*, SETUPX!, ADD+1*, ADDX!
DTOUT CHK1+1!, CHK1+3, CHK1+4!, PARKILL+8!
DUOUT CHK1+1!, CHK1+3, CHK1+4!, PARKILL+8!
DUZ PARKILL+8
ED DAYS+1*, DAYS+2!
FFF FSIG+10~, FSIG+14*, FSTART+1*, FSTART+2, HLNEW+1~, HLNEWX+1~
FILLTYPE FLDTINTR~, FLDTINTR+5, FLDTINTR+9, FLDTINTR+12, FLDTHELP~, FLDTHELP+4, FLDTHELP+6, FLDTHELP+8
FLIM FSIG+10~, FSTART+1, FSTART+3*, HLNEW+1~, HLNEWX+1~
FSIG FSIG+5!, HLNEW+1!, HLNEWX+1!
FSIG( FSTART+1*, FSTART+5*
FSIG(1 FSTART+6*
FSIG(2 FSTART+6!
FVAR FSIG+10~, FSTART*, FSTART+1*, FSTART+3, FSTART+4*, FSTART+5, HLNEW+1~, HLNEWX+1~
FVAR1 FSIG+10~, FSTART*, FSTART+1, FSTART+2*, FSTART+4, HLNEW+1~, HLNEWX+1~
HSIG FSIG+10~, HLNEW+1~, HLNEWX+1~
HSIG( FSIG+11*, FSIG+14*, FSTART+1, FSTART+2, HLNEW+2*, HLNEWX+2*
HSIG(0 FSIG+12, FSIG+15
II FSIG+10~, FSTART*, FSTART+1*, FSTART+5, HLNEW+1~, HLNEWX+1~
>> LLL HLNEW+2*, HLNEWX+2*
LLP HLNEW+1~, HLNEW+2*, HLNEWX+1~, HLNEWX+2*
>> MAX DAYS+2
NNN FSIG+10~, FSIG+11*, FSIG+14*, FSTART+1*, HLNEW+1~, HLNEWX+1~
>> PSDAYS DAYS+1*, EDNEW+3, EDNEW+6, STATDAY*
>> PSDUP( CHK+1, CHK+2*
PSFMAX DAYS+1!, DAYS+2!, EDNEW+1!, STATDAY!
PSMAX DAYS+2!, EDNEW+1!, EDNEW+3*, EDNEW+5, EDNEW+6, STATDAY!
>> PSODEA DAYS+1*
>> PSODIV CHK+2
PSOFILE FSIG~, FSIG+5, FSIG+6, FSIG+7, FSIG+8, FSIG+9, FSIG+11, FSIG+12
PSOINTR FSIG~, FSIG+5, FSIG+7, FSIG+8, FSIG+9, FSIG+11, FSIG+14
PSOLENTH FSIG~, FSIG+5, FSTART+1, HLNEW+1~, HLNEW+2*, HLNEWX+1~, HLNEWX+2*
>> PSOPRZ PARKILL+6*
>> PSOSITE CHK+2
>> PSOSYS CHK1, CHK1+1
>> PSPOP CHK*, CHK+1*, CHK1*, CHK1+3*
>> PSPR CHK, CHK+1, CHK+2, CHK+3
>> PSPRXN CHK+3*, CHK1, CHK1+2
>> PSRF EDNEW+5, EDNEW+6, STATDAY*, EDSTAT
PSRMAX STATDAY!
PSTMAX EDNEW+7!, STATDAY!
>> PTDY STATDAY*
>> PTRF STATDAY*, EDSTAT
>> PTST STATDAY*, EDSTAT
>> PY( CHK, CHK+1, CHK+2, CHK+3
>> RESK PARKILL+1, PARKILL+7
RXIEN FLDTINTR+3~, FLDTINTR+5*, FLDTINTR+7, FLDTINTR+8, FLDTINTR+9, FLDTINTR+10, FLDTINTR+11, FLDTINTR+12, FLDTHELP+3~, FLDTHELP+4*
, FLDTHELP+5, FLDTHELP+6, FLDTHELP+7, FLDTHELP+8
SUB PARKILL*, PARKILL+8!
SUSIEN SUSFDS+1~, SUSFDS+3*, SUSFDS+4, SUSFDS+5, SUSFDS+6, SUSFDS+7, SUSFDK+1~, SUSFDK+3*, SUSFDK+4, SUSFDK+5
, SUSFDK+6, SUSFDK+7
U FLDTINTR+8, FLDTINTR+9, FLDTINTR+11, FLDTINTR+12, FLDTHELP+6, FLDTHELP+8
>> WPARRAY(6 HLNEWX+2
>> WPARRAY(7 HLNEW+2
X ZIPIN+4*, ZIPIN+5!, STATDAY, SETUP+1, SETUPX!, DRUGW+1!, SUSFDS+5, SUSFDS+6, SUSFDS+7, SUSFDK+5
, SUSFDK+6, SUSFDK+7, ADD+1, ADDX!, FLDTINTR+4, FLDTINTR+6*!, FLDTINTR+8!, FLDTINTR+11!
Y CHK1+3, ZIPOUT+4*, PARKILL+5, SETUP+1, SETUPX!, ADD+1, ADDX!, FLDTINTR+3~, FLDTINTR+6
>> Z0 DRUGW+1*
>> Z1 DRUGW+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All