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

Package: Womens Health

Routine: WVMGRP1


Information

WVMGRP1 ;ISP/RFR - MANAGER'S PATIENT EDITS;Nov 09, 2018@14:45

Source Information

Source file <WVMGRP1.m>

Entry Points

Name Comments DBIA/ICR reference
DOCACT ;PROCESS DOCUMENT ACTIONS
VISITS(WVVISITS,WVKEY,WVVISIT) ;RETRIEVE SPECIFIED VISIT
DOCS(WVDOCS,WVKEY,WVDOC) ;RETRIEVE SPECIFIED DOCUMENT
ITEMS(WVITEMS,WVKEY,WVPAT) ;RETRIEVE EITHER DOCUMENTS OR VISITS FOR A PATIENT
BRANCH(WVIEN,WVACT) ;PROCESS A BRANCH OF ACTIVITIES (DO NOT USE OUTSIDE OF THIS ROUTINE)
ACTIVTY(WVIEN) ;PROCESS AN ACTIVITY (DO NOT USE OUTSIDE OF THIS ROUTINE)
; INPUT: WVIEN: IEN OF THE CURRENT ACTIVITY [REQUIRED]
; OUTPUT: $$ACTIVTY: WHAT THE USER WANTS TO DO
; 1 TO REASSIGN, 2 TO MARK ENTERED IN ERROR, 0 TO TAKE NO ACTION, -1 TO QUIT
SHODATA() ;DISPLAY STATUS DATA
CROOTREC(WVIEN) ;DELETE FILE #790.8 ENTRY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$LJ^XLFSTR(WVITEM,2)_" "
  • Line Location: DOCACT+10
Function Call: WRITE
  • Prompt: $S(WVPNUM>1:" ",1:"")_$P(WVITEMS(WVKEY(WVITEM)),U,WVPNUM),!
  • Line Location: DOCACT+10
Function Call: WRITE
  • Prompt: $P(WVITEMS(WVITEM),U,WVPNUM),!
  • Line Location: DOCACT+20
Function Call: WRITE
  • Prompt: !," L"
  • Line Location: DOCACT+25
Function Call: WRITE
  • Prompt: @IOF," Now l"
  • Line Location: DOCACT+26
Function Call: WRITE
  • Prompt: !,WVTXTA(WVCNT)
  • Line Location: DOCACT+36
Function Call: WRITE
  • Prompt: ?5,$$RJ^XLFSTR(WVCNT," ",3),?11,WVRTACTS(WVRTACTS("B",WVCNT)),!
  • Line Location: DOCACT+65
Function Call: WRITE
  • Prompt: !," Activity Detail:",!,"ACTIVITY DATE/TIME: ",WVDATA(790.801,WVIEN,.01,"E"),!,?2,"ACTION: ",WVDATA(790.801,WVIEN,3,"E"),!
  • Line Location: ACTIVTY+9
Function Call: WRITE
  • Prompt: ?2,"DOCUMENT NAME (IEN): ",WVDATA(790.801,WVIEN,2,"E"),!
  • Line Location: ACTIVTY+10
Function Call: WRITE
  • Prompt: ?2,"NEW PATIENT: ",WVPT,?40,"NEW VISIT: ",WVDATA(790.801,WVIEN,12,"E"),!
  • Line Location: ACTIVTY+11
Function Call: WRITE
  • Prompt: !," Please review the chart for "_WVPT_".",!,"Press ENTER to continue: "
  • Line Location: ACTIVTY+15
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ACTIVTY+16
Function Call: WRITE
  • Prompt: !
  • Line Location: ACTIVTY+16
Function Call: WRITE
  • Prompt: !!," Status Data ("_WVPAT("NAME")_"):"
  • Line Location: SHODATA+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
790.801 GETS^DIQ
^TIU(8925 - [#8925] GETS^DIQ
^AUPNVSIT - [#9000010] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call