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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSXCSTPG

Package: CMOP

Routine: PSXCSTPG


Information

PSXCSTPG ;BIR/JMB-Purges Cost Data/One Day Compile/Recompile Cost Data ;[ 04/08/97 2:06 PM ]

Source Information

Source file <PSXCSTPG.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
CMOP 4 (END,QUE,RUN)^PSXCSLG1  CHECK^PSXCSLOG  QUE^PSXCST  END^PSXCSUTL  
VA Fileman 4 (,DD)^%DT  C^%DTC  ^DIK  ^DIR  
Kernel 2 ^%ZTLOAD  $$HTFM^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
P2 ;Deletes sub-file nodes if no drug data nodes
P ;Queued entry point
PDT ;Get & validate purge date range
DAY ;Entry point for One Day Compile/Recompile Cost Data

External References

Name Field # of Occurrence
^%DT PDT+2, DAY+2
DD^%DT PSXCSTPG+8, PSXCSTPG+9, PDT+4
C^%DTC PSXCSTPG+6
^%ZTLOAD PDT+12
^DIK P+4, P2+4, P2+5
^DIR PDT+6, DAY+4
END^PSXCSLG1 P2+6
QUE^PSXCSLG1 PDT+13
RUN^PSXCSLG1 P+1
CHECK^PSXCSLOG PDT+8
QUE^PSXCST DAY+5
END^PSXCSUTL PDT+2, PDT+6, PDT+14, P2+7, DAY+2, DAY+3, DAY+5
$$HTFM^XLFDT PDT+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You are not authorized to use this option!"
  • Line Location: PSXCSTPG+2
Function Call: WRITE
  • Prompt: !!,"There is no data in the cost file."
  • Line Location: PSXCSTPG+4
Function Call: WRITE
  • Prompt: !!,"The cost file contains data beginning with ",Y,".",!!,"Data for three complete months must remain",!,"in the cost file. No data can be purged.",!
  • Line Location: PSXCSTPG+8
Function Call: WRITE
  • Prompt: !!,"Data for three complete months must remain in the cost file.",!?10,PSXBDTR_" through "_PSXDT90R_" can be purged.",!
  • Line Location: PDT+1
Function Call: WRITE
  • Prompt: " Invalid month."
  • Line Location: PDT+3
Function Call: WRITE
  • Prompt: !!,"Purge from "_PSXBDTR_" to "_Y,!
  • Line Location: PDT+4
Function Call: WRITE
  • Prompt: !!,"No data has been purged."
  • Line Location: PDT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PDT+11
Function Call: WRITE
  • Prompt: !,"You are not authorized to use this option!"
  • Line Location: DAY+1
Function Call: WRITE
  • Prompt: !!?5,"There is no prescription data for "_PSXSDATE_".",!
  • Line Location: DAY+3
Function Call: WRITE
  • Prompt: !!,"No data has been compiled/recompiled."
  • Line Location: DAY+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DAY+5
Routine Call
  • DIR
  • Line Location:
    • PDT+6
    • DAY+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DAY+3
^PSX(552.4 DAY+3
^PSX(552.5 PSXCSTPG+4, P+3, P+4, P2+1, P2+2, P2+3, P2+4, P2+5
^XUSEC("PSXCOST" PSXCSTPG+2, DAY+1

Label References

Name Line Occurrences
DAY DAY+2, DAY+4
PDT PDT+2, PDT+3, PDT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT PDT+2*, DAY+2*
>> %DT("A" PDT+2*, DAY+2*
>> %DT(0 PDT+2*, DAY+2*!
DA P+3*, P+4, P2+1!, P2+3*, P2+4, P2+5!*
DA(1 P+4*, P2+1*, P2+2, P2+3, P2+4
DA(2 P+4*
DIK P+4*, P2+4*!, P2+5*!
DIR PDT+6!, DAY+4!
DIR("A" PDT+6*, DAY+4*
DIR("B" PDT+6*, DAY+4*
DIR(0 PDT+6*, DAY+4*
>> DIRUT PDT+6, DAY+4
DT PSXCSTPG+6, DAY+2
DUZ PSXCSTPG+2, DAY+1
PSXBDT PSXCSTPG+4*!, PSXCSTPG+8, PSXCSTPG+9, PDT+2, P+3, DAY+2*, DAY+3
>> PSXBDTR PSXCSTPG+9*, PDT+1, PDT+2, PDT+4
>> PSXCOM PDT+8*, DAY+2*
>> PSXDIV P2+2*, P2+3
>> PSXDT90 PSXCSTPG+6*, PSXCSTPG+8, PSXCSTPG+9, PDT+3, PDT+5
>> PSXDT90R PSXCSTPG+9*, PDT+1
>> PSXEDT PDT+4*, PDT+5*, PDT+13*, P+3, DAY+2*, DAY+3
>> PSXERR PDT+8
>> PSXFND DAY+3*
>> PSXG PDT+11*
>> PSXJOB PDT+10*
>> PSXSDATE DAY+3*
>> PSXSTART PDT+10*
>> X PSXCSTPG+6, PDT+2, DAY+2
>> X1 PSXCSTPG+6*
>> X2 PSXCSTPG+6*
>> Y PSXCSTPG+8*, PSXCSTPG+9*, PDT+2, PDT+3, PDT+4, PDT+6, DAY+2, DAY+3*, DAY+4
>> ZTDESC PDT+11*
>> ZTDTH PDT+11*
>> ZTIO PDT+11*
>> ZTQUEUED PDT+13
>> ZTREQ PDT+13*
>> ZTRTN PDT+11*
>> ZTSAVE( PDT+11*
>> ZTSK PDT+12
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All