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

Package: Prosthetics

Routine: RMPOPST0


Information

RMPOPST0 ;EDS/JAM - HOME OXYGEN BILLING TRANSACTIONS/POSTING,Part 1 ;7/24/98

Source Information

Source file <RMPOPST0.m>

Entry Points

Name Comments DBIA/ICR reference
POST ;main module to post billing transactions to IFCAP
EXIT
ANY2319() ;
BUILD ;Build array IFCAP with patient transactions to post
PROCESS ;process FCP data - ask for method of payment
PATLCK() ;Lock patient level in ^RMPO(665.72
FCPLCK() ;Lock fund control level in ^RPO(665.72
UNLKPAT ;Unlock patient level in ^RMPO(665.72
UNLKFCP ;Unlock fund contrl point level in ^RMPO(665.72
CLEANUP ;Display post messages for FCP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Posting Cancelled..."
  • Line Location: POST+7
Function Call: WRITE
  • Prompt: !!,"Nothing to Post..."
  • Line Location: POST+10
Function Call: WRITE
  • Prompt: !!,"Nothing to Post..."
  • Line Location: POST+11
Function Call: WRITE
  • Prompt: !
  • Line Location: POST+14
Function Call: WRITE
  • Prompt: !
  • Line Location: POST+17
Function Call: WRITE
  • Prompt: !!,"Posting Cancelled..."
  • Line Location: POST+18
Function Call: WRITE
  • Prompt: !
  • Line Location: ANY2319+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ANY2319+13
Function Call: WRITE
  • Prompt: !,PATNAM," record locked by another user"
  • Line Location: BUILD+16
Function Call: WRITE
  • Prompt: !!,"Fund Control Point: ",FCP
  • Line Location: PROCESS+5
Function Call: WRITE
  • Prompt: " ",$P(^TMP($J,FCP),U,3)
  • Line Location: PROCESS+17
Function Call: WRITE
  • Prompt: !!,"FCP Not Posted",?40,"Message"
  • Line Location: CLEANUP+6
Function Call: WRITE
  • Prompt: !,"---------------",?40,"-------"
  • Line Location: CLEANUP+7
Function Call: WRITE
  • Prompt: !,FCP,?40,$P(^TMP($J,FCP),U,3)
  • Line Location: CLEANUP+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLEANUP+11
Function Call: WRITE
  • Prompt: "All Fund Control Points posted successfully"
  • Line Location: CLEANUP+11
Info |  Source |  Entry Points |  Interaction Calls