Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

Name Comments DBIA/ICR reference
EN
EX
OPT ;PSO*7.0*12 deletes PSO CANCEL protocol in preinstall
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
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
NDCG ;PSO*7*29 post-install background bob Date/Time selection
NDCX
MISIG ;post install for PSO*7*87

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
Info |  Source |  Entry Points |  Interaction Calls