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

Package: Womens Health

Routine: WVPRPCD


Information

WVPRPCD ;HCIOFO/FT,JR - WV PRINT A PROCEDURE;08/28/2017 12:42

Source Information

Source file <WVPRPCD.m>

Entry Points

Name Comments DBIA/ICR reference
TOP(DA) ;EP
STARTQ ;EP
START(DA) ;EP
DEVICE ;EP
JUSTPRT ;EP
PRTNEW ;EP
DEQUEUE ;EP
EXIT ;EP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TOP+8
Function Call: WRITE
  • Prompt: !?5,"Date of Procedure: ",$$TXDT^WVUTL5($P(WVY,U,12))
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !?4,"Date First Entered: ",$$TXDT^WVUTL5($P(WVY,U,19))
  • Line Location: START+14
Function Call: WRITE
  • Prompt: ?42,"First Entered By: "
  • Line Location: START+15
Function Call: WRITE
  • Prompt: $E($$PROV^WVUTL6,1,20)
  • Line Location: START+15
Function Call: WRITE
  • Prompt: !
  • Line Location: START+16
Function Call: WRITE
  • Prompt: ?43,"Radiology Case#: ",$P(WVY,U,15)
  • Condition for execution: $P(WVY,U,15)]""
  • Line Location: START+16
Function Call: WRITE
  • Prompt: !?4,"Clinician/Provider: ",WVPROV
  • Line Location: START+19
Function Call: WRITE
  • Prompt: !?2,"Ward/Clinic/Location: "
  • Line Location: START+20
Function Call: WRITE
  • Prompt: $$HOSPLC^WVUTL6
  • Line Location: START+20
Function Call: WRITE
  • Prompt: !?2,"Health Care Facility: "
  • Line Location: START+21
Function Call: WRITE
  • Prompt: $$INSTTX^WVUTL6(X)
  • Line Location: START+21
Function Call: WRITE
  • Prompt: !?14,"Comments: "
  • Line Location: START+22
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: START+28
Function Call: WRITE
  • Prompt: !?4,"Complete by (Date): ",$$TXDT^WVUTL5($P(WVY,U,13))
  • Line Location: START+32
Function Call: WRITE
  • Prompt: !?5,"Results/Diagnosis: ",WVRES
  • Line Location: START+33
Function Call: WRITE
  • Prompt: !," Sec Results/diagnosis: "
  • Line Location: START+34
Function Call: WRITE
  • Prompt: $$DIAG^WVUTL4($P(WVY,U,6))
  • Line Location: START+34
Function Call: WRITE
  • Prompt: ?57,"HPV: "
  • Line Location: START+35
Function Call: WRITE
  • Prompt: "YES"
  • Condition for execution: $P(WVY,U,8)
  • Line Location: START+35
Function Call: WRITE
  • Prompt: !?16,"Status: "
  • Line Location: START+36
Function Call: WRITE
  • Prompt: $$STATUS^WVUTL4
  • Line Location: START+36
Function Call: WRITE
  • Prompt: !!,WVTITLE
  • Line Location: START+42
Function Call: WRITE
  • Prompt: !?2,"T-Zone Seen Entirely: "
  • Line Location: START+44
Function Call: WRITE
  • Prompt: !?2,"Lesion Outside Canal: "
  • Line Location: START+49
Function Call: WRITE
  • Prompt: $P(WVY,U,24)
  • Line Location: START+51
Function Call: WRITE
  • Prompt: !?5,"Satisfactory Exam: "
  • Line Location: START+53
Function Call: WRITE
  • Prompt: !?12,"Impression: "
  • Line Location: START+56
Function Call: WRITE
  • Prompt: !!,WVTITLE
  • Line Location: START+60
Function Call: WRITE
  • Prompt: !?9,"ECC Dysplasia: "
  • Line Location: START+62
Function Call: WRITE
  • Prompt: $$ECCDYS^WVUTL6
  • Line Location: START+63
Function Call: WRITE
  • Prompt: !?3,"Ectocervical Biopsy: "
  • Line Location: START+66
Function Call: WRITE
  • Prompt: !?8,"STD Evaluation: "
  • Line Location: START+70
Function Call: WRITE
  • Prompt: !!,WVTITLE,!
  • Line Location: START+75
Function Call: WRITE
  • Prompt: !!,WVTITLE
  • Line Location: START+83
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+85
Info |  Source |  Entry Points |  Interaction Calls