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

Package: Outpatient Pharmacy

Routine: PSOSUDP1


Information

PSOSUDP1 ;BIR/RTR-Delete a batch of printed Rx's ; 1/10/96

Source Information

Source file <PSOSUDP1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 ^%DT  ^DIR  
Kernel 1 ^%ZTLOAD  
Outpatient Pharmacy 1 DEQUE^PSOSUBCH  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOSUDPR  

Entry Points

Name Comments DBIA/ICR reference
HEAD
END
HEADONE
LIST
BEG
DEL
YLOOP
ENDM

External References

Name Field # of Occurrence
^%DT BEG+1
^%ZTLOAD DEL+6
^DIR PSOSUDP1+2, BEG+10, BEG+12, YLOOP+6, YLOOP+7, DEL, LIST+1, HEADONE
DEQUE^PSOSUBCH YLOOP+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PSOSUDP1+2
Function Call: WRITE
  • Prompt: !!?3,"Nothing deleted!"
  • Line Location: PSOSUDP1+2
Function Call: WRITE
  • Prompt: !!,"Enter a date range to see all batches printed from suspense within those dates."
  • Line Location: PSOSUDP1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !!,"Gathering batches, please wait...",!
  • Line Location: BEG+2
Function Call: WRITE
  • Prompt: $C(7),!!,"There are no printed batches found for that date range!",!
  • Line Location: BEG+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEG+7
Function Call: WRITE
  • Prompt: !,"BATCH",?8,"QUEUED TO PRINT ON:",?30,"PRINTED BY:",?59,"DIVISION"
  • Line Location: BEG+7
Function Call: WRITE
  • Prompt: !,"BATCH",?8,"QUEUED TO PRINT ON:",?30,"PRINTED BY:",?59,"DIVISION"
  • Line Location: BEG+7
Function Call: WRITE
  • Prompt: !,"BATCH",?8,"QUEUED TO PRINT ON:",?30,"PRINTED BY:",?59,"DIVISION"
  • Line Location: BEG+7
Function Call: WRITE
  • Prompt: !?1,AAA,?8,PSODATE,?30,PSOUSER,?59,PSPRDIV
  • Line Location: BEG+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEG+10
Function Call: WRITE
  • Prompt: !,"BATCH",?8,"QUEUED TO PRINT ON:",?30,"PRINTED BY:",?59,"DIVISION"
  • Line Location: BEG+10
Function Call: WRITE
  • Prompt: !,"BATCH",?8,"QUEUED TO PRINT ON:",?30,"PRINTED BY:",?59,"DIVISION"
  • Line Location: BEG+10
Function Call: WRITE
  • Prompt: !,"BATCH",?8,"QUEUED TO PRINT ON:",?30,"PRINTED BY:",?59,"DIVISION"
  • Line Location: BEG+10
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+12
Function Call: WRITE
  • Prompt: !
  • Line Location: YLOOP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: YLOOP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+6
Function Call: WRITE
  • Prompt: !!,"PRINTED BATCHES QUEUED FOR DELETION!",!!
  • Line Location: DEL+7
Function Call: WRITE
  • Prompt: !!?3,"Nothing deleted!"
  • Line Location: ENDM+0
Function Call: WRITE
  • Prompt: !,"END OF LIST"
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,"RX #",?20,"PATIENT NAME",?60,"BATCH ",LLL,!
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,"RX #",?20,"PATIENT NAME",?60,"BATCH ",LLL,!
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADONE+1
Function Call: WRITE
  • Prompt: !,"RX #",?20,"PATIENT NAME",?60,"BATCH ",LLL,!
  • Line Location: HEADONE+1
Function Call: WRITE
  • Prompt: !,"RX #",?20,"PATIENT NAME",?60,"BATCH ",LLL,!
  • Line Location: HEADONE+1
Routine Call
  • DIR
  • Line Location:
    • PSOSUDP1+2
    • BEG+10
    • BEG+12
    • YLOOP+6
    • YLOOP+7
    • DEL
    • LIST+1
    • HEADONE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" BEG+9, YLOOP+4
