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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOPOST1

Package: Outpatient Pharmacy

Routine: PSOPOST1


Information

PSOPOST1 ;BHAM ISC/SAB - post routine to view status of background jobs ; 6/26/97

Source Information

Source file <PSOPOST1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 5 ^%DT  NOW^%DTC  EN^DDIOL  ^DIK  EN^DIQ1  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

Entry Points

Name Comments DBIA/ICR reference
OPT ;PSO*7.0*12 deletes PSO CANCEL protocol in preinstall
EN
MISIG ;post install for PSO*7*87
NDCX
NDC ;PSO*7.0*29 Pre-install, to remove field#11 (NDC) of file 52.1 (Refills) in order to increase the length of field#1.2 (Current Unit Price of Drug) from 99.999 to 999.9999
NDCQ ;Post-install display
NDCM ;PSO*7*29 data conv. rout. to move data of field#11 NDC piece 13 from File 52.1(Refills) Node 0 to piece 3 of Node 1
EX
NDCG ;PSO*7*29 post-install background bob Date/Time selection

External References

Name Field # of Occurrence
^%DT NDCG+2
NOW^%DTC EN+5, NDCG+1
^%ZIS PSOPOST1+3, PSOPOST1+4
^%ZISC EX
^%ZTLOAD PSOPOST1+5, NDCG+4
EN^DDIOL MISIG+2
^DIK OPT+1, NDC+1
EN^DIQ1 EN+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?1,HDR_" "_$P(Y,"@")_" "_$P(Y,"@",2)_" Page 1",!,LINE
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !?17,"Site Name: "_PSOPOST(59.7,1,.01),!?1,"Current Version Installed: "_$G(PSOPOST(59.7,1,49.99)),!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !?1,"Background Conversion Job Started: "_$S($G(PSOPOST(59.7,1,49.981))]"":$P(PSOPOST(59.7,1,49.981),"@")_" "_$P(PSOPOST(59.7,1,49.981),"@",2),1:"Job Not Started Yet!")
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !?21,"Job Completed: "_$S($G(PSOPOST(59.7,1,49.982))]"":$P(PSOPOST(59.7,1,49.982),"@")_" "_$P(PSOPOST(59.7,1,49.982),"@",2),1:"")
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: NDCQ+1
Function Call: WRITE
  • Prompt: !,"In this patch field NDC (#11) in the REFILL sub-file (#52.1) is moved to"
  • Line Location: NDCQ+2
Function Call: WRITE
  • Prompt: !,"a new node within the multiple. The data in the old location can be moved to "
  • Line Location: NDCQ+3
Function Call: WRITE
  • Prompt: !,"it's new location now by selecting a time to queue the background job or can be"
  • Line Location: NDCQ+4
Function Call: WRITE
  • Prompt: !,"moved later by using the entry point NDCQ^PSOPOST1. This job can run at least"
  • Line Location: NDCQ+5
Function Call: WRITE
  • Prompt: !,"an hour or more depending on the amount of data that is in the PRESCRIPTION"
  • Line Location: NDCQ+6
Function Call: WRITE
  • Prompt: !,"file (#52). If you do not want to queue the background job at this time"
  • Line Location: NDCQ+7
Function Call: WRITE
  • Prompt: !,"enter '^' at the prompt."
  • Line Location: NDCQ+8
Function Call: WRITE
  • Prompt: !,"Be aware at this point that the cursor is hidden and the characters you enter"
  • Line Location: NDCQ+9
Function Call: WRITE
  • Prompt: !,"here will not be seen as the whole process is under the control of KIDS."
  • Line Location: NDCQ+10
Function Call: WRITE
  • Prompt: !
  • Line Location: NDCG+1
Function Call: WRITE
  • Prompt: !!,"Task not queued !",!
  • Line Location: NDCX+0
Routine Call
  • %ZIS
  • Line Location:
    • PSOPOST1+3
    • PSOPOST1+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+5
^ORD(101 - [#101] OPT+1
^PSRX - [#52] NDCM+2, MISIG+1, MISIG+2*

Label References

Name Line Occurrences
EX PSOPOST1+3, PSOPOST1+4
NDCX NDCG+2

Naked Globals

Name Field # of Occurrence
^( NDCM+2
^("OR1" MISIG+1
^(0 NDCM+2*
^(1 NDCM+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+5, NDCG+1
%DT NDCG+1!*, NDCG+2!
%DT("A" NDCG+1*
%DT(0 NDCG+1*
%I EX!
%ZIS PSOPOST1+3!*
D0 EX!
DA EN!, EN+1*, EX!, OPT+1*!, NDC+1*!
DA(1 NDC+1*
DIC EN!, EN+1*, EX!
DIK OPT+1*!, NDC+1*!
DIQ EN!, EN+1*, EX!
DR EN!, EN+1*, EX!
>> DTOUT NDCG+2
HDR EN+5*, EN+6, EX!
IO EN+6
IO("Q" PSOPOST1+4, PSOPOST1+6!
IOF EN+6
IOM EN+5
ION PSOPOST1+3
IOP PSOPOST1+3!*, PSOPOST1+4*
LINE EN+5*, EN+6, EX!
>> NDC NDCM+2*
>> POP PSOPOST1+3
PSOION PSOPOST1+3*, PSOPOST1+4, EX!
PSOPOST EN!, EX!
PSOPOST( EN+3, EN+4!, EN+7, EN+8, EN+9
RX MISIG+1*, MISIG+2, MISIG+3!
RXN MISIG+2*, MISIG+3!
V1 NDCM+1~, NDCM+2*
V2 NDCM+1~, NDCM+2*
X PSOPOST1+6!, EX!
Y PSOPOST1+6!, EN+5*, EN+6, EX!, NDCG+2, NDCG+3
>> ZTDESC PSOPOST1+5*, NDCG+3*
>> ZTDTH NDCG+3*
>> ZTIO NDCG+3*
>> ZTQUEUED NDCG+4
>> ZTRTN PSOPOST1+5*, NDCG+3*
>> ZTSAVE("ZTREQ" PSOPOST1+5*
ZTSK PSOPOST1+3!, PSOPOST1+6!, NDCG+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All