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

Package: PCE Patient Care Encounter

Routine: PXVDIS


Information

PXVDIS ;BPFO/LMT - Imm Disclosure Report ;06/22/16 17:04

Source Information

Source file <PXVDIS.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ;
PROMPTDT(PXFROM,PXTO) ;
PROMPT(PXFILE,PXPROMPT,PXRESP) ;
MAIN2 ;
FIND(PXINDEX,PXSUB,PXFROM,PXTO,PXAG,PXPT) ;
FIND2(PXGBL,PXINDEX,PXSUB,PXFROM,PXTO,PXAG,PXPT) ;
PRINT ;
PRINTHDR(PXNOW,PXPAGE,PXLINE) ;
PAUSE ;
CLEAN ;
ASKDVC ;Prompts user for device of output (allows queuing)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPTDT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPTDT+19
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single or multiple "_PXPROMPT(1)_","
  • Line Location: PROMPT+4
Function Call: WRITE
  • Prompt: !,?5,"or enter ^ALL to select all "_PXPROMPT(1)_".",!
  • Line Location: PROMPT+5
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(PXDISCDT,"2M"),?16,PXAGENCY,?53,PXPATNM,?85,$E($P($G(^AUTTIMM(+PXIMM,0)),U,1),1,30)
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: ?117,$$FMTE^XLFDT($P(PXNODE,U,2),"2M")
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINTHDR+4
Function Call: WRITE
  • Prompt: ?13,"ACCOUNTING OF DISCLOSURES REPORT"
  • Line Location: PRINTHDR+6
Function Call: WRITE
  • Prompt: !,?13,"Report printed on: ",$$FMTE^XLFDT(PXNOW),?88,"Page: ",PXPAGE
  • Line Location: PRINTHDR+7
Function Call: WRITE
  • Prompt: !,?13,"Date Range: "_$$FMTE^XLFDT(PXFROM,2)_" - "_$$FMTE^XLFDT($P(PXTO,".",1),2)
  • Line Location: PRINTHDR+8
Function Call: WRITE
  • Prompt: ?48,"Agency(ies): "_$S($G(PXAG)="ALL":"ALL",$O(PXAG($O(PXAG(0)))):"Multiple",1:$E($P($G(^PXV(920.71,+$O(PXAG(0)),0)),U,1),1,25))
  • Line Location: PRINTHDR+9
Function Call: WRITE
  • Prompt: ?88,"Patient(s): "_$S($G(PXPT)="ALL":"ALL",$O(PXPT($O(PXPT(0)))):"Multiple",1:$$GET1^DIQ(2,+$O(PXPT(0)),.01))
  • Line Location: PRINTHDR+10
Function Call: WRITE
  • Prompt: !!,"Info Disclosed: Name, DOB, Sex, Race, Ethnicity, Mother Maiden Name, Place of Birth, Address, Phone Number, NOK, Immunization Data"
  • Line Location: PRINTHDR+11
Function Call: WRITE
  • Prompt: !,"Purpose: Record and track a complete immunization history for the purpose of public health care coordination"
  • Line Location: PRINTHDR+12
Function Call: WRITE
  • Prompt: !!,"DT DISCLOSED",?16,"DISCLOSED TO",?53,"PATIENT",?85,"IMMUNIZATION",?117,"ADMIN DT"
  • Line Location: PRINTHDR+13
Function Call: WRITE
  • Prompt: !,PXLINE
  • Line Location: PRINTHDR+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: !!!,"This report is designed for a 132 column format (compressed).",!
  • Line Location: ASKDVC+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call