^DPT - [#2] LIST+4
^PS(52.5 - [#52.5] BEG+3, LIST+2, LIST+3, LIST+4
^PS(59 - [#59] PSOSUDP1+2, BEG+9
^PSRX - [#52] LIST+3, LIST+4
^TMP($J BEG!, BEG+4*, BEG+5*, BEG+6, BEG+8, BEG+14*, YLOOP+2*, YLOOP+3, YLOOP+4, DEL+2
, DEL+3, END!, LIST, LIST+2
^UTILITY($J BEG!, DEL+4*, END!
^VA(200 - [#200] BEG+9, YLOOP+4

Label References

Name Line Occurrences
BEG BEG+6
END PSOSUDP1+2, BEG+11, YLOOP+7, YLOOP+9, DEL+8
ENDM BEG+1, BEG+12, YLOOP+6, YLOOP+8, DEL
HEAD LIST+2
HEADONE LIST+3
LIST YLOOP+9

Naked Globals

Name Field # of Occurrence
^(0 BEG+9, YLOOP+4, LIST+3, LIST+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BEG+1!*, END!
%DT("A" BEG+1*
%DT(0 BEG+1*
%ZIS END!
AA BEG+7*, BEG+10*, END!
AAA BEG+8*, BEG+9, END!
BEGDATE BEG+1*, BEG+2*, BEG+3, END!
COUNT BEG+13*, BEG+14*, YLOOP+1*, YLOOP+2*, END!
DIR PSOSUDP1+2!, BEG+10!, BEG+12!, YLOOP+6!, YLOOP+7!, DEL!, LIST+1!, HEADONE!
DIR("A" PSOSUDP1+2*, BEG+12*, YLOOP+6*, YLOOP+7*, DEL*
DIR("B" PSOSUDP1+2*, YLOOP+6*, YLOOP+7*, DEL*
DIR(0 PSOSUDP1+2*, BEG+10*, BEG+12*, YLOOP+6*, YLOOP+7*, DEL*, LIST+1*, HEADONE*
>> DIRUT YLOOP+7
DTOUT PSOSUDP1+2, BEG!, BEG+1, BEG+12, YLOOP+6, END!
DUOUT PSOSUDP1+2, BEG+12, END!
ENDDATE BEG+1*, BEG+2*, BEG+3, END!
GG DEL+1*, END!, LIST+3*, LIST+4
INRX END!, LIST+3*, LIST+4
IOF BEG+7, BEG+10, HEAD, HEADONE+1
IOSL BEG+9, LIST+3
JJ BEG+14*, YLOOP+2*, END!
LLL END!, LIST*, LIST+2, HEAD, HEADONE+1
MMM BEG+3*, BEG+4, BEG+5, END!
NNN DEL+2*, DEL+3, END!
PDIVFLAG PSOSUDP1+2!*, BEG+4, BEG+5, END!
PDPRDIV END!
POP END!
PSIDATE BEG+8*, BEG+9, YLOOP+4*, END!
PSODATE BEG+9*, YLOOP+4*, YLOOP+5, END!
>> PSODIVS PSOSUDP1+2
PSODUZ BEG+8*, BEG+9, YLOOP+4*, END!
PSOLISTD BEG!, YLOOP+7*, YLOOP+8, YLOOP+9, END!
PSOOUT BEG!, BEG+8, BEG+9, BEG+10*, BEG+11, BEG+12*, YLOOP+9, LIST, LIST+1*, LIST+2
, LIST+3, LIST+5, LIST+6*, HEADONE*
PSOREDEV END!
PSORTIME END!
>> PSOSITE PSOSUDP1+2, BEG+4
PSOUSER BEG+9*, YLOOP+4*, YLOOP+5, END!
PSPDIV BEG+8*, BEG+9, END!
>> PSPRDIV BEG+9*
PSRDATE DEL+3*, DEL+4, END+1!
PSRDIV DEL+3*, DEL+4, END+1!
PSRDUZ DEL+3*, DEL+4, END+1!
PSYLOOP YLOOP*, YLOOP+1, YLOOP+2, END!
RECNT BEG+2*, BEG+4*, BEG+5*, BEG+12*, END+1!
REDT END+1!, LIST+2*, LIST+3
REDUZ END+1!, LIST+2*, LIST+3
RESITE END+1!, LIST+2*, LIST+3
RR BEG+14*, YLOOP+2*, END+1!
SS END+1!, LIST+2*, LIST+3
XXX BEG+3*, BEG+4, BEG+5, END+1!
>> Y PSOSUDP1+2, BEG+1, BEG+9*, BEG+10, BEG+11, BEG+12, BEG+13, BEG+14, YLOOP+4*, YLOOP+6
, YLOOP+7, YLOOP+8, DEL, LIST+1, LIST+5, LIST+6, HEADONE
>> Y( YLOOP, YLOOP+1, YLOOP+2
>> Y(1 YLOOP
>> ZTDESC DEL+6*
>> ZTDTH DEL+6*
>> ZTIO DEL+6*
>> ZTRTN DEL+6*
>> ZTSAVE( DEL+1*
>> ZTSAVE("^UTILITY($J,""PSODEPT""," DEL+5*
>> ZTSK DEL+7
ZZ BEG+13*, YLOOP+1*, END+1!
ZZZ BEG+3*, BEG+4, BEG+5, BEG+13*, YLOOP+1*, YLOOP+3*, YLOOP+4, YLOOP+5, END+1!
>> ZZZZ HEAD*, HEADONE+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All