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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSODIAG

Package: Outpatient Pharmacy

Routine: PSODIAG


Information

PSODIAG ;BIR/LE - Diagnosis code prompts ;02/27/04

Source Information

Source file <PSODIAG.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
EN2 ;ask for ICD's or display previously entered ones for editing
WRITE
WRITE2
STATCHK(ICDIEN,FILDAT) ;called from above to check active/inactive date during FileMan call.
DELETE ;called from above to verify delete with user and to delete said entries
ICD ;called from PSON52 cause PSON52'S too large. Stores ICD info for new Rx's (CPRS and backdoor) using variables from copy function and new order functions.
UPDATE ;was in PSOORED6; now called from PSOORED6; removes deletes for edits and stores data.
CSET ;Called from PSOHLNEW due to it's routine size. Requires PSOICD & PENDING variable. Sets ICD node for orders passed from CPRS.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Previously entered ICD-9 diagnosis codes: "
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: OLD(I)
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+4
Function Call: READ
  • Variable: X
  • Timeout: 60
  • Line Location: EN2+9
Function Call: WRITE
  • Prompt: !,DIC("A")
  • Line Location: EN2+9
Function Call: WRITE
  • Prompt: OLD(I)_"// "
  • Line Location: EN2+10
Function Call: WRITE
  • Prompt: !,"Enter a valid ICD-9 diagnosis code."
  • Line Location: EN2+13
Function Call: WRITE
  • Prompt: !!,"Invalid ICD-9 diagnosis code. Please choose another.",!
  • Line Location: EN2+26
Function Call: WRITE
  • Prompt: !!,"Inactivated ICD-9 Diagnosis Code. Please choose another.",!
  • Line Location: EN2+27
Function Call: WRITE
  • Prompt: !!,"Invalid or inactivated ICD-9 diagnosis code. Please choose another.",!
  • Line Location: EN2+28
Function Call: WRITE
  • Prompt: $C(7),!," Duplicate entry. Please select a different ICD-9 diagnosis code.",!
  • Line Location: EN2+30
Function Call: WRITE
  • Prompt: !,?10,"Primary: ",OLD(I),?30,$P($$ICDDX^ICDCODE(OLD(I),FILDAT),U,4)
  • Line Location: WRITE+0
Function Call: WRITE
  • Prompt: !,?3,"Secondaries #"_J_": ",OLD(I),?30,$P($$ICDDX^ICDCODE(OLD(I),FILDAT),U,4)
  • Line Location: WRITE2+0
Function Call: WRITE
  • Prompt: !,?15,"#"_J_": ",OLD(I),?30,$P($$ICDDX^ICDCODE(OLD(I),FILDAT),U,4)
  • Line Location: WRITE2+1
Function Call: READ
  • Variable: X
  • Timeout: 30
  • Line Location: DELETE+1
Function Call: WRITE
  • Prompt: !,"SURE YOU WANT TO DELETE? "
  • Line Location: DELETE+1
Function Call: WRITE
  • Prompt: !,"Enter Y or N"
  • Line Location: DELETE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
52.052311 GET1^DIQ
52.41311 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